Novità

PER MIKE58 O MORO_80

T

trivellatomariotretre33

Super Member >PLATINUM<
grazie moro_80 era cosi che lo volevo
micke58 mi serve perche o perso un codice di registraz a 11 numeri e forse cosi riusciro a ricavarlo con piu prove
una stretta di mano entrambi e grazie.

CORREGGO MORO O PROVATO MA O FATTO IO UN ERRORE LA STRINGA DEVE VENIRE A UNDICI CIFRE
ESMPIO
05392005303
06302006303
02302002303
00362000303
GRAZIE E AIUTATEMI ANCHE TE MIKE58 GRAZIE




Sub Main()
Dim Nu(40),Ru(1),SF(90)
Scrivi " **** Numeri casuali per il VINCI CASA **** ",1,1,3,1,4
Scrivi
Classe = InputBox("QUALE CLASSE DI SVILUPPO","MIKE58 FOR NET535353",5)
comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
For N = 1 To 40
Nu(n) = N
Next
Dim k
For k = 1 To comb
ReDim Num(1)
Num(1) = n
Call GetColonnaCasuale(Classe,Num,Nu)
Scrivi "Combinazione casuale...." & Format2(k) & " : ",1,0,,1,3
Scrivi StringaNumeri(Num,"",True),1,1,,2,3
Next
End Sub
 
Ultima modifica:
Ciao Trivellato, purtroppo non ho capito cosa ti serve, tuttavia possiamo far scrivere oltre alla stringa dei numeri casuali che sono 10 uno zero iniziale o zero finale
La stringa di scrittura è questa:

Scrivi 0 & StringaNumeri(Num,"",True),1,1,,2,3

come vedi abbiamo scritto prima lo zero e poi la stringaNumeri senza spazi.

sostituisci la riga allo script succitato.

Ciao
 
MIKE58 HO PROVATO CON LA STRINGA Scrivi 0 & StringaNumeri(Num,"",True),1,1,,2,3
ECCO IL RISULTATO
Combinazione casuale....01 : 0611203034
Combinazione casuale....02 : 0512143137
Combinazione casuale....03 : 0205223136
Combinazione casuale....04 : 0717262737
Combinazione casuale....05 : 1013223035
Combinazione casuale....06 : 0117323438
Combinazione casuale....07 : 0203041422
Combinazione casuale....08 : 0208202934
Combinazione casuale....09 : 0812272836
Combinazione casuale....10 : 0512143039

PERO MI SERVE COSI 11 NUMERI
Combinazione casuale....01 : 06112030347
Combinazione casuale....02 : 05121431376
Combinazione casuale....03 : 02052231365
Combinazione casuale....04 : 07172627374
Combinazione casuale....05 : 10132230353
Combinazione casuale....06 : 01173234384
Combinazione casuale....07 : 02030414225
Combinazione casuale....08 : 02082029347
Combinazione casuale....09 : 08122728366
Combinazione casuale....10 : 05121430397
GRAZIE MIKE58 ANTICIPATAMENTE



SIMILE
05392005303
06302006303
02302002303
00362000303
SE POI POSSONO CAPITARE I ZERI ALLO STESSO POSTO CAMBIANDO SOLO I NUMERI GRAZIE DI CUORE
 
Ultima modifica:
Prova questo...

Codice: 
Sub Main()
Dim Nu(40),Ru(1),SF(90)
Scrivi " **** Numeri casuali per il VINCI CASA **** ",1,1,3,1,4
Scrivi
Classe = InputBox("QUALE CLASSE DI SVILUPPO","MIKE58 FOR NET535353",5)
comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
For N = 1 To 40
Nu(n) = N
Next
Dim k
For k = 1 To comb
ReDim Num(1)
Num(1) = n
Call GetColonnaCasuale(Classe,Num,Nu)
Scrivi "Combinazione casuale...." & Format2(k) & " : ",1,0,,1,3
Scrivi 0 & StringaNumeri(Num,"",True),1,1,,2,3
Next
End Sub

Thanks, Mike!
 
GRAZIE MORO_80 ANCHE MIKE58 MI ERA FATTO AVERE LO STESSO RISULTATO SOLO CHE A ME SERVE CHE I ZERI CENTRALI CAPITANO ALLO STESSO POSTO
COSI
SIMILE
05392005303
06302006303
02302002303
00362000303
ANCORA GRAZIE DI CUORE
 
Ciao trivellato,
penso che dovresti spiegarTi un po' meglio di cosa vuoi ottenere...

Esempio:

Voglio una stringa di 11 numeri casuali così composta:

