Oppure

Loading
06/11/09 18:13
Mikiwi93
Qundi mettendo le variabili verrebbe: 
If Label5.Caption = "0" Then
Open "C:/nomefile.txt" For Output As #1
Print #1, Label5.Caption
Close #1
Else
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
End If

ma mi viene sempre un codice diverso
aaa
06/11/09 18:17
LittleHacker
Postato originariamente da Mikiwi93:

Qundi mettendo le variabili verrebbe: 
If Label5.Caption = "0" Then
Open "C:/nomefile.txt" For Output As #1
Print #1, Label5.Caption
Close #1
Else
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
End If

ma mi viene sempre un codice diverso


Te non devi controllare se la label ha un codice diverso(almeno da qll ke ho capito dalla spiegazione che hai dato) ma devi controllare se il file che contiene il codice esiste...facendo così: 
if Exists("nomefile") 'Mi sembra che è Exists quello da utilizzare :-| then 
'leggi il codice dal file
else
'fai un random e poi salvi il random nel file
end if

:k:
aaa
06/11/09 18:21
Mikiwi93
non c'è Exists
aaa
06/11/09 18:55
LittleHacker
Postato originariamente da Mikiwi93:

non c'è Exists

Troppo difficile cercare con un motore di ricerca?
1° risultato di google: pierotofy.it/pages/guide_tutorials/Visual_Basic/Verificare_l_-_esistenza_di_un_file/:k:
aaa
06/11/09 19:24
Mikiwi93
da errore sub or function not definied,sto usando vb 6
aaa
06/11/09 19:27
GrG
guarda qua, serve per vedere se un file già esiste:

pierotofy.it/pages/extras/forum/6/72247-avviso_di_sovrascrizione_file_o_mancata_creazione/
aaa
06/11/09 19:36
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.
aaa
06/11/09 19:39
Mikiwi93
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.

Vedendo che mi salvava il file in entrambi casi ho provato anche a farlo così: 
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, Label5.Caption
Close #1
Else
Open ("C:/nomefile.txt") For Input As #1
Label5.Caption = Input(LOF(1), #1)
Close #1
End If
End Sub

Ma anche così non và
aaa