Tutorial Kalkulator VB6

Tutorial untuk membuat kalkulator menggunakan VB6. Untuk belajar pemrograman apapun, program yang palling mudah adalah membuat program kalkulator. Dalam tutorial ini yang dapat dipelajari adalah membuat interface, variabel dan algoritma matematika

Gambar 1.Kalkulator VB6

Langkah-langkah :

Buat interface seperti diatas

Gambar 2. Membuat interface kalkulator

Tulisan bewarna biru pada gambar2 adalah "nama tombol" (name). Buatlah name yang sama seperti pada gambar, perhatikan huruf besar dan kecil karena sangat berpengaruh pada list program.

List Program:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89

Dim a As Integer Dim b As Integer Dim c As Integer Dim d As String Private Sub clear_Click() Text1 = "" a = 0 b = 0 c = 0 d = "" End Sub Private Sub CommandBagi_Click() a = CInt(Text1) Text1 = "" d = "bagi"    'division End Sub Private Sub CommandKali_Click() a = CInt(Text1) Text1 = "" d = "kali"    'multiplication End Sub Private Sub CommandKurang_Click() a = CInt(Text1) Text1 = "" d = "kurang"   'subtraction End Sub Private Sub CommandTambah_Click() a = CInt(Text1) Text1 = "" d = "tambah"    'add Text2 = d End Sub Private Sub samadengan_Click() b = CInt(Text1) Select Case d     Case "tambah": c = a + b     Case "kurang": c = a - b     Case "kali": c = a * b     Case "bagi": c = a / b End Select Text1 = c End Sub Private Sub Command0_Click() Text1 = Text1 & 0 End Sub Private Sub Command1_Click() Text1 = Text1 & 1 End Sub Private Sub Command2_Click() Text1 = Text1 & 2 End Sub Private Sub Command3_Click() Text1 = Text1 & 3 End Sub Private Sub Command4_Click() Text1 = Text1 & 4 End Sub Private Sub Command5_Click() Text1 = Text1 & 5 End Sub Private Sub Command6_Click() Text1 = Text1 & 6 End Sub Private Sub Command7_Click() Text1 = Text1 & 7 End Sub Private Sub Command8_Click() Text1 = Text1 & 8 End Sub Private Sub Command9_Click() Text1 = Text1 & 9 End Sub

catatan : bila masih belum tau dimana letak untuk menuliskan list program diatas langkahnya Klik View -> Code. kemudian akan muncul kotak, disitulah tempat untuk menuliskan program.

Terakhir tekan tombol "Start"(seperti tombol play) pada bagian tengah atas untuk menguji coba program atau bisa juga dengan mengubah project ini menjadi program jadi dengan langkah File -> Make (nama project).exe .... . ikuti langkah langkah selanjutnya sesuai permintaan hasil akhirnya adalah program jadi yang bisa dijalankan.