HELLO
Hai.......
Namaku Nur Rachman Wahid, aku mahasiswa universitas STEKOM.
Hari ini akau baru bikin Blog dan bergabung dengan Blog. semoga blog yang aku bikin ini bisa bermanfaat untuk semuanya para viewer.
.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 ...
Komentar
Posting Komentar