MarcoD ha scritto:allegalo come fosse testo
Senza il vecchio interprete QB.exe e un vecchio PC ci fai poco..
P.S. sto ammattendo.. neanche con l'estensione .txt riesco ad allegarlo?
Insomma, ecco il copincollo:
REM Il pendolo parte da destra e
REM la seconda volta che ritorna riceve la bottarella
CLS : SCREEN 12:
k = .0000001: x = 300
tempo:
fx = -k * x: fy = -k * y
IF vx > 0 AND (vx + fx) <= 0 THEN c = c + 1
IF vx > 0 AND (vx + fx) <= 0 AND c = 2 THEN vy = .04
vx = vx + fx: vy = vy + fy
x = x + vx: y = y + vy
xs = x + 320: ys = 240 - y
CIRCLE (xsp, ysp), 2, 0
CIRCLE (xs, ys), 2
xsp = xs: ysp = ys
IF INKEY$ <> "s" THEN GOTO tempo
STOP
o meglio:
- Codice: Seleziona tutto
REM Il pendolo parte da destra e
REM la seconda volta che ritorna riceve la bottarella
CLS : SCREEN 12:
k = .0000001: x = 300
tempo:
fx = -k * x: fy = -k * y
IF vx > 0 AND (vx + fx) <= 0 THEN c = c + 1
IF vx > 0 AND (vx + fx) <= 0 AND c = 2 THEN vy = .04
vx = vx + fx: vy = vy + fy
x = x + vx: y = y + vy
xs = x + 320: ys = 240 - y
CIRCLE (xsp, ysp), 2, 0
CIRCLE (xs, ys), 2
xsp = xs: ysp = ys
IF INKEY$ <> "s" THEN GOTO tempo
STOP

Elettrotecnica e non solo (admin)
Un gatto tra gli elettroni (IsidoroKZ)
Esperienza e simulazioni (g.schgor)
Moleskine di un idraulico (RenzoDF)
Il Blog di ElectroYou (webmaster)
Idee microcontrollate (TardoFreak)
PICcoli grandi PICMicro (Paolino)
Il blog elettrico di carloc (carloc)
DirtEYblooog (dirtydeeds)
Di tutto... un po' (jordan20)
AK47 (lillo)
Esperienze elettroniche (marco438)
Telecomunicazioni musicali (clavicordo)
Automazione ed Elettronica (gustavo)
Direttive per la sicurezza (ErnestoCappelletti)
EYnfo dall'Alaska (mir)
Apriamo il quadro! (attilio)
H7-25 (asdf)
Passione Elettrica (massimob)
Elettroni a spasso (guidob)
Bloguerra (guerra)






