script di visual lotto da modificare per spaziometria

[ppaaoolloo]

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
Testut "Data Estrazione "& Estrazione.Data(estr)
Testo.Font csNormale
Testut NomeRuota(r)&"--"& NomeRuota(r2)
Testut "Ruota1"&"--->"& Estrazione.Estratti(estr,r)
Testut "Ruota2"&"--->"&Estrazione.Estratti(estr,r2)
Testut "Posizione--"& p
Testo.Colore csRosso
Testut "Numeri da Giocare "&somma&"-"&vsomma
Testo.Colore csNero
Testut""
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
Testut "Data Estrazione "& Estrazione.Data(estr)
Testo.Font csNormale
Testut NomeRuota(r)&"--"& NomeRuota(r2)
Testut "Ruota1"&"--->"& Estrazione.Estratti(estr,r)
Testut "Ruota2"&"--->"&Estrazione.Estratti(estr,r2)
Testut "Posizione--"& p
Testo.Colore csRosso
Testut "Numeri da Giocare "&somma&"-"&vsomma
Testo.Colore csNero
Testut""
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
Testut "Data Estrazione "& Estrazione.Data(estr)
Testo.Font csNormale
Testut NomeRuota(r)&"--"& NomeRuota(r2)
Testut "Ruota1"&"--->"& Estrazione.Estratti(estr,r)
Testut "Ruota2"&"--->"&Estrazione.Estratti(estr,r2)
Testut "Posizione--"& p
Testo.Colore csRosso
Testut "Numeri da Giocare "&somma&"-"&vsomma
Testo.Colore csNero
Testut""
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
Testut "Data Estrazione "& Estrazione.Data(estr)
Testo.Font csNormale
Testut NomeRuota(r)&"--"& NomeRuota(r2)
Testut "Ruota1"&"--->"& Estrazione.Estratti(estr,r)
Testut "Ruota2"&"--->"&Estrazione.Estratti(estr,r2)
Testut "Posizione--"& p
Testo.Colore csRosso
Testut "Numeri da Giocare "&somma&"-"&vsomma
Testo.Colore csNero
Testut""
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

 

[Mike58]

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.

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.

 

[salvo50]

Ciao a Tutti, vedo che Mike58 mi ha preceduto, io nel mio piccolo l'ho interpretato cosi

 '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