Novità

Anima buona cercasi per nuovo script

marpioncella

Super Member >GOLD<

[TD="class: xl68, colspan: 12"] Qualche anima buona può fare uno script di questo metodo postato nella sezione metodi da un utente del forum? Mi servirebbe che su tutte le estrazioni lo script segnali la presenza di questa condizione e l'eventuale uscita dei numeri sotto riportati su NA e PA
Grazie MARPI

Spia 8 su bari in quarta posizione
[/TD]

[TD="class: xl68, colspan: 11"] mettere in gioco ambata 04-10 [/TD]

[TD="class: xl68, colspan: 8"] x ambo 12-13-31-35 [/TD]

[TD="class: xl68, colspan: 3"] na-pa [/TD]
 
Passavo di qui... :)
L'ho fatto in velocità, controlla se va bene.

Codice:
Sub main()
Dim rt(2),pte(1),pta(2),am(2),ambo(4),nr(4)

estr=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",12))
ini=EstrazioneFin-estr
fin=EstrazioneFin

For es=ini To fin
Messaggio es
sp=8
x=Estratto(es,1,4) : If x=sp Then

pte(1)=1
pta(2)=1
rt(1)=6
rt(2)=7
ng=0

am(1)=4
am(2)=10
ng=ng+1
ImpostaGiocata ng,am,rt,pte,clp

nr(1)=12
nr(2)=13
nr(3)=31
nr(4)=35

For x=1 To 4
ambo(1)=am(1)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
Next

For x=1 To 4
ambo(1)=am(2)
ambo(2)=nr(x)
ng=ng+1
ImpostaGiocata ng,ambo,rt,pta,clp
Next

casi=casi+1
Scrivi String(70,"=")&" Caso n° "&casi,1
Scrivi DataEstrazione(es)&"    "& NomeRuota(1)&" < "& StringaEstratti(es,1)&" > Numero Spia "& Format2(sp)&" (4° Estratto)",1
Scrivi String(70,"="),1
Scrivi

Gioca es
End If
Next
ScriviResoconto
End Sub

ciauz
:)
 
Ciao THAUK
ho provato lo script su SPAZIOMETRIA , ma mi da "errore script 1024 prevista istruzione linea 46 colonna 0" ,
ho sbagliato qualche cosa o c'è un errore?
Saluti.
Giorgio
 
Ciao THAUK
scusa ho riprovato a rimetterlo ora funziona, avevo copiato male .
Comunque GRAZIE .
Saluti Giorgio
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45
Indietro
Alto