Oppure

Loading
06/11/09 15:26
Mikiwi93
Salve a tutti ho bisogno d'aiuto,nel form load ho messo questo codice:
Randomize
Dim e As Integer 'dichiarazione di variabile
Dim f As Integer 'dichiarazione di variabile
Dim g As Single 'dichiarazione di variabile
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
End Sub

Come posso fare in modo che se si apra il programma rimanga lo stesso numero(ma che cambi da pc a pc)???
aaa
06/11/09 15:35
lorenzo
se ho capito quello che vuoi, quando si esce dal programma salvi su file il numero e alla prossima riapertura lo rileggi
aaa
06/11/09 15:49
Mikiwi93
si giusto
aaa
06/11/09 15:55
Alfonso
Se come penso Rnd è un numero random è impossibile che al successivo avvio si possa ottenere lo stesso numero.
Devi considerare un numero fisso per quel computer, tipo il numero seriale del disco dove viene installato il programma.
aaa
06/11/09 16:31
LittleHacker
Postato originariamente da Alfonso:

Se come penso Rnd è un numero random è impossibile che al successivo avvio si possa ottenere lo stesso numero.
Devi considerare un numero fisso per quel computer, tipo il numero seriale del disco dove viene installato il programma.

No va beh...basta che salva il file e poi controlla se il file esiste, se esiste allora legge il numero dal file sennò fa un random e poi salva il file...Se ho capito bene!:k:
aaa
06/11/09 17:41
GrG
secondo me mikiwi farebbe bene a spiegarsi meglio, così non procediamo a interpretazione ...
aaa
06/11/09 17:46
Mikiwi93
Allora vorei fare in modo che esca così:
Caso 1: Si apre il programma,se c'è il codice salvato fà visualizzare il codice salvato e non ne genera uno nuovo.
Caso 2: Si apre il programma,non c'è il codice,il programma ne genera uno nuovo e procede a salvare il codice
aaa
06/11/09 17:55
LittleHacker
Postato originariamente da Mikiwi93:

Allora vorei fare in modo che esca così:
Caso 1: Si apre il programma,se c'è il codice salvato fà visualizzare il codice salvato e non ne genera uno nuovo.
Caso 2: Si apre il programma,non c'è il codice,il programma ne genera uno nuovo e procede a salvare il codice


Beh allora devi utilizzare i codici per aprire e salvare file:
Apri(leggi) File:
Open "nomefile" For Input As #1
Label5.caption = Input(LOF(1), #1)
Close #1

Salvare File:
Open "nomefile" For Output As #1
Print #1, Label5.text
Close #1

:k:

Ultima modifica effettuata da LittleHacker 06/11/09 17:56
aaa