X Salvo

[franca46]

buona domenica a tutti , il listato che ho postato non è farina del mio sacco.
di questo listato ne ho anche un'altra versione , se volete la posto

 

[franca46]

buona domenica a tutti , il listato che ho postato non è farina del mio sacco.
di questo listato ne ho anche un'altra versione , se volete la posto

Sub main()
Dim ab(2),ter(3),num(4),ruote(3),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•",30))
If quante= False Then Exit Sub
For es =(EstrazioneFin - quante) To EstrazioneFin
   Messaggio CStr(EstrazioneFin - es)

     For r1=1 To 10
        For p1=1 To 5
          a=Estratto(es,r1,p1)
                   
            For r2=r1+1 To 12
               If r2=11 Then r2=12

                 For p2=1 To 5

                   b=Estratto(es,r2,p2)
                     If b=a Then
                                                   
                                   For rx= 1 To 12
                          If rx<>11 And rx<>r1 And rx<>r2 Then
                                          For p3=1 To 5
                                            d=Estratto(es,rx,p3)

                                              If d=10 Or d=80_
                                              Or d=90 Then
 
                                           If p3=p1 Or p3=p2 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&")"
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)&"("&p3&")"
ColoreTesto 0 : Scrivi

ruote(1)=r1 : ruote(2)=r2 : ruote(3)=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
ImpostaGiocata 4,ter,ruote,posti,13

ter(2)=80 : ter(3)=90
ImpostaGiocata 5,ter,ruote,posti,13

ter(2)=90 : ter(3)=10
ImpostaGiocata 6,ter,ruote,posti,13

ruot(1)=11

num(1)=a
num(2)=10
num(3)=80
num(4)=90
ImpostaGiocata 7,num,ruot,posti,13

Gioca es : Scrivi String(62,151)                                 
                                     
                                               End If
                                          End If
                                       Next
                                  End If
                               Next
                          End If
                       Next
                    Next
            Next
         Next
      Next
ScriviResoconto
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub

 

[salvo50]

buona domenica a tutti , il listato che ho postato non è farina del mio sacco.
di questo listato ne ho anche un'altra versione , se volete la posto

Ciao a Tutti.

Ciao Franca46

Lo so che il listato non è tuo ma di Damper che secondo me è uno bravo a fare gli script, siccome ho letto questa versione di tre terni in tre colpi, ho fatto notare le differenze

 

[adeleadele]

Grazie puo' uscire a genova l'8 con 38 35 64 9 90

 

[adeleadele]

Se noti i casi negativi sono i numeri consecutivi non isotopi quelli escono l'unico non uscito è l'8 fa errori ora isotopo c'è il 5 anche se escono maggiormente isotopi e consecutivi.

 

[CICALOTTO]

Buonasera, riporto UP questa discussione e vi chiedo una cosa, come mai non prende in considerazione anche la ruota di Bari dove in questo caso ad esempio è presente il numero 10? mentre in una altra estrazione lo considera per la successiva previsione, forse perchè essendo la prima ruota BARI non la riconosce? Ovviamente riferito a questa versione dello script, GRAZIE find'ora se qualche anima buona mi riesce ad aiutare. GRAZIE

TRE TERNI IN TRE COLPI -ELISABETTA MASI

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