Ciao Danilo eccone uno , si ferma a Dicembre 2005 ed in + nn evidenzia le ruote , sia di rilevamento che di esito.
Se puoi fare qualcosa ti ringrazio fin d'ora , lo stesso dicasi per la somma 108.
Buona giornata.
Sub main()
Dim numeri1(12)
Dim numeri2(12)
Dim numeri3(12)
Dim numeri4(12)
Dim numeri5(12)
Dim numeri6(12)
Dim numeri7(12)
ini=EstrazioneIni(2)
fin=EstrazioneFin(2)
cn=0
For i = ini To fin
Messaggio CStr(i)
sp=0
For x1=1 To 4
For x2=x1+1 To 5
For x3=x2+1 To 6
n1=Estratto(i,,x1,2)
n2=Estratto(i,,x2,2)
n3=Estratto(i,,x3,2)
zz=n1+n2+n3
If zz=105 Then sp=1 End If
Next
Next
Next
If sp=1 Then
Scrivi "-----------------------------------------------"
Scrivi DataEstrazione (i, True,2) & " Previsione valida ESITO:"
ct=ct+1
fi=i+7
If fi =>fin Then fi=fin End If
numeri1(1)=3
numeri1(2)=25
am1=SerieFreq(i+1,fi,numeri1,,1,2) 'ambate
numeri6(1)=3
numeri6(2)=31
numeri6(3)=37
am10=SerieFreq(i+1,fi,numeri6,,3,2)
am21=SerieFreq(i+1,fi,numeri6,,2,2)
numeri7(1)=25
numeri7(2)=19
numeri7(3)=21
am11=SerieFreq(i+1,fi,numeri7,,3,2)
am22=SerieFreq(i+1,fi,numeri7,,2,2)
am6=am1+am21+am22+am10+am11
am8=am21+am22 'ambi
am7=am7+am8 'ambi totali
am9=am9+am1 'ambate totali
am12=am10+am11 'terni
am13=am13+am12 'terni totali
If am6<1 Then
ColoreTesto 2
Scrivi "Giocata del " & DataEstrazione (i, True,2) & " CASO NEGATIVO"
ColoreTesto 0
Else
Scrivi "Ambate --> " & am1 & " Ambi --> " & am8 & " Terni --> " & am12
End If
If am1>0 Then
Scrivi StringaNumeri(numeri1)&" Ambata",1
End If
If am21>0 Then
ColoreTesto 1 : Scrivi StringaNumeri(numeri6)&" Ambo",1 : ColoreTesto 0
End If
If am22>0 Then
ColoreTesto 1 : Scrivi StringaNumeri(numeri7)&" Ambo",1 : ColoreTesto 0
End If
If am10>0 Then
ColoreTesto 2 : Scrivi StringaNumeri(numeri6)& " Terno",1 : ColoreTesto 0
End If
If am11>0 Then
ColoreTesto 2 : Scrivi StringaNumeri(numeri7)& " Terno",1 : ColoreTesto 0
End If
If am6<1 Then
cn=cn+1
End If
End If
Next
ColoreTesto 1 :
Scrivi "************************************************",1
Scrivi "************ RESOCONTO TOTALE ***************",1 : ColoreTesto 0
Scrivi "CASI TOTALI : " & ct,1
Scrivi "CASI POSITIVI : " & (ct-cn)
ColoreTesto 2 : Scrivi "CASI NEGATIVI : " & cn : ColoreTesto 0
Scrivi " AMBATE = " & am9,1
Scrivi " AMBI = " & am7,1
Scrivi " TERNI = " & am13,1
Scrivi : Scrivi "Poste 1€ per AMBATA, AMBO e TERNO",1
sp=70 * ct
ip=6 * am9
im=50 * am7
it=500*am13
ii=ip + im + it
gu=ii-sp
Scrivi "SPESE : " & FormatSpace(sp,5) & " €"
Scrivi "INCASSI : " & FormatSpace(ii,5) & " €"
Scrivi "GUADAGNO : " & FormatSpace(gu,5) & " €",1
End Sub
Kant
La mente è come un paracadute, funziona solo se si apre.
A.Einstein
