Tutorial traffic lights VB6

Tutorial membuat animasi traffic lights atau lebih sering dikenal dengan lampu bangjo.

Traffic light VB6

buat interface seperti pada gambar dibawah ini

interaface trafic lights

Tulisan bewarna biru merupakan name dari masing-masing object yang ada. Usahakan buat semirip mungkin dengan yang ada pada gambar. Huruf besar, huruf kecil, tanda baca dan spasi dapat berpengaruh. setelahnya ketikkan program dibawah ini:

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

Dim a As Integer, b As Integer Private Sub form_load() Timer1.Enabled = True Timer1.Interval = 1000 Shape1.FillStyle = vbSolid Shape1.FillColor = vbWhite Shape2.FillStyle = vbSolid Shape2.FillColor = vbWhite Shape3.FillStyle = vbSolid Shape3.FillColor = vbWhite Label1.FontSize = 33 Form1.ScaleX 100 b = 9 End Sub Private Sub Timer1_Timer() Label1.Caption = b a = a + 1 b = b - 1     If a <= 10 Then     Shape1.FillColor = vbWhite     Shape3.FillColor = vbGreen     Label1.ForeColor = vbGreen     Else     Shape3.FillColor = vbWhite     Shape1.FillColor = vbRed     Label1.ForeColor = vbRed     End If If a = 10 Then b = 9 End If If a = 20 Then a = 0 b = 9 End If 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.

klik Start(tombol seperti play) untuk menjalankan program.

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.

Program arimetika 1

Tutorial VB6 untuk membuat program untuk menjumlah 2 bilangan.

Buat form seperti dibawah ini :

Form diatas diinginkan program ketika "Command1" di klik, makan akan menjumlahkan angka dari "text1" dengan "text2" dan hasilnya dikeluatkan di "text3".

untuk itu klik dua kali pada "command1" sehingga muncul seperti ini

setelah muncul kotak untuk mengedit code, ketikkan program seperti pada gambar dibawah. catatan : penulisan huruf besar, huruf kecil dan simbol harus sama. jika tidak kemungkinan besar program akan error.

setelah selesai mari kita buat program jadi. Untuk mengubah form dan code project ini menjadi program yang bisa dijalankan seperti program windows lainnya, langkahnya seperti berikut :

klik File ->Make project1.exe -> pilih Desktop (tempat meletakkan program) -> beri nama pada kotak "File name" dengan nama algoritma1.exe -> klik OK

Bisa juga meletakkan hasil program pada tempat atau folder lain, Desktop dipilih karena lebih cepat untuk  menemukannya.

Cari hasil program yang dibuat tadi pada tempat meletakkan, pada contoh saya letakkan di Desktop. Setelah ditemukan jalankan program algoritma.exe dengan cara klik dua kali pada ikon, coba masukkan angka pada text1 dan text2 kemudian klik tombol command1. seharusnya menjadi program penjumlahan, jika muncul error periksa lagi program yang ditulis mungkin masih ada yang salah dan ulangi lagi proses sebelumnya

tambahan :

setelah berhasil membuat program penjumlahan, cobalah edit code menjadi program untuk pengurangan [-], perkalian [*], pembagian [/] dan mod atau sisa pembagian [%].