Diese Seite ist unverschlüsselt! Um sicherzustellen, das Ihr Passwort nicht ausgelesen werden kann, sollten Sie auf die verschlüsselte Seite wechseln!

    Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Visual Basic 6.0 / VBA » Game?
Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 <
000
17.04.2004, 03:49 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


Also ich möchte en kleines spiel in VB programmieren!
nur ganz simpel!
also das Form öffnet sich am anfang und maximiert sich!
(Form1 Borderstyle ist 0 none)

Visual Basic:
Private Sub Form1_Load()
Me.Move 0 , 0 , Screen.Width , Screen.Height
End Sub


und da isne picture box (picture1) und eine (picture2)...
jetz kann man mit den pfeiltasten auf der tastatur (vbKeyUp, vbKeyDown, vbKeyRight, vbKeyLeft) die picture box 1 steuern! also wenn man den pfeil links drückt geht die picture box einen pixel (millimeter jeweils doer so) nach links!

Das is glaubich nich so sehr schwer aber ich weiß nüch wie hab schon 10000000000000000000000 sachen versucht ^^...

2. Wenn Picture1 auf Picture2 trifft soll ein event passieren (MsgBox "!")

Hoffe das geht einfach... Danke!
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
17.04.2004, 07:57 Uhr
Pablo
Supertux
(Operator)


Tut mir leid, du hast mich verwirrt. Was ist nochmal dein Problem? Ich verstehe es nicht ganz.
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
17.04.2004, 10:41 Uhr
Oliver
S2-Pixelgeneral


Du willst warscheinlich so ne Art Kollisionsabfrage machen oder?

Dann musst du halt am besten erstmal eine Funktion schreiben die vergleicht, ob ein Punkt in einem andern Rechteck drinnen ist und dann musst du probieren alle Eckpunkte von dem einen Rechtecke (also der einen Picturebox) in dem anderen suchen und umgekehrt und wenn einer drinnen ist, dann sind sie kollidiert.
--
Demokratie ist die Diktatur der Mehrheit.

www.siedler25.org/ ( Siedler2 - Remake )
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
003
17.04.2004, 20:54 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


Ne... Sagt mir erstmal wie man die Picture Box mit den Pfeiltasten bewegen kann... das event war nur beispiel
Denn die pixel von den pic2 und pic1 auslesen und wenn die "=" sind dann ne msgbox machen is einfach! aber sagt mir erstmal wie das geht dass man die picture box mit den pfeiltasten steuern kanN
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
004
17.04.2004, 21:45 Uhr
Pablo
Supertux
(Operator)


Ok, ich poste nachher eine Lösung
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
005
18.04.2004, 18:56 Uhr
Pablo
Supertux
(Operator)



Zitat:
Audron-AT-www postete
Ganz einfack:
Du fängst die Informationen mit Form_KeyDown ein!


Visual Basic:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'Keycode 37 für Pfeil-links
If KeyCode = 37 Then
Picture1.Left = Picture1.Left - 100
End If

'Keycode 38 für Pfeil-hoch
If KeyCode = 38 Then
Picture1.Top = Picture1.Top - 100
End If

'Keycode 39 für Pfeil-rechts
If KeyCode = 39 Then
Picture1.Left = Picture1.Left + 100
End If

'Keycode 40 für Pfeil-runter
If KeyCode = 40 Then
Picture1.Top = Picture1.Top + 100
End If

End Sub


Ist eigentlich echt einfach! Man mus nur können:
PictureBox... oder Shape... oder text oder sonstwas...
Und damit muss man dann das Steuerelement bewegen:
Picture1.Top = Picture1.Top + 100
Also Bild 1 höhe ist die höhe von sich selber und 100!

Wir das geht das der event ausgibt wenner aufne andere picturebox trifft weissich nicht!
vielleicht:


Visual Basic:
If Picture1.Top = Picture2.Top then MsgBox "!"


oder so!


Du hast am falschen Thread gepostet , deshalb lösche ich dein letztes Kommentar.
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
Dieser Post wurde am 18.04.2004 um 18:56 Uhr von Pablo editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
006
18.04.2004, 19:19 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


Ja ich spreche gerne mit mir selber
Aber weisst du wie man das mit dem event macht???
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
Dieser Post wurde am 18.04.2004 um 19:20 Uhr von Audron-AT-www editiert.
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
007
18.04.2004, 19:34 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)


Ach und... MIt PictureBox geht das garnich seh ich grade!!!
Ka wieso...ich nehm einfach ein Image steuerelement...is das gleiche..
--
Mit freundlichen Grüßen
Audron, audron@sxene.de
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
008
18.04.2004, 19:36 Uhr
Pablo
Supertux
(Operator)


ich sage dann später, wenn ich in Windof einlogge. Dann mache ich ein paar Test.
--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
009
20.04.2004, 03:26 Uhr
Pablo
Supertux
(Operator)


Ok, dann erstelle eine neue Form1 und mach ein PictureBox drauf, nenne ihn picCanavas

dann schriebe den Code:

Visual Basic:
Option Explicit

Private Sub picCanavas_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyLeft Then picCanavas.Left = picCanavas.Left - 100
    If KeyCode = vbKeyRight Then picCanavas.Left = picCanavas.Left + 100
    If KeyCode = vbKeyUp Then picCanavas.Top = picCanavas.Top - 100
    If KeyCode = vbKeyDown Then picCanavas.Top = picCanavas.Top + 100
End Sub

--
A! Elbereth Gilthoniel!
silivren penna míriel
o menel aglar elenath,
Gilthoniel, A! Elbereth!
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 <     [ Visual Basic 6.0 / VBA ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: