| donatomi dall amiko jai.jai...!!!
' Formattazione Testo
tst=" ********** "
tst1="QUOZIENTI"
spc1=(90-Len(tst+tst1+tst))/2
tst2="...di Antonio Longo..."
spc2=(90-Len(tst+tst2+tst))/2
Scrivi Space(spc1)&tst&tst1&tst& Chr(10),1
Scrivi Space(spc2)&tst&tst2&tst& Chr(10),1
ColoreTesto 2 : Scrivi Space((90-Len("by Jai.Jai")))&"by Jai.Jai"& Chr(10),1
ColoreTesto 1 : Scrivi String(48,"*")&"listato by Jai.Jai"& Chr(10),1
ColoreTesto 0
Scrivi "SPIEGAZIONE RIASSUNTIVA DEL METODO:"
Scrivi
Scrivi "Prendere una ruota qualsiasi. Sommare i 5 estratti. "
Scrivi "Dividere la somma sequenzialmente con il 1°,2°,3°,4° e 5° estratto della ruota."
Scrivi "Si procede con il calcolo della previsione solo se il quoziente ottenuto sia di 4 cifre finali."
Scrivi "L'ambata primaria sarą composta dalle prime 2 cifre (7° e 8° numero del quoziente)"
Scrivi "L'ambata secondaria si otterrą con le ultime 2 cifre del quoziente (9° e 10° numero)"
Scrivi "Se l'ambata secondaria č presente nell'estrazione di ricavo sara invece composta dal +1 dell'Ambata principale."
Scrivi "Ai fini del Super Enalotto tenere conto che queste ambate escono molto spesso al 1° posto estrazionale."
Scrivi
Scrivi "Esempio: Estrazione:23/01/2002 Bari:12-24-48-11-72"
Scrivi
Scrivi "Somma Estratti:167:12:24:48:11:72"
Scrivi "Quoziente di 4 cifre. Ambata principale:15 Ambata Secondaria:25 1° Colpo 1° estratto."
Scrivi
Scrivi "*****************************************************************************************************************"
Scrivi
Sub main()
es=8164 'Estrazione inizio ricerca previsioni ----->8164 prima estrazione del 2010
finale=EstrazioneFin 'Estrazione finale
'finale=8164
For kk=es To finale
AvanzamentoElab es,finale,kk
Scrivi DataEstrazione (es,True)
For i=1 To 10
h=previsione (kk,i,Estratto(kk,i,1), Estratto(kk,i,2), Estratto(kk,i,3), Estratto(kk,i,4), Estratto(kk,i,5))
Next
Next
ScriviResoconto
End Sub
Function previsione (ek,ruota,e1,e2,e3,e4,e5)
Dim ruote (1), poste (1), numeri(2)
poste(1)=1
ruote (1)=ruota
somma=e1+e2+e3+e4+e5
a=somma/e1/e2/e3/e4/e5
b=FormatNumber(a,10)
app=CStr (b)
app=Mid (app,1,11)
e=Len(app)
num0=0
For jks=1 To 8
If Mid(app,jks,1)="0" Then
num0=num0+1
End If
Next
If num0>4 And num0 <7 Then
If CInt (Mid(app,6,1))=0 Then
If CInt (Mid(app,7,1))>0 Then
numeri(1)=Fuori90 (CInt (Mid(app,7,2)))
numeri(2)=Fuori90 (CInt (Mid(app,9,2)))
End If
If CInt (Mid(app,7,1))=0 And CInt (Mid(app,8,1))>0 Then
numeri(1)=Fuori90 (CInt (Mid(app,8,2)))
numeri(2)=Fuori90 (CInt (Mid(app,10,2)))
End If
If numeri(2)=e1 Or numeri(2)=e2 Or numeri(2)=e3 Or numeri(2)=e4 Or numeri(2)=e5 Then
numeri(2)=Fuori90 (numeri(1)+1)
End If
If numeri(1)=numeri(2) Then
numeri(2)=Vert (numeri(1))
End If
If numeri(2)=0 Then
numeri(2)=Fuori90 (numeri(1)+1)
End If
ImpostaGiocata 1,numeri,ruote,poste,9,1
Gioca ek
previsione=1
Scrivi
Else
previsione=0
End If
End If
End Function
Edited by pigreko73.. - 6/2/2011, 10:11
|