Prima cifra = 0
Seconda cifra = numero casuale
Terza cifra = numero casuale
Quarta cifra = numero casuale
Quinta cifra = numero casuale
Sesta cifra = 0
Settima cifra = 0
Ottava cifra = numero casuale
Nona cifra = numero casuale
Decima cifra = numero casuale
Undicesima cifra = numero casuale

Così è molto più chiaro e capibile da tutti...

Ciao
 
Mi Ripeto non so cosa devi ottenere, ma possiamo scrivere sia un numero definito (Avevo scelto Zero) sia all'inizio stringa oppure alla fine, ma penso che comunque si può scrivere i 5 numeri in formato 2 numeri cosi da avere esempio 9 con 09 + un numero casuale da 0 a 9 da mettere o all'inizio alla fine della stringa.
Fai tu le dovute prove per il tuo scopo.

Codice: 
Sub Main()
	Dim Nu(90)
	Scrivi " **** Numeri casuali 11 cifre **** ",1,1,3,1,4
	Scrivi
	Classe = InputBox("QUALE CLASSE DI SVILUPPO","MIKE58 FOR NET535353",5)
	comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
	For N = 0 To 90
		Nu(n) = N
	Next
	Dim k
	For k = 1 To comb
		ReDim Num(1)
		Num(1) = n
		Call GetColonnaCasuale(Classe,Num,Nu)
		nc = NumeroCasuale(0,9)
		Scrivi "Combinazione casuale...." & Format2(k) & " : ",1,0,,1,3
		Scrivi nc & StringaNumeri(Num,"",True),1,1,,2,3
	Next
End Sub
 
MIKE58 LO VORREI SE POSSIBBILE COME A MESSO MORO_80
A SCELTA IMPUT
Prima cifra = 0
Seconda cifra = numero casuale
Terza cifra = numero casuale
Quarta cifra = numero casuale
Quinta cifra = numero casuale
Sesta cifra = 0
Settima cifra = 0
Ottava cifra = numero casuale
Nona cifra = numero casuale
Decima cifra = numero casuale
Undicesima cifra = numero casuale
SICURAMENTE ANDRA BENE GRAZIE UNITAMENTE A MORO_80
 
Allora mi sa che gli serve così Mike...

Codice: 
Sub Main()
	Dim Nu(90)
	Scrivi " **** Numeri casuali 11 cifre **** ",1,1,3,1,4
	Scrivi
	Classe = InputBox("QUALE CLASSE DI SVILUPPO","MIKE58 FOR NET535353",2)
	comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
	For N = 0 To 90
		Nu(n) = N
	Next
	Dim k
	For k = 1 To comb
		ReDim Num(1)
		Num(1) = n
		ReDim Num1(1)
		Num1(1) = n
		Call GetColonnaCasuale(Classe,Num,Nu)
		Call GetColonnaCasuale(Classe,Num1,Nu)
		nc = 0
		Scrivi "Combinazione casuale...." & Format2(k) & " : ",1,0,,1,3
		Scrivi nc & StringaNumeri(Num,"",True) & "00" & StringaNumeri(Num1,"",True),1,1,,2,3
	Next
End Sub

Facci sapere...
 
OTTIMO GRAZIE VA BENE COSI SI POTREBBE SOLO METTERMI ALLA SCELTA COSI IMPUT NEL CASO NON RIESCO AL MIO INTENDO
UNO SCRIPT CON QUESTE CHIAMATE
A SCELTA IMPUT

Prima cifra = 0
Seconda cifra = numero casuale
Terza cifra = numero casuale
Quarta cifra = numero casuale
Quinta cifra = numero casuale
Sesta cifra = 0
Settima cifra = 0
Ottava cifra = numero casuale
Nona cifra = numero casuale
Decima cifra = numero casuale
Undicesima cifra = numero casuale

GRAZIE ENTRAMBI E UNA STRETTA DI MANO CHILOMETRICA
 
Scusa...ma anche stavolta dovresti spiegarti un po' meglio e in maniera più chiara, non ho ben capito cosa vorresti fare ora.

ciao
 
MI SERVE UNO SCRIPT AUTOMATICO CHE POSSA DECIDERE IO IN SEGUITO QUALI NUMERI DARE IN QUESTE POSIZIONI
Prima cifra = 0
Seconda cifra = numero casuale
Terza cifra = numero casuale
Quarta cifra = numero casuale
Quinta cifra = numero casuale
Sesta cifra = 0
Settima cifra = 0
Ottava cifra = numero casuale
Nona cifra = numero casuale
Decima cifra = numero casuale
Undicesima cifra = numero casuale

SCUSAMI NON SO SPIEGARMI MEGLIO TI RINGRAZIO PER IL TEMPO CHE MI DEDICHI MA LO SCRIPT LO VORREI COSI
 
