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.
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
salvo50;n2167743 ha scritto: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]
kubes;n2167744 ha scritto:
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 Sub
Ciao a TuttiFranca errore al n' then exit linea 8 .Grazie se puoi correggere.
False Then Exit Sub
Imaging, Bubu, Sax71, Blacklotto, Antonio Pagano, I Legend, Rudivall, ToonoK 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.
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 Sub