quote:Originally posted by janez57
buona sera a tutti/e
Come per incanto ultima del mese
al primo colpo bari 80
janez57
Ottimo Janez

Scaricati il programma Spaziometria, che ti ho fatto lo script del metodo
Sub Main()
Scrivi : ColoreTesto 1 : Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE: FIGURA DEL 4°DI BARI + IL SUO VERTIBILE ____ METODO By JANEZ57 ____ Listato By BLACKMORE"
Scrivi : ColoreTesto 0 : Scrivi
Dim pt(2),rt(1),nn(2),pta(2)
pt(1)=1
pt(2)=1
pta(1)=1
pta(2)=1
clp=7 'colpi di gioco
rt(1)=1 '1a ruota di gioco
ini=EstrazioneFin -140
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,1,4)'<<--- questo è il 4°estr. di Bari!!!
'------------------------------ Ambate
nn(1)= Figura(a)
nn(2)= Vert(nn(1))
ImpostaGiocata 1,nn,rt,pt,clp,1
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Blackmore