Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
Ok ora funziona ho fatto questo codice:
Codice sorgente - presumibilmente VB.NET |
Private Sub Form_Load() If Dir("C:/nomefile.txt") = "" Then Randomize e = 789 'Assegnazione valore alla variabile f = 34 'Assegnazione valore alla variabile g = Int((f * 3 + 4 - 6 + e * 1) * Rnd) + e Label5.Caption = g Open "c:/nomefile.txt" For Output As #1 Print #1, g Close #1 Else Open ("C:/nomefile.txt") For Input As #1 Label5.Caption = Input(LOF(1), #1) Close #1 End If End Sub
|
ed ora funziona tutto,grazie dell'aiuto a tutti...
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
prego
|
|
LittleHacker (Member)
Guru
Messaggi: 1033
Iscritto: 28/04/2009
|
Postato originariamente da Mikiwi93:
Ok ora funziona ho fatto questo codice:
Codice sorgente - presumibilmente VB.NET |
Private Sub Form_Load() If Dir("C:/nomefile.txt") = "" Then Randomize e = 789 'Assegnazione valore alla variabile f = 34 'Assegnazione valore alla variabile g = Int((f * 3 + 4 - 6 + e * 1) * Rnd) + e Label5.Caption = g Open "c:/nomefile.txt" For Output As #1 Print #1, g Close #1 Else Open ("C:/nomefile.txt") For Input As #1 Label5.Caption = Input(LOF(1), #1) Close #1 End If End Sub
|
ed ora funziona tutto,grazie dell'aiuto a tutti... |
Sai perchè prima non funzionava?
Perchè dove scriveva su file, gli davi label5.caption e invece dovevi dagli label5.text
perchè caption cattura il testo e quindi non ti scrive niente... |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
|
|
LittleHacker (Member)
Guru
Messaggi: 1033
Iscritto: 28/04/2009
|
Postato originariamente da GrG:
|
Ah no forse io mi confondo con le text |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Postato originariamente da LittleHacker:
Ah no forse io mi confondo con le text |
Può darsi |
|