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
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto