NPM : 1511014
Tutorial Membuat Kalkulator Lengkap dengan mengunakan aplikasi Microsoft Visual Basic 06.
Langkah Pertama
Buka aplikasi Microsoft Visual Basic 06 dan pilih New Project Standart EXE.
Maka tampilan akan seperti gambar di atas.
Selanjutnya buat lah tampilan kakulator seperti gambar di bawah.
Setelah tampilan atau kerangka kakulator telah di buat langkah selanjutnya adalah memasukan code icon yang akan di gunakana dalam perintah menghitung.
Masukan code pada kolom yang di tunjukan gampar panah di atas
Code :
Tombol 1 : Text1.Text = Text1.Text & 1
Tombol 2 : Text1.Text = Text1.Text & 2
Tombol 1 : Text1.Text = Text1.Text & 3
Tombol 1 : Text1.Text = Text1.Text & 4
Tombol 1 : Text1.Text = Text1.Text & 5
Tombol 1 : Text1.Text = Text1.Text & 6
Tombol 1 : Text1.Text = Text1.Text & 7
Tombol 1 : Text1.Text = Text1.Text & 8
Tombol 1 : Text1.Text = Text1.Text & 9
Tombol 1 : Text1.Text = Text1.Text & 0
Tombol X : num1 = Text1.Text
Text1.Text = ""
Op = "*"
Tombil - : num1 = Text1.Text
Text1.Text = ""
Op = "-"
Tombil / : num1 = Text1.Text
Text1.Text = ""
Op = "/"
Tombol + : num1 = Text1.Text
Text1.Text = ""
Op = "+"
Code Tombol Hapus :
Text1.Text = ""
Text1.Text
= ""
Text1.Text
= ""
Text1.Text = ""
Text1.Text = ""
Text1.Text = ""
Text1.Text = ""
Text1.Text = ""
End Sub
Code Tombol :
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
Text1.Text = num1 / num2
End If
Code Keluar :
Unload Me
Unload Me
1 Comments
Agen poker terbesar dan terpercaya ARENADOMINO.COM
ReplyDeleteminimal depo dan wd cuma 20 ribu
dengan 1 userid sudah bisa bermain 8 games
pin BB : D_8_E_B_A_A_7_C