script per ambi

[alexvisco]

Salve
Vorrei sapere se fosse possibile uno script per ambi secchi , in pratica il metodo sarebbe il seguente:
- Come da esempio estrazione, si trovano due numeri uguali isotopi (nostro caso Ruote Napoli, Palermo)
- Di questo numero nel nostro caso è il (25) su ruote si effettua il diametrale in decina ( aggiungendo +5 o - 5) ma si deve rimanere nella decina ( nel nostro caso è 20)
- Si trova la figura del numero principale ( nostro caso 25), quindi 7
- le combinazioni da giocare sarebbero ( 25-20 ) (20-7) (25-7)sempre su ruote Napoli e Palermo per i successivi colpi.
Pertanto sarebbe possibile creare uno script che ricerca nelle estrazioni due numeri uguali isotopici e crea in automatico la combinazione come descritto?

 

[salvo50]

Vedi se può andare

Option Explicit
Sub Main
   Dim FIn,Es2,Ini,A,B,C,D,Clp,Es,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi,DiamDA,FigB
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(2),Post1(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9590))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & " METODO ISOTOPI UGUALI chiesto da ALEXVISCO  - SCRIPT SALVO50",1,,4,,3,,1
   Post1(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      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
               B = Estratto(Es,R2,P1)
               If A = B Then
                  DiamDA = DiametraleD(A)
                  FigB = Figura(B)
                  If A <> FigB 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
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " ",1,0
                     For P2 = 1 To 5
                        E1 = Estratto(Es,R1,P2)
                        If E1 = A Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E1) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R2) & " ",1,0
                     For P3 = 1 To 5
                        E2 = Estratto(Es,R2,P3)
                        If E2 = B Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi
                     Scrivi " Estratto Isotopo uguale " & Format2(A) & "  Diametrale in Decina di ",1,0,,1
                     Scrivi Format2(B) & " è " & Format2(DiamDA),1,,,1
                     Scrivi Space(42) & " Figura di " & Format2(B) & " è " & Format2(FigB),1,,,2
                     Scrivi
                     Ruo(1) = R1
                     Ruo(2) = R2
                     Ambo1(1) = A : Ambo1(2) = DiamDA
                     ImpostaGiocata 1,Ambo1,Ruo,Post1,Clp,2
                     Ambo2(1) = DiamDA : Ambo2(2) = FigB
                     ImpostaGiocata 2,Ambo2,Ruo,Post1,Clp,2
                     Ambo3(1) = B : Ambo3(2) = FigB
                     ImpostaGiocata 3,Ambo3,Ruo,Post1,Clp,2
                     Gioca Es,1
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[alexvisco]

Vedi se può andare

Option Explicit
Sub Main
Dim FIn,Es2,Ini,A,B,C,D,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi,DiamDA,FigB
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(2),Post1(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9590))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,10))
Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
Scrivi Space(12) & " METODO ISOTOPI UGUALI chiesto da ALEXVISCO - SCRIPT SALVO50",1,,4,,3,,1
Post1(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
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
B = Estratto(Es,R2,P1)
If A = B Then
DiamDA = DiametraleD(A)
FigB = Figura(B)
If A <> FigB 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
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P3 = 1 To 5
E2 = Estratto(Es,R2,P3)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi " Estratto Isotopo uguale " & Format2(A) & " Diametrale in Decina di ",1,0,,1
Scrivi Format2(B) & " è " & Format2(DiamDA),1,,,1
Scrivi Space(42) & " Figura di " & Format2(B) & " è " & Format2(FigB),1,,,2
Scrivi
Ruo(1) = R1
Ruo(2) = R2
Ambo1(1) = A : Ambo1(2) = DiamDA
ImpostaGiocata 1,Ambo1,Ruo,Post1,Clp,2
Ambo2(1) = DiamDA : Ambo2(2) = FigB
ImpostaGiocata 2,Ambo2,Ruo,Post1,Clp,2
Ambo3(1) = B : Ambo3(2) = FigB
ImpostaGiocata 3,Ambo3,Ruo,Post1,Clp,2
Gioca Es,1
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

Grandissimo Salvo!!!