Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
Salve a tutti ho bisogno d'aiuto,nel form load ho messo questo codice:
Codice sorgente - presumibilmente VB.NET |
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)???
|
|
lorenzo (Normal User)
Guru
Messaggi: 1178
Iscritto: 15/04/2008
|
se ho capito quello che vuoi, quando si esce dal programma salvi su file il numero e alla prossima riapertura lo rileggi
|
|
Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
si giusto
|
|
Alfonso (Ex-Member)
Guru
Messaggi: 688
Iscritto: 30/09/2009
|
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.
|
|
LittleHacker (Member)
Guru
Messaggi: 1033
Iscritto: 28/04/2009
|
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! |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
secondo me mikiwi farebbe bene a spiegarsi meglio, così non procediamo a interpretazione ...
|
|
Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
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
|
|
LittleHacker (Member)
Guru
Messaggi: 1033
Iscritto: 28/04/2009
|
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:
Codice sorgente - presumibilmente Visual Basic 6 |
Open "nomefile" For Input As #1
Label5.caption = Input(LOF(1), #1)
Close #1
|
Salvare File:
Codice sorgente - presumibilmente Visual Basic 6 |
Open "nomefile" For Output As #1
Print #1, Label5.text
Close #1
|
Ultima modifica effettuata da LittleHacker il 06/11/2009 alle 18:56 |
|
Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
Qundi mettendo le variabili verrebbe:
Codice sorgente - presumibilmente Delphi |
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
|
|