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
    giovedì 12 giugno 2025
    Bari
    26
    16
    67
    08
    12
    Cagliari
    67
    31
    37
    76
    80
    Firenze
    03
    63
    28
    09
    43
    Genova
    68
    38
    53
    86
    85
    Milano
    66
    41
    88
    07
    53
    Napoli
    11
    32
    09
    24
    79
    Palermo
    07
    44
    76
    30
    35
    Roma
    03
    64
    30
    65
    29
    Torino
    40
    46
    31
    32
    39
    Venezia
    88
    67
    46
    04
    51
    Nazionale
    76
    67
    49
    34
    56
    Estrazione Simbolotto
    Napoli
    23
    03
    04
    17
    02

Ultimi Messaggi

Indietro
Alto