Novità

Per Salvo50 o altro esperto

sorujoe

Advanced Member
Ti chiedo se puoi fare in modo che lo script
1. prenda anche le coppie NON ISOTOPE
2. che dei 4 numeri di calcolo mi indichi le relative posizioni
3. Includimi la Nazionale al momento lavora su 10 ruote


Grazie

Sub Main() Dim n,t,r1,r2,n1,n2,n3,n4 Dim x(10),am(10),am1(10),am2(10) Dim ruota(2),ruote(10),posta(5),poste(5),poste1(5) poste1(1) = 1 posta(2) = 1.5 posta(3) = 0.4 posta(4) = 0.1 poste(2) = 1 For n = 9600 To EstrazioneFin Messaggio DataEstrazione(n) : t = 1 Do While DISAMBO(n,t,r1,n1,n2,r2,n3,n4) = True ruota(1) = r1 ruota(2) = r2 ruote(1) = r1 ruote(2) = r2 ruote(3) = 11 ruote(4) = 12 x(1) = n1 x(2) = n2 x(3) = n3 x(4) = n4 If NumeriRipetuti(x) = False Then OrdinaMatrice x,1 y1 = Fuori90(x(4) + x(1)) y2 = Fuori90(x(2) + x(3)) y3 = Distanza(x(4),x(3)) y4 = Distanza(x(1),x(2)) y5 = Distanza(x(4),x(2)) y6 = Distanza(x(1),x(3)) If y1 = y2 And y3 = y4 And y5 = y6 Then Scrivi "----------------------------------------------------------" : ColoreTesto 2 Scrivi " RUOTA ESTRATTI ORDINATI Somma Oriz. D.V - D.D." : ColoreTesto 0 Scrivi FormatSpace(NomeRuota(r1),10) & " " & Format2(CInt(n1)) & " " & Format2(CInt(n2)) & " " & _ Format2(x(4)) & " " & Format2(x(1)) & " " & FormatSpace(y1,3) & " " & FormatSpace(y3,3) & " " & FormatSpace(y5,3),1 Scrivi FormatSpace(NomeRuota(r1 + 1),10) & " " & Format2(CInt(n3)) & " " & Format2(CInt(n4)) & " " & _ Format2(x(3)) & " " & Format2(x(2)) & " " & FormatSpace(y2,3) & " " & FormatSpace(y4,3) & " " & FormatSpace(y6,3),1 Scrivi am(1) = x(4) ImpostaGiocata 1,am,ruota,poste1,16 am1(1) = x(4) am1(2) = x(1) ImpostaGiocata 2,am1,ruote,poste,16 am1(2) = x(2) ImpostaGiocata 3,am1,ruote,poste,16 am1(2) = x(3) ImpostaGiocata 4,am1,ruote,poste,16 am2(1) = x(1) am2(2) = x(2) am2(3) = x(3) am2(4) = x(4) 'ImpostaGiocata 5,am2,ruote,posta,18 Gioca n End If End If t = t + 1 Loop Next ScriviResoconto End Sub Function DISAMBO(estrazione,tentativo,byref ruota1,byref numero1,byref numero2,byref ruota2,byref numero3,byref numero4) Dim trovati,r,rr,i,ii,j,jj trovati = 0 For r = 1 To 9 For i = 1 To 4 For j = i + 1 To 5 '* 1a a = Estratto(estrazione,r,i) b = Estratto(estrazione,r,j) c1 = Cadenza(a) c2 = Cadenza(b) d1 = Figura(a) d2 = Figura(b) For rr = r + 1 To 10 aa = Estratto(estrazione,rr,i) bb = Estratto(estrazione,rr,j) cc1 = Cadenza(aa) cc2 = Cadenza(bb) dd1 = Figura(aa) dd2 = Figura(bb) If(c1 = c2 And cc1 = cc2 And c1 = cc1) Or(d1 = d2 And dd1 = dd2 And d1 = dd1) Then trovati = trovati + 1 If trovati = tentativo Then numero1 = a numero2 = b numero3 = aa numero4 = bb ruota1 = r ruota2 = rr DISAMBO = True Exit Function End If End If Next Next Next Next '* 2a DISAMBO = False End Function
 
Ultima modifica:

sorujoe

Advanced Member
Questo script va bene come è manca solo la Nazionale puoi mettermela? Al momento lavora su 10 ruote Grazie

Sub Main() Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1) Dim posta(1),poste(2),post(3) posta(1) = 5 : poste(2) = 5 : post(2) = 4 : post(3) = 1 ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",9500) k = InputBox("per quanti colpi?","colpi di gioco",14) ini = ce fin = EstrazioneFin Scrivi "lotto facile 1 di o_manara (script by maxma62)",1 Scrivi String(76,"="),1 Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _ DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)" For es = ini To EstrazioneFin Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1) For r1 = 1 To 9 For p1 = 1 To 4 For p2 = p1 + 1 To 5 a = Estratto(es,r1,p1) b = Estratto(es,r1,p2) a1 = Fuori90(a + b) For r2 = r1 + 1 To 10 If Distanza(r2,r1) = 5 Or r2 = r1 + 1 Or r2 = r1 - 11 Then'lasciare per solo diametr. consec e gemm For p3 = 1 To 4 For p4 = p3 + 1 To 5 c = Estratto(es,r2,p3) d = Estratto(es,r2,p4) 'If p3 = p1 And p4 = p2 Then'ambi isotopi a2 = Fuori90(c + d) If(a1) =(a2) Then n1 = Abs(a - d) 'diff matem diag n2 = Abs(b - c) 'diff matem diag n3 = Abs(a - c) 'diff matem vert n4 = Abs(b - d) 'diff matem vert If n1 = n2 And n3 = n4 Then'se le diff sono uguali n5 = Abs(n2 - n4) n6 = Fuori90(a2 + n5) 'ambata n7 = 90 - a2 '1^ abb If n7 = 0 Then n7 = 90 n8 = Vert(n7) '2^ abb casi = casi + 1:Scrivi String(58,"=") & " script by maxma62",1 Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _ " ] ambo somma [ " & Format2(a) & "." & Format2(b) & " ] " &(p1) & "^/" &(p2) & "^ pos." Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _ " ] ambo somma [ " & Format2(c) & "." & Format2(d) & " ] " &(p3) & "^/" &(p4) & "^ pos." ColoreTesto 0:Scrivi String(64,"-") & " caso n° " & casi ruote(1) = r1:ruote(2) = r2:ruota(1) = 11:co = 0 nu1(1) = n6 co = co + 1 ImpostaGiocata co,nu1,ruote,posta,k,1 nu2(1) = n6:nu2(2) = n7 co = co + 1 ImpostaGiocata co,nu2,ruote,poste,k nu2(2) = n8 co = co + 1 ImpostaGiocata co,nu2,ruote,poste,k nu3(1) = n6:nu3(2) = n7:nu3(3) = n8 co = co + 1 ImpostaGiocata co,nu3,ruote,post,k co = co + 1 ImpostaGiocata co,nu3,ruota,post,k Gioca es End If End If 'End If'ambi isotopi Next Next End If'lasciare per solo diametr. e consec Next Next Next Next Next Scrivi String(58,"=") & " script by maxma62",1 ScriviResoconto ColoreTesto 1:Scrivi "lotto facile 1 di o_manara (script by maxma62)",1 End Sub
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.



Per Il primo script, è meglio rivolgersi all'autore Danilo.


Il secondo script con la nazionale inclusa,

