Novità

Per Salvo50 o altro esperto

sorujoe

Advanced Member
Messaggi
514
Punti reazione
5
Punti
18
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
Messaggi
514
Punti reazione
5
Punti
18
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<
Messaggi
2.044
Punti reazione
53
Punti
48
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
Messaggi
514
Punti reazione
5
Punti
18
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<
Messaggi
2.044
Punti reazione
53
Punti
48
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<
Messaggi
2.044
Punti reazione
53
Punti
48
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<
Messaggi
2.044
Punti reazione
53
Punti
48
Ciao a Tutti.

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

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 07 dicembre 2019
    Bari
    19
    09
    20
    16
    01
    Cagliari
    76
    60
    80
    06
    47
    Firenze
    43
    88
    78
    73
    83
    Genova
    46
    20
    79
    54
    04
    Milano
    30
    31
    46
    24
    19
    Napoli
    42
    86
    20
    06
    07
    Palermo
    66
    04
    81
    53
    09
    Roma
    55
    81
    32
    25
    13
    Torino
    69
    21
    52
    32
    72
    Venezia
    44
    22
    37
    80
    32
    Nazionale
    19
    88
    32
    60
    90
Alto