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.


Comments

Popular posts from this blog

Perbedaan Flowchart dan Pseudocode

Aplikasi Rawat Jalan Berbasis Web

Aplikasi CRUD Sederhana dengan Java Swing dan MySQL