Aplikasi Sederhana OOP Dengan Visual Studio 2010
1. kita buka
visual basic 2010nya
2. pilih =>
new project
3. memberi
nama sesuai keinginan anda sendiri, jika sudah klik tombol OK, maka akan muncul
tampilan seperti berikut:
4. tambahkan
form lagi hingga jumlah form tersebut sebanyak 4(dengan mengklik nama form
tersebut lalu pilih add => windows form).
contoh gambar:
contoh gambar:
5. jika sudah
mari kita atur propertiesnya:
Form 1
BAHAN
|
TEXT
|
NAME
|
Radiobutton
|
Operator
|
rboperator
|
Combo box
|
-
|
cboperator
|
Button
|
Next
|
btnnext
|
Form 2
BAHAN
|
TEXT
|
NAME
|
Radiobutton
|
Tambah
|
rbtambah
|
Radiobutton
|
Kurang
|
rbkurang
|
Radiobutton
|
Bagi
|
rbbagi
|
Radiobutton
|
Kali
|
rbkali
|
Button
|
Next
|
btnnext
|
Form 3
BAHAN
|
TEXT
|
NAME
|
Label
(label1)
|
-
|
label1
|
Label (label2)
|
=
|
label2
|
Label
(label3)
|
Perhitungan
|
lblperhitungan
|
Button
(Button1)
|
Hasil
|
btnhasil
|
Button
(Button2)
|
Back
|
btnBack
|
Textbox
(textbox1)
|
-
|
Textbox1
|
Textbox
(textbox2)
|
-
|
Textbox2
|
Textbox
(textbox3)
|
-
|
Textbox3
|
Form 4
BAHAN
|
TEXT
|
NAME
|
Label
(label1)
|
-
|
label1
|
Label (label2)
|
Nilai
|
lblnilai
|
Button
(button1)
|
Ulang
|
btnulang
|
Button
(button2)
|
Tidak
|
btntidak
|
6.
jika sudah diatur propertiesnya , kita lihat di
properties lagi pilih Startposision => CenterScreen, seperti berikut:
startPosition tersebut berfungsi sebagai form tersebut jika dijalankan posisinya berada ditengah
Jika
sudah selesai mengaturnya , kita akan memulai memasukkan Codingnya
Form1
:
Klik
double pada tombol next, dan masukan
kode belikut:
Form2.show()
Me.hide()
Form2:
Klik
double pada tombol next, dan masukan
kode belikut:
Form3.show()
Me.hide()
Form 3:
Klik double pada tombol back, dan masukan kode berikut:
Me.close()
Klik double tombol hasil,
dan masukan kode berikut:
If Form2.rbtambah.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
ElseIf Form2.rbkurang.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
ElseIf Form2.rbkali.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
ElseIf Form2.rbbagi.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
End If
Form4.lblnilai.Text = TextBox3.Text
Form4.Show()
Klik double form 3, dan masukan kode berikut:
If
Form2.rbtambah.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
Label1.Text = "+"
ElseIf Form2.rbkurang.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
Label1.Text = "-"
ElseIf Form2.rbkali.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
Label1.Text = "*"
ElseIf Form2.rbbagi.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
Label1.Text = "/"
End If
Form
4:
Klik
double tombol ulang, dan masukkan
kode berikut:
Form1.show()
Klik
double tombol Tidak, dan masukan
kode berikut:
close()
7.jika sudah memasukkan coddingnya , maka kita akan mencoba
jalankan dengan menekan F5.
Comments
Post a Comment