çarpan top visual basicc

Çarpan Top
--------------------------------------------------------------------------------
Bu Programla İstediğiniz top şeklini istediğiniz duvara çarptırıp geri gelebilir Çok eğlenceli bir programYapan Kadırga Lisesinden By.VolCanO Teşekkürler...

Option Explicit

Private Sub Command1_Click()
If Command1.Caption = "SToP" Then
Command1.Caption = "STaRT"
Timer1.Interval = 0
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Else
Command1.Caption = "SToP"
Timer1.Interval = HScroll3.Value
Timer2.Interval = HScroll3.Value
Timer3.Interval = HScroll3.Value
Timer4.Interval = HScroll3.Value
End If
End Sub

Private Sub Command2_Click()
Command2.Visible = False
Label1.Visible = False
Label2.Visible = False
Label3.Visible = False
HScroll1.Visible = False
HScroll2.Visible = False
HScroll3.Visible = False
End Sub

Private Sub Form_Load()
Form1.Picture = LoadPicture()
Image1.Picture = LoadPicture()

End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim c
c = MsgBox("ÇıKMaK İçiN Menüyü KullaN..!", vbOKOnly + vbCritical, "VolCaNo SoFTwaRE")
If c = vbOK Then
Cancel = True
End If
End Sub

Private Sub HScroll1_Change()
Dim h
h = HScroll1.Value
End Sub

Private Sub HScroll2_Change()
Dim v
v = HScroll2.Value
End Sub

Private Sub HScroll3_Change()
Timer1.Interval = HScroll3.Value
Timer2.Interval = HScroll3.Value
Timer3.Interval = HScroll3.Value
Timer4.Interval = HScroll3.Value
End Sub

Private Sub MnArkaPlan_Click()
Form1.Enabled = False
Form3.Visible = True
End Sub

Private Sub MnÇıkış_Click()
Form1.Visible = False
Form5.Timer3.Enabled = False
Form5.Timer2.Enabled = True
Form5.Visible = True

End Sub

Private Sub MnHız_Click()
Command2.Visible = True
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
HScroll1.Visible = True
HScroll2.Visible = True
HScroll3.Visible = True
End Sub

Private Sub MnŞekil_Click()
Form1.Enabled = False
Form2.Visible = True
End Sub

Private Sub MnVolcanO_Click()
Form1.Visible = False
Form5.Timer3.Enabled = True
Form5.Timer2.Enabled = False
Form5.Visible = True
End Sub

Private Sub Timer1_Timer()
Dim h, v
h = HScroll1.Value
v = HScroll2.Value
Shape1.Left = Shape1.Left + h
Label4.Caption = Shape1.Left
Shape1.Top = Shape1.Top + v
Label5.Caption = Shape1.Top
If Shape1.Top >= 4080 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
If Shape1.Left >= 6360 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
If Shape1.Top <= 0 Then
Timer1.Enabled = False
Timer3.Enabled = True
End If
If Shape1.Left <= 0 Then
Timer1.Enabled = True

End If
End Sub
Private Sub Timer2_Timer()
Dim h, v
h = HScroll1.Value
v = HScroll2.Value
Shape1.Left = Shape1.Left + h
Label4.Caption = Shape1.Left
Shape1.Top = Shape1.Top - v
Label5.Caption = Shape1.Top
If Shape1.Left >= 6360 Then
Timer2.Enabled = False
Timer3.Enabled = True
End If
If Shape1.Top <= 0 Then
Timer2.Enabled = False
Timer3.Enabled = True
End If
If Shape1.Left <= 0 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
If Shape1.Top >= 4080 Then
Timer2.Enabled = True


End If
End Sub

Private Sub Timer3_Timer()
Dim h, v
h = HScroll1.Value
v = HScroll2.Value
Shape1.Left = Shape1.Left - h
Label4.Caption = Shape1.Left
Shape1.Top = Shape1.Top - v
Label5.Caption = Shape1.Top
If Shape1.Top <= 0 Then
Timer3.Enabled = False
Timer4.Enabled = True
End If
If Shape1.Left <= 0 Then
Timer3.Enabled = False
Timer4.Enabled = True
End If
If Shape1.Top >= 4080 Then
Timer3.Enabled = False
Timer2.Enabled = True
End If
If Shape1.Left >= 6360 Then
Timer3.Enabled = True

End If
End Sub

Private Sub Timer4_Timer()
Dim h, v
h = HScroll1.Value
v = HScroll2.Value
Shape1.Left = Shape1.Left - h
Label4.Caption = Shape1.Left
Shape1.Top = Shape1.Top + v
Label5.Caption = Shape1.Top
If Shape1.Left <= 0 Then
Timer4.Enabled = False
Timer1.Enabled = True
End If
If Shape1.Top >= 4080 Then
Timer4.Enabled = False
Timer1.Enabled = True
End If
If Shape1.Left >= 6360 Then
Timer4.Enabled = False
Timer3.Enabled = True
End If
If Shape1.Top <= 0 Then
Timer4.Enabled = True

End If
End Sub
Option Explicit

Private Sub Command1_Click()
Form1.Enabled = True
Form2.Visible = False

