03-03-13, 23:20
|
Όνομα: Αλέξανδρος Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-01-2010 Περιοχή: ΑΡΤΑ
Μηνύματα: 521
| |
Χρονόμετρο -Private Sub Form_Timer
Καλησπέρα σε όλη την παρέα του forum
Η ερώτηση μου είναι εάν μπορούμε να έχουμε δύο Private Sub Form_Timer1() και Private Sub Form_Timer2() σε μια φόρμα και να το ενεργοποιούμε με κουμπί εντολής.Ή πως μπορώ να εφαρμόσω 2 χρονόμετρα σε μια φόρμα;ΠΧ στο παρακάτω κώδικα.
Προσπαθώ να μετακινήσω κάποιες εικόνες ώστε να φαίνεται σαν κινούμενο σχέδιο.Τις εικόνες δεν τις έχω σχεδιάσει ακόμη όπως θέλω απλά έβαλα κάποια εικονίδια και είδα ότι με ένα χρονόμετρο μεταφέρονται. Κώδικας: Private Sub Command1_Click()
Picture2.Visible = True
Timer1.Enabled = True
End Sub
Private Sub Form_Timer2()
If bounces < 7 Then
Picture4.Move Picture4.Left + 400, Picture4.Top - 500
bounces = bounces + 1
Else
Timer2.Enable = False
End If
End Sub
Private Sub Form_Timer1()
If bounces < 5 Then 'Ανάλογα με τις αναπηδήσεις
If (bounces Mod 2 = 0) Then 'Πέφτει
Picture2.Move Picture2.Left - 530, Picture2.Top + 900
Beep
bounces = bounces + 1
Else 'Πάνω
Picture2.Move Picture2.Left - 530, Picture2.Top - 320
bounces = bounces + 1
End If
Else 'Σέρνεται
Picture2.Move Picture2.Left - 530, picture2Left - 530, Picture2.Top
bounces = bounces + 1
End If
'Στη θέση αυτή ανταμώνει πέφτει πάνω σε ίδιο κύβο και γίνεται σύννεφο
If bounces = 7 Then
Picture2.Visible = False
Picture3.Visible = True
Picture4.Visible = True
Timer1.Enabled = False
Command1.Enabled = False
Timer2.Enabled = True 'Εδώ το χρονόμετρο Timer2_είναι χρονόμετρο για το σύννεφο
bounces = 0
End If
End Sub
Private Sub Command2_Clik()
End
End Sub
Ανεβάζω κάποιο δείγμα για βοήθεια
Φιλικά/Αλέξανδρος
Τελευταία επεξεργασία από το χρήστη alex : 04-03-13 στις 07:31.
|