05/04/11 9:10
ste
Ciao a tutti. Un amico mi ha chiesto se posso fargli funzionare un programma , che è un file .bas , su win XP.
Credo che il file si debba trasformare in un eseguibile compilandolo , ma non l'ho mai fatto , non ho programmi per il basic e non so da dove cominciare.
Potete aiutarmi?
Mando solo una parte di codice (anke xè nn l'ho scritto io e nn vorrei ke ki lo ha scritto se la prendesse a male se mai lo venisse a sapere) per farlo vedere. In effetti non ho idea di quale tipo di BASIC sia stato usato qui. Le annotazioni ad esempio sono precedute da una '.
Ecco l'inizio del programma:
' ******* 3-02-02
DECLARE SUB aiuto (msg, a, b)
DECLARE SUB attesa ()
DECLARE SUB clrdati ()
DECLARE SUB clrig (rig1, rig2)
DECLARE SUB costanti ()
DECLARE SUB foglio1 (dt$, dtt$, nbol, dtbol$, abbr$)
DECLARE SUB foglio2 ()
DECLARE SUB foglio3 ()
DECLARE SUB foglio4 ()
DECLARE SUB foglio5 ()
DECLARE SUB gestclien (zx)
DECLARE SUB gestdati (fa$)
DECLARE SUB gestdati2 ()
DECLARE SUB gestgraf ()
DECLARE SUB gestspese ()
DECLARE SUB impaginaz0 ()
DECLARE SUB impaginaz1 ()
DECLARE SUB impaginaz2 ()
DECLARE SUB impaginaz3 ()
DECLARE SUB impaginaz4 ()
DECLARE SUB impaginaz5 ()
DECLARE SUB impaginaz6 ()
DECLARE SUB inizializza ()
DECLARE SUB impostlire ()
DECLARE SUB messag (co, er$)
DECLARE SUB newdata ()
DECLARE SUB rettang (cola, colb, x1, y1, x2, y2)
DECLARE SUB sfondo ()
DECLARE SUB scs ()
DECLARE SUB stamp ()
DECLARE SUB stamp1 ()
DECLARE SUB tastfunz (cla, clb)
DECLARE SUB tempo ()
DECLARE SUB tuttok ()
COMMON SHARED scelta$, data$, intest$, iva, valuta$
ON ERROR GOTO errore
dacapo:
CLEAR , , 2000
stempo = 120
ON TIMER(stempo) GOSUB screensave
TYPE valori1
fg AS STRING * 6 'data impostazioni
mp AS STRING * 9 'importo varie
des AS STRING * 255 'descriz.
cliente AS STRING * 5 'abbr.clien.
END TYPE
Credo che il file si debba trasformare in un eseguibile compilandolo , ma non l'ho mai fatto , non ho programmi per il basic e non so da dove cominciare.
Potete aiutarmi?
Mando solo una parte di codice (anke xè nn l'ho scritto io e nn vorrei ke ki lo ha scritto se la prendesse a male se mai lo venisse a sapere) per farlo vedere. In effetti non ho idea di quale tipo di BASIC sia stato usato qui. Le annotazioni ad esempio sono precedute da una '.
Ecco l'inizio del programma:
' ******* 3-02-02
DECLARE SUB aiuto (msg, a, b)
DECLARE SUB attesa ()
DECLARE SUB clrdati ()
DECLARE SUB clrig (rig1, rig2)
DECLARE SUB costanti ()
DECLARE SUB foglio1 (dt$, dtt$, nbol, dtbol$, abbr$)
DECLARE SUB foglio2 ()
DECLARE SUB foglio3 ()
DECLARE SUB foglio4 ()
DECLARE SUB foglio5 ()
DECLARE SUB gestclien (zx)
DECLARE SUB gestdati (fa$)
DECLARE SUB gestdati2 ()
DECLARE SUB gestgraf ()
DECLARE SUB gestspese ()
DECLARE SUB impaginaz0 ()
DECLARE SUB impaginaz1 ()
DECLARE SUB impaginaz2 ()
DECLARE SUB impaginaz3 ()
DECLARE SUB impaginaz4 ()
DECLARE SUB impaginaz5 ()
DECLARE SUB impaginaz6 ()
DECLARE SUB inizializza ()
DECLARE SUB impostlire ()
DECLARE SUB messag (co, er$)
DECLARE SUB newdata ()
DECLARE SUB rettang (cola, colb, x1, y1, x2, y2)
DECLARE SUB sfondo ()
DECLARE SUB scs ()
DECLARE SUB stamp ()
DECLARE SUB stamp1 ()
DECLARE SUB tastfunz (cla, clb)
DECLARE SUB tempo ()
DECLARE SUB tuttok ()
COMMON SHARED scelta$, data$, intest$, iva, valuta$
ON ERROR GOTO errore
dacapo:
CLEAR , , 2000
stempo = 120
ON TIMER(stempo) GOSUB screensave
TYPE valori1
fg AS STRING * 6 'data impostazioni
mp AS STRING * 9 'importo varie
des AS STRING * 255 'descriz.
cliente AS STRING * 5 'abbr.clien.
END TYPE
aaa
