Visual Basic 6.0 Asal Çarpanlara Ayırma |'RedsCoder

[/COLOR][COLOR=#FFFFFF][COLOR=#FFFFFF] Private Sub Command1_Click()
 [/COLOR]  
 [COLOR=#FFFFFF] Timer1.Enabled = True
 [/COLOR]  
 [COLOR=#FFFFFF] End Sub
 [/COLOR]  
 [COLOR=#FFFFFF] Private Sub Form_Load()
 [/COLOR]  
 [COLOR=#FFFFFF] Timer1.Enabled = False
 [/COLOR]  
 [COLOR=#FFFFFF] Timer1.Interval = 50
 [/COLOR]  
 [COLOR=#FFFFFF] Shape1.Left = 100
 [/COLOR]  
 [COLOR=#FFFFFF] Shape2.Left = 100
 [/COLOR]  
 [COLOR=#FFFFFF] End Sub
 [/COLOR]  
 [COLOR=#FFFFFF] Private Sub Timer1_Timer()
 [/COLOR]  
 [COLOR=#FFFFFF] a = Rnd * (100)
 [/COLOR]  
 [COLOR=#FFFFFF] b = Rnd * (150)
 [/COLOR]  
 [COLOR=#FFFFFF] Shape1.Left = Shape1.Left + a
 [/COLOR]  
 [COLOR=#FFFFFF] Shape2.Left = Shape2.Left + b
 [/COLOR]  
 [COLOR=#FFFFFF] If Shape1.Left + Shape1.Width >= Form1.Width Then
 [/COLOR]  
 [COLOR=#FFFFFF] MsgBox (“FERRARİ Kırmızı Kazandı”)
 [/COLOR]  
 [COLOR=#FFFFFF] Timer1.Enabled = False: Exit Sub
 [/COLOR]  
 [COLOR=#FFFFFF] End If
 [/COLOR]  
 [COLOR=#FFFFFF] If Shape2.Left + Shape2.Width >= Form1.Width Then
 [/COLOR]  
 [COLOR=#FFFFFF] MsgBox (“(((((:ASFALT A?LADI BEEEEEE:))))”)
 [/COLOR]  
 [COLOR=#FFFFFF] MsgBox (“(((((:ARABANIN HAKKINI VER HAKKINI:))))”)
 [/COLOR]  
 [COLOR=#FFFFFF] Timer1.Enabled = False: Exit Sub
 [/COLOR]  
 [COLOR=#FFFFFF] End If
 [/COLOR]  
 [COLOR=#FFFFFF] Label1.Left = Label1.Left + a
 [/COLOR]  
 [COLOR=#FFFFFF] Label2.Left = Label2.Left + b
 [/COLOR]  
 [COLOR=#FFFFFF] End Sub
 [/COLOR]