SCHERZONE

[Sakti]

Ambo secco su Bari al 100% dedicato alla Lottomatica.
Provare per credere...??

Sub Main()
Scrivi "===== BARI AMBO SECCO - by TOON ===== ",2,,4,,4
Dim nu(2)
Dim posta(2)
Dim ruote(1)
posta(2) = 1
ini = EstrazioneFin - 100 ' NUMERO ESTRAZIONI DI RICERCA
fine = EstrazioneFin '-1
For es = ini To fine
If IndiceMensile(es) = 1 Then
Messaggio es
For x = 1 To 1 'RUOTA DI RILEVAMENTO
ruote(1) = x ' RUOTA DI RILEVAMENTO
nu(1) = Estratto(es + 1,x,1)
nu(2) = Estratto(es + 1,x,3)
ImpostaGiocata 1,nu,ruote,posta,9,4
ColoreTesto 2
ColoreTesto 1:Scrivi String(100,"=") & " " & casi,1
Scrivi "Ruota Estrazione "
Scrivi " " & SiglaRuota(x) & "--" & StringaEstratti(es,x),1
Scrivi " " & SiglaRuota(x) & "--" & StringaEstratti(es + 1,x),1
ColoreTesto 0
Gioca es,1
Next
End If
Next
Scrivi
Scrivi "AMBO SECCO 100 % - by TOON",2,,4,,2
ColoreTesto 0
ScriviResoconto
End Sub

 

[curioso]

Come si ricava l'ambo? Grazie non so usare gli script

 

[Sakti]

E' uno Scherzo, quello che fanno tanti imbroglioni per spillare soldi a chi ne capisce poco.
Lo script, praticamente prende gli estratti sortiti nell'ultima estrazione e ti fa credere di averli calcolati nella precedente.
nu(1) = Estratto(es + 1,x,1) - nu(2) = Estratto(es + 1,x,3) x è Bari e lo script prende gli estratti 1 e 3 dell'estrazione +1 cioè quella successiva alla ricerca.
Infatti se tu fai il controllo su 1000 estrazioni ha una resa del 100%, sarebbe miracoloso...
Attenti alle fregature.

 

[curioso]

Grazie per la risposta