Novità

Si può fare?

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?

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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
Indietro
Alto