Codice:
Sub Main()
   Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)
   Dim posta(1),poste(2),post(3)
   posta(1) = 5 : poste(2) = 5 : post(2) = 4 : post(3) = 1
   ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",9600)
   k = InputBox("per quanti colpi?","colpi di gioco",14)
   ini = ce
   fin = EstrazioneFin
   Scrivi "lotto facile 1 di o_manara (script by maxma62)",1
   Scrivi String(76,"="),1
   Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & _
   DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)"
   For es = ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      AvanzamentoElab Ini,Fin,Es
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               a1 = Fuori90(a + b)
               For r2 = r1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  If Distanza(r2,r1) = 5 Or r2 = r1 + 1 Or r2 = r1 - 11 Then'lasciare per solo diametr. consec e gemm
                     For p3 = 1 To 4
                        For p4 = p3 + 1 To 5
                           c = Estratto(es,r2,p3)
                           d = Estratto(es,r2,p4)
                           'If p3 = p1 And p4 = p2 Then'ambi isotopi
                           a2 = Fuori90(c + d)
                           If(a1) =(a2) Then
                              n1 = Abs(a - d) 'diff matem diag
                              n2 = Abs(b - c) 'diff matem diag
                              n3 = Abs(a - c) 'diff matem vert
                              n4 = Abs(b - d) 'diff matem vert
                              If n1 = n2 And n3 = n4 Then'se le diff sono uguali
                                 n5 = Abs(n2 - n4)
                                 n6 = Fuori90(a2 + n5) 'ambata
                                 n7 = 90 - a2 '1^ abb
                                 If n7 = 0 Then n7 = 90
                                 n8 = Vert(n7) '2^ abb
                                 casi = casi + 1:Scrivi String(58,"=") & " script by maxma62",1
                                 Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                                 " ] ambo somma [ " & Format2(a) & "." & Format2(b) & " ] " &(p1) & "^/" &(p2) & "^ pos."
                                 Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                                 " ] ambo somma [ " & Format2(c) & "." & Format2(d) & " ] " &(p3) & "^/" &(p4) & "^ pos."
                                 ColoreTesto 0:Scrivi String(64,"-") & " caso n° " & casi
                                 ruote(1) = r1:ruote(2) = r2:ruota(1) = 11:co = 0
                                 nu1(1) = n6
                                 co = co + 1
                                 ImpostaGiocata co,nu1,ruote,posta,k,1
                                 nu2(1) = n6:nu2(2) = n7
                                 co = co + 1
                                 ImpostaGiocata co,nu2,ruote,poste,k
                                 nu2(2) = n8
                                 co = co + 1
                                 ImpostaGiocata co,nu2,ruote,poste,k
                                 nu3(1) = n6:nu3(2) = n7:nu3(3) = n8
                                 co = co + 1
                                 ImpostaGiocata co,nu3,ruote,post,k
                                 co = co + 1
                                 ImpostaGiocata co,nu3,ruota,post,k
                                 Gioca es
                              End If
                           End If
                           'End If'ambi isotopi
                        Next
                     Next
                  End If'lasciare per solo diametr. e consec
               Next
            Next
         Next
      Next
   Next
   Scrivi String(58,"=") & " script by maxma62",1
   ScriviResoconto
   ColoreTesto 1:Scrivi "lotto facile 1 di o_manara (script by maxma62)",1
End Sub
 

sorujoe

Advanced Member
Grazie ma non saprei come contattare Danilo non so chi sia lo script l'ho trovato in rete
Lo script è relativo al metodo FULMINE di O. Manara quindi pubblico ormai
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Grazie ma non saprei come contattare Danilo non so chi sia lo script l'ho trovato in rete
Lo script è relativo al metodo FULMINE di O. Manara quindi pubblico ormai


Ciao a Tutti.

Per me è più facile rifarlo di sana pianta, perchè in questo script ci sono delle righe e delle variabili che non capisco a cosa servono, mi sembrano inutili, però se li tolgo non funziona niente, deve essere bravissimo Danilo.

Non posso impegnarmi a rifarlo perchè in questo periodo sono impegnato con altre cose e con altri script.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ho fatto 2 script del metodo - FULMINE - di O. MANARA,
il primo senza le modifiche chieste da Sorujoe ed
il secondo con le modifiche chieste da Sorujoe

controllare eventuali errori e dimenticanze
senza modifiche
Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,A,B,C,D,Sp,SommaT,SommaM
   Dim R1,R2,Caso,Casi,P1,P2,P,PP,E1,E2,Salvo50
   Dim CaA,CaB,CaC,CaD,FiA,FiB,FiC,FiD,S
   Dim SomOr1,SomOr2,DistVe1,DistVe2,DistDi1,DistDi2
   Dim Ruote(2),Ma(4),Posta(1),Poste(2),Posts(4)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Qua(4)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,10)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "METODO FULMINE di OSVALDO MANARA - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               If P2 = P1 + 1 Or(P1 = 1 And P2 = 5) Then
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  R2 = R1 + 1
                  S = ""
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                     CaA = Cadenza(A) : CaB = Cadenza(B) : CaC = Cadenza(C) : CaD = Cadenza(D)
                     FiA = Figura(A) : FiB = Figura(B) : FiC = Figura(C) : FiD = Figura(D)
                     If(CaA = CaB And CaA = CaC And CaA = CaD)Or(FiA = FiB And FiA = FiC And FiA = FiD) Then
                        If(CaA = CaB And CaA = CaC And CaA = CaD) Then S = S & "Estratti Evidenziati Sono Con Stessa Cadenza"
                        If(FiA = FiB And FiA = FiC And FiA = FiD) Then S = S & "Estratti Evidenziati Sono Con Stessa Figura"
                        Ma(1) = A : Ma(2) = B : Ma(3) = C : Ma(4) = D
                        Call OrdinaMatrice(Ma,1)
                        SomOr1 =(Ma(4) + Ma(1)) : SomOr2 =(Ma(3) + Ma(2))
                        DistVe1 = Differenza(Ma(4),Ma(3)) : DistVe2 = Differenza(Ma(1),Ma(2))
                        DistDi1 = Differenza(Ma(4),Ma(2)) : DistDi2 = Differenza(Ma(1),Ma(3))
                        If SomOr1 = SomOr2 And DistVe1 = DistVe2 And DistDi1 = DistDi2 Then
                           SommaT = SomOr1 + DistVe1 + DistDi1
                           SommaM = SommaT \ 2
                           Amba(1) = Ma(4)
                           Ruote(1) = R1
                           Ruote(2) = R2
                           If SerieFreqTurbo(Es - 5,Es - 1,Amba,Ruote,1) = 0 Then
                              Ambo1(1) = Ma(4) : Ambo1(2) = Ma(1)
                              Ambo2(1) = Ma(4) : Ambo2(2) = Ma(2)
                              Ambo3(1) = Ma(4) : Ambo3(2) = Ma(3)
                              Qua(1) = Ma(1) : Qua(2) = Ma(2) : Qua(3) = Ma(3) : Qua(4) = Ma(4)
                              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 P = 1 To 5
                                 E1 = Estratto(Es,R1,P)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi Space(52) & S,1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For PP = 1 To 5
                                 E2 = Estratto(Es,R2,PP)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                              Scrivi "Estr. Ordin." & Space(5) & "Somma Oriz." & Space(5) & "Diff. Vert.",1,0
                              Scrivi Space(5) & "Diff. Diag.",1
                              Scrivi Space(3) & Format2(Ma(4)) & Sp,1,0,,2
                              Scrivi Format2(Ma(1)) & Space(13) & Format2(SomOr1),1,0
                              Scrivi Space(13) & Format2(DistVe1) & Space(14) & Format2(DistDi1),1
                              Scrivi Space(3) & Format2(Ma(3)) & Sp & Format2(Ma(2)) & Space(13) & Format2(SomOr2),1,0
                              Scrivi Space(13) & Format2(DistVe2) & Space(14) & Format2(DistDi2),1
                              Scrivi
                              Scrivi Format2(SomOr1) & " + " & Format2(DistVe1) & " + " & Format2(DistDi1) & " = ",1,0
                              Scrivi Format2(SommaT) & " \ 2 = ",1,0
                              Scrivi Format2(SommaM) & " <- Deve essere sempre uguale al Maggiore degli estratti Evidenziati",1,,,2
                              Scrivi
                              ImpostaGiocata 1,Amba,Ruote,Posta,Clp,1
                              ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp,2
                              ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp,2
                              ImpostaGiocata 4,Ambo3,Ruote,Poste,Clp,2
                              ImpostaGiocata 5,Qua,Ruote,Posts,Clp
                              Gioca Es
                           End If
                        End If
                     End If
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

