TUGAS 1 PEMROGRAMAN VISUAL

CARA MEMBUAT KALKULATOR

1.buka vb.net,lalu buat program baru dengan cara KLIK - NEW-PROJECT

Maka tampilan awal akan seperti gambar dibawah ini:

2. Pada jendela tampilan diatas pilih Windows Form Application,dan pada Nama,ganti dengan nama project yang kita inginkan. pada Location pilih folder untuk menyimpan project lalu KLIK OK.maka akan tampil seprti gmbr dibawah ini.

Tool yang  digunakan:

·          6  Label

·          3 Textbox

·          7 Button

Label 1    ubah properties  text menjadi nilai  1

Label 2     ubah properties  text menjadi nilai 2

Label 3     ubah properties  text menjadi hasil

Textbox    text=(kosongkan)

Button1    ubah properties  text menjadi  +

Button2    ubah properties  text menjadi   -

Button3    ubah properties  text menjadi  x

Button4    ubah properties  text menjadi  :

Button5    ubah properties  text menjadi  ^

Button6    ubah properties  text menjadi  bersihkan

Button7    ubah properties  text menjadi  keluar

3. Masukan tool2 diatas (ubah nama textnya)dan buat menjadi seperti gambar di bawah.(untuk Letak dapat diatur seperti yang kita inginkan)

  

3. Setelah membuat desain,selanjutnya mulai membuat script kodenya.

-Double Klik pada button ( +) maka form baru akan tampil.lalu masukan kode script dibawah ini

Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button1.Click

        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)

End sub

-Double Klik pada button ( -) maka form baru akan tampil.lalu masukan kode script dibawah ini

Private Sub Button2_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button2.Click

        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

End sub

-lakukan seperti diatas pada Button ( X).

Private Sub Button3_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button3.Click

        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

End sub

-lakukan seperti diatas pada Button ( : ).

Private Sub Button4_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button4.Click

        TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)

End sub

-lakukan seperti diatas pada Button ( ^ ).

Private Sub Button5_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button5.Click

        TextBox3.Text = Val(TextBox1.Text) ^ Val(TextBox2.Text)

-lakukan seperti diatas pada Button7 ( bersihkan ).

Private Sub Button6_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button6.Click

        TextBox1.Text= ""

        TextBox2.Text =""

        TextBox3.Text =""

End sub

-lakukan seperti diatas pada Button ( keluar ).

Private Sub Button7_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles Button7.Click

If MsgBox("Apakah anda ingin keluar ?", vbYesNo + vbQuestion + vbDefaultButton2, "Konfirmasi exit") = vbYes Then Me.Close()

End sub

4. Setelah selesai lalu di RUN  atau tekan F5 pada keyboard.

Bila nilai pertama dan nilai  kedua telah diisi klik tombol yang kita inginkan,maka hasilnya dapat  dilihat pada textbox

 Hasilnya seperti gambar dibawah ini.