salvatore23/57
Super member
volevo chiedere come si fa ad avere la prossima previsione del (terno a colpo ) dello script in spaziometria
grazie a tutti
ciao da Salvatore
grazie a tutti
ciao da Salvatore
Ultima modifica:
volevo chiedere come si fa ad avere la prossima previsione del (terno a colpo ) dello script in spaziometria
grazie a tutti
ciao da Salvatore
Scusa a quale script ti riferisci, che io sappia non ci sono sript con terno a colpo
forse l'avrò copiato da chissa dove ma non mi ricordo comunque è questo ciao
Sub Main
Dim Ru(1),Po(5) : Ru(1) = BA_ o(2) = 1000 : Co = 1
Es = EstrazioneFin - 1
E = StringaEstratti(Es + 1,Ru(1))
Nu = Split("0." & E,".")
Nu(2) = 0 : Nu(4) = 0
ImpostaGiocata 1,Nu,Ru,Po,Co
Gioca Es
ScriviResoconto
End Sub
Questo script nel programma spaziometria non funzionerebbe mai.
Non è stato progettato per esso......e forse non è nemmeno completo....
Ci sono diverse cose che non mi quadrano, ma ne dico solo una :
la posta è dichiarata a 1000.
non credo che sia 1000 Euro, ma 1000 lire,
quindi risalente a una dozzina di anni fa.......
Questo script nel programma spaziometria non funzionerebbe mai.
Non è stato progettato per esso......e forse non è nemmeno completo....
Ci sono diverse cose che non mi quadrano, ma ne dico solo una :
la posta è dichiarata a 1000.
non credo che sia 1000 Euro, ma 1000 lire,
quindi risalente a una dozzina di anni fa.......
Sub Main()
Dim n1,n2,casi
Dim am(10)
Dim ruota(10)
Dim posta(5)
posta(2) = 1
ini = 8000 '3861 (05/01/1945 1a estrazione a 10 ruote)
casi = o
For n = ini To EstrazioneFin
Messaggio DataEstrazione(n)
For r = 1 To 10
For p = 1 To 5
a = Estratto(n,r,p)
b = Estratto(n + 1,r,p)
c = Estratto(n + 1,r,FuoriX(p + 1,5))
If a = b Then
casi = 0
TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBO STRATOSFERICO - TROVATO CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona da sempre) - non facciamoco burlare dai venditori di fumo - TENETEVI PRONTI E'IN CORSO LO SVILUPPO DEL TERNO STRATOSFERICO ",1,3,0
ColoreTesto 2
Scrivi " Estrazione positiva rilevata del " & DataEstrazione(n) & " num. " & b & " in gioco su " & SiglaRuota(r)
Scrivi FuoriX(41,10)
ColoreTesto 0
ruota(1) = r
am(1) = a
am(2) = c
ImpostaGiocata 1,am,ruota,posta,3,1
Gioca n
End If
Next
Next
Next
TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBO STRATOSFERICO - TROVATO CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona da sempre) - non facciamoco burlare dai venditori di fumo - TENETEVI PRONTI E'IN CORSO LO SVILUPPO DEL TERNO STRATOSFERICO ",1,3,0
ScriviResoconto
End Sub
caro baffo te lo ricordi questo? conosci di sicuro la paternità
Codice:Sub Main() Dim n1,n2,casi Dim am(10) Dim ruota(10) Dim posta(5) posta(2) = 1 ini = 8000 '3861 (05/01/1945 1a estrazione a 10 ruote) casi = o For n = ini To EstrazioneFin Messaggio DataEstrazione(n) For r = 1 To 10 For p = 1 To 5 a = Estratto(n,r,p) b = Estratto(n + 1,r,p) c = Estratto(n + 1,r,FuoriX(p + 1,5)) If a = b Then casi = 0 TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBO STRATOSFERICO - TROVATO CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona da sempre) - non facciamoco burlare dai venditori di fumo - TENETEVI PRONTI E'IN CORSO LO SVILUPPO DEL TERNO STRATOSFERICO ",1,3,0 ColoreTesto 2 Scrivi " Estrazione positiva rilevata del " & DataEstrazione(n) & " num. " & b & " in gioco su " & SiglaRuota(r) Scrivi FuoriX(41,10) ColoreTesto 0 ruota(1) = r am(1) = a am(2) = c ImpostaGiocata 1,am,ruota,posta,3,1 Gioca n End If Next Next Next TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBO STRATOSFERICO - TROVATO CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona da sempre) - non facciamoco burlare dai venditori di fumo - TENETEVI PRONTI E'IN CORSO LO SVILUPPO DEL TERNO STRATOSFERICO ",1,3,0 ScriviResoconto End Sub