Friday, 24 January 2014

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:


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.


No comments:

Post a Comment