Novità

script di visual lotto da modificare per spaziometria

ppaaoolloo

Super Member >PLATINUM<
ciao
chiedo cortesemente se c'è qualcuno che può
modificare questo script per spaziometria

ringrazio anticipatamente

saluti





Option Explicit

Sub Main()

Dim estr, a, b, somma, vsomma, r, p,r2
Dim prev(2)
Dim ProgE

ProgE = Metodo.Progressione(0, 0)
Metodo.Init "Uscita del 12 o del 21", 2
For estr= Estrazione.Inizio(2011) To Estrazione.Fine
For r=1 To 10
For p=1 To 5

a=Estratti.Numero(estr,r,p)
If a=12 Then
If r=10 Then
r2=1
b=Estratti.Numero(estr,r2,p)
somma=FuoriNovanta (a+b)
vsomma=Vertibile(somma)
Testo.Font csGrassetto
Testo.Out "Data Estrazione "& Estrazione.Data(estr)
Testo.Font csNormale
Testo.Out NomeRuota(r)&"--"& NomeRuota(r2)
Testo.Out "Ruota1"&"--->"& Estrazione.Estratti(estr,r)
Testo.Out "Ruota2"&"--->"&Estrazione.Estratti(estr,r2)
Testo.Out "Posizione--"& p
Testo.Colore csRosso
Testo.Out "Numeri da Giocare "&somma&"-"&vsomma
Testo.Colore csNero
Testo.Out""
prev(1)=somma
prev(2)=vsomma
Else
r2=r+1
b=Estratti.Numero(estr,r2,p)
somma=FuoriNovanta (a+b)
vsomma=Vertibile(somma)
Testo.Font csGrassetto
Testo.Out "Data Estrazione "& Estrazione.Data(estr)
Testo.Font csNormale
Testo.Out NomeRuota(r)&"--"& NomeRuota(r2)
Testo.Out "Ruota1"&"--->"& Estrazione.Estratti(estr,r)
Testo.Out "Ruota2"&"--->"&Estrazione.Estratti(estr,r2)
Testo.Out "Posizione--"& p
Testo.Colore csRosso
Testo.Out "Numeri da Giocare "&somma&"-"&vsomma
Testo.Colore csNero
Testo.Out""
prev(1)=somma
prev(2)=vsomma
Metodo.GiocaPronostico 1,estr+1,14,progE,prev,1,r,r2
End If
Else

If a=21 Then
If r=10 Then
r2=1
b=Estratti.Numero(estr,r2,p)
somma=Abs(a-b)
vsomma=Vertibile(somma)
Testo.Font csGrassetto
Testo.Out "Data Estrazione "& Estrazione.Data(estr)
Testo.Font csNormale
Testo.Out NomeRuota(r)&"--"& NomeRuota(r2)
Testo.Out "Ruota1"&"--->"& Estrazione.Estratti(estr,r)
Testo.Out "Ruota2"&"--->"&Estrazione.Estratti(estr,r2)
Testo.Out "Posizione--"& p
Testo.Colore csRosso
Testo.Out "Numeri da Giocare "&somma&"-"&vsomma
Testo.Colore csNero
Testo.Out""
prev(1)=somma
prev(2)=vsomma
Else
r2=r+1
b=Estratti.Numero(estr,r2,p)
somma=Abs(a-b)
vsomma=Vertibile(somma)
Testo.Font csGrassetto
Testo.Out "Data Estrazione "& Estrazione.Data(estr)
Testo.Font csNormale
Testo.Out NomeRuota(r)&"--"& NomeRuota(r2)
Testo.Out "Ruota1"&"--->"& Estrazione.Estratti(estr,r)
Testo.Out "Ruota2"&"--->"&Estrazione.Estratti(estr,r2)
Testo.Out "Posizione--"& p
Testo.Colore csRosso
Testo.Out "Numeri da Giocare "&somma&"-"&vsomma
Testo.Colore csNero
Testo.Out""
prev(1)=somma
prev(2)=vsomma
Metodo.GiocaPronostico 1,estr+1,14,progE,prev,1,r,r2
End If
End If

End If
Next
Next
Next
Metodo.Report
End Sub
 
Ciao, Poalo, lo scipt è illegibile per la mia versione di Vl7 causa codici modificati nelle ultime versioni.
Tuttavia da quello che posso capire circa la lettura cerchi una spia 12 o 21 e giochi la somma e veritile della spia+ numeri isotopo 2° ruota.

prova a vedere ho messo un mix di tabella e nuovi codici.

Codice:
Sub Main
   Dim nu(2),ru(2),T,V,posta(2)
   posta(1) = 9
   posta(2) = 1
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   T = Array(T,"Id Data","Estratti","Ruote","Numeri spia","Numeri In Gioco","Esito","Verifica","colpo","id Verifica")
   Call InitTabella(T)
   For es = Ini To fin
      For r1 = 1 To 10
         For p = 1 To 5
            a = Estratto(es,r1,p)
            If a = 12 Or a = 21 Then
               If r1 = 10 Then
                 r2 = 1
               Else
                  r2 = r1 + 1
                  End If
                  b = Estratto(es,r2,p)
                  nu(1) = Fuori90(a + b)
                  nu(2) = Vert(nu(1))
                  ru(1) = r1
                  ru(2) = r2
                  Call VerificaEsito(nu,ru,es + 1,1,14,,esito,clp,es1,id)
                  'Scrivi GetInfoEstrazione(es) & vbTab,0,0
                  'Scrivi StringaEstratti(es,r1) & vbTab & NomeRuota(r1)
                  'Scrivi GetInfoEstrazione(es) & vbTab,0,0
                  'Scrivi StringaEstratti(es,r2) & vbTab & NomeRuota(r2)
                  'Scrivi String(60,"-") & a & " + " & b & "  <>  " & StringaNumeri(nu,,1),1,0
                  'Scrivi vbTab & esito & vbTab & es1 & vbTab & clp
                  V = Array(V,GetInfoEstrazione(es),StringaEstratti(es,r1) & vbTab & "<br>" & StringaEstratti(es,r2),_
                  SiglaRuota(r1) & "<br>" & SiglaRuota(r2),a & " + " & b,StringaNumeri(nu,,1),esito,es1,clp,GetInfoEstrazione(id))
                  Call AddRigaTabella(V)

                  ImpostaGiocata 1,nu,ru,posta,14,1
[LEFT][COLOR=#000000][FONT=Helvetica][SIZE=13px]Call Gioca(es + 1,1,,1,,False)[/SIZE][/FONT][/COLOR][/LEFT]

               'End If
            End If
         Next
      Next
   Next
   CreaTabella
   Call ScriviDistribuzioneEsiti(False)
   Call ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Ciao a Tutti e fate i bravi.

riscaricare grazie a Salvo ho capito che c'era un errore nel costrutto.
 
Ultima modifica:
Ciao a Tutti, vedo che Mike58 mi ha preceduto, io nel mio piccolo l'ho interpretato cosi

Codice:
 'Metodo Spie 12 e 21 - Chiesto da Ppaaoolloo
'script by Salvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,P1,P2,P3,E1,E2
   Dim A,B,Caso,Clp,Salvo50,Somma,VSomma
   Dim Post(2),Ruote(2),Ambata(2)
   Post(2) = 1
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambo? ",Salvo50,14))
   Call ScegliRange(Ini,Fin,8350,EstrazioneFin)
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         If R1 < 10 Then R2 = R1 + 1
         If R1 = 10 Then R2 = 1
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            If A = 12 Or A = 21 Then
               B = Estratto(Es,R2,P1)
               Somma = Fuori90(A + B)
               VSomma = Vert(Somma)
               Caso = Caso + 1
               ColoreTesto 1
               Scrivi String(92,"O") & " Caso " & FormattaStringa(Caso,"0000")
               ColoreTesto 0
               Scrivi
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P2 = 1 To 5
                  E1 = Estratto(Es,R1,P2)
                  If E1 = A Then
                     Call ColoreTesto(2)
                  Else
                     Call ColoreTesto(0)
                  End If
                  Call Scrivi(Format2(E1) & " ",1,0)
                  Call ColoreTesto(0)
               Next
               Scrivi
               '
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R2) & " ",1,0
               For P3 = 1 To 5
                  E2 = Estratto(Es,R2,P3)
                  If E2 = B Then
                     Call ColoreTesto(2)
                  Else
                     Call ColoreTesto(0)
                  End If
                  Call Scrivi(Format2(E2) & " ",1,0)
                  Call ColoreTesto(0)
               Next
               Scrivi
               ColoreTesto 2
               Scrivi " Numeri da giocare " & Format2(Somma) & "  " & Format2(VSomma)
               ColoreTesto 0
               Scrivi
               Ruote(1) = R1 : Ruote(2) = R2
               Ambata(1) = Somma : Ambata(2) = VSomma
               ImpostaGiocata 1,Ambata,Ruote,Post,Clp
               Gioca Es
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi Space(50) & " Metodo Spie 12 e 21 - Chiesto da Ppaaoolloo"
   Scrivi Space(65) & "Script by Salvo50"
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
Indietro
Alto