Oppure

Loading
06/11/09 19:39
LittleHacker
Postato originariamente da Mikiwi93:

Ho provato a far così:
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, Label5.Caption
Close #1
Else
Open "C:/nomefile.txt" For Output As #1
Print #1, Label5.Caption
Close #1
End If

Ma il label 5 non mostra nessun numero.

Hai provato a controllare se nel file creato c'è scritto qualcosa?
aaa
06/11/09 19:43
Mikiwi93
Ok ora funziona ho fatto questo codice:
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...:);)
aaa
06/11/09 20:37
GrG
prego :D
aaa
07/11/09 8:46
LittleHacker
Postato originariamente da Mikiwi93:

Ok ora funziona ho fatto questo codice:
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...;);):k:
aaa
07/11/09 10:30
GrG
Postato originariamente da LittleHacker:
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...;);):k:


non so come funzioni in vb.net ma in vb6 non esiste la proprietà .text per le label che diciamo è "sostituita" da .caption
aaa
07/11/09 11:02
LittleHacker
Postato originariamente da GrG:

Postato originariamente da LittleHacker:
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...;);):k:


non so come funzioni in vb.net ma in vb6 non esiste la proprietà .text per le label che diciamo è "sostituita" da .caption

Ah no forse io mi confondo con le text:-|
aaa
07/11/09 11:21
GrG
Postato originariamente da LittleHacker:
Ah no forse io mi confondo con le text:-|


Può darsi :yup:
aaa