Novità

x salvo50 aggiornare script

kubes

Senior Member
Codice:
'Chiesto da kubes
'Prendete una cinquina qualsiasi su una delle 11 ruote che più vi piace
'e, dei cinque numeri estratti prima ne calcolate la chiusura a 90,
'i risultati disponeteli In orizzontale, poi moltiplicate x2 ogni singolo Estratto,
'i risultati disponeteli In verticale
'
'---35-76-48-29-41 <-- estrazione
'---55-14-42-61-49 <-- complemento a 90
'-----------------
'70|35-84-22-41-29
'62|27-76-14-33-21
'06|61-20-48-67-55
'58|23-72-10-29-17
'82|47-06-34-53-41
'
'Ora dobbiamo formare il nostro quadrato pieno di numeri, In questo semplicissimo modo,
'70+55= 35 70+14= 84 70+42= 22 62+55= 27 62+14= 76 .
'Calcolo numeri condizione
'47+72= 29
'33+29= 62
'Bari 69 25 68 62 58 4/2/17 estrazione appena precedente
'Bari 35 76 48 29 41 7/2/17 estrazione presa In esame
'i due numeri In questo caso occupano entrambi la 4° Posizione,
'cio'non toglie che possono essere non isotopi e se ne puo'
'presentare anche solo uno, per calcolare e porre in gioco la Previsione.
'Previsione; sommiamo i due numeri condizione sommiamo le 3 triadi,
'i risultati più le chiusure a 90 di questi formeranno le quartine secche
'da porre In gioco per 3 Colpi
'29+62= 1 complemento a 90 = 89 ( numeri condizionii )
'23+27+35= 85 complemeto a 90 = 5 ( 1° triade)
'84+41+29= 64 complemeto a 90= 26 ( 2° triade)
'21+17+41= 79 complemeto a 90 = 11 ( 3° triade )
'Quartine 1-85-64-79
'Quartine 89-5-26-11
'MAX 3 COLPI
'SCRIPT BY SALVO50
Option Explicit
Sub Main
   Dim Es,Fin,R1,E1,E2,Ini,P1,P2,Som1,Som2,Caso,Casi
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,C1,C2,C3,C4,C5
   Dim A01,A02,A03,A04,A05,Clp1,Clp2
   Dim S_Tr1,S_Tr2,S_Tr3,S_Tr1_C90,S_Tr2_C90,S_Tr3_C90
   Dim C1B1,C1B2,C1B3,C1B4,C1B5,C2B1,C2B2,C2B3,C2B4
   Dim C2B5,C3B1,C3B2,C3B3,C3B4,C3B5,C4B1,C4B2,C4B3
   Dim C4B4,C4B5,C5B1,C5B2,C5B3,C5B4,C5B5
   Dim Cond1,Cond2,SomCond12,Compl90,Salvo50
   Dim Quart1(4),Quart2(4),Ruota(1),Tutte(1),Posta(4)
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   Fin = EstrazioneFin
   Clp1 = InputBox(" Per quanti colpi vuoi giocare la Quartina a Ruota? ",Salvo50,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la Quartina a Tutte? ",Salvo50,3)
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9575) ' 9275 estrazione dell'esempio
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio(Es)
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         A01 = Estratto(Es - 1,R1,1)
         A02 = Estratto(Es - 1,R1,2)
         A03 = Estratto(Es - 1,R1,3)
         A04 = Estratto(Es - 1,R1,4)
         A05 = Estratto(Es - 1,R1,5)
         A1 = Estratto(Es,R1,1)
         A2 = Estratto(Es,R1,2)
         A3 = Estratto(Es,R1,3)
         A4 = Estratto(Es,R1,4)
         A5 = Estratto(Es,R1,5)
         B1 = 90 - A1 : B2 = 90 - A2 : B3 = 90 - A3 : B4 = 90 - A4 : B5 = 90 - A5
         C1 = Fuori90(B1*2) : C2 = Fuori90(B2*2) : C3 = Fuori90(B3*2) : C4 = Fuori90(B4*2) : C5 = Fuori90(B5*2)
         C1B1 = Fuori90(C1 + B1) : C1B2 = Fuori90(C1 + B2) : C1B3 = Fuori90(C1 + B3) : C1B4 = Fuori90(C1 + B4) : C1B5 = Fuori90(C1 + B5)
         C2B1 = Fuori90(C2 + B1) : C2B2 = Fuori90(C2 + B2) : C2B3 = Fuori90(C2 + B3) : C2B4 = Fuori90(C2 + B4) : C2B5 = Fuori90(C2 + B5)
         C3B1 = Fuori90(C3 + B1) : C3B2 = Fuori90(C3 + B2) : C3B3 = Fuori90(C3 + B3) : C3B4 = Fuori90(C3 + B4) : C3B5 = Fuori90(C3 + B5)
         C4B1 = Fuori90(C4 + B1) : C4B2 = Fuori90(C4 + B2) : C4B3 = Fuori90(C4 + B3) : C4B4 = Fuori90(C4 + B4) : C4B5 = Fuori90(C4 + B5)
         C5B1 = Fuori90(C5 + B1) : C5B2 = Fuori90(C5 + B2) : C5B3 = Fuori90(C5 + B3) : C5B4 = Fuori90(C5 + B4) : C5B5 = Fuori90(C5 + B5)
         Cond1 = Fuori90(C5B1 + C4B2) : Cond2 = Fuori90(C2B4 + C1B5)
         If Cond1 = A01 Or Cond1 = A02 Or Cond1 = A03 Or Cond1 = A04 Or Cond1 = A05 Or Cond2 = A01 Or Cond2 = A02 Or Cond2 = A03 Or Cond2 = A04 Or Cond2 = A05 _
            Or Cond1 = A1 Or Cond1 = A2 Or Cond1 = A3 Or Cond1 = A4 Or Cond1 = A5 Or Cond2 = A1 Or Cond2 = A2 Or Cond2 = A3 Or Cond2 = A4 Or Cond2 = A5 Then
            SomCond12 = Fuori90(Cond1 + Cond2)
            Compl90 = 90 - SomCond12
            If SomCond12 = 90 Then Compl90 = 90
            S_Tr1 = Fuori90(C4B1 + C2B1 + C1B1)
            S_Tr2 = Fuori90(C1B2 + C1B4 + C1B5)
            S_Tr3 = Fuori90(C2B5 + C4B5 + C5B5)
            S_Tr1_C90 = 90 - S_Tr1
            If S_Tr1 = 90 Then S_Tr1_C90 = 90
            S_Tr2_C90 = 90 - S_Tr2
            If S_Tr2 = 90 Then S_Tr2_C90 = 90
            S_Tr3_C90 = 90 - S_Tr3
            If S_Tr3 = 90 Then S_Tr3_C90 = 90
            Caso = Caso + 1
            Casi = Casi + 1
            ColoreTesto 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
            ColoreTesto 2
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
            ColoreTesto 0
            Scrivi(" Estrazione n." & Format2(Es - 1) & " del " & DataEstrazione(Es - 1)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P1 = 1 To 5
               E1 = Estratto(Es - 1,R1,P1)
               If E1 = Cond1 Or E1 = Cond2 Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi "   <-- Estrazione precedente ",1
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P2 = 1 To 5
               E2 = Estratto(Es,R1,P2)
               If E2 = Cond1 Or E2 = Cond2 Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E2) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi "   <-- Estrazione corrente ",1
            Scrivi
            Scrivi " Estrazione    " & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
            Scrivi " Complem.90    " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
            Scrivi Space(15) & String(14,"-")
            Scrivi Space(10) & Format2(C1) & " | " & Format2(C1B1) & " " & Format2(C1B2) & " " & Format2(C1B3) & " " & Format2(C1B4) & " " & Format2(C1B5),1
            Scrivi Space(10) & Format2(C2) & " | " & Format2(C2B1) & " " & Format2(C2B2) & " " & Format2(C2B3) & " " & Format2(C2B4) & " " & Format2(C2B5),1
            Scrivi Space(10) & Format2(C3) & " | " & Format2(C3B1) & " " & Format2(C3B2) & " " & Format2(C3B3) & " " & Format2(C3B4) & " " & Format2(C3B5),1
            Scrivi Space(10) & Format2(C4) & " | " & Format2(C4B1) & " " & Format2(C4B2) & " " & Format2(C4B3) & " " & Format2(C4B4) & " " & Format2(C4B5),1
            Scrivi Space(10) & Format2(C5) & " | " & Format2(C5B1) & " " & Format2(C5B2) & " " & Format2(C5B3) & " " & Format2(C5B4) & " " & Format2(C5B5),1
            Scrivi
            Scrivi Space(14) & Format2(C5B1) & " + " & Format2(C4B2) & " = " & Format2(Cond1),1
            Scrivi Space(14) & Format2(C2B4) & " + " & Format2(C1B5) & " = " & Format2(Cond2),1
            Scrivi Space(14) & Format2(Cond1) & " + " & Format2(Cond2) & " = " & Format2(SomCond12) & " Complemento a 90 = " & Format2(Compl90),1
            Scrivi
            Scrivi Space(14) & Format2(C4B1) & " + " & Format2(C2B1) & " + " & Format2(C1B1) & " = " & Format2(S_Tr1) & " Complemento a 90 = " & Format2(S_Tr1_C90),1
            Scrivi Space(14) & Format2(C1B2) & " + " & Format2(C1B4) & " + " & Format2(C1B5) & " = " & Format2(S_Tr2) & " Complemento a 90 = " & Format2(S_Tr2_C90),1
            Scrivi Space(14) & Format2(C2B5) & " + " & Format2(C4B5) & " + " & Format2(C5B5) & " = " & Format2(S_Tr3) & " Complemento a 90 = " & Format2(S_Tr3_C90),1
            Scrivi
            Scrivi Space(14) & "Quartine  " & Format2(SomCond12) & "-" & Format2(S_Tr1) & "-" & Format2(S_Tr2) & "-" & Format2(S_Tr3),1
            Scrivi Space(14) & "Quartine  " & Format2(Compl90) & "-" & Format2(S_Tr1_C90) & "-" & Format2(S_Tr2_C90) & "-" & Format2(S_Tr3_C90),1
            Scrivi
            Ruota(1) = R1
            Tutte(1) = TT_
            Quart1(1) = SomCond12 : Quart1(2) = S_Tr1 : Quart1(3) = S_Tr2 : Quart1(4) = S_Tr3
            EliminaRipetuti(Quart1)
            ImpostaGiocata 1,Quart1,Ruota,Posta,Clp1
            ImpostaGiocata 2,Quart1,Tutte,Posta,Clp2
            Quart2(1) = Compl90 : Quart2(2) = S_Tr1_C90 : Quart2(3) = S_Tr2_C90 : Quart2(4) = S_Tr3_C90
            EliminaRipetuti(Quart2)
            ImpostaGiocata 3,Quart2,Ruota,Posta,Clp1
            ImpostaGiocata 4,Quart2,Tutte,Posta,Clp2
            Gioca Es
         End If
      Next
   Next
   ScriviResoconto
