scusate l'ignoranza...

[fedev]

ma questo script gia presente in "spaziometria" nn riesco a capire come posso giocare le previsioni visto che l'ambata viene conteggiata una volta che è già ucita, in pratica si vede solo a esito avvenuto...sbaglio a fare qualcosa io o è proprio cosi???

Option Explicit
Sub Main()
Dim n1,n2
Dim am(10)
Dim ruota(10)
Dim posta(5)
Dim Ini,n,r,p,t,a,b


posta(1) = 1
Ini = EstrazioneIni '3861 (05/01/2000 1a estrazione a 10 ruote)
For n = Ini To EstrazioneFin
Messaggio DataEstrazione
For r = 1 To 10
For p = 1 To 5

a = Estratto(n,r,p)


b = Estratto(n + 1,r,p)

If a = b Then

Scrivi "**************************************************************"
ColoreTesto 2
Scrivi " Estrazione positiva rilevata del " & DataEstrazione & " num. " & b & " in gioco su " & SiglaRuota(r)
Scrivi
ColoreTesto 0
ruota(1) = r
am(1) = a
ImpostaGiocata 1,am,ruota,posta,3,1
Gioca n
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Next
TestoInBandaPassante "SENSAZIONALE SCOPERTA - AMBATA MICIDIALE TROVATA CON SPAZIOMETRIA di LuigiB analizzando la famosa TAVOLA REALE - (funziona dal 1939 anno di sua invenzione) - non facciamoco burlare dai venditori di fumo - TENETEVI PRONTI E'IN CORSO LO STUDIO DElL'AMBO STRATOSFERICO ",1,3,0
ScriviResoconto
End Sub
Function RAD10(estrazione,tentativo,ruota,numero1,numero2)

Dim trovati,r,i,j
trovati = 0
For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD10 = True
Exit Function
End If
End If
Next
Next
Next
RAD10 = False
End Function
Function RAD20(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j,a,b
trovati = 0

For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
Scrivi "trovato"
numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD20 = True
Exit Function
End If
End If
Next
Next
Next
RAD20 = False
End Function
Function RAD30(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j,a,b

trovati = 0
For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
Scrivi "30trovato"

numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD30 = True
Exit Function
End If
End If
Next
Next
Next
RAD30 = False
End Function
Function RAD40(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j
trovati = 0
For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
Scrivi "trovato40"

numero1 = Estratto(estrazione,r,i)
numero2 = Estratto(estrazione,r,j)
ruota = r
RAD40 = True
Exit Function
End If
End If
Next
Next
Next
RAD40 = False
End Function
Function RAD50(estrazione,tentativo,byref ruota,byref numero1,byref numero2)
Dim trovati,r,i,j
trovati = 0
For r = 1 To 10
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(estrazione,r,i)
b = Estratto(estrazione,r,j)
If Distanza(a,b) = 30 Then
trovati = trovati + 1
If trovati = tentativo Then
Scrivi "trovato50"

numero1 = Estratto(estrazione,r,i)

 

[claudio8]

è proprio cosi.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

 

[fedev]

ah quindi sarebbe solo una dimostrazione giusto?
va beh grazie mille claudio

 

[claudio8]

quote:Originally posted by fedev

ah quindi sarebbe solo una dimostrazione giusto?
va beh grazie mille claudio

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"