End Sub

Private Sub HScroll1_Change()
Form1.Shape1.BorderWidth = HScroll1.Value
Shape1.BorderWidth = HScroll1.Value
End Sub

Private Sub HScroll2_Change()
Form1.Shape1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Shape1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
End Sub

Private Sub HScroll3_Change()
Form1.Shape1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Shape1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
End Sub

Private Sub HScroll4_Change()
Form1.Shape1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Text1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
Shape1.BackColor = RGB(HScroll2.Value, HScroll3.Value, HScroll4.Value)
End Sub

Private Sub HScroll5_Change()
Form1.Shape1.FillColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
Text2.BackColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
Shape1.FillColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
End Sub

Private Sub HScroll6_Change()
Form1.Shape1.FillColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
Text2.BackColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
Shape1.FillColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
End Sub

Private Sub HScroll7_Change()
Form1.Shape1.FillColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
Text2.BackColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
Shape1.FillColor = RGB(HScroll5.Value, HScroll6.Value, HScroll7.Value)
End Sub

Private Sub Option1_Click()
Form1.Shape1.Shape = 0
Shape1.Shape = 0
End Sub

Private Sub Option10_Click()
Label1.Visible = False
HScroll1.Visible = False
Form1.Shape1.BorderStyle = 3
Shape1.BorderStyle = 3
End Sub

Private Sub Option11_Click()
Label1.Visible = False
HScroll1.Visible = False
Form1.Shape1.BorderStyle = 4
Shape1.BorderStyle = 4
End Sub

Private Sub Option12_Click()
Label1.Visible = False
HScroll1.Visible = False
Form1.Shape1.BorderStyle = 5
Shape1.BorderStyle = 5
End Sub

Private Sub Option13_Click()
Label1.Visible = True
HScroll1.Visible = True
Form1.Shape1.BorderStyle = 6
Shape1.BorderStyle = 6
End Sub

Private Sub Option14_Click()
Form1.Shape1.FillStyle = 0
Shape1.FillStyle = 0
End Sub

Private Sub Option15_Click()
Form1.Shape1.FillStyle = 1
Shape1.FillStyle = 1
End Sub

Private Sub Option16_Click()
Form1.Shape1.FillStyle = 2
Shape1.FillStyle = 2
End Sub

Private Sub Option17_Click()
Form1.Shape1.FillStyle = 3
Shape1.FillStyle = 3
End Sub

Private Sub Option18_Click()
Form1.Shape1.FillStyle = 4
Shape1.FillStyle = 4
End Sub

Private Sub Option19_Click()
Form1.Shape1.FillStyle = 5
Shape1.FillStyle = 5
End Sub

Private Sub Option2_Click()
Form1.Shape1.Shape = 1
Shape1.Shape = 1
End Sub

Private Sub Option20_Click()
Form1.Shape1.FillStyle = 6
Shape1.FillStyle = 6
End Sub

Private Sub Option21_Click()
Form1.Shape1.FillStyle = 7
Shape1.FillStyle = 7
End Sub

Private Sub Option3_Click()
Form1.Shape1.Shape = 2
Shape1.Shape = 2
End Sub

Private Sub Option4_Click()
Form1.Shape1.Shape = 3
Shape1.Shape = 3
End Sub

Private Sub Option5_Click()
Form1.Shape1.Shape = 4
Shape1.Shape = 4
End Sub

Private Sub Option6_Click()
Form1.Shape1.Shape = 5
Shape1.Shape = 5
End Sub

Private Sub Option7_Click()
Label1.Visible = False
HScroll1.Visible = False
Form1.Shape1.BorderStyle = 0
Shape1.BorderStyle = 0
End Sub

Private Sub Option8_Click()
Label1.Visible = True
HScroll1.Visible = True
Form1.Shape1.BorderStyle = 1
Shape1.BorderStyle = 1
End Sub

Private Sub Option9_Click()
Label1.Visible = False
HScroll1.Visible = False
Form1.Shape1.BorderStyle = 2
Shape1.BorderStyle = 2
End Sub
Option Explicit

Private Sub Command1_Click()
Form1.Enabled = True
Form3.Visible = False
End Sub

Private Sub Command2_Click()
Form1.Image1.Picture = LoadPicture(Form3.File1.FileName)

End Sub

Private Sub Command3_Click()
Image1.Picture = LoadPicture()
Form1.Image1.Picture = LoadPicture()
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
ChDrive Drive1.Drive
End Sub

Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.FileName)
End Sub

Private Sub HScroll1_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Form3.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label3.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll2_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Form3.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label3.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub HScroll3_Change()
Form1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Form3.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label2.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label3.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)
End Sub

Private Sub OLE1_Updated(Code As Integer)

End Sub

Private Sub Form_Load()

Label2.Top = 5040

End Sub

Private Sub Timer1_Timer()
Label2.Top = Label2.Top - 50
If Label2.Top <= 720 Then
Label2.Top = 720
End If
End Sub


Private Sub Timer2_Timer()
End
End Sub

Private Sub Timer3_Timer()
Form1.Visible = True
Form5.Visible = False

End Sub