.png)
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 ...