W-BLOGG

 CODING GAME ROKET MENGGUNAKAN  VISUSAL BASIC 6 CODE : Public XHOR As Integer Public XVER As Integer Public XPESAWAT As Integer Private Sub Form_Activate() XHOR = 4700 XVER = 6000 XPESAWAT = 0 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyRight Then ROKET.Height = 600 ROKET.Width = 800 ROKET.Picture = LoadPicture(App.Path & "\RKANAN.JPG")  ROKET.Left = XHOR  XHOR = XHOR + 50 End If If KeyCode = vbKeyLeft Then ROKET.Height = 600 ROKET.Width = 800 ROKET.Picture = LoadPicture(App.Path & "\RKIRI.JPG")  ROKET.Left = XHOR  XHOR = XHOR - 50 End If If KeyCode = vbKeyUp Then ROKET.Height = 800 ROKET.Width = 600  ROKET.Picture = LoadPicture(App.Path & "\ROKET.JPG")  ROKET.Top = XVER  XVER = XVER - 50  End If   If KeyCode = vbKeyDown Then ROKET.Height = 800 ROKET.Width = 600  ROKET.Picture = LoadPicture(App.Path & "\RBAWAH.JPG")  ROKET.Top = XVER  XVER = XVER + 50  ...

 CARA MEMBUAT FORM JENIS KERUSAKAN MENGGUNAKAN VISUAL BASIC 6 1. Buka/Buat file database DBMOTOR.MDB 2. Buat struktur table, simpan dengan nama JENIS      3. Tutup program MS Access 4. Double klik file PRMOTOR.VBP untuk membuka project PRMOTOR 5. Klik menu Project => Add Form => Open untuk menambah form baru 6. Klik menu File => Save Form1 7. Ketik nama form JENIS, klik tombol Save 8. Klik propertie Name, ketik JENIS 9. Buat desain form Jenis Kerusakan 10. Ketik kode program di bawah ini   Private Sub CMDHAPUS_Click() TBJENIS.Recordset.MoveFirst TBJENIS.Recordset.Find "NOJENIS='" & XNOJENIS.Text & "'" If TBJENIS.Recordset.EOF Then  X = MsgBox("NOMOR JENIS " & XNOJENIS.Text & " TIDAK ADA !", vbOKOnly)  Else   X = MsgBox("DATA NOMOR JENIS " & XNOJENIS.Text & " MAU DIHAPUS !", vbYesNo)   If X = vbYes Then TBJENIS.Recordset.Delete  End If  XNOJENIS.Text = ""  XJENIS.Text = "...

 CARA MEMBUAT FORM MACAM KERUSAKAN MENGGUNAKAN VISUAL BASIC 6