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.