[Jonathan Archer]

Ok parto analizzando tutto! Nel frattempo avresti qualche consiglio per far partire VB2010? Ho XP SP3 ma non succede un ben niente, l'applicazione si autokilla (lo vedo sul task)

[SPOILER]E' incredibile come la Microsoft sia in grado di rilasciare un programma che sia buggato già dall'installazione e leggo online che non sono l'unico -.-[/SPOILER]

---

Ho già quelche dubbio su dei comandi che non ho mai usato (e a dire il vero non ho capito bene a che servono). Te li metto in grassetto:

function LeggiFile$(filename$)
fileNum# = 1
result$ = ""
// Apre il file
open to read fileNum#, filename$
// Se è riuscito ad aprirlo...
if file open(fileNum#)=1
// ... leggilo fino alla fine
while file end(fileNum#)=0
newline$ = ""
read string fileNum#,newline$
// Se la riga letta non è una riga di commento o è una riga <= 2 caratteri
if left$(newline$,2) <> "//" and len(newline$) > 2
result$ = result$ + newline$ + chr$(13)+chr$(10)
endif
endwhile
endif
// Chiude il file
close file fileNum#
endfunction result$



nome$ = KeyValue$( contenuto_file$, "nome", "[valore non inserito]" )
modello$ = KeyValue$( contenuto_file$, "modello", "[valore non inserito]" )
attacco# = val( KeyValue$( contenuto_file$, "attacco", "-1" ) )
difesa# = val( KeyValue$( contenuto_file$, "difesa", "-1" ) )
alto = val( KeyValue$( contenuto_file$, "alto", "1" ) )
startx# = val( KeyValue$( contenuto_file$, "startx", "0" ) )
starty# = val( KeyValue$( contenuto_file$, "starty", "0" ) )