| djfm |
je c vraiment pa dou vient le pb, je galere depuis une semaine , svp dites moi ce kil va pas
c un pong en Qbasic, mais on peu ratraper la balle kune fois... pkoi??? je c , donner le prog entier et dire demerdez vous c pas top mais l a je c bvraiment pa koi faire...
screen 12
posx=4
posy=4
dirx=1
diry=1
dirx2=-1
diry2=-1
x=340
y=475
ON KEY(12) GOSUB decalg
on key(13) gosub decald
on key(3) gosub quitter
key(12) on
key(13) on
key(3) on
line(x,y)-((x+50),(y+5)),2,BF
do
circle(posx,posy),8
for pdt=1 to 40000
pdt2=pdt+3.14159256
next pdt
circle(posx,posy),8,0
if posx+dirx=637 or posx+dirx=3 then dirx=(dirx*(-1))
if posy+diry=3 then diry=(diry*(-1))
if posy+diry=475 then gosub enbas
posx=posx+dirx
posy=posy+diry
loop 'until len(inkey$)
decalg:
for k=1 to 20
x=x-1
line(x,y)-((x+50),(y+5)),2,BF
line((x+50),y)-((x+51),(y+5)),0,BF
next k
return
decald:
for k=1 to 20
x=x+1
line(x,y)-((x+50),(y+5)),2,BF
line((x-2),y)-((x-1),(y+5)),0,BF
next k
return
quitter:
end
return
enbas:
for sb=1 to 50
if posy+diry=((x-1)+sb) then touche=1
next sb
if touche=1 then diry=(diry*(-1))
if touche=0 then gosub quitter
touche=0
return |
