IL SOLITO

[Alien.]

script


https://forum.lottoced.com/forum/lo...1-ambata-due-ambi-e-terni-secchi-su-due-ruote




grazie.

 

[Pomito]

Eccoti lo script. spero che vada bene
Sub Main()
Dim ruote(10): Dim ruotee(3)
Dim n1(4)
Dim n2(5): Dim nn(6): Dim n(4): Dim nn1(2)
Dim posta(1)
Dim poste(10): Dim postee(2)
posta(1) = 1
postee(2) = 1
poste(2) = 1
poste(3) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",100)
k = InputBox("per quanti colpi?","colpi di gioco",13)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
r2 = r1 + 1
For p1 = 1 To 5
For p2 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
If p1 = p2 Then
'---------------------------------------------
If Abs(a - b) = 11 Then
ok = 1
'-----------------------------------------------
If ok = 1 Then
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & "] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(b) & "] ",1
ruote(1) = r1
ruote(2) = r2
ruotee(1) = r1
ruotee(2) = r2
ruotee(3) = TT_
n2(1) =(91 - a)
n2(2) =(91 - b)
n1(1) = Fuori90(a + b)
ImpostaGiocata 1,n1,ruote,posta,k,1
nn1(1) = n1(1)
nn1(2) = n2(1)
ImpostaGiocata 2,nn1,ruotee,postee,k,2
nn1(1) = n1(1)
nn1(2) = n2(2)
ImpostaGiocata 3,nn1,ruotee,postee,k,2
nn(1) = n1(1)
nn(2) = DiametraleD(n2(1))
nn(3) = DiametraleD(n2(2))
ImpostaGiocata 4,nn,ruote,poste,k,3
nn(1) = n1(1)
nn(2) = Vert(n2(1))
nn(3) = Vert(n2(2))
ImpostaGiocata 5,nn,ruote,poste,k,3
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
'Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub

 

[claudio8]

x Pomito, bravo,
ma lo script può essere migliorato.

hai utilizzando un ciclo for e dei condizionamenti if in più.

For p2 = 1 To 5... If p1 = p2 Then .... 'If ok = 1 Then

Sub Main()
     Dim ruote(10): Dim ruotee(3)
     Dim n1(4)
     Dim n2(5): Dim nn(6): Dim n(4): Dim nn1(2)
     Dim posta(1)
     Dim poste(10): Dim postee(2)
     posta(1) = 1
     postee(2) = 1
     poste(2) = 1
     poste(3) = 1
     ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",150)
     k = InputBox("per quanti colpi?","colpi di gioco",13)
     ini = EstrazioneFin - ce
     fin = EstrazioneFin
     casi = 0
     'ok = 0
     For es = ini To fin
         ' Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1) & " pos. " & p1
          Call AvanzamentoElab(Ini,fin,es)
          For r1 = 1 To 9
               r2 = r1 + 1
               For p1 = 1 To 5
               Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1) & " pos. " & p1
                    'For p2 = 1 To 5
                    a = Estratto(es,r1,p1)
                    'b = Estratto(es,r2,p2)
                    b = Estratto(es,r2,p1)
                    'If p1 = p2 Then
                    '---------------------------------------------
                    If Abs(a - b) = 11 Then
                         'ok = 1
                         '-----------------------------------------------
                         'If ok = 1 Then
                         casi = casi + 1
                         Scrivi String(100,"°") & " Caso n°" & casi,1
                         ColoreTesto 1
                         'Scrivi DataEstrazione(es), non (es,1)
                         Scrivi GetInfoEstrazione(es) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ] * [ " & Format2(a) & "]",1
                         Scrivi GetInfoEstrazione(es) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ] * [ " & Format2(b) & "]",1
                         ruote(1) = r1
                         ruote(2) = r2
                         ruotee(1) = r1
                         ruotee(2) = r2
                         ruotee(3) = TT_
                         n2(1) =(91 - a) ' abb1
                         n2(2) =(91 - b) ' abb2
                         n1(1) = Fuori90(a + b) ' ambata
                         ImpostaGiocata 1,n1,ruote,posta,k,1
                         nn1(1) = n1(1)
                         nn1(2) = n2(1)
                         ImpostaGiocata 2,nn1,ruotee,postee,k,2
                         nn1(1) = n1(1)
                         nn1(2) = n2(2)
                         ImpostaGiocata 3,nn1,ruotee,postee,k,2
                         nn(1) = n1(1)
                         nn(2) = DiametraleD(n2(1))
                         nn(3) = DiametraleD(n2(2))
                         ImpostaGiocata 4,nn,ruote,poste,k,3
                         nn(1) = n1(1)
                         nn(2) = Vert(n2(1))
                         nn(3) = Vert(n2(2))
                         ImpostaGiocata 5,nn,ruote,poste,k,3
                         Gioca es,1
                         'End If
                    End If
                    'End If
                    'Next
               Next
          Next
     Next
     'Next
     Scrivi
     Scrivi String(100,"*")
     ColoreTesto 2
     Scrivi" casi trovati : " & casi,1
     ColoreTesto 0
     Scrivi String(100," * ")
     ColoreTesto 0
     ScriviResoconto
End Sub

 

[Pomito]

Grazie claudio8 per il miglioramento

 

[Alien.]