Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Uno script dalla ruota verso l'ambata
- Creatore Discussione Paki144
- Data di inizio
Ciao, grazie per il controllo e la rielaborazione della grafica, veramente bella. Qui si vede chi si destreggia con le funzioni.
Inserisco il codice con la sostituzione: in pratica ho sostituito tutta la parte di ricerca ed inserito le nuove variabili dimensionate. Sembra che funzioni.
C
Codice:
Sub Main()
Scrivi : ColoreTesto 2 : Scrivi "Estratti verso ruota by Scythe"
Scrivi : ColoreTesto 0 : Scrivi
Dim ruotaa(5),ruote(5),ambata1(2),ambo1(2),posta(1),poste(2)
Dim n1(5)
Dim CollAmbiTrovati
Dim sAmbo
Dim qEstrTrovate
Dim clsCoppia
Dim anum1,anum2
Dim p,pp,k,rr,extra
'Dim ruotaa(5)
' Dim n1(5)
Dim A(5)
Dim B(5)
Dim C(5)
Dim D(5)
Dim E(5)
posta(1) = 1
poste(2) = 1
'im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
extra = InputBox("Quante estrazioni vuoi controllare ?",0)
'rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",1))
rr = ScegliRuota
ini = EstrazioneFin - extra
fin = EstrazioneFin
ruota = rr
'co = 0
k = 0
For es = ini To fin
Messaggio(es)
'If IndiceMensile(es) = im Then
For p = 1 To 5
n1(p) = Estratto(es,rr,p)
Next
'casi = casi + 1
'Scrivi String(90,"=") & " Caso n° " & casi,1
'co = co + 1
'Scrivi es & " " & " n° " & Format2(im) & " del " & DataEstrazione(es),True
'Scrivi String(90,"="),1
ReDim MatriceCaselleDaEvid(5,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = rr ' ruota di bari
MatriceCaselleDaEvid(1,1) = 1 ' primo Estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = rr ' ruota di bari
MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
' quarto elemento
MatriceCaselleDaEvid(5,0) = rr ' ruota di venezia
MatriceCaselleDaEvid(5,1) = 5 ' quinto Estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
Scrivi "Ruota di " & NomeRuota(ruota) & " " & Format2(n1(1)) & " " & Format2(n1(2)) & " " & Format2(n1(3)) & " " & Format2(n1(4)) & " " & Format2(n1(5)),True
Scrivi
'''''''
For x = 1 To 5
A(x) = FuoriX(n1(x),50) 'numero da contare se n1 > 50
B(x) =(50 -(rr - 1) * 5)'numero di caselle a disposizione fino al 5° di venezia
C(x) =(50 - B(x)) 'numero di caselle a disposizione per la continuazione del conteggio di n1
D(x) = Abs(A(x) - B(x)) 'numero di caselle da contare restanti
E(x) = Abs(D(x) - B(x)) 'scarto di caselle oltre la ruota di origine
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 <> 0 Then
ruotaa(1) = rr + Int(A(x)/5)
Else
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 Then
ruotaa(1) = rr - 1 + Int(A(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 <> 0 Then
ruotaa(1) = rr + Int(A(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 = 0 Then
ruotaa(1) = rr - 1 + Int(A(x)/5)
End If
End If
End If
End If
If ruotaa(1) > 10 Then
ruotaa(1) = ruotaa(1) - 10
End If
sAmbo = sAmbo & Format2(n1(pp)) & " " & SiglaRuota(ruotaa(1)) & "" & vbCrLf
Scrivi Format2(n1(x)) & " " & "diretto a " & SiglaRuota(ruotaa(1)) & " ",0,0,1,4 'True,,- 1,1
Scrivi
'ruotaa(2) = RuotaDiametrale(ruotaa(1))
'ruote(1) = ruotaa(1)
'ruote(2) = RuotaDiametrale(ruotaa(1))
ruote(1) = TT_
ruote(2) = NZ_
ambata1(1) = n1(pp)
ambo1(1) = n1(pp)
ambo1(2) = Diametrale(n1)
ImpostaGiocata 1,ambata1,ruotaa,posta,k,0
Gioca es,1,,1
Scrivi
Scrivi
'ImpostaGiocata 1,ambo1,ruote,poste,k,0
'Gioca es,1,,1
Next
'End If
Next
Scrivi Format2(sAmbo),1,0,0,3,4,8,8
End Sub
Zetrix
Advanced Premium Member
grazie scythe lo sistemato lo script ho piu di 2000 prospetti che disegna spaziometria volevo aggiungere un altra
richiesta se puoi cercare di individuare l'ultimo numero che conteggia mi interesserebbe
questo numero per fare delle ricerche e studi grazie ancora e buon natale
richiesta se puoi cercare di individuare l'ultimo numero che conteggia mi interesserebbe
questo numero per fare delle ricerche e studi grazie ancora e buon natale
Zetrix
Advanced Premium Member
buon natale a tutti
x scythe ho fatto una prova vedi un po questo prospetto
sulla ruota di ba
21 diretto a MI
Numeri in gioco : 21 su MI per Estratto
V N. [21] [MI] [.. .. .. 21 ..] C. 3 Estratto [12/12/2020] [28.78.64.21.27]
se noti il 21 isotopo al 49 di (Mi) la diff e 28 e si e abbinato con il 21
84 diretto a PA
Numeri in gioco : 84 su PA per Estratto
V N. [84] [PA] [.. .. 84 .. ..] C.2 Estratto [10/12/2020] [51.85.84.29.40]
V N. [84] [PA] [84 .. .. .. ..] C.4 Estratto [15/12/2020] [84.25.89.62.31]
se noti l'84 isotopo al 53 di (Pa) la diff e 31 e si e abbinato con l'84
forse si tratta di un caso comunque puoi vedere se riesci a inserire
l'ultimo numero conteggiato cosi lo possiamo calcolare e vedere
quali abb si abbina piu spesso ho notato in alcuni casi si puo abbinare
anche con il diametrale oppure con la chiusura a 90
spero che non ci sono dubbi cmq se ci sono dubbi puoi scrivere
e quanto posso ti rispondo cosi vediamo se si puo migliorare la tecnica
per ambo
ciao
x scythe ho fatto una prova vedi un po questo prospetto
sulla ruota di ba
21 diretto a MI
Numeri in gioco : 21 su MI per Estratto
V N. [21] [MI] [.. .. .. 21 ..] C. 3 Estratto [12/12/2020] [28.78.64.21.27]
se noti il 21 isotopo al 49 di (Mi) la diff e 28 e si e abbinato con il 21
84 diretto a PA
Numeri in gioco : 84 su PA per Estratto
V N. [84] [PA] [.. .. 84 .. ..] C.2 Estratto [10/12/2020] [51.85.84.29.40]
V N. [84] [PA] [84 .. .. .. ..] C.4 Estratto [15/12/2020] [84.25.89.62.31]
se noti l'84 isotopo al 53 di (Pa) la diff e 31 e si e abbinato con l'84
forse si tratta di un caso comunque puoi vedere se riesci a inserire
l'ultimo numero conteggiato cosi lo possiamo calcolare e vedere
quali abb si abbina piu spesso ho notato in alcuni casi si puo abbinare
anche con il diametrale oppure con la chiusura a 90
spero che non ci sono dubbi cmq se ci sono dubbi puoi scrivere
e quanto posso ti rispondo cosi vediamo se si puo migliorare la tecnica
per ambo
ciao
Ciao a tutti.
per Paki e zetrix e a tutti coloro che possono essere interessati: non mi sono perso fisicamente, ma mi sono perso nel cercare di correggere gli errori che persistevano nei risultati dello script già inviato. Credo finalmente di esserci riuscito. ed invio dunque il listato. Se riscontrerete errori, spero li scusiate e me li comunichiate.
e adesso posso tentare di eseguire il progetto proposto da zetrix.
Buonanotte
per Paki e zetrix e a tutti coloro che possono essere interessati: non mi sono perso fisicamente, ma mi sono perso nel cercare di correggere gli errori che persistevano nei risultati dello script già inviato. Credo finalmente di esserci riuscito. ed invio dunque il listato. Se riscontrerete errori, spero li scusiate e me li comunichiate.
e adesso posso tentare di eseguire il progetto proposto da zetrix.
Buonanotte
Codice:
Codice:
Sub Main()
Scrivi : ColoreTesto 2 : Scrivi "Estratti verso ruota by Scythe"
Scrivi : ColoreTesto 0 : Scrivi
Dim ruotaa(5)
Dim n1(5)
Dim A(5)
Dim B(5)
Dim C(5)
Dim D(5)
Dim E(5)
im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
stra = InputBox("Quante estrazioni vuoi controllare ?","Estrazioni",100)
rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",2))
ini = EstrazioneFin - Stra
fin = EstrazioneFin
ruota = rr
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = im Then
For p = 1 To 5
n1(p) = Estratto(es,rr,p)
Next
casi = casi + 1
Scrivi String(90,"=") & " Caso n° " & casi,1
co = co + 1
Scrivi es & " " & " n° " & Format2(im) & " del " & DataEstrazione(es),True
Scrivi String(90,"="),1
Scrivi
Scrivi "estratti " & SiglaRuota(ruota) & " " & Format2(n1(1)) & " " & Format2(n1(2)) & " " & Format2(n1(3)) & " " & Format2(n1(4)) & " " & Format2(n1(5)),True
For x = 1 To 5
A(x) = FuoriX(n1(x),50) 'numero da contare se n1 > 50
B(x) =(50 -(rr - 1) * 5)'numero di caselle a disposizione fino al 5° di venezia
C(x) =(50 - B(x)) 'numero di caselle a disposizione per la continuazione del conteggio di n1
D(x) = Abs(A(x) - B(x)) 'numero di caselle da contare restanti
E(x) = Abs(D(x) - B(x)) 'scarto di caselle oltre la ruota di origine
For t = 1 To 5
ruotaa(x) = rr
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 <> 0 Then
ruotaa(1) = rr + Int(A(x)/5)
Else
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 And Cadenza(n1(x)) = 0 Then
ruotaa(1) =(rr - 1) + Int(A(x)/5)
Else
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 And Cadenza(n1(x)) = 5 Then
ruotaa(1) =(rr - 1) + Int(A(x)/5)
Else
If A(x) > B(x) And Differenza(n1(x),B(x)) > 51 And A(x) Mod 5 <> 0 Then
ruotaa(1) =(rr + Int(n1(x)/5))
Else
If A(x) > B(x) And Differenza(n1(x),B(x)) < 51 And A(x) Mod 5 <> 0 Then
ruotaa(1) = rr + Int(n1(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 = 0 Then
ruotaa(1) = rr - 1 + Int(A(x)/5)
End If
End If
End If
End If
End If
End If
If ruotaa(1) > 10 Then
ruotaa(1) = ruotaa(1) - 10
End If
If n1(x) < 6 Then
ruotaa(x) = rr
End If
Next
If ruotaa(1) > 10 Then
ruotaa(1) = ruotaa(1) - 10
End If
Scrivi Format2(n1(x)) & " " & " verso >>>>>>>>>>>>>> " & SiglaRuota(ruotaa(1)),True,,- 1,1
'Scrivi Format2(A(x)) & " " & Format2(B(x)) & " " & Format2(C(x)) & " " & Format2(D(x)) & " " & Format2(E(x)) & " verso >>>>>>>>>>>>>> " & SiglaRuota(ruotaa(1)),True,,- 1,1 Scrivi Format2(A(x)) & " " & Format2(B(x)) & " " & Format2(C(x)) & " " & Format2(D(x)) & " " & Format2(E(x)) & " verso >>>>>>>>>>>>>> " & SiglaRuota(ruota
Next
End If
Next
End Sub
Grazie a te e felice Anno 2021.
PS: mi rendo conto che le due righe sono praticamente uguali, ma visto che i controlli che ho fatto erano validi, ho preferito non toccare altro onde evitare di modificare i risultati delle condizioni precedenti ( mi è successo già troppe volte) . Se troverai inesattezze, fammelo sapere.
buona notte.
PS: mi rendo conto che le due righe sono praticamente uguali, ma visto che i controlli che ho fatto erano validi, ho preferito non toccare altro onde evitare di modificare i risultati delle condizioni precedenti ( mi è successo già troppe volte) . Se troverai inesattezze, fammelo sapere.
buona notte.
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
C'è ancora qualcosina che non va nell'ultimo script di Scythe,
i numeri 66 ruota Roma e 56 Venezia
il 66 dovrebbe essere verso Bari
ed anche 56 ruota Venezia dovrebbe essere verso Bari.
Avevo pensato che era con la cadenza 6 che si verificava questo errore, ed ho controllato altri estratti di cadenza 6, ma non ci sono errori, quindi non ho idea del perchè si verificano questi errori, ho modificato lo script e questi errori non ci sono, però potrebbero essercene altri è da controllare.
C'è ancora qualcosina che non va nell'ultimo script di Scythe,
i numeri 66 ruota Roma e 56 Venezia
il 66 dovrebbe essere verso Bari
ed anche 56 ruota Venezia dovrebbe essere verso Bari.
Avevo pensato che era con la cadenza 6 che si verificava questo errore, ed ho controllato altri estratti di cadenza 6, ma non ci sono errori, quindi non ho idea del perchè si verificano questi errori, ho modificato lo script e questi errori non ci sono, però potrebbero essercene altri è da controllare.
Codice:
Sub Main()
Scrivi : ColoreTesto 2 : Scrivi "Estratti verso ruota by Scythe and Salvo50"
Scrivi : ColoreTesto 0 : Scrivi
Dim Es,R1,Im,Stra,Ini,Fin,Co,P,Ruotaa,Casi,X,Y,Z1,Z2,RR
Dim N1(5)
Im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
Stra = InputBox("Quante estrazioni vuoi controllare ?","Estrazioni",200)
RR = CInt(InputBox("scegli ruota (1 - 10 )","ruota",8))
Ini = EstrazioneFin - Stra
Fin = EstrazioneFin
Co = 0
For Es = Ini To Fin
Messaggio(Es)
If IndiceMensile(Es) = Im Then
For P = 1 To 5
N1(P) = Estratto(Es,RR,P)
Next
Casi = Casi + 1
Scrivi String(45,"=") & " Caso n° " & Casi,1
Co = Co + 1
Scrivi Es & " " & " n° " & Format2(Im) & " del " & DataEstrazione(Es),True
Scrivi String(45,"="),1
Scrivi
Scrivi "estratti " & SiglaRuota(RR) & Space(4) & StringaNumeri(N1," ",True),True
For X = 1 To 5
Z1 = 1
Z2 = 5
R1 = RR
For Y = 1 To 18
If N1(X) >= Z1 And N1(X) <= Z2 Then Ruotaa = R1
R1 = R1 + 1
Z1 = Z1 + 5
Z2 = Z2 + 5
Next
If Ruotaa > 10 Then Ruotaa = FuoriX(Ruotaa,10)
Scrivi Format2(N1(X)) & Space(6) & " verso >>>>>>>>>>>>>> " & SiglaRuota(Ruotaa),True,,,1
Next
End If
Next
End Sub
i legend
Premium Member
ciao stamattina visto che sono acasa con l influenza ho provato a farlo anche io perche mi aveva incuriosito
la vostra prima soluzione
mi sembra che i risultati coincidano ci sono meno if e si puo scegliere se partire sempre dalla prima posizione o dalla posizione di rilevamento
controllate , che con la febbre potrei aver fatto errori.
mi sembra veloce come il vostro su poche estrazioni
ciao
la vostra prima soluzione
mi sembra che i risultati coincidano ci sono meno if e si puo scegliere se partire sempre dalla prima posizione o dalla posizione di rilevamento
controllate , che con la febbre potrei aver fatto errori.
mi sembra veloce come il vostro su poche estrazioni
ciao
Codice:
Option Explicit
' controllare che lo script dia risultati esatti, non se ne garantisce il funzionamento
' script richiesto dall utente Paki su lotto ced forum area downLoad
Sub Main
Dim R
Dim PosIni
Dim aR,aP
Dim IdCol,NewIdCol
Dim IdEstr,EstrIni,EstrFin
Dim E,P,nColpi
nColpi = 9
R = ScegliRuota
If R = 0 Or R = 11 Then Exit Sub ' controllo inserimento dati
PosIni = eval(InputBox(" 1=conta sempre dal 1° estratto" & vbCrLf & " 2=conta dalla posizione di rilevamento","Scegli posizione da cui iniziare a contare",1))
If Not IsNumeric(PosIni) Or(PosIni < 1 Or PosIni > 2) Then Exit Sub ' controllo inserimento dati
If Not ScegliRange(EstrIni,EstrFin,EstrazioneFin - 199,EstrazioneFin) Then Scrivi "Ciao":Exit Sub
Call ResetTimer
Call GetArrayRuPos(aR,aP) ' carico array ruote e pos in base alla colonna
If PosIni = 1 Then
IdCol =(R*5) -(4)
For IdEstr = EstrIni To EstrFin
Call GetTitTab(IdEstr,R)
For P = 1 To 5
E = Estratto(IdEstr,R,P)
NewIdCol = FuoriX((IdCol - 1) + E,50)
Call GetTab(idestr,aR,aP,E,P,NewIdCol,nColpi,PosIni)
Next ' fine ciclo posizioni
Scrivi String(52,"-")
Call AvanzamentoElab(EstrIni,EstrFin,IdEstr)
Next ' fine ciclo idestr
ElseIf PosIni=2 Then
For IdEstr = EstrIni To EstrFin
Call GetTitTab(IdEstr,R)
For P = 1 To 5
IdCol =(R*5) -(5 - P) ' calcolo colonna posizione iniziale
E = Estratto(IdEstr,R,P)
NewIdCol = FuoriX((IdCol - 1) + E,50)' calcolo nuova colonna
Call GetTab(idestr,aR,aP,E,P,NewIdCol,nColpi,P)
Next ' fine ciclo posizioni
Scrivi String(52,"-")
Call AvanzamentoElab(EstrIni,EstrFin,IdEstr)
Next ' fine ciclo idestr
End If
Scrivi "Elaborazione in :" & TempoTrascorso
End Sub
Sub GetArrayRuPos(aR,aP)
aR = Array(0,1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5,5,5,5,5,6,6,6,6,6,7,7,7,7,7,8,8,8,8,8,9,9,9,9,9,10,10,10,10,10)
aP = Array(0,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5)
End Sub
Sub GetTitTab(IdEstr,IniRu)
Scrivi " Conc: " & GetInfoEstrazione(IdEstr) & "| " & SiglaRuota(IniRu) & " " & StringaEstratti(IdEstr,IniRu) & " ",1,,RGB(47,47,47),RGB(183,238,242)
Scrivi "|Pin| E | nRu | Esito |nColpo| Estrazione |",1,,RGB(47,47,47),vbGreen
End Sub
Sub GetTab(idestr,aR,aP,E,P,IdCol,nColpi,PosIni)
Dim nClp,Esi,Colp,Estrazione
Dim aN(1):aN(1) = E
Dim aRuVer(1):aRuVer(1) = aR(IdCol)
Call VerificaEsitoTurbo(aN,aRuVer,idEstr + 1,1,nColpi,,Esi,Colp,Estrazione)
If Esi = "" Then Esi = "Negativo"
Scrivi " " & PosIni & " |" & FormatSpace(E,2) & " (" & aP(IdCol) & SiglaRuota(aRuVer(1)) & ") " & FormatSpace(Esi,9) & " " & FormatSpace(Colp,2) & " | " & FormatSpace(Estrazione,17) & " | "
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao I Legend, il tuo script va oltre la richiesta di Paki144, ma penso che soddisfa la richiesta di Zetrix, che aveva chiesto la posizione dove va a finire il conteggio, vedremo se gli va bene lo script, in quanto agli IF-THEN richiesti nella mia correzione allo script, ce ne uno solo (IF-THEN), anche se è dentro un FOR-NEXT.
Comunque sei un grande, auguri di buona guarigione.
Comunque sei un grande, auguri di buona guarigione.
Ultima modifica:
i legend
Premium Member
Ciao salvo grazie
ho solo una brutta influenza. ( già verificate ed escluse altre possibilità)
Al caldo sotto le coperte passa tutto.
Mi riferivo al primo script o forse un secondo.
Cmq bravi voi.
Il fatto delle posizioni e perché non comprendere anche la ruota nazionale non l ho ben compresa, ma mi sembra che si chiedeva così.
Ciao felice anno nuovo a tutti.
ho solo una brutta influenza. ( già verificate ed escluse altre possibilità)
Al caldo sotto le coperte passa tutto.
Mi riferivo al primo script o forse un secondo.
Cmq bravi voi.
Il fatto delle posizioni e perché non comprendere anche la ruota nazionale non l ho ben compresa, ma mi sembra che si chiedeva così.
Ciao felice anno nuovo a tutti.
Buon Anno a tutti.
Ringrazio coloro che hanno risposto .
Anche a me non piacevano tutti quegli If che avrebbero potuto condizionare quelli precedenti. Pertanto ho preferito rivedere tutto e considerare soluzioni più fluide. Allego il nuovo listato che ho scritto perchè soddisfacesse sia la richiesta di Paki sia quella di Zetrix.
Mi sembra di esserci riuscito.
Grazie a I legend per avere riscritto il codice in modo che anche un inesperto come me possa imparare qualcosa di nuovo.
X Paki e Zetrix: spero che il listato vada bene per entrambi. Visto che Zetrix ha citato diametrali e isotopi, ho inserito anche quelli.
In conclusione lo script fornisce:
-il numero ruota e numero cercati da Paki, il suo diametrale e il diametrale in decina, l'isotopo dell'estratto con diam e diamD.
-il numero secondo la ricerca di Zetrix, con diametrale e diamD, Isotopo.
Gradita ogni osservazione. Grazie per l'attenzione e buona serata.
Ringrazio coloro che hanno risposto .
Anche a me non piacevano tutti quegli If che avrebbero potuto condizionare quelli precedenti. Pertanto ho preferito rivedere tutto e considerare soluzioni più fluide. Allego il nuovo listato che ho scritto perchè soddisfacesse sia la richiesta di Paki sia quella di Zetrix.
Mi sembra di esserci riuscito.
Grazie a I legend per avere riscritto il codice in modo che anche un inesperto come me possa imparare qualcosa di nuovo.
X Paki e Zetrix: spero che il listato vada bene per entrambi. Visto che Zetrix ha citato diametrali e isotopi, ho inserito anche quelli.
In conclusione lo script fornisce:
-il numero ruota e numero cercati da Paki, il suo diametrale e il diametrale in decina, l'isotopo dell'estratto con diam e diamD.
-il numero secondo la ricerca di Zetrix, con diametrale e diamD, Isotopo.
Gradita ogni osservazione. Grazie per l'attenzione e buona serata.
Codice:
Sub Main()
Scrivi : ColoreTesto 2 : Scrivi "Estratti verso ruota by Scythe"
Scrivi : ColoreTesto 0 : Scrivi
Dim ruotaa(5)
Dim n1(5)
Dim pos(5)
' Dim S(5)
Dim ruo(5)
Dim nwpo(5)
Dim nsp(5)
Dim Dnsp(5)
Dim Iso(5)
Dim Diso(5)
Dim Ddiso(5)
Dim Ddnsp(5)
Dim Dn1(5)
Dim Ddn1(5)
Dim Pc1(5)
Dim pc(5)
Dim npc(5)
Dim Ddnpc(5)
Dim Dnpc(5)
im = CInt(InputBox("Inserisci indice mensile ","Indice ?",1))
stra = InputBox("Quante estrazioni vuoi controllare ?","Estrazioni",100)
rr = CInt(InputBox("scegli ruota (1 - 10 )","ruota",1))
ini = EstrazioneFin - Stra
fin = EstrazioneFin
ruota = rr
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = im Then
For p = 1 To 5
n1(p) = Estratto(es,rr,p)
pos(p) = Posizione(Es,rr,n1(p))
q = 6 - pos(p)
nwpo(p) =(n1(p) - q) Mod 5
If n1(p) Mod 5 <> 0 Then
ruotaa(p) = rr + Int((n1(p)/5))
If pos(p) = 1 And nwpo(p) <> 1 Then
nwpo(p) = 1
End If
If nwpo(p) = 0 And pos(p) <> 1 Then
nwpo(p) = 5
' End If
End If
End If
If ruotaa(p) > 10 Then
ruotaa(p) = FuoriX(ruotaa(p),10)
End If
If n1(p) Mod 5 = 0 Then
ruotaa(p) =(rr - 1) + Int((n1(p)/5))
nwpo(p) =(n1(p) - q) Mod 5
If pos(p) = 1 Then
nwpo(p) = 1
End If
End If
If ruotaa(p) > 10 Then
ruotaa(p) = FuoriX(ruotaa(p),10)
End If
ruo(p) = ruotaa(p)
If nwpo(p) < pos(p) Then
ruo(p) = ruo(p) + 1
If Cadenza(n1(p)) = 6 Then
ruo(p) = ruotaa(p) + 1
End If
If ruo(p) > 10 Then
ruo(p) = FuoriX(ruo(p),10)
End If
If nwpo(p) < 0 Then
If n1(p) = 1 Then
nwpo(p) = pos(p)
ruo(p) = ruotaa(p)
End If
If n1(p) = 2 Then
nwpo(p) = nwpo(p) + 5
ruo(p) = ruotaa(p)
End If
If n1(p) = 3 Then
nwpo(p) = nwpo(p) + 5
ruo(p) = ruotaa(p)
End If
End If
End If
nsp(p) = Estratto(Es,ruo(p),nwpo(p))
Dnsp(p) = Diametrale(nsp(p))
Ddnsp(p) = DiametraleD(nsp(p))
Iso(p) = Estratto(Es,ruotaa(p),pos(p))
Diso(p) = Diametrale(Iso(p))
Ddiso(p) = DiametraleD(Iso(p))
Dn1(p) = Diametrale(n1(p))
Ddn1(p) = DiametraleD(n1(p))
If n1(p) < 5 Then
Pc1(p) =(n1(p) + 10) Mod 5
npc(p) = Estratto(Es,ruotaa(p),Pc1(p))
End If
Pc1(p) = n1(p) Mod 5
If n1(p) Mod 5 = 0 Then
Pc1(p) = 5
End If
npc(p) = Estratto(Es,ruotaa(p),Pc1(p))
Dnpc(p)=Diametrale(npc(p))
Ddnpc(p)= DiametraleD(npc(p))
Next
casi = casi + 1
Scrivi String(155,"=") & " Caso n° " & casi,1
co = co + 1
Scrivi es & " " & "n° " & Format2(im) & " del " & DataEstrazione(es) & _
" " & " da 1^ "& "suo D"&" Dd " & " D estr Dd estr Iso D Dd D nuovo Dd nuovo ",True
Scrivi String(155,"="),1
Scrivi
Scrivi "estratti " & SiglaRuota(ruota) & " " & Format2(n1(1)) & " " & Format2(n1(2)) & " " & Format2(n1(3)) & " " & Format2(n1(4)) & " " & Format2(n1(5)),True
For x = 1 To 5
If ruo(x) = ruotaa(x)Then
Scrivi Format2(n1(x)) & " " & " " & ">>>>> " & _
SiglaRuota(ruotaa(x)) & " > " & " " & pos(x) & "^" & " trova " & Format2(npc(x)) & " "&Format2(Dnpc(x))&" "&Format2(Ddnpc(x))&" rimane " & " a " & " - " & SiglaRuota(ruo(x)) & " In " & nwpo(x) & "^ " & " trova " & _
Format2(nsp(x)) & "----" & " altri numeri " & Format2(Dn1(x)) & " " & Format2(Ddn1(x)) & " " & Format2(Iso(x)) & " " & Format2(Diso(x)) & " " & Format2(Ddiso(x)) & " " & Format2(Dnsp(x))_
& " " & Format2(Ddnsp(x)),True,,- 1,1
End If
If ruo(x) <> ruotaa(x)Then
Scrivi Format2(n1(x)) & " " & " " & ">>>>> " & _
SiglaRuota(ruotaa(x)) & " > " & " " & pos(x) & "^" & " trova " & Format2(npc(x)) &" "& Format2(Dnpc(x))&" "&Format2(Ddnpc(x))& " si trasferisce " & " su " & "> " & SiglaRuota(ruo(x)) & " In " & nwpo(x) & "^ " & " trova " & _
Format2(nsp(x)) & "----" & " altri numeri " & Format2(Dn1(x)) & " " & Format2(Ddn1(x)) & " " & Format2(Iso(x)) & " " & Format2(Diso(x)) & " " & Format2(Ddiso(x)) & " " & Format2(Dnsp(x))_
& " " & Format2(Ddnsp(x)),True,,- 1,1
End If
Next
End If
Next
End SubZetrix
Advanced Premium Member
buon anno
ciao a tutti
provo a vedere lo script di ilegend e dello script di scythe
x scythe non so perche metti l'indice mensile e a cosa serve l'indice mensile
se il calcolo del conteggio si fa sempre ad ogni est ..
ho visto lo script di ilegend e sembra ottimo anche se devo aggiungere la tabella
dei numeri estratti e vedere un po con chi si abbina piu spesso l'ambata contata
lo script di scythe e un po incasinato non si legge bene che ambata si deve giocare
e non ce nemmeno l'impostazione del gioco per vedere i risultati
ciao a tutti
provo a vedere lo script di ilegend e dello script di scythe
x scythe non so perche metti l'indice mensile e a cosa serve l'indice mensile
se il calcolo del conteggio si fa sempre ad ogni est ..
ho visto lo script di ilegend e sembra ottimo anche se devo aggiungere la tabella
dei numeri estratti e vedere un po con chi si abbina piu spesso l'ambata contata
lo script di scythe e un po incasinato non si legge bene che ambata si deve giocare
e non ce nemmeno l'impostazione del gioco per vedere i risultati
Ultima modifica:
ciao, l'indice può sempre essere tolto. l'indice serve di solito per verificare quale estrazione del mese dà risultati migliori del metodo applicato, o almeno, penso sia così.
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 11 gennaio 2025Bari7343015881Cagliari6960180210Firenze2532185554Genova4805403469Milano1007704479Napoli1189013480Palermo3780824477Roma7804383956Torino0813302724Venezia5675361870Nazionale6383193180Estrazione Simbolotto
Bari
3534122320