con modifiche

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,A,B,C,D,Sp,SommaT,SommaM
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
   Dim CaA,CaB,CaC,CaD,FiA,FiB,FiC,FiD,S,Salvo50
   Dim SomOr1,SomOr2,DistVe1,DistVe2,DistDi1,DistDi2
   Dim Ruote(2),Ruo(3),Ma(4),Posta(1),Poste(2),Posts(4)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ambo3(2),Qua(4)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Clp = InputBox("Per quanti colpi vuoi giocare?",Salvo50,6)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(1) & "METODO FULMINE di OSVALDO MANARA con MOD. CHIESTE DA SORUJOE - SCRIPT SALVO50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Posts(2) = 1
   Posts(3) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               If P2 = P1 + 1 Or(P1 = 1 And P2 = 5) Then
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  For R2 = R1 + 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           If P4 = P3 + 1 Or(P3 = 1 And P4 = 5) Then
                              S = ""
                              C = Estratto(Es,R2,P3)
                              D = Estratto(Es,R2,P4)
                              If A > 0 And C > 0 And A <> C And A <> D And B <> C And B <> D Then
                                 CaA = Cadenza(A) : CaB = Cadenza(B) : CaC = Cadenza(C) : CaD = Cadenza(D)
                                 FiA = Figura(A) : FiB = Figura(B) : FiC = Figura(C) : FiD = Figura(D)
                                 If(CaA = CaB And CaA = CaC And CaA = CaD)Or(FiA = FiB And FiA = FiC And FiA = FiD) Then
                                    If(CaA = CaB And CaA = CaC And CaA = CaD) Then S = S & "Estratti Evidenziati Con Stessa Cadenza"
                                    If(FiA = FiB And FiA = FiC And FiA = FiD) Then S = S & "Estratti Evidenziati Con Stessa Figura"
                                    Ma(1) = A : Ma(2) = B : Ma(3) = C : Ma(4) = D
                                    Call OrdinaMatrice(Ma,1)
                                    SomOr1 =(Ma(4) + Ma(1)) : SomOr2 =(Ma(3) + Ma(2))
                                    DistVe1 = Differenza(Ma(4),Ma(3)) : DistVe2 = Differenza(Ma(1),Ma(2))
                                    DistDi1 = Differenza(Ma(4),Ma(2)) : DistDi2 = Differenza(Ma(1),Ma(3))
                                    If SomOr1 = SomOr2 And DistVe1 = DistVe2 And DistDi1 = DistDi2 Then
                                       SommaT = SomOr1 + DistVe1 + DistDi1
                                       SommaM = SommaT \ 2
                                       Amba(1) = Ma(4)
                                       Ruote(1) = R1
                                       Ruote(2) = R2
                                       Ruo(1) = R1
                                       Ruo(2) = R2
                                       Ruo(3) = TU_
 
 
                                       Ambo1(1) = Ma(4) : Ambo1(2) = Ma(1)
                                       Ambo2(1) = Ma(4) : Ambo2(2) = Ma(2)
                                       Ambo3(1) = Ma(4) : Ambo3(2) = Ma(3)
                                       Qua(1) = Ma(1) : Qua(2) = Ma(2) : Qua(3) = Ma(3) : Qua(4) = Ma(4)
                                       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 P = 1 To 5
                                          E1 = Estratto(Es,R1,P)
                                          If E1 = A Or E1 = B Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E1) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi Space(52) & S,1
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                       For PP = 1 To 5
                                          E2 = Estratto(Es,R2,PP)
                                          If E2 = C Or E2 = D Then
                                             ColoreTesto 2
                                          Else
                                             ColoreTesto 0
                                          End If
                                          Scrivi Format2(E2) & " ",1,0
                                          ColoreTesto 0
                                       Next
                                       Scrivi
                                       Scrivi
                                       Scrivi "Estr. Ordin." & Space(5) & "Somma Oriz." & Space(5) & "Diff. Vert.",1,0
                                       Scrivi Space(5) & "Diff. Diag.",1
                                       Scrivi Space(3) & Format2(Ma(4)) & Sp,1,0,,2
                                       Scrivi Format2(Ma(1)) & Space(13) & Format2(SomOr1),1,0
                                       Scrivi Space(13) & Format2(DistVe1) & Space(14) & Format2(DistDi1),1
                                       Scrivi Space(3) & Format2(Ma(3)) & Sp & Format2(Ma(2)) & Space(13) & Format2(SomOr2),1,0
                                       Scrivi Space(13) & Format2(DistVe2) & Space(14) & Format2(DistDi2),1
                                       Scrivi
                                       Scrivi Format2(SomOr1) & " + " & Format2(DistVe1) & " + " & Format2(DistDi1) & " = ",1,0
                                       Scrivi Format2(SommaT) & " \ 2 = ",1,0
                                       Scrivi Format2(SommaM) & " <- Deve essere sempre uguale al Maggiore degli estratti Evidenziati",1,,,2
                                       Scrivi
                                       ImpostaGiocata 1,Amba,Ruote,Posta,Clp
                                       ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
                                       ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
                                       ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
                                       ImpostaGiocata 5,Qua,Ruo,Posts,Clp
                                       Gioca Es
                                    End If
                                 End If
                              End If
                           End If
                        Next
                     Next
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Inserito controllo per tutte le ruote per gli ambi e la quaterna, nel secondo script.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto