Assalamualaikum
. Wr . Wb
Di sini saya kan menjelaska cara membuat applikasi
kalkulator sederhana menggunakan bahasa Visual Basic
1. Pertama,
Desain lah sebuah form sederhana kurang lebih seperti tampilan berikut :
2. Kedua,
Untuk mengosongkan text di textbox pilih textboxnya -
pilih jendela properties - pilih text hapus
namanya seprti contoh :
3. Ketiga, Untuk mengganti
nama pada command1 di tombol button - pilih button
- pilih jendela properties - pilih caption ganti
namanya sesuai yang di inginkan :
setelah itu buatlah button sebanyak
seperti gambar di atas dan rubah captionnya.
4. Keempat, ketikkan kode barikut
untuk button Operator Aritmatika dan Operator
Perbandingan
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command10_Click()
Text3.Text = (Text1.Text) < (Text2.Text)
End Sub
Private Sub Command11_Click()
Text3.Text = (Text1.Text) > (Text2.Text)
End Sub
Private Sub Command12_Click()
Text3.Text = (Text1.Text) <= (Text2.Text)
End Sub
Private Sub Command13_Click()
Text3.Text = (Text1.Text) >= (Text2.Text)
End Sub
Private Sub Command14_Click()
Text3.Text = (Text1.Text) = (Text2.Text)
End Sub
Private Sub Command15_Click()
Text3.Text = (Text1.Text) <> (Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = (Text1.Text) - (Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = (Text1.Text) * (Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = (Text1.Text) / (Text2.Text)
End Sub
Private Sub Command5_Click()
Text3.Text = (Text1.Text) ^ (Text2.Text)
End Sub
Private Sub Command6_Click()
Text3.Text = (Text1.Text) Mod (Text2.Text)
End Sub
Private Sub Command7_Click()
Text3.Text = (Text1.Text) & (Text2.Text)
End Sub
Private Sub Command8_Click()
Text3.Text = (Text1.Text) \ (Text2.Text)
End Sub
dan ini tuliskan kode berikut untuk tombol EXIT, dan RESET
Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) +
Val(Text2.Text)
End Sub
Private Sub Command10_Click()
Text3.Text = (Text1.Text) <
(Text2.Text)
End Sub
Private Sub Command11_Click()
Text3.Text = (Text1.Text) >
(Text2.Text)
End Sub
Private Sub Command12_Click()
Text3.Text = (Text1.Text) <=
(Text2.Text)
End Sub
Private Sub Command13_Click()
Text3.Text = (Text1.Text) >=
(Text2.Text)
End Sub
Private Sub Command14_Click()
Text3.Text = (Text1.Text) =
(Text2.Text)
End Sub
Private Sub Command15_Click()
Text3.Text = (Text1.Text)
<> (Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = (Text1.Text) -
(Text2.Text)
End Sub
Private Sub Command3_Click()
Text3.Text = (Text1.Text) *
(Text2.Text)
End Sub
Private Sub Command4_Click()
Text3.Text = (Text1.Text) /
(Text2.Text)
End Sub
Private Sub Command5_Click()
Text3.Text = (Text1.Text) ^
(Text2.Text)
End Sub
Private Sub Command6_Click()
Text3.Text = (Text1.Text) Mod
(Text2.Text)
End Sub
Private Sub Command7_Click()
Text3.Text = (Text1.Text) &
(Text2.Text)
End Sub
Private Sub Command8_Click()
Text3.Text = (Text1.Text) \
(Text2.Text)
End Sub
5. Kelima, jalankan program
tersebut,
Demikian tutorial mengenai Visual Basic 6.0 yang saya
sampaikan semoga bermanfaat
SELAMAT MENCOBA DAN SUKSES
0 Komentar