VB-Sonne

[jol123]

hi @ all

ich muss im rahmen des informatik unterrichts eine sonne mit vb machen. sie soll diese eigenschaften ahben:

links,rechts,oben,unten,schräg links, schräg rechts, schräg oben, schräg unten, stopp und schließen.

Außerdem müssen diese Timer eingebaut werden.

Deshalb wollte ich fragen ob ihr mir ein paar Tipss geben könntet?

mfg

jol123

 

[VB_1337]

hallo jol123

ich weiß zwar nicht genau, ob es das richtige ist was du willst, aber vllt hilft es dir ja.
Falls noch weitere fragen aufkommen, schreibe mir eine pn oder einen neuen post.
Versuche es mal so:



Timer Befehle:

Private Sub CmdAb_Click()
CmdStop_Click
TimAb.Enabled = True
End Sub


Private Sub CmdAuf_Click()
CmdStop_Click
TimAuf.Enabled = True
End Sub

Pfeilrichtugnen:

Private Sub CmdLinks_Click()
CmdStop_Click
TimLinks.Enabled = True
End Sub


Private Sub CmdLiO_Click()
CmdStop_Click
TimLiO.Enabled = True
End Sub


Private Sub CmdLiU_Click()
CmdStop_Click
TimLiU.Enabled = True
End Sub


Private Sub CmdRechts_Click()
CmdStop_Click
TimRechts.Enabled = True
End Sub


Private Sub CmdReO_Click()
CmdStop_Click
TimReO.Enabled = True
End Sub

Private Sub CmdReU_Click()
CmdStop_Click
TimReU.Enabled = True
End Sub


weitere timer:

Private Sub CmdStop_Click()
TimAb.Enabled = False
TimAuf.Enabled = False
TimLinks.Enabled = False
TimRechts.Enabled = False
TimLiO.Enabled = False
TimLiU.Enabled = False
TimReO.Enabled = False
TimReU.Enabled = False
End Sub

Private Sub CmdZentr_Click()
ShaCircle.Left = 1320
ShaCircle.Top = 1080
End Sub

Private Sub Command1_Click()
CmdStop_Click
TimAuf.Enabled = True
End Sub

Private Sub Command2_Click()
CmdStop_Click
TimAb.Enabled = True
End Sub

Private Sub Command3_Click()
CmdStop_Click
TimLiO.Enabled = True
End Sub

Private Sub Command4_Click()
CmdStop_Click
TimLiU.Enabled = True
End Sub

Private Sub Command5_Click()
CmdStop_Click
TimLinks.Enabled = True
End Sub

Private Sub Command6_Click()
CmdStop_Click
TimRechts.Enabled = True
End Sub

Private Sub Command7_Click()
CmdStop_Click
TimReO.Enabled = True
End Sub

Private Sub Command8_Click()
CmdStop_Click
TimReU.Enabled = True
End Sub

Private Sub Schließen_Click()
Unload Me
End Sub

Timer 2

Private Sub Stop_Click()
TimAb.Enabled = False
TimAuf.Enabled = False
TimLinks.Enabled = False
TimRechts.Enabled = False
TimLiO.Enabled = False
TimLiU.Enabled = False
TimReO.Enabled = False
TimReU.Enabled = False
End Sub

Geschwindigkeit der kreise (variabel)

Private Sub TimAb_Timer()
ShaCircle.Top = ShaCircle.Top + 20
End Sub

Private Sub TimAuf_Timer()
ShaCircle.Top = ShaCircle.Top - 20
End Sub

Private Sub TimLinks_Timer()
ShaCircle.Left = ShaCircle.Left - 20
End Sub

Private Sub TimLiO_Timer()
ShaCircle.Left = ShaCircle.Left - 20
ShaCircle.Top = ShaCircle.Top - 20
End Sub

Private Sub TimLiU_Timer()
ShaCircle.Left = ShaCircle.Left - 20
ShaCircle.Top = ShaCircle.Top + 20
End Sub

Private Sub TimRechts_Timer()
ShaCircle.Left = ShaCircle.Left + 20
End Sub

Private Sub TimReO_Timer()
ShaCircle.Left = ShaCircle.Left + 20
ShaCircle.Top = ShaCircle.Top - 20
End Sub

Private Sub TimReU_Timer()
ShaCircle.Left = ShaCircle.Left + 20
ShaCircle.Top = ShaCircle.Top + 20
End Sub

Private Sub Zentrieren_Click()
ShaCircle.Left = 1320
ShaCircle.Top = 1080
End Sub


Hoffe ich konnte einwenig helfen

gruß VB_1337