End Sub
ciao salvo50, ricordi questo script? mi occorrerebbe se possibile una modifica , sia la condizione di ricerca e sia le ruotedi ricerca vorrei cambiarle .
quindi: trovare due ruote anche diverse un ambo con la stessa somma . trovata la condizione la somma degli ambi si fa il complemento a 90(come per la vecchia condizione e poi , parte il resto dello script e cioè i quadrati, le somme le triadi etc etc
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Kubes, fai qualche esempio anche con numeri fittizzi, prima del quadrato
 

kubes

Senior Member
caso 1
giovedì, apr 4 2019 [ BA - 83.28.78.69.72 ] ambo somma [ 28.69 ].--> 07

giovedì, apr 4 2019 [ NA - 59.30.07.67.36 ] ambo somma [ 30.67 ]. --->
07

qui sono isotopi, ma va bene che anche uno della formazione sia isotopo

caso 2
giovedì, apr 4 2019 [ CA - 50.70.83.28.19 ] ambo somma [ 28.19 ] . ---> 37
giovedì, apr 4 2019 [ PA - 35.29.26.18.61 ] ambo somma [ 29.18 ] .----> 37


se ci son queste condizioni si procede col quadrato etc etc ....
nello script avevamo queasto :
' Previsione; sommiamo i due numeri condizione sommiamo le 3 triadi, 'i risultati più le chiusure a 90 di questi formeranno le quartine secche 'da porre In gioco per 3 Colpi .

il numero condizione nel caso 1 è 07 = complemento a 90 =83.
il numero condizione nel caso 2 è 37 = complemeto a 90 = 53.

IN effetti lo script trovato un ambo di somma , prende l'estrazione di Napoli (nel caso 1) e sviluppa il quadrato etc etc.

nel caso 2 prende la ruota di palermo e sviluppa il quadrato. sempre la ruota di sotto.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao, fai un controllo perchè non sono sicuro daver capito benr

Codice:
Option Explicit
Sub Main
   Dim Es,Fin,R1,E1,E2,Ini,P1,P2,Som1,Som2,Caso,Casi
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,C1,C2,C3,C4,C5
   Dim A01,A02,A03,A04,A05,Clp1,Clp2,P3,P4,P5,P6
   Dim S_Tr1,S_Tr2,S_Tr3,S_Tr1_C90,S_Tr2_C90,S_Tr3_C90
   Dim C1B1,C1B2,C1B3,C1B4,C1B5,C2B1,C2B2,C2B3,C2B4
   Dim C2B5,C3B1,C3B2,C3B3,C3B4,C3B5,C4B1,C4B2,C4B3
   Dim C4B4,C4B5,C5B1,C5B2,C5B3,C5B4,C5B5,A,B,R2,AB90,CD90
   Dim Cond1,Cond2,SomCond12,Compl90,Salvo50,C,D,AB,CD
   Dim Quart1(4),Quart2(4),Ruota(1),Tutte(1),Posta(4)
   Posta(2) = 1
   Posta(3) = 1
   'Posta(4) = 1
   Fin = EstrazioneFin
   Clp1 = InputBox(" Per quanti colpi vuoi giocare la Quartina a Ruota? ",Salvo50,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare la Quartina a Tutte? ",Salvo50,3)
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?",,9575) ' 9275 estrazione dell'esempio
   Call ScegliRange(Ini,Fin,Ini,Fin)
   For Es = Ini To Fin
      Messaggio(Es)
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               AB = Fuori90(A + B)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C = Estratto(Es,R2,P3)
                        D = Estratto(Es,R2,P4)
                        CD = Fuori90(C + D)
                        If(AB = CD) And(P1 = P3 Or P1 = P4 Or P2 = P3 Or P2 = P4) Then
                           A01 = Estratto(Es - 1,R2,1)
                           A02 = Estratto(Es - 1,R2,2)
                           A03 = Estratto(Es - 1,R2,3)
                           A04 = Estratto(Es - 1,R2,4)
                           A05 = Estratto(Es - 1,R2,5)
                           A1 = Estratto(Es,R2,1)
                           A2 = Estratto(Es,R2,2)
                           A3 = Estratto(Es,R2,3)
                           A4 = Estratto(Es,R2,4)
                           A5 = Estratto(Es,R2,5)
                           B1 = 90 - A1 : B2 = 90 - A2 : B3 = 90 - A3 : B4 = 90 - A4 : B5 = 90 - A5
                           C1 = Fuori90(B1*2) : C2 = Fuori90(B2*2) : C3 = Fuori90(B3*2) : C4 = Fuori90(B4*2) : C5 = Fuori90(B5*2)
                           C1B1 = Fuori90(C1 + B1) : C1B2 = Fuori90(C1 + B2) : C1B3 = Fuori90(C1 + B3) : C1B4 = Fuori90(C1 + B4) : C1B5 = Fuori90(C1 + B5)
                           C2B1 = Fuori90(C2 + B1) : C2B2 = Fuori90(C2 + B2) : C2B3 = Fuori90(C2 + B3) : C2B4 = Fuori90(C2 + B4) : C2B5 = Fuori90(C2 + B5)
                           C3B1 = Fuori90(C3 + B1) : C3B2 = Fuori90(C3 + B2) : C3B3 = Fuori90(C3 + B3) : C3B4 = Fuori90(C3 + B4) : C3B5 = Fuori90(C3 + B5)
                           C4B1 = Fuori90(C4 + B1) : C4B2 = Fuori90(C4 + B2) : C4B3 = Fuori90(C4 + B3) : C4B4 = Fuori90(C4 + B4) : C4B5 = Fuori90(C4 + B5)
                           C5B1 = Fuori90(C5 + B1) : C5B2 = Fuori90(C5 + B2) : C5B3 = Fuori90(C5 + B3) : C5B4 = Fuori90(C5 + B4) : C5B5 = Fuori90(C5 + B5)
                           Cond1 = Fuori90(C5B1 + C4B2) : Cond2 = Fuori90(C2B4 + C1B5)
                           If Cond1 = A01 Or Cond1 = A02 Or Cond1 = A03 Or Cond1 = A04 Or Cond1 = A05 Or Cond2 = A01 Or Cond2 = A02 Or Cond2 = A03 Or Cond2 = A04 Or Cond2 = A05 _
                              Or Cond1 = A1 Or Cond1 = A2 Or Cond1 = A3 Or Cond1 = A4 Or Cond1 = A5 Or Cond2 = A1 Or Cond2 = A2 Or Cond2 = A3 Or Cond2 = A4 Or Cond2 = A5 Then
                              SomCond12 = Fuori90(Cond1 + Cond2)
                              Compl90 = 90 - SomCond12
                              If SomCond12 = 90 Then Compl90 = 90
                              S_Tr1 = Fuori90(C4B1 + C2B1 + C1B1)
                              S_Tr2 = Fuori90(C1B2 + C1B4 + C1B5)
                              S_Tr3 = Fuori90(C2B5 + C4B5 + C5B5)
                              S_Tr1_C90 = 90 - S_Tr1
                              If S_Tr1 = 90 Then S_Tr1_C90 = 90
                              S_Tr2_C90 = 90 - S_Tr2
                              If S_Tr2 = 90 Then S_Tr2_C90 = 90
                              S_Tr3_C90 = 90 - S_Tr3
                              If S_Tr3 = 90 Then S_Tr3_C90 = 90
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Or E1 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi "   <-- In rosso somma col fuori90 ",1,0
                              Scrivi Format2(AB),1,,,2
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = C Or E2 = D Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi "   <-- In rosso somma col fuori90 ",1,0
                              Scrivi Format2(CD),1,,,2
                              Scrivi
                              Scrivi " Estrazione    " & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
                              Scrivi " Complem.90    " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
                              Scrivi Space(15) & String(14,"-")
                              Scrivi Space(10) & Format2(C1) & " | " & Format2(C1B1) & " " & Format2(C1B2) & " " & Format2(C1B3) & " " & Format2(C1B4) & " " & Format2(C1B5),1
                              Scrivi Space(10) & Format2(C2) & " | " & Format2(C2B1) & " " & Format2(C2B2) & " " & Format2(C2B3) & " " & Format2(C2B4) & " " & Format2(C2B5),1
                              Scrivi Space(10) & Format2(C3) & " | " & Format2(C3B1) & " " & Format2(C3B2) & " " & Format2(C3B3) & " " & Format2(C3B4) & " " & Format2(C3B5),1
                              Scrivi Space(10) & Format2(C4) & " | " & Format2(C4B1) & " " & Format2(C4B2) & " " & Format2(C4B3) & " " & Format2(C4B4) & " " & Format2(C4B5),1
                              Scrivi Space(10) & Format2(C5) & " | " & Format2(C5B1) & " " & Format2(C5B2) & " " & Format2(C5B3) & " " & Format2(C5B4) & " " & Format2(C5B5),1
                              Scrivi
                              Scrivi Space(14) & Format2(C5B1) & " + " & Format2(C4B2) & " = " & Format2(Cond1),1
                              Scrivi Space(14) & Format2(C2B4) & " + " & Format2(C1B5) & " = " & Format2(Cond2),1
                              Scrivi Space(14) & Format2(Cond1) & " + " & Format2(Cond2) & " = " & Format2(SomCond12) & " Complemento a 90 = " & Format2(Compl90),1
                              Scrivi
                              Scrivi Space(14) & Format2(C4B1) & " + " & Format2(C2B1) & " + " & Format2(C1B1) & " = " & Format2(S_Tr1) & " Complemento a 90 = " & Format2(S_Tr1_C90),1
                              Scrivi Space(14) & Format2(C1B2) & " + " & Format2(C1B4) & " + " & Format2(C1B5) & " = " & Format2(S_Tr2) & " Complemento a 90 = " & Format2(S_Tr2_C90),1
                              Scrivi Space(14) & Format2(C2B5) & " + " & Format2(C4B5) & " + " & Format2(C5B5) & " = " & Format2(S_Tr3) & " Complemento a 90 = " & Format2(S_Tr3_C90),1
                              Scrivi
                              Scrivi Space(14) & "Quartine  " & Format2(SomCond12) & "-" & Format2(S_Tr1) & "-" & Format2(S_Tr2) & "-" & Format2(S_Tr3),1
                              Scrivi Space(14) & "Quartine  " & Format2(Compl90) & "-" & Format2(S_Tr1_C90) & "-" & Format2(S_Tr2_C90) & "-" & Format2(S_Tr3_C90),1
                              Scrivi
                              Ruota(1) = R1
                              Tutte(1) = TT_
                              Quart1(1) = SomCond12 : Quart1(2) = S_Tr1 : Quart1(3) = S_Tr2 : Quart1(4) = S_Tr3
                              EliminaRipetuti(Quart1)
                              ImpostaGiocata 1,Quart1,Ruota,Posta,Clp1
                              ImpostaGiocata 2,Quart1,Tutte,Posta,Clp2
                              Quart2(1) = Compl90 : Quart2(2) = S_Tr1_C90 : Quart2(3) = S_Tr2_C90 : Quart2(4) = S_Tr3_C90
                              EliminaRipetuti(Quart2)
                              ImpostaGiocata 3,Quart2,Ruota,Posta,Clp1
                              ImpostaGiocata 4,Quart2,Tutte,Posta,Clp2
                              Gioca Es
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

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