Novità

x salvo50 aggiornare script

kubes

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:
Ciao a Tutti.

Ciao Kubes, fai qualche esempio anche con numeri fittizzi, prima del quadrato
 
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:
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto