donatoci dall amiko jai.jai...!!! 
' Formattazione Testo
tst=" ********** "
tst1="IL COIFFICENTE 0,08"
spc1=(90-Len(tst+tst1+tst))/2
tst2="...di Fucarino Salvatore..."
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. Moltiplicare ogni singolo Estratto x il coifficente 0,08."
Scrivi "Sommare i 5 risulati ottenuti. La parte intera del risultato arrotondata per eccesso sarą L'Ambata."
Scrivi "il vertibile del quoziente invariato (ossia senza arrotondamento) sarą l'Ambata Secondaria."
Scrivi "A volte i due numeri si combinano per ambo secco su ruota e per tutte."
Scrivi
Scrivi "*****************************************************************************************************************"
Scrivi
Sub main()
es=EstrazioneFin -50 'Estrazione inizio ricerca previsioni ----->50 Estrazioni in meno a quella di ricavo
finale=EstrazioneFin 'Estrazione finale
'finale=8164
For kk=es To finale
AvanzamentoElab es,finale,kk
Scrivi DataEstrazione (es,True)
'se si vuole una sola ruota impostarla sul ciclo For seguente Esempio: per Bari sarą For i=1 to 1
'per Cagliari For i=2 to 2 etc. ect.
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 (2), numeri(2), ruot(2),post(2)
post(2)=1
poste(1)=1
poste (2)=1
ruote (1)=ruota
ruot(1)=ruota
ruot(2)=11
n1=e1*0.08
n2=e2*0.08
n3=e3*0.08
n4=e4*0.08
n5=e5*0.08
somma=n1+n2+n3+n4+n5
'calcolo quoziente
app=CStr (somma)
Scrivi "SOMMA ESTRATTI CON COIFFICENTE 0,08 --->" & app
b=Len (app)
c=0
flag=0
For cont=1 To b
ch=Mid(app,cont,1)
If ch ="." Then
flag=1
End If
If flag=1 And ch<> "." Then
qz=qz+ch
End If
Next
qzz=CInt(qz)
Scrivi "QUOZIENTE:" & qz
'calcolo le due Ambate
numeri(1)=Round (somma)
numeri(2)=Vert (qzz)
ImpostaGiocata 1,numeri,ruote,poste,9,1
ImpostaGiocata 2,numeri,ruot,post,9,2
Gioca ek
previsione=1
End Function
Edited by pigreko73.. - 6/2/2011, 10:10
