Piccolo aiutino su script

[everest62]

Iter operativo
Alla settima estrazione di ogni mese si sommano i fissi 18 – 85 e 12- 71 al 3°estratto di Napoli e si ricavano i 2 ambi secchi.

Esempio pratico di questa tecnica eseguibile da tutti:

Esempio estrazione del 15/12/2012 :
Napoli 3°estratto=62 eseguire i calcoli
62+18=80 62+85=57 1°ambo
62+12=73 62+71=43 2°ambo
Previsione ambi 80.57 e 73.47
Bari Nazionale e Tutte
Esito:al 6°colpoambo 80.57 su Genova
grazie un saluto a tutti del forum

 

[roy]

ciao everest62,nella speranza che ti sia d'aiuto

Sub Main()
TestoInBandaPassante "***** LISTATO BY ROY ****** ",1,3,0
Dim poste(2)
Dim ruote(3)
Dim am(4)
poste(2) = 1
K = 13
casi = 0
fin = EstrazioneFin
ini = EstrazioneFin - 120
For es = ini To fin
If IndiceMensile(es) = 7 Then
a = Fuori90(Estratto(es,6,3)+ 18)
b = Fuori90(Estratto(es,6,3)+ 85)
c = Fuori90(Estratto(es,6,3)+ 12)
d = Fuori90(Estratto(es,6,3)+ 71)
casi = casi + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "-METODO EVEREST62-- ROY ALGORITMO COLPI 13 ---",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ruote(1) = 1
ruote(2) = 12
ruote(3) = 11
am(1) = a
am(2) = b
ImpostaGiocata 1,am,ruote,poste,K
am(1) = c
am(2) = d
ImpostaGiocata 2,am,ruote,poste,K
Gioca es,True
End If
Next
ColoreTesto 0
TestoInBandaPassante "******* LISTATO BY ROY ******* ",1,3,0
ScriviResoconto
End Sub

 

[everest62]

ciao roy grazie sei un amico
ti posso chiedere unaltro favore.....si puo anche fare alla prima estrazione ..alluntima estazione e su qualsiasi estazione....oppure mi dici tu se posso fare io una modifica allo script...ti ringrazio roy

 

[roy]

scusami everest,non avevo notato la tua richiesta,spero ti sia ancora utile

Sub Main()
TestoInBandaPassante "***** LISTATO BY ROY ****** ",1,3,0
Dim poste(2)
Dim ruote(3)
Dim am(4)
poste(2) = 1
so = CInt (InputBox("quale estrazione?","estrazione",1))
K = 13
fin = EstrazioneFin
ini = EstrazioneFin - 120
For es = ini To fin
If IndiceMensile(es +1) = so Then
a = Fuori90(Estratto(es,6,3)+ 18)
b = Fuori90(Estratto(es,6,3)+ 85)
c = Fuori90(Estratto(es,6,3)+ 12)
d = Fuori90(Estratto(es,6,3)+ 71)
casi = casi + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "-METODO EVEREST62-- ROY ALGORITMO COLPI 13 ---",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ruote(1) = 1
ruote(2) = 12
ruote(3) = 11
am(1) = a
am(2) = b
ImpostaGiocata 1,am,ruote,poste,K
am(1) = c
am(2) = d
ImpostaGiocata 2,am,ruote,poste,K
Gioca es,True
End If
Next
ColoreTesto 0
TestoInBandaPassante "******* LISTATO BY ROY ******* ",1,3,0
ScriviResoconto
End Sub

 

[everest62]

ciao roy mi potresti aiutare se ti do un metodo e me lo trasformi in script

 

[everest62]

ciao roy dove sei finito