Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: prosze pomoc...
anonim




Typ: Nie zarejestrowany
prosze pomoc...

czesc.
czy ktos moglby mi pomoc...
w szkole w klasie o vb mam do zrobiena projek.
potrzebuje jako czesc z niego kod aby:

kiedy nacisne przycisk start kwadrat albo jakis tam ksztalt zaczal sie ruszac w jakas strone(po ukosie) wybrana przypadkowo i zeby kontynuowal...
pozniej jak uderzy scianke kontenera ma sie odbic i kontynuowac w strone w ktora sie odbil.

jezeli ktos bylby mi w stanie pomoc. nie jestem najlepszy w tym wiec mam troche problemu z zrobieniem tego kody
z gory dzieki!

[Post edytowany dnia 18-01-2003 01:46 przez mutant]

18-01-2003 01:45
  
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002
Rozwiązanie

Wstaw kontrolki:
- CommandButton (przycisk start)
- Timer
- Shape (figura która będzie się odbijać na formie)

a następnie wpisz do kodu formy takie coś:

Const Szybkość As Integer = 120 'Szybkość lotu figury
Dim XS As Integer 'Szybkość lotu w prawo
Dim YS As Integer 'Szybkość lotu w dół

Private Sub Command1_Click()
Timer1.Enabled = True 'Start
End Sub

Private Sub Form_Load()
XS = Szybkość
YS = Szybkość
Timer1.Enabled = False
Timer1.Interval = 10
End Sub

Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + XS
Shape1.Top = Shape1.Top + YS

If Shape1.Top >= ScaleHeight - Shape1.Height Then YS = -Szybkość 'Figura odbija się od dolnej krawędzi formy
If Shape1.Top <= 0 Then YS = Szybkość 'Figura odbija się od góry
If Shape1.Left >= ScaleWidth - Shape1.Width Then XS = -Szybkość 'Figura odbija się od prawej krawiędzi
If Shape1.Left <= 0 Then XS = Szybkość 'Figura odbija się od lewej krawędzi
End Sub


To powinno zadziałać, ale jeśli coś niedziała to ci moge wysłać gotowy przykład.


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

18-01-2003 13:38
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
anonim




Typ: Nie zarejestrowany

nie wiem jak ci podziekowac
wlasnie uratowales mi ocene!
bardzo ogromne dzieki!

jesze jedno jak bys mogl i Ci sie chce.
dorobilem czesc kody zeby zakazdym razem szlo w inna strone, ale jesli idzie w inna strone niz Ty orginalnie zrobiles to sie nie odbija tylko znika.
czy wiedzial bys jak to rozwiazac?

[Post edytowany dnia 18-01-2003 14:48 przez mutant]

18-01-2003 13:55
  
anonim




Typ: Nie zarejestrowany

nie wazne , juz sobie zrobilem.
ale bez twojej pomocy bym dostal zla ocene bo bym do niczego nie doszedl.
jeszce raz stokrotne dzieki za twoja pomoc!

18-01-2003 21:18
  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1