Facciamolo con i parametri richiesti

Codice: 
Sub Main()
	Scrivi " **** Numeri casuali 11 cifre **** Trivellato ****  ",1,1,3,1,4
	Scrivi
	comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58 *** FORUM LOTTOCED **** ",10)
	Dim k
	For k = 1 To comb
		a1 = 0
		a2 = NumeroCasuale(1,9)
		a3 = NumeroCasuale(1,9)
		a4 = NumeroCasuale(1,9)
		a5 = NumeroCasuale(1,9)
		a6 = 0
		a7 = 0
		a8 = NumeroCasuale(1,9)
		a9 = NumeroCasuale(1,9)
		a10 = NumeroCasuale(1,9)
		a11 = NumeroCasuale(1,9)
		Scrivi "Combinazione casuale...." & Format2(k) & " : ",1,0,,1,3
		Scrivi a1 & a2 & a3 & a4 & a5 & a6 & a7 & a8 & a9 & a10 & a11,1,1,,2,3
	Next
End Sub
 
Ciao, se vuoi anche la versione che scegli Tu quali casuali e quali no eccola...

Codice: 
Sub Main()
	Scrivi " **** Numeri casuali 11 cifre **** Trivellato ****  ",1,1,3,1,4
	Scrivi
	comb = InputBox("QUANTE COMBINAZIONI VUOI SVILUPPARE","MIKE58,MORO_80 *** FORUM LOTTOCED **** ",10)
	Dim Scelta1,Scelta2,Scelta3,Scelta4,Scelta5,Scelta6,Scelta7,Scelta8,Scelta9,Scelta10,Scelta11
	Scelta1 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 1")
	Scelta2 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 2")
	Scelta3 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 3")
	Scelta4 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 4")
	Scelta5 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 5")
	Scelta6 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 6")
	Scelta7 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 7")
	Scelta8 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 8")
	Scelta9 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 9")
	Scelta10 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 10")
	Scelta11 = InputBox("Scegli un numero da 0 a 9" & vbCrLf & vbCrLf & "LASCIARE VUOTO PER NUMERO CASUALE","Scegli numero 11")
	Dim k
	For k = 1 To comb
		If Scelta1 = "" Then
		a1 = NumeroCasuale(1,9)
		Else
		a1 = Scelta1
		End If
		If Scelta2 = "" Then
		a2 = NumeroCasuale(1,9)
		Else
		a2 = Scelta2
		End If	
		If Scelta3 = "" Then
		a3 = NumeroCasuale(1,9)
		Else
		a3 = Scelta3
		End If	
		If Scelta4 = "" Then
		a4 = NumeroCasuale(1,9)
		Else
		a4 = Scelta4
		End If	
		If Scelta5 = "" Then
		a5 = NumeroCasuale(1,9)
		Else
		a5 = Scelta5
		End If	
		If Scelta6 = "" Then
		a6 = NumeroCasuale(1,9)
		Else
		a6 = Scelta6
		End If	
		If Scelta7 = "" Then
		a7 = NumeroCasuale(1,9)
		Else
		a7 = Scelta7
		End If	
		If Scelta8 = "" Then
		a8 = NumeroCasuale(1,9)
		Else
		a8 = Scelta8
		End If	
		If Scelta9 = "" Then
		a9 = NumeroCasuale(1,9)
		Else
		a9 = Scelta9
		End If	
		If Scelta10 = "" Then
		a10 = NumeroCasuale(1,9)
		Else
		a10 = Scelta10
		End If	
		If Scelta11 = "" Then
		a11 = NumeroCasuale(1,9)
		Else
		a11 = Scelta11
		End If	
		Scrivi "Combinazione casuale...." & Format2(k) & " : ",1,0,,1,3
		Scrivi a1 & a2 & a3 & a4 & a5 & a6 & a7 & a8 & a9 & a10 & a11,1,1,,2,3
	Next
End Sub


Ciao Ciao
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 26 aprile 2025
    Bari
    23
    30
    43
    69
    25
    Cagliari
    63
    73
    02
    18
    12
    Firenze
    38
    11
    13
    32
    15
    Genova
    09
    27
    84
    16
    11
    Milano
    73
    30
    70
    60
    02
    Napoli
    60
    81
    05
    79
    89
    Palermo
    26
    28
    69
    07
    31
    Roma
    82
    38
    76
    44
    31
    Torino
    05
    62
    73
    46
    84
    Venezia
    42
    14
    45
    35
    52
    Nazionale
    48
    80
    78
    16
    23
    Estrazione Simbolotto
    Genova
    10
    22
    15
    09
    34
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto