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.
Numeri divisori a 4
- Creatore Discussione Zetrix
- Data di inizio
Zetrix
Advanced Premium Member
questa e la tabella i numeri 4 e 8 si escludono perche se aggiungi 4 a 4 fa 44 e ce gia il 44
cosi anche l'8 se aggiungi 8 a 8 ce gia l'88
quindi il 4 e 8 non si devono considerare nello script..invece tutti gli altri numeri si devono scrivere nello script
dal 12 sino al 88 cioe tutti i numeri colorati in verde..
questi numeri divisori a 4 sono importanti perche da questi numeri possiamo determinare qualsiasi divisione
con gli altri numeri..
es, 8788 : 4 = 2197
davanti a un numero divisore a 4 possiamo scrivere tanti numeri poichè la divisione sarà sempre esatta..
da qui l'idea di passare dalla teoria alla pratica sui numeri estratti..
Ultima modifica:
Zetrix
Advanced Premium Member
12.16.20.24.28.32.36.40.44.48.52.56.60.64.68.72.76.80.84.88
x Salvo 50
ecco la tabella, adesso ti spiego come deve scrivere lo script..
scrivo un es,
si devono considerare i numeri divisori a 4 solo nelle pos , 2,3,4,5,
es, su torino il 12
lo script deve scrivere questo calcolo 4712 : 4 = 1178
l'ambo scrive 11 78 TO (TT)
e cosi su tutti gli altri numeri divisori a 4
se ci sono dei dubbi mi scrivi qua e quanto posso ti rispondo..
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
è stato semplice, pensavo fosse più tosto
Codice:
Option Explicit
Sub Main
Dim Caso,Casi,Es,R1,P1,P2,A,B,C,D
Dim Fin,Ini,Clp,E1
Dim Num1,Num2
Dim Ambo(2)
Dim Posta(2),Ruo(2)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,10650)
Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo Numeri Divisori a 4 - Autore Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
Posta(2) = 1
ResetTimer
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
Messaggio Es & " " & TempoTrascorso
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 2 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P1 - 1)
If A > 9 And B > 3 Then
If A Mod 4 = 0 Then
C = B & A
D =(C / 4)
If D > 999 Then Num1 = Left(D,2)
If D <= 999 Then Num1 = Left(D,1)
Num2 = Fuori90(Right(D,2))
If Num1 <> Num2 Then
Ambo(1) = Num1 : Ambo(2) = Num2
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then ColoreTesto 2
If E1 = B Then ColoreTesto 1
If E1 <> A And E1 <> B Then ColoreTesto 0
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(9) & Format2(B) & " unito a " & Format2(A) & " = " & Format2(C),1,0
Scrivi " / 4 = " & Format2(D),1
Scrivi
Ruo(1) = R1
Ruo(2) = TT_
ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
Gioca Es,,,1
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End SubZetrix
Advanced Premium Member
Ciao Salvo50,
grazie per l'interesse dello script credevo che era un po difficile da fare questo script
la difficoltà per me era come splittare i due numeri della divisione e scrivere l'ambo
piu tardi guardo lo script e vediamo se e tutto ok
ma devo vedere se da dei risultati altrimenti dovremmo fare una modifica e impostare su due ruote
ma queste cose te le spiego dopo come deve scrivere lo script..
ho notato diverse cose con i numeri divisori a 4 soprattutto sulle due ruote..
dopo quanto posso ti farò vedere un esempio di gioco..
grazie per l'interesse dello script credevo che era un po difficile da fare questo script
la difficoltà per me era come splittare i due numeri della divisione e scrivere l'ambo
piu tardi guardo lo script e vediamo se e tutto ok
ma devo vedere se da dei risultati altrimenti dovremmo fare una modifica e impostare su due ruote
ma queste cose te le spiego dopo come deve scrivere lo script..
ho notato diverse cose con i numeri divisori a 4 soprattutto sulle due ruote..
dopo quanto posso ti farò vedere un esempio di gioco..
Ultima modifica:
Zetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim Caso,Casi,Es,R1,P1,P2,A,B,C,D,R2
Dim Fin,Ini,Clp,E1
Dim Num1,Num2
Dim Ambo(2)
Dim Posta(2),Ruo(2)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,2611)
Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo Numeri Divisori a 4 - Autore Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
Posta(2) = 1
ResetTimer
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
Messaggio Es & " " & TempoTrascorso
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 2 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P1 - 1)
If A > 9 And B > 3 Then
If A Mod 4 = 0 Then
C = B & A
D =(C / 4)
If D > 999 Then Num1 = Left(D,2)
If D <= 999 Then Num1 = Left(D,1)
Num2 = Fuori90(Right(D,2))
If Num1 <> Num2 Then
Ambo(1) = Num1 : Ambo(2) = Num2
Caso = Caso + 1
Casi = Casi + 1
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = P1
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = P1-1
'MatriceCaselleDaEvid(3,0) = R2
'MatriceCaselleDaEvid(3,1) = P1
'MatriceCaselleDaEvid(4,0) = R2
'MatriceCaselleDaEvid(4,1) = P2
Call DisegnaEstrazione(Es,MatriceCaselleDaEvid)
ColoreTesto 1
Scrivi String(90,"·") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"·") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then ColoreTesto 2
If E1 = B Then ColoreTesto 1
If E1 <> A And E1 <> B Then ColoreTesto 0
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(9) & Format2(B) & " <> " & Format2(A) & " = " & Format2(C),1,0
Scrivi " / 4 = " & Format2(D),1
Scrivi
Ruo(1) = R1
Ruo(2) = TT_
ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
Gioca Es,,,1
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Subx Salvo 50
ho aggiunto la tabella delle estr, io lavoro sempre con la tabella delle estr,
ho visto il resoconto nelle ultime 10 estr su 94 casi sono usciti solo 12 ambi su tutte
troppi pochi
allora proviamo una variante su due ruote di gioco
ma qui ti devo spiegare come impostare la condizione del gioco sia per ambata che per ambo
ripasso dopo e ti spiego come fare..
Zetrix
Advanced Premium Member
x Salvo 50
allora vediamo questa tabella, a TO abbiamo la condizione del 1388:4=347
su FI ce il 3 isotopo al 13 quindi lo script deve scrivere l'ambata 47 FI la ruota principale e TO la secondaria
questo per chi vuole tentare l'ambata solo sulla ruota principale..
invece per ambo si calcola il diam.(41numero spia), (41+45=86)
ambo 47 86 ruote di gioco e tutte
inoltre se vediamo nella stessa estr ce un altra condizione su NA ce il 47 isotopo al 88 quindi si deduce che manca il 3
questa e l'ambata su NA E TO, per ambo si calcola sempre il diam,(73 numero spia), (73-45=28) ambo 3-28 su NA TO -TT
spero che questa tabella sia stata spiegativa per scrivere nello script..
se no sarebbe troppo difficile da spiegare queste cose nel forum..
lo script deve scrivere esattamente come e descritto in questa tabella..
Ultima modifica:
Zetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim Caso,Casi,Es,R1,P1,P2,A,B,C,D,R2
Dim Fin,Ini,Clp,E1,E,F
Dim Num1,Num2
Dim AMBO1(2),AMBO2(2),AMBATA(2)
Dim POSTA(2),POSTE(2),RUOTE(4),RUOTA(2)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,2602)
'Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo Numeri Divisori a 4 - Autore Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
POSTA(1) = 1
POSTE(2) = 2
ResetTimer
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
Messaggio Es & " " & TempoTrascorso
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 12
For R2 = 1 To 12
If R1 = 11 Then R1 = 12
If R2 = 11 Then R2 = 12
For P1 = 2 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P1 - 1)
E = Estratto(Es,R2,P1)
F = Estratto(Es,R2,P1 - 1)
If A > 9 And B > 3 Then
If A Mod 4 = 0 Then
C = B & A
D =(C / 4)
If D > 999 Then Num1 = Left(D,2)
If D <= 999 Then Num1 = Left(D,1)
Num2 = Fuori90(Right(D,2))
If Num1 <> Num2 Then
If E = Num2 Then
'
AMBO1(1) = Num1 : AMBO1(2) = Diametrale(F)
AMBO2(1) = Num1 : AMBO2(2) = F
Caso = Caso + 1
Casi = Casi + 1
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = P1
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = P1 - 1
MatriceCaselleDaEvid(3,0) = R2
MatriceCaselleDaEvid(3,1) = P1
MatriceCaselleDaEvid(4,0) = R2
MatriceCaselleDaEvid(4,1) = P1 - 1
Call DisegnaEstrazione(Es,MatriceCaselleDaEvid)
ColoreTesto 1
Scrivi String(90,"·") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"·") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 2 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then ColoreTesto 2
If E1 = B Then ColoreTesto 1
If E1 <> A And E1 <> B Then ColoreTesto 0
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(9) & Format2(B) & " <> " & Format2(A) & " = " & Format2(C),1,0
Scrivi " / 4 = " & Format2(D),1
Scrivi
AMBATA(1) = Num1
RUOTA(1) = R1
RUOTA(2) = R2
RUOTE(1) = R1
RUOTE(2) = R2
RUOTE(3) = TT_
RUOTE(4) = NZ_
ImpostaGiocata 1,AMBATA,RUOTA,POSTA,9,1
Gioca Es,,,1
Scrivi
ImpostaGiocata 1,AMBO1,RUOTE,POSTE,0
ImpostaGiocata 2,AMBO2,RUOTE,POSTE,0
Gioca Es,,,1
End If
End If
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
'ScriviResoconto
Scrivi TempoTrascorso
End Subx Salvo 50
lo script non e troppo complicato ho aggiunto l'ambata e l'ambo su tutte
ho notato alcune volte fa l'abb il numero di calcolo e altre volte il diam. del numero di calcolo..
Zetrix
Advanced Premium Member
02.10.2025 RO 39 25 05 58 80
02.10.2025 TO 69.06.65.77.70
58 <> 80 = 5880 / 4 = 1470
Numeri in gioco : 14 su RO TO per Estratto
[RO] [.. .. .. 14 ..] C.1 Estratto 02613 [158 - 03/10/2025] [68.15.44.14.74]
[TO] [.. .. .. .. ..] C.1 02613 [158 - 03/10/2025] [42.02.58.19.38]
Interrotta per esito verificato
[RO] [68 .. .. 14 ..] C.1 Ambo 02613 [158 - 03/10/2025] [68.15.44.14.74]
58+80=138 ? -----algebra
68+70=138
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao Zetrix
Quello che hai fatto è semplice anche per me che sono una schiappa in fatto di script
ma tu non hai fatto quello che volevi al post 9, era quello che era ed è complicato per me
poi spiegami perchè hai tolto la scritta unito ed hai messo il simbolo di diverso
ne prendo uno a caso
35 <> 16 = 3516 / 4 = 879
questo scritto così dice 35 diverso da 16 = 3516, non ha senso
Ciao Zetrix
Quello che hai fatto è semplice anche per me che sono una schiappa in fatto di script
ma tu non hai fatto quello che volevi al post 9, era quello che era ed è complicato per me
poi spiegami perchè hai tolto la scritta unito ed hai messo il simbolo di diverso
ne prendo uno a caso
35 <> 16 = 3516 / 4 = 879
questo scritto così dice 35 diverso da 16 = 3516, non ha senso
Zetrix
Advanced Premium Member
Ciao Salvo 50
rispondo alla tua domanda sul fatto perche ho cambiato la scritta unito e ho messo il simbolo di diverso <>
in verità volevo scrivere questo simbolo ↔
ma non sapevo come scrivere questo simbolo e ho messo il simbolo di diverso <>
in quanto al post 9 non ho scritto tutte le combinazioni di gioco ma solo una combinazione di gioco..
se no diventava un po complicato fare lo script..
rispondo alla tua domanda sul fatto perche ho cambiato la scritta unito e ho messo il simbolo di diverso <>
in verità volevo scrivere questo simbolo ↔
| equivalente ↔ |
ma non sapevo come scrivere questo simbolo e ho messo il simbolo di diverso <>
in quanto al post 9 non ho scritto tutte le combinazioni di gioco ma solo una combinazione di gioco..
se no diventava un po complicato fare lo script..
Ultima modifica:
Zetrix
Advanced Premium Member
x Salvo50
qui puoi vedere tutti i simboli matematici e geometrici..
www.rapidtables.org
qui puoi vedere tutti i simboli matematici e geometrici..
Elenco simboli matematici (+, -, x, /, =, ...)
Elenco di tutti i simboli matematici e il significato: uguaglianza, disuguaglianza, parentesi, più, meno, tempi, divisione, potenza, radice quadrata, percentuale, per mille, ...
www.rapidtables.org
Zetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim Caso,Casi,Es,R1,P1,P2,A,B,C,D,R2
Dim Fin,Ini,Clp,E1
Dim Num1,Num2
Dim Ambo(2)
Dim Posta(2),Ruo(2)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,2611)
Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,10)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo Numeri Divisori a 4 - Autore Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
Posta(2) = 1
ResetTimer
For Es = Ini To Fin
' If IsUltimaDelMese(Es) Then
Messaggio Es & " " & TempoTrascorso
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 2 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P1 - 1)
If A > 9 And B > 3 Then
If A Mod 4 = 0 Then
C = B & A
D =(C / 4)
If D > 999 Then Num1 = Left(D,2)
If D <= 999 Then Num1 = Left(D,1)
Num2 = Fuori90(Right(D,2))
If Num1 <> Num2 Then
Ambo(1) = Num1 : Ambo(2) = Num2
Caso = Caso + 1
Casi = Casi + 1
ReDim MatriceCaselleDaEvid(4,1)
MatriceCaselleDaEvid(1,0) = R1
MatriceCaselleDaEvid(1,1) = P1
MatriceCaselleDaEvid(2,0) = R1
MatriceCaselleDaEvid(2,1) = P1 - 1
'MatriceCaselleDaEvid(3,0) = R2
'MatriceCaselleDaEvid(3,1) = P1
'MatriceCaselleDaEvid(4,0) = R2
'MatriceCaselleDaEvid(4,1) = P2
Call DisegnaEstrazione(Es,MatriceCaselleDaEvid)
ColoreTesto 1
Scrivi String(90,"·") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"·") & " Estrazione " & FormattaStringa(Es,"00000") & " Caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then ColoreTesto 2
If E1 = B Then ColoreTesto 1
If E1 <> A And E1 <> B Then ColoreTesto 0
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(9) & Format2(B) & " - " & Format2(A) & " <-> " & Format2(C),1,0
Scrivi " / 4 = " & Format2(D),1
Scrivi
Ruo(1) = R1
Ruo(2) = TT_
ImpostaGiocata 1,Ambo,Ruo,Posta,Clp
Gioca Es,,,1
End If
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi TempoTrascorso
End Sub03.10.2025 BA 53 23 54 72 37
54 - 72 <-> 5472 / 4 = 1368
ho cambiato il simbolo ho messo il simbolo equivalente <->
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ok, era perchè non riuscivo a capire
Riguardo al post 9, dove ci sono 3 ruote lo posso fare, è che non capisco
di dove è uscito quel 47, cioè mi devi spiegare come l'hai ottenuto e poi
mi devi fare degli esempi anche con altri numeri, anche fittizi inventati
se non li trovi nelle estrazioni.
Riguardo al post 9, dove ci sono 3 ruote lo posso fare, è che non capisco
di dove è uscito quel 47, cioè mi devi spiegare come l'hai ottenuto e poi
mi devi fare degli esempi anche con altri numeri, anche fittizi inventati
se non li trovi nelle estrazioni.
Ultima modifica:
Zetrix
Advanced Premium Member
le ruote di calcolo devono essere due ruote..
forse nel post 9 era un po difficile perche erano due condizioni di gioco..
ma aspetta prima di completare lo script devo vedere quale e la condizione migliore
e quale abb per ambo si deve scrivere in teoria si usa la base del diametrale
ma non sempre fa il diametrale e questo e uno dei problemi del gioco del lotto..
si devono adattare alcuni abb in base a delle condizioni del gioco..
Zetrix
Advanced Premium Member
14 = 1 Dispari ...........4 Pari
59 = 5 Dispari ...........9 Dispari
63 = 6 Pari .................3 Dispari
72 = 7 Dispari ...........2 Pari
68 = 6 Pari .................8 Pari
x Salvo50
un altro studio che sto facendo sono i numeretti pari e dispari
il 14 e 63 hanno una relazione tra loro ma non intesa come una relazione di amicizia
ma una relazione tra loro..
es,
14
63
------
77 (1+6=7 <-> 4+3=7)
la dist che intercorre tra il 14 e 63 e 41
e questo 41 e importante e poi ce quel 59 intermezzo anch'esso e importante ma serve per ambo..
ti spiego meglio cosa e questa relazione se no e difficile che comprendi queste cose..
14 <-> 41 ...numeri a specchi
63 <-> 36 ...numeri a specchi
--------------
77 <-> 77
adesso devo vedere come impostare la condizione del gioco sulle estr
magari piu avanti vedremo se si puo fare uno script..
chi gioca a bari deve fare attenzione al 41, ieri sera il 41 e uscito su napoli la ruota riflessa di bari..
e all'ambo 41 59 ba e tutte
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 03 ottobre 2025Bari5323547237Cagliari0651361112Firenze6824194746Genova8456758626Milano1585082519Napoli7027424106Palermo6910861804Roma6815441474Torino4202581938Venezia6204768670Nazionale6523815475Estrazione Simbolotto
3504421031
