Tugas Kelompok Virtual Basic Menggunakan Timer


Nama kelompok :
Adib Turmudzi (04)
Bambang Eko J (21)
XI RPL-1
Ini saat belum dijalankan
Ini adalah saat tampilan pertama

Ini adalah saat project running

ini adalah project kami   :

Dim st As Integer

Private Sub KananKeKiri()
If Image1.Left > -Image1.Width Then
    Image1.Left = Image1.Left - 50
Else
   Image1.Left = Form1.ScaleWidth
End If
End Sub

Private Sub KiriKeKanan()
If Image2.Left < Form1.Width Then
    Image2.Left = Image1.Left + 1320
Else
    Image2.Left = -Image1.Width
End If
End Sub

Private Sub BolakBalikH()
If Image1.Left <= 0 Then st = 0
If (Image1.Left + Image1.Width) >= Form1.ScaleWidth Then st = 1

If st = 0 Then KiriKeKanan
If st = 1 Then KananKeKiri
End Sub

Private Sub AtasKeBawah()
If Image1.Top > Form1.ScaleHeight Then
    Image1.Top = -Image1.Height
Else
    Image1.Top = Image1.Top + 50
End If
End Sub

Private Sub BawahKeAtas()
If Image1.Top < -Image1.Height Then
    Image1.Top = Form1.ScaleHeight
Else
    Image1.Top = Image1.Top - 50
End If
End Sub

Private Sub BolakBalikV()
If Image1.Top <= 0 Then st = 2
If (Image1.Top + Image1.Height) >= Form1.ScaleHeight Then st = 3

If st = 2 Then AtasKeBawah
If st = 3 Then BawahKeAtas
End Sub

Private Sub Form_Load()


Image1.Left = Form1.Width
End Sub

Private Sub HScroll1_Scroll()
Timer1.Interval = HScroll1.Value
End Sub

Private Sub Timer1_Timer()
If Image1.Left > -Image1.Width Then
    Image1.Left = Image1.Left - 80
Else
   Image1.Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer2_Timer()
If Image2.Left > -Image2.Width Then
    Image2.Left = Image2.Left + 10
Else
   Image2.Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer3_Timer()
If Image3.Left > -Image3.Width Then
    Image3.Left = Image3.Left + 10
Else
   Image3.Left = Form1.ScaleWidth
End If
Image3.ZOrder

End Sub

Private Sub Timer4_Timer()
If Image4.Left > -Image4.Width Then
    Image4.Left = Image4.Left + 10
Else
   Image4.Left = Form1.ScaleWidth
End If
End Sub

Private Sub Timer5_Timer()
If Image5.Left > -Image5.Width Then
    Image5.Left = Image5.Left + 10
Else
   Image5.Left = Form1.ScaleWidth
End If
End Sub



12.21

0 komentar :

Posting Komentar

Cancel Reply

Adib Turmudzi

Berisi tentang kehidupan saya dan berisi tugas tugas sekolah saya

COnan And Kid

COnan And Kid
COnan And Kid

Conan

Conan
Ini Conan

Itu saya

Itu saya
Saat di Monas

Translate

Idola saya

  • Sherlock Holmes
  • Detective conan

Formulir Kontak

Popular Posts

statistics