Pertemuan 2, 16 Februari 2015 MEMBUAT KALKULATOR PINTAR SEDERHANA DENGAN VISUAL BASIC 2010

Berikut langkah-langkahnya :

Klik Start pada windows anda

Klik All Programs

Klik Microsoft Visual Studio 2010 (Seperti gambar dibawah) 

Dan berikut tampilan awal VB 2010

Untuk memulainya

Klik File

New Project

Pilih Windows Forms Application

Anda bisa merubah Name : Aplikasi Pintar VB

 Klik OK

Pada Properties Form1 ubah :

Text                 : Kalkulator Pintar VB

StartPosition  : CenterScreen

Tambahkan TextBox pada Form1

Klik TextBox1, Kemudian Ubah pada Properties:

Name                          : LAYAR

RightToLeft                 : Yes

ReadOnly                    : True

BackColor                   : ButtonHighlight

Kemudian Tambahkan Button pada Form :

 

Pad Properties Button1 Ubah :

Text     : 1

Name : N1

Kemudian Copy N1 (Untuk Cara Copy Cepat, anda bisa lihat BAB 2010.3) hingga menjadi :

Ubah Name dan Text Pada masing-masing Button hingga menjadi :

Button1			Button2			Button3
Name	N1		Name	N2		Name	N3
Text	1		Text	2		Text	3
Button4			Button5			Button6
Name	N4		Name	N5		Name	N6
Text	4		Text	5		Text	6
Button7			Button8			Button9
Name	N7		Name	N8		Name	N9
Text	7		Text	8		Text	9
Button10			Button11			Button12
Name	Nhasil		Name	N0		Name	NC
Text	=		Text	0		Text	C

Membuat Koding Pada Form1

Dengan Koding diatas, jika anda klik Tombol N1 maka pada Layar akan Muncul angka 1 

Masukan juga Koding diatas pada Tombol N2, N3 dan seterusnya :

Contoh :

Logika Koding diatas adalah ketika anda Klik Angka pada Tombol maka tampilkan pada LAYAR. Kemudian anda Tambahkan lagi Button pada Form1, sehingga menjadi seperti gambar dibawah :

Ubah Penambahan Button diatas pada Properties menjadi :

Button13			Button14			Button14			Button15
Name	Ttambah		Name	Tkurang		Name	Tkali		Name	Tbagi
Text	+		Text	-		Text	x		Text	/

Kemudian jalannya aplikasi :

Ketika Aplikasi di Run atau dijalankan maka LAYAR = 0

Ketika Tombol Angka di Klik maka muncul pada Layar, Ketika Tombol Tambah di Klik Maka Layar akan muncul angka 0 dan pengguna memasukan Angka ke 2. Ketika di Klik tombol = maka akan memberikan Hasilnya pada LAYAR.

Ketika Klik Tombol C, maka LAYAR akan memunculkan angka 0 kembali.

 Berikut full codingnya :

Public Class Form1


Dim AngkaPertama As Long

Dim Kalkulasi As String


Private Sub N1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N1.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "1"


Else


LAYAR.Text = LAYAR.Text & "1" End If


End Sub


Private Sub N2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N2.Click


If LAYAR.Text = "0" Then


LAYAR.Text = "2"

Else


LAYAR.Text = LAYAR.Text & "2" End If

End Sub


Private Sub N3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N3.Click


If LAYAR.Text = "0" Then


LAYAR.Text = "3"

Else


LAYAR.Text = LAYAR.Text & "3" End If


End Sub


Private Sub N4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N4.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "4"


Else

LAYAR.Text = LAYAR.Text & "4"


End If


End Sub


Private Sub N5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N5.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "5"


Else


LAYAR.Text = LAYAR.Text & "5" End If


End Sub


Private Sub N6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N6.Click


If LAYAR.Text = "0" Then

LAYAR.Text = "6"


Else


LAYAR.Text = LAYAR.Text & "6" End If


End Sub


Private Sub N7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N7.Click


If LAYAR.Text = "0" Then


LAYAR.Text = "7"

Else


LAYAR.Text = LAYAR.Text & "7" End If

End Sub


Private Sub N8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N8.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "8"


Else


LAYAR.Text = LAYAR.Text & "8" End If


End Sub


Private Sub N9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N9.Click

If LAYAR.Text = "0" Then


LAYAR.Text = "9"


Else


LAYAR.Text = LAYAR.Text & "9" End If


End Sub


Private Sub N0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles N0.Click


If LAYAR.Text = "0" Then

LAYAR.Text = "0"


Else


LAYAR.Text = LAYAR.Text & "0" End If

End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


LAYAR.Text = "0"


End Sub


Private Sub NC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NC.Click


LAYAR.Text = "0" End Sub


Private Sub TTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TTambah.Click


AngkaPertama = LAYAR.Text LAYAR.Text = "0" Kalkulasi = "+"

End Sub


Private Sub TKurang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKurang.Click


AngkaPertama = LAYAR.Text LAYAR.Text = "0" Kalkulasi = "-"

End Sub


Private Sub TKali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKali.Click

AngkaPertama = LAYAR.Text LAYAR.Text = "0" Kalkulasi = "*"


End Sub


Private Sub TBagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBagi.Click

AngkaPertama = LAYAR.Text LAYAR.Text = "0" Kalkulasi = "/"

End Sub


Private Sub NHasil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NHasil.Click

Dim AngkaKeDua As Long Dim Hasil As Long AngkaKeDua = LAYAR.Text If Kalkulasi = "+" Then

Hasil = AngkaPertama + AngkaKeDua ElseIf Kalkulasi = "-" Then

Hasil = AngkaPertama - AngkaKeDua ElseIf Kalkulasi = "*" Then

Hasil = AngkaPertama * AngkaKeDua ElseIf Kalkulasi = "/" Then

Hasil = AngkaPertama / AngkaKeDua End If

AngkaPertama = Hasil LAYAR.Text = Hasil

End Sub End Class