X Salvo
- Creatore Discussione chicco3
- Data di inizio
kubes
Senior Member
TRE TERNI IN TRE COLPI -ELISABETTA MASI
Codice:
Option Explicit
Sub Main
Dim Fin,Es,Ini,R1,R2,R3,R4,P1,P2,P3,P4,P5,P6,P7,P8,Clp
Dim E1,E2,E3,E4,A,B,C,D,Caso,Casi,Fr1,fr2,fr3
Dim Ambo1(2),Ambo2(2),Ambo3(2),Terno1(3)
Dim Terno2(3),terno3(3),Ruo(4),Posta(2),Poste(3)
Ruo(1) = TU_
Clp = 8
Posta(2) = 1
Poste(2) = 1
Poste(3) = 1
Scrivi "Progetto - Tre Terni in Tre Colpi di Elisabetta Masi ",1,1,3,,3,,1
Ini = 9520
Fin = EstrazioneFin
Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 10
R2 = R1 + 1
If R2 = 11 Then R2 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
For P2 = 1 To 5
B = Estratto(Es,R2,P2)
If A = B And A <> 10 And A <> 80 And A <> 90 Then
For R3 = 1 To 11
If R3 = 11 Then R3 = 12
If R3 <> R2 And R3 <> R1 Then
For P3 = 1 To 5
C = Estratto(Es,R3,P3)
If C = A Then
'-----------------------------------------------------
For R4 = 1 To 11
If R4 = 11 Then R4 = 12
For P4 = 1 To 5
D = Estratto(Es,R4,P4)
If R4 <> R3 And R4 <> R2 And R4 <> R1 And D = 10 Or D = 80 Or D = 90 Then
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = R4
Ambo1(1) = A : Ambo1(2) = 10
Fr1 = SerieFreqTurbo(Es - 7,Es,Ambo1,Ruo,2)
Ambo2(1) = A : Ambo2(2) = 80
fr2 = SerieFreqTurbo(Es - 7,Es,Ambo2,Ruo,2)
Ambo3(1) = A : Ambo2(2) = 90
fr3 = SerieFreqTurbo(Es - 7,Es,Ambo3,Ruo,2)
If Fr1 = 0 And fr2 = 0 And fr3 = 0 Then
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
If E1 = A Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E1) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = B Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E2) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P7 = 1 To 5
E3 = Estratto(Es,R3,P7)
If E3 = C Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E3) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R4) & " ",1,0
For P8 = 1 To 5
E4 = Estratto(Es,R4,P8)
If E4 = D Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E4) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi
ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
Terno1(1) = A : Terno1(2) = 10 : Terno1(3) = 80
ImpostaGiocata 4,Terno1,Ruo,Poste,Clp
Terno2(1) = A : Terno2(2) = 10 : Terno2(3) = 90
ImpostaGiocata 5,Terno2,Ruo,Poste,Clp
terno3(1) = A : terno3(2) = 80 : terno3(3) = 90
ImpostaGiocata 6,terno3,Ruo,Poste,Clp
Gioca Es
End If
End If
Next
Next
'----------------------------------------------------
End If
Next
End If
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviDistribuzioneEsiti(True) ' false per non scrivere le giocate, altrimenti True
ScriviDistribuzioneCasiInCorso(True) ' come sopra
ScriviResoconto
End Sub
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Riconosco il mio stile in questo script postato da Kubes, non mi ricordavo più d'averlo fatto, però è diverso dalle spiegazioni che ho letto nell'immagine postata da Chicco3, in questo script i numeri fissi 10 e 80 sono da cercare così come sono, cioè devo vedere nelle altre ruote se ci sono questi numeri tra gli estratti, invece nel metodo chiesto da Chicco3 non bisogna cercare i numeri, ma le somme che non è la stessa cosa, poi in questo script faccio la ricerca solo in 3 ruote invece nel metodo richiesto da Chicco3 nell'esempio dell'immagine ci sono coinvolte 7 (SETTE) ruote contemporaneamente
Firenze, Milano, Napoli, Roma, Torino, Venezia e Nazionale, perchè per i due numeri fissi 10 e 80 bisogna rintracciare i numeri che sommandoli fanno appunto 10 e 80 e devono essere isotopi al numero 85 o 90, 85 numero uguale isotopo e 90 numero fisso.
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/kMVhy082\/treterni.png"}[/IMG2]
Riconosco il mio stile in questo script postato da Kubes, non mi ricordavo più d'averlo fatto, però è diverso dalle spiegazioni che ho letto nell'immagine postata da Chicco3, in questo script i numeri fissi 10 e 80 sono da cercare così come sono, cioè devo vedere nelle altre ruote se ci sono questi numeri tra gli estratti, invece nel metodo chiesto da Chicco3 non bisogna cercare i numeri, ma le somme che non è la stessa cosa, poi in questo script faccio la ricerca solo in 3 ruote invece nel metodo richiesto da Chicco3 nell'esempio dell'immagine ci sono coinvolte 7 (SETTE) ruote contemporaneamente
Firenze, Milano, Napoli, Roma, Torino, Venezia e Nazionale, perchè per i due numeri fissi 10 e 80 bisogna rintracciare i numeri che sommandoli fanno appunto 10 e 80 e devono essere isotopi al numero 85 o 90, 85 numero uguale isotopo e 90 numero fisso.
[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/kMVhy082\/treterni.png"}[/IMG2]
Ultima modifica:
kubes
Senior Member
salvo50;n2167743 ha scritto:
CIAO salvo50 SI, credo sia opera tua .
Leggendo l'articolo si nota che questo metodo postato da chicco3 è una versione rinnovata infatti dice in grassetto che ha una nuova modalità di ricerca ..... beh se hai fatto il primo, questo sarà una passeggiata per te !!!! sei un grande !!!
Ciao Salvo e Kubes grazie dello script ma non ci azzecca nulla con quello del giornale.Dei terni infatti ne prende,parliamo sempre indietro bisogna infatti vedere in avanti è,per quello che volevo uno script anche per averlo sotto controllo. Salvo vedi un po cosa riesci a fare con comodo Grazie per il momento a tutti e due. Ciao chicco
adeleadele
Advanced Member >GOLD<
della Masi n'è uscito uno a colpo peccato non l'ho giocato è quello dei numeri isotopi con nella stessa colonna 10 80 90..esempio 24 dicembre palermo roma 70 c'era 80 accanto la condizione vuole stessa colonna ma ho verificato spesso esce anche dopo un mese s'è accanto
ambi pal Roma 70..10 70..80...70 90.. pi i terni terzo colpo ambo ho notato che conviene fare pure i vertibili cioè 10-1 ...0 90 80 8
ambi pal Roma 70..10 70..80...70 90.. pi i terni terzo colpo ambo ho notato che conviene fare pure i vertibili cioè 10-1 ...0 90 80 8
buon giorno a tutti e buona festa .
io ho un listato che tratta questo metodo , chissà se è quello che cercate , ve lo posto , magari vi è utile
buona giornata
io ho un listato che tratta questo metodo , chissà se è quello che cercate , ve lo posto , magari vi è utile
Codice:
Sub main()
Dim ab(2),ter(4),quart(4),ruote(4),ruot(1),poste(2), posti(3)
poste(2)=1 '<-------- solo x gli ambi
posti(2)=1 '<-------- solo x gli ambi in terzina
posti(3)=1 '<-------- solo terno in terzina
quante= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•damper•",100))
If quante= False Then Exit Sub
For es =(EstrazioneFin - quante) To EstrazioneFin
Messaggio CStr(EstrazioneFin - es)
For r1=1 To 9
For p1=1 To 5
a=Estratto(es,r1,p1)
For r2=r1+1 To 10
For p2=1 To 5
b=Estratto(es,r2,p2)
If b=a Then
For r3=r2+1 To 12
If r3=11 Then r3=12
For p3=1 To 5
c=Estratto(es,r3,p3)
If c=a Then
For rx= 1 To 12
If rx<>11 And rx<>r1 And rx<>r2 And rx<>r3 Then
For p4=1 To 5
d=Estratto(es,rx,p4)
If d=10 Or d=80_
Or d=90 Then
If p4=p1 Or p4=p2 Or p4=p3 Then
cont=cont+1
ColoreTesto 2 : Scrivi String(25,32)&"Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r1),3)&""&Space(2)&_
""& StringaEstratti(es,r1)&""&Space(5)&_
""& Format2(a)&""&Space(3)&"("&p1&")"
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r2),3)&""&Space(2)&_
""& StringaEstratti(es,r2)&""&Space(5)&_
""& Format2(b)&""&Space(3)&"("&p2&")"
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(r3),3)&""&Space(2)&_
""& StringaEstratti(es,r3)&""&Space(5)&_
""& Format2(c)&""&Space(3)&"("&p3&")"
ColoreTesto 1
Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&_
""&Left(NomeRuota(rx),3)&""&Space(2)&_
""& StringaEstratti(es,rx)&""&Space(5)&_
""& Format2(d)&""&Space(3)&"("&p4&")"
ColoreTesto 0 : Scrivi
ruote(1)=r1 : ruote(2)=r2 : ruote(3)=r3 : ruote(4)=rx
ab(1)=a : ab(2)=10 : ImpostaGiocata 1,ab,ruote,poste,13
ab(2)=80 : ImpostaGiocata 2,ab,ruote,poste,13
ab(2)=90 : ImpostaGiocata 3,ab,ruote,poste,13
ter(1)=a : ter(2)=10 : ter(3)=80 : ter(4)=90
ImpostaGiocata 4,ter,ruote,posti,13
ruot(1)=11
quart(1)=a :quart(2)=10 :quart(3)=80 :quart(4)=90
ImpostaGiocata 6,quart,ruot,posti,13
Gioca es,True :
Scrivi String(62,151)
End If
End If
Next
End If
Next
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2 : Scrivi "•damper•",1 : End Subbuona giornata
adeleadele
Advanced Member >GOLD<
iERI SERA DI NUOVO AMBO A CAGLIARI anche se non è nella stessa colonna verticale ma è vicino esce deve uscire il 25 con 10 80 90 nelle ruote di rilevamento !
adeleadele
Advanced Member >GOLD<
Franca errore al n' then exit linea 8 .Grazie se puoi correggere.
False Then Exit Sub
False Then Exit Sub
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Adele, il listato funziona, probabilmente non l'hai preso tutto, a me da lo stesso errore se tolgo la prima riga
Sub Main
adeleadele
Advanced Member >GOLD<
oK ORA MI FUNZIONA MA RICORDATE STANNO USCENDO CON ISOTOPI UNO SOPRA ED UNO SOTTO C'ERA 90 ISOTOPO ..10 80 90 TORINO ROMA IO NON L'HO RIGIOCATO.NELL'ULTIMO INFATTI C'E' errore da 20 ma i 20 usciti sono su tre colonne differenti è quello dei tre numeri su colonne differenti. Sta uscendo quello con praticamente identico con numeri isotopi.
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
GRAZIE
Ho fatto lo script e l'ho fatto solo con 3 ruote, se dovesse capitare con 4 ruote la ricerca la fa in due volte, invece lo script postato da Franca46 la ricerca la fa sempre con 4 ruote, poi non ha rispettato la regola che impone che le prime 2 ruote devono essere consecutive, quindi nel mio script quella dei 20 non c'è perché le prime 2 ruote non sono consecutive, poi la Masi ha messo anche la regola che se i numeri pronosticati sono usciti nei sette colpi precedenti, la previsione non va giocata, questa regola l'ho predisposta, ma non l'ho inserita, per inserirla bisogna togliere lo spunto a questa riga
'If SerieFreqTurbo(Es - 7,Es,Qua,Ruote,2) = 0 Then
e al relativo
'End If
Ecco lo script
Imaging, Bubu, Sax71, Blacklotto, Antonio Pagano, I Legend, Rudivall, Toon
GRAZIE
Ho fatto lo script e l'ho fatto solo con 3 ruote, se dovesse capitare con 4 ruote la ricerca la fa in due volte, invece lo script postato da Franca46 la ricerca la fa sempre con 4 ruote, poi non ha rispettato la regola che impone che le prime 2 ruote devono essere consecutive, quindi nel mio script quella dei 20 non c'è perché le prime 2 ruote non sono consecutive, poi la Masi ha messo anche la regola che se i numeri pronosticati sono usciti nei sette colpi precedenti, la previsione non va giocata, questa regola l'ho predisposta, ma non l'ho inserita, per inserirla bisogna togliere lo spunto a questa riga
'If SerieFreqTurbo(Es - 7,Es,Qua,Ruote,2) = 0 Then
e al relativo
'End If
Ecco lo script
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Salvo50,Es
Dim R1,R2,R3,P1,P2,P3,Caso,Casi
Dim Ambo1(2),Ambo2(2),Ambo3(2),Qua(5)
Dim Terno1(3),Terno2(3),Terno3(3)
Dim Ruote(3),Ruo(4),Posta(2),Poste(3)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10170))'6846,7697
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,9))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(14) & " Tre Terni In Tre Colpi di Elisabetta Masi script Salvo50" & Space(14),1,,4,,3,,1
Posta(2) = 1
Poste(2) = 1
Poste(3) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 9
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
R2 = R1 + 1
For P2 = 1 To 5
B = Estratto(Es,R2,P2)
If A = B And A <> 10 And A <> 80 And A <> 90 Then
For R3 = R2 + 1 To 12
If R3 = 11 Then R3 = 12
For P3 = 1 To 5
C = Estratto(Es,R3,P3)
If C = 10 Or C = 80 Or C = 90 Then
If A > 0 And B > 0 And C > 0 Then
Ambo1(1) = A : Ambo1(2) = 10
Ambo2(1) = A : Ambo2(2) = 80
Ambo3(1) = A : Ambo3(2) = 90
Terno1(1) = A : Terno1(2) = 10 : Terno1(3) = 80
Terno2(1) = A : Terno2(2) = 10 : Terno2(3) = 90
Terno3(1) = A : Terno3(2) = 80 : Terno3(3) = 90
Qua(1) = A : Qua(2) = C : Qua(3) = 10 : Qua(4) = 80 : Qua(5) = 90
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = TU_
'If SerieFreqTurbo(Es - 7,Es,Qua,Ruote,2) = 0 Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
ReDim MatrCasella(3,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R2
MatrCasella(2,1) = P2
MatrCasella(3,0) = R3
MatrCasella(3,1) = P3
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(28) & "PRONOSTICO",1,,,2
Scrivi Space(31) & "AMBI",1,,,1
Scrivi Space(26) & "Ambo1 " & Format2(A) & " 10",1
Scrivi Space(26) & "Ambo2 " & Format2(A) & " 80",1
Scrivi Space(26) & "Ambo3 " & Format2(A) & " 90",1
Scrivi Space(30) & "TERNI",1,,,1
Scrivi Space(24) & "Terno1 " & Format2(A) & " 10 80",1
Scrivi Space(24) & "Terno2 " & Format2(A) & " 10 90",1
Scrivi Space(24) & "Terno3 " & Format2(A) & " 80 90",1
Scrivi
ImpostaGiocata 1,Ambo1,Ruote,Posta,Clp
ImpostaGiocata 2,Ambo2,Ruote,Posta,Clp
ImpostaGiocata 3,Ambo3,Ruote,Posta,Clp
ImpostaGiocata 4,Terno1,Ruo,Poste,Clp
ImpostaGiocata 5,Terno2,Ruo,Poste,Clp
ImpostaGiocata 6,Terno3,Ruo,Poste,Clp
Gioca Es,1
'End If
End If
End If
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubUltima estrazione Lotto
-
Estrazione del lotto
venerdì 19 aprile 2024Bari3905818973Cagliari5621019003Firenze0556682709Genova4250902783Milano1671298504Napoli2919236350Palermo3554335761Roma1729435574Torino6960030126Venezia0557594334Nazionale3043646521Estrazione Simbolotto
Genova
0220251219
