Stai usando un browser molto obsoleto. Puoi incorrere in problemi di visualizzazione di questo e altri siti oltre che in problemi di sicurezza. . Dovresti aggiornarlo oppure usare usarne uno alternativo, moderno e sicuro.
'in allegato il pdf per chi non usa Spaziometria
Sub Main
Dim ruota(2),am(3),pt(3),ruote(5),a1(2),a2(4),a3(4),a4(4),a5(2),a6(2),a,b,c,d,e,f,g,h,i,P,S,T,Q,caso
pt(1) = 1
pt(2) = 1
pt(3) = 1
clp = 9
ini = 9908
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO codice...
Sub Main
Dim ruota(2),pt(5),ruote(3),a1(12)
pt(2) = 1
pt(3) = 1
clp = 1
ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145)
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE...
Sub Main
Dim ruota(2),pt(5),ruote(3),a1(12)
pt(2) = 1
clp = 1
ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145)
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE...
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X,pr,nr1,nr2,Y,Z
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://ambolotto.forumfree.it/",157)
Ini = EstrazioneFin - X
fin =...
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forumfree.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi "...
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3)
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
Ini = EstrazioneFin - 1000
fin = EstrazioneFin
For es = Ini To fin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For p = 1 To 5
a = Estratto(es,r1,p)...
Sub Main
Dim Nu(2),Ru(2),aN(3),Posta(3),X
Posta(1) = 1
Posta(2) = 1
Posta(3) = 1
X = InputBox("Inserire il numero delle estrazioni da controllare: ","Script di Mauro Milanetto per https://forum.lottoced/",157)
Ini = EstrazioneFin - X
fin = EstrazioneFin
Scrivi "...
Buonasera ragazzi.
Un nuovo script su Torino.
Sub Main
Dim ruota(1),pt(2),ruote(5),a1(2),a2(4)
pt(1) = 1
pt(2) = 1
clp = 7
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per...
Nuova tecnica, seguitela per vedere se da qualche soddisfazione!
Sub Main
Dim ruota(2),am(3),pt(4),ruote(6),a1(4),a2(4),a3(4),a4(4),a5(4)
pt(2) = 1
pt(3) = 1
pt(4) = 1
clp = 8
ini = 145
pr = 145
fine = EstrazioneFin
ini = EstrazioneFin - pr
r = InputBox("scegli ruota?","Metodo e script di Mauro...
Per chi vuole cimentarsi nello script!
Si devono cercare due numeri zerati isotopi,
Nell'esempio Firenze 40 e Genova 10,
40/10 = 4
10/10 = 1
Primo numero per ambata 4 & 1 = 41
Secondo numero per ambata vertibile di 41=14
Terzo numero 4 + 1 = 5 # in terzina con 14 e 41
Si giocano sulle ruote...
Tecnica:
Sub Main
Dim ruota(2),am(3),pt(2),ruote(5),a1(2),a2(4),a3(4),a4(2),a5(2),a6(2)
pt(1) = 1
pt(2) = 1
clp = 10
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per...
Tecnica:
Sub Main
Dim ruota(2),am(3),pt(2),ruote(5),a1(2),a2(4),a3(4),a4(2),a5(2),a6(2)
pt(1) = 1
pt(2) = 1
clp = 7
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
pr = CInt(InputBox("Quante estrazioni vuoi controllare in un ciclo?:","per...
Tecnica:
Sub Main
Dim ruota(2),pt(2),ruote(5),a1(2),a2(2) 'Dimensioni le variabili
pt(1) = 1 'Posta ambata
pt(2) = 1 'Posta ambo
clp = 7 'Numero dei colpi
ini = InputBox("Da quale estrazione vuoi iniziare?:","Script by Mauro",EstrazioneFin - 105)
pr = CInt(InputBox("Quante estrazioni vuoi...
Buongiorno a tutti.
Ho provato a verificare manualmente un metodo basato sulla presenza nel quadro estrazionale dei "numeretti" ( da 1 a 9).
Esempio
Estrazione del 07.01.2021
Cagliari 7 1 68 30 84
Palermo 8 22 9 23 17
Si devono combinare i due nuemeretti...