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
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16
Indietro
Alto