Novità

Si può fare?

armando59

armando59

Advanced Member >GOLD<
se prendo il primo estratto dell'ultima mese ruota Bari e lo unisco con il terzo estratto sempre di Bari della prima estrazione mese successivo creò un ambo da mettere in gioco su Bari ambata ambo è ambetto anche a tutte ambo è Lamberto.sarebbe possibile per chi può fare uno script grazie ciao
 
Ciao a Tutti.

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,A,AP1,AM1,B,BP1,BM1,Clp,Es,Sp
   Dim R1,R2,P1,P2,E1,E2
   Dim DeA,DeB,DeC,Salvo50,Caso,Casi
   Dim Ruo(2),Ru(1),Po1(2),Po2(2),Amba(2)
   Dim Ambet1(2),Ambet2(2),Ambet3(2),Ambet4(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9300))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "   - CHIESTO DA ARMANDO59 - SCRIPT SALVO50",1,,4,,3,,1
   Sp = " "
   Po1(1) = 1
   Po1(2) = 1
   Po2(2) = 1

   R1 = BA_
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      If IndiceMensile(Es + 1) = 1 Then
         Caso = 0
         A = Estratto(Es,R1,1)
         B = Estratto(Es + 1,R1,3)
         AP1 = Fuori90(A + 1)
         AM1 = Fuori90(90 +(A - 1))
         BP1 = Fuori90(B + 1)
         BM1 = Fuori90(90 +(B - 1))
         Amba(1) = A : Amba(2) = B
         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 + 1) & " del " & DataEstrazione(Es + 1)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P2 = 1 To 5
            E2 = Estratto(Es + 1,R1,P2)
            If E2 = B Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi

         Ru(1) = R1
         Ruo(1) = R1
         Ruo(2) = TU_
         Amba(1) = A : Amba(2) = B
         ImpostaGiocata 1,Amba,Ru,Po1,Clp,,1
         Ambet1(1) = AP1 : Ambet1(2) = B
         ImpostaGiocata 2,Ambet1,Ruo,Po2,Clp,,1
         Ambet2(1) = AM1 : Ambet2(2) = B
         ImpostaGiocata 3,Ambet2,Ruo,Po2,Clp,,1
         Ambet3(1) = A : Ambet3(2) = BP1
         ImpostaGiocata 4,Ambet3,Ruo,Po2,Clp,,1
         Ambet4(1) = A : Ambet4(2) = BM1
         ImpostaGiocata 5,Ambet4,Ruo,Po2,Clp,,1
         Gioca Es
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ciao Salvo, Armando ...

Buona serata a tutte/i.

Ho visto che hai usato: If IndiceMensile(Es + 1) = 1 Then

è un vecchio trucco che si usava quando non c'erano istruzioni apposite.

Con Spaziometria, If IsUltimaDelMese (Es) Then

Secondo me funziona meglio.

:)
 
(Untitled)

Ciao Salvo50 Joe, lo script mi gira bene e come lo volevo.se volessi cambiare la posizione degli estratti mi sembra un Po complicato come posso fare?
 
Ultima modifica:
armando59;n2177773 ha scritto:
Ciao Salvo50 Joe, lo script mi gira bene e come lo volevo.se volessi cambiare la posizione degli estratti mi sembra un Po complicato come posso fare?
Clicca per espandere...

Ciao a Tutti.

Appena posso, ti dò la possibilità di modificarli da esterno
 
Mentre che c'ero ho messo anche la scelta della ruota, alla 2ª domanda,

alla 3ª e 4ª domanda puoi cambiare le posizioni degli estratti


Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,A,AP1,AM1,B,BP1,BM1,Clp,Es,Sp
   Dim R1,R2,P1,P2,E1,E2,Pos1,Pos2
   Dim DeA,DeB,DeC,Salvo50,Caso,Casi
   Dim Ruo(2),Ru(1),Po1(2),Po2(2),Amba(2)
   Dim Ambet1(2),Ambet2(2),Ambet3(2),Ambet4(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9300))
   R1 = CInt(InputBox(" INSERISCI IL NUMERO DELLA RUOTA",Salvo50,1))
   Pos1 = CInt(InputBox(" POSIZIONE ESTRATTO PRIMA RUOTA",Salvo50,5))
   Pos2 = CInt(InputBox(" POSIZIONE ESTRATTO SECONDA RUOTA",Salvo50,4))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "   - CHIESTO DA ARMANDO59 - SCRIPT SALVO50",1,,4,,3,,1
   Sp = " "
   Po1(1) = 1
   Po1(2) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      If IsUltimaDelMese(Es) Then
         Caso = 0
         A = Estratto(Es,R1,Pos1)
         B = Estratto(Es + 1,R1,Pos2)
         AP1 = Fuori90(A + 1)
         AM1 = Fuori90(90 +(A - 1))
         BP1 = Fuori90(B + 1)
         BM1 = Fuori90(90 +(B - 1))
         Amba(1) = A : Amba(2) = B
         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 + 1) & " del " & DataEstrazione(Es + 1)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P2 = 1 To 5
            E2 = Estratto(Es + 1,R1,P2)
            If E2 = B Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi
         Ru(1) = R1
         Ruo(1) = R1
         Ruo(2) = TU_
         Amba(1) = A : Amba(2) = B
         ImpostaGiocata 1,Amba,Ru,Po1,Clp,,1
         Ambet1(1) = AP1 : Ambet1(2) = B
         ImpostaGiocata 2,Ambet1,Ruo,Po2,Clp,,1
         Ambet2(1) = AM1 : Ambet2(2) = B
         ImpostaGiocata 3,Ambet2,Ruo,Po2,Clp,,1
         Ambet3(1) = A : Ambet3(2) = BP1
         ImpostaGiocata 4,Ambet3,Ruo,Po2,Clp,,1
         Ambet4(1) = A : Ambet4(2) = BM1
         ImpostaGiocata 5,Ambet4,Ruo,Po2,Clp,,1
         Gioca Es
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 20 febbraio 2026
    Bari
    71
    19
    24
    07
    58
    Cagliari
    88
    71
    64
    85
    87
    Firenze
    72
    52
    40
    85
    57
    Genova
    50
    27
    14
    18
    26
    Milano
    31
    56
    50
    53
    58
    Napoli
    06
    07
    54
    03
    72
    Palermo
    67
    50
    70
    78
    57
    Roma
    19
    70
    29
    06
    61
    Torino
    38
    03
    06
    20
    19
    Venezia
    57
    52
    78
    66
    07
    Nazionale
    63
    53
    25
    24
    15
    Estrazione Simbolotto
    Cagliari
    06
    35
    21
    26
    34
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto