Baiklah,, tutorial sayah kali ini saya akan membuat aplikasi
Kalkulator atau biasa di sebut juga aplikasi mesin hitung …. Nah cara-caranya
mudah dan cepat menggunakan visual basic 6.0
Ok TUTORIAL MEMBUAT APLIKASI MESIN HITUNG MENGGUNAKAN VISUAL
BASIC 6.0
1.
Klik 2 kali Untuk Memulai Masuk Ke Visual Basic
6.0
2.
Pilih Standart EXE dan Langsung Open
3
3. Buatlah Command
4.
Nah Setelah Membuat Command Hasil nya Akan
Seperti ini
5.
Ganti lah Captionnya Menjadi Angka dan Sejumlah Suku Kata Bilangan
Perkalian,Pembagian dan seterunya
6. Selanjutnya
buatlah sebuah TextBox dan lihat hasil nya seperti gambar kosongkan textnya
7.
BUATLAH Frame Seperti Contoh Gambar dan Klik
kanan Pda Frame Lalu Pilih Send to Back seperti pada gambar
Nah Hingga Terlihat Seperti ini, Ubah Caption Pada Frame dan
BackColor nya sesuka anda
Masukan Coding nya ,,,,,,
Ketikan Coding nya :
Dim op As String
Dim num1 As Integer
Dim num2 As Integer
Private Sub Command1_Click()
Text1.Text = Text1.Text & 1
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text & 0
End Sub
Private Sub Command12_Click()
num2 = Text1.Text
If op = "+" Then
Text1.Text = num1 + num2
ElseIf op = "-" Then
Text1.Text = num1 - num2
ElseIf op = "*" Then
Text1.Text = num1 * num2
ElseIf op = "/" Then
Text1.Text = num1 / num2
End If
End Sub
Private Sub Command13_Click()
num1 = Text1.Text
Text1.Text = ""
op = "+"
End Sub
Private Sub Command14_Click()
num1 = Text1.Text
Text1.Text = ""
op = "*"
End Sub
Private Sub Command15_Click()
num1 = Text1.Text
Text1.Text = ""
op = "-"
End Sub
Private Sub Command16_Click()
num1 = Text1.Text
Text1.Text = ""
op = "/"
End Sub
Private Sub Command17_Click()
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Text1.Text = Text1.Text & 2
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text & 3
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text & 4
End Sub
Private Sub Command5_Click()
Text1.Text = Text1.Text & 5
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text & 6
End Sub
Private Sub Command7_Click()
Text1.Text = Text1.Text & 7
End Sub
Private Sub Command8_Click()
Text1.Text = Text1.Text & 8
End Sub
Private Sub Command9_Click()
Text1.Text = Text1.Text & 9
End Sub
Setelah
Selesai Membuat Coding langsung saja klik play dan lihat hasil nya :)
Terimakasih atas kunjungannya semoga bermanfaat jika ada hal yang tidak di ketahui silahkan tinggalkan komentar anda insya allah pasti saya jawab
