per @salvo50 unità e verticali

kubes · 4 Giugno 2019

ciao salvo nel quadro estrazionale rintracciare l'unita 1 nel primo estratto e aggiungerla con il minore della ruota o successiva o superiore

esempio : 18/05/2019
napoli 65
palermo 16
roma 56
prev palermoo 15-(51) Vert

se cè zero invece
01/06/2019
milano 66
napoli 01
palermo 36

prev napoli 30 -3

salvo50 · 4 Giugno 2019

Ciao a Tutti.
Ciao Kubes, fai i calcoli come hai ottenuto 15 per il primo esempio e 30 per il secondo esempio, perchè non l'ho capito

kubes · 4 Giugno 2019

salvo50;n2174513 ha scritto:
Ciao a Tutti.
Ciao Kubes, fai i calcoli come hai ottenuto 15 per il primo esempio e 30 per il secondo esempio, perchè non l'ho capito

1 del 16 di palermo e il 5 di 56 di roma =15 vert 51

01 di napoli con 3 di 36 di palermo = 03 vert 30

salvo50 · 4 Giugno 2019

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,Clp,Es,Sp
   Dim R1,R2,R3,P1,P2,P3,E1,E2,E3
   Dim DeA,DeB,DeC,Salvo50,Caso,Casi
   Dim Ruo(1),Po1(2),Amba(2),M(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9628))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " DECINE VERTICALI - CHIESTO DA KUBES - SCRIPT SALVO50",1,,4,,3,,1
   Sp = " "
   Po1(1) = 1
   'Po1(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         R2 = R1 + 1
         R3 = R2 + 1
         If R3 = 11 Then R3 = 12
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R2,1)
         C = Estratto(Es,R3,1)
         If B <> A And B <> C Then
            DeA = Decina(A) : DeB = Decina(B) : DeC = Decina(C)
            M(1) = DeA : M(2) = DeC
            OrdinaMatrice M,1
            Amba(1) = DeB & M(1) : Amba(2) = Vert(Amba(1))
            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 P1 = 1 To 5
               E1 = Estratto(Es,R1,P1)
               If E1 = A Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R2) & " ",1,0
            For P2 = 1 To 5
               E2 = Estratto(Es,R2,P2)
               If E2 = B Then
                  ColoreTesto 1
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E2) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R3) & " ",1,0
            For P3 = 1 To 5
               E3 = Estratto(Es,R3,P3)
               If E3 = C Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E3) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi
            Scrivi Space(35) & " Pronostico " & Format2(Amba(1)) & Sp & Format2(Amba(2)),1
            Scrivi
            Ruo(1) = R2
            ImpostaGiocata 1,Amba,Ruo,Po1,Clp
            Gioca Es
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

kubes · 4 Giugno 2019

ottimo salvo50 dobbiamo escludere tutte le altre unità, mi spiego meglio , lo script deve trovare solo l'unita1 e l'unità zero tutte le altre devo elimarle , oppure che ne so, mettere un campo dove dici "scegli unità da cercare", insomma come ti è piu congeniale , ma lo script deve trovare solo le unita 1 e le unita 0....
esempio nell'estrazione di stasera 04/06/2019
cce solo la condizione a Palermo
napoli 60
palermo 10
Roma 51

salvo50 · 4 Giugno 2019

Questo riconosce solo lo zero e l'uno nella decina della ruota centrale

Codice:

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,Clp,Es,Sp
   Dim R1,R2,R3,P1,P2,P3,E1,E2,E3
   Dim DeA,DeB,DeC,Salvo50,Caso,Casi
   Dim Ruo(1),Po1(2),Amba(2),M(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " DECINE VERTICALI - CHIESTO DA KUBES - SCRIPT SALVO50",1,,4,,3,,1
   Sp = " "
   Po1(1) = 1
   'Po1(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         R2 = R1 + 1
         R3 = R2 + 1
         If R3 = 11 Then R3 = 12
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R2,1)
         C = Estratto(Es,R3,1)
         If B <> A And B <> C Then
            DeA = Decina(A) : DeB = Decina(B) : DeC = Decina(C)
            If (DeB = 0 And DeA > 0) And (DeB = 0 And DeC > 0) Or DeB = 1 Then
            M(1) = DeA : M(2) = DeC
            OrdinaMatrice M,1
            Amba(1) = DeB & M(1) : Amba(2) = Vert(Amba(1))
            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 P1 = 1 To 5
               E1 = Estratto(Es,R1,P1)
               If E1 = A Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R2) & " ",1,0
            For P2 = 1 To 5
               E2 = Estratto(Es,R2,P2)
               If E2 = B Then
                  ColoreTesto 1
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E2) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R3) & " ",1,0
            For P3 = 1 To 5
               E3 = Estratto(Es,R3,P3)
               If E3 = C Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E3) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi
            Scrivi Space(35) & " Pronostico " & Format2(Amba(1)) & Sp & Format2(Amba(2)),1
            Scrivi
            Ruo(1) = R2
            ImpostaGiocata 1,Amba,Ruo,Po1,Clp
            Gioca Es
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

kubes · 6 Giugno 2019

grazie salvo50 ora è perfetto. come sempre se il ilnumero 1

Cerca

Cerca

per @salvo50 unità e verticali

kubes

Senior Member

salvo50

Advanced Member >PLATINUM PLUS<

kubes

Senior Member

salvo50

Advanced Member >PLATINUM PLUS<

kubes

Senior Member

salvo50

Advanced Member >PLATINUM PLUS<

kubes

Senior Member

Ultima estrazione Lotto

Ultimi Messaggi