Hi @ all,
ich bin ein Hobby - Programmierer und habe eine Frage an euch.
Wie kann man z.b. ein bild hin- und her bewegen lassen?
Es wäre net wenn mir jemand den Code schreiben könnte!
Bedanke mich im voraus an alle!
Hallo,
ich bin ein Hobby - Programmierer und habe eine Frage an euch.
Wie kann man z.b. ein bild hin- und her bewegen lassen?
Es wäre net wenn mir jemand den Code schreiben könnte!
hast Du ein paar Informationen mehr? Die Programmiersprache wäre z.B. recht interessant. Wenn ich Dir eine Lösung für VB6 schreibe, läuft die nicht unter VBA und umgekehrt. Mit VB2005 wärst Du im falschen Brett, das ist vier Zeilen weiter oben.
Gruß, Rainer
Moin,
ja einpaar Infos habe ich noch…:
ich habe visual basic 5.0 und möchte ein KLEINES Spiel programmieren.
Gewisse Kentnisse habe ich schon.
Ich möchte einfach nur, das sich Bider in bestimmte Richtungen bewegen oder, dass sie sich nach einem zufalls Prinzip bewegen.
cu
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo,
ja einpaar Infos habe ich noch…:
ich habe visual basic 5.0 und möchte ein KLEINES Spiel
programmieren.
Gut, ich habe Dir mal etwas geschrieben.
Gewisse Kentnisse habe ich schon.
Ich möchte einfach nur, das sich Bider in bestimmte Richtungen
bewegen oder, dass sie sich nach einem zufalls Prinzip
bewegen.
Leg mal ein Picture Steuerelement und einen Timer auf die Form und füge den Code ein. Das dürfte das einfachste Beispiel sein.
Option Explicit
Dim swx As Single
Dim swy As Single
Private Sub Form\_Load()
Me.Show
Me.ScaleMode = vbPixels
Picture1.ScaleMode = vbPixels
DoEvents
Timer1.Interval = 10
Timer1.Enabled = True
swx = 2
swy = 2
End Sub
Private Sub Timer1\_Timer()
Dim cx As Integer
Dim cy As Integer
Dim mx As Integer
Dim my As Integer
cx = Picture1.Left
cy = Picture1.Top
mx = Me.ScaleWidth - Picture1.ScaleWidth
my = Me.ScaleHeight - Picture1.ScaleHeight
cx = cx + swx
If cx \> mx Or cx my Or cy
Wenn Du daraus ein Spiel bauen willst, werden Dir ein paar Probleme auffallen, dann reden wir weiter. :smile:
Gruß, Rainer