samsung444
Member
buongiorno raggazzi mi potete aiutare
no riesco ad abbinare il risultato di due variabili con l'ambata x giocare x ambo
esempio reale
PER AMBATA/CAPOGIOCO: 4° ESTRATTO DI BA - 1° ESTRATTO DI PA + 10 (1° VARIABILE)
PER AMBO:
ABBINAMENTO 1: 2° ESTRATTO DI TO - 3° ESTRATTO DI GE (2° VARIABILE)
ABBINAMENTO 2: 5° ESTRATTO DI CA X 2° ESTRATTO DI CA - 4° estratto di roma(3° VARIABILE) -
riesco a far fare i calcoli giusti,
ma non riesco ad abbinare e vedere gli abbinamenti x ambo ,l'ambata piu' gli abbinamenti 1 e 2
come si vede dal risultato x l'ambata va bene,
ma per l'ambo mi da solo i numeri da abbinare e non l'ambata + i numeri da abbinare
post lo script e se qualcuno mi aiutasse ad aggiungere qualche parte mancante vi ringrazio di cuore
ho fatto mille prove ma non ci riesco...
N.B.: come tanti anchio cerco di imparare !
grazie infinite
no riesco ad abbinare il risultato di due variabili con l'ambata x giocare x ambo
esempio reale
PER AMBATA/CAPOGIOCO: 4° ESTRATTO DI BA - 1° ESTRATTO DI PA + 10 (1° VARIABILE)
PER AMBO:
ABBINAMENTO 1: 2° ESTRATTO DI TO - 3° ESTRATTO DI GE (2° VARIABILE)
ABBINAMENTO 2: 5° ESTRATTO DI CA X 2° ESTRATTO DI CA - 4° estratto di roma(3° VARIABILE) -
riesco a far fare i calcoli giusti,
ma non riesco ad abbinare e vedere gli abbinamenti x ambo ,l'ambata piu' gli abbinamenti 1 e 2
come si vede dal risultato x l'ambata va bene,
ma per l'ambo mi da solo i numeri da abbinare e non l'ambata + i numeri da abbinare
post lo script e se qualcuno mi aiutasse ad aggiungere qualche parte mancante vi ringrazio di cuore
ho fatto mille prove ma non ci riesco...
N.B.: come tanti anchio cerco di imparare !
grazie infinite
Codice:
Sub Main()
Dim ruote(2)
Dim ambata(1): Dim ambo(2) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2)
poste(1) = 1
posta(2) = 1
postee(3) = 1
ruote(1) = 1
ruote(2) = 2
'------------abbinamenti x ambo------
klp = 10
ini = 8700
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1Then
AvanzamentoElab ini,fin,es
casi = casi + 1
co=co+1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "prova",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
'..................giocata x ambata.............
ambata(1) = Fuori90(Estratto(es,BA_,4) - Estratto(es,PA_,1) + 10)
ImpostaGiocata 1,ambata,ruote,poste,klp 'se tolgo il numero mi visualizza fino a 13 estr.
'.......................giocata x ambo.....................
ambo(1) = Fuori90(Estratto(es,TO_,2) - Estratto(es,GE_,3))
ambo(2) = Fuori90(Estratto(es,CA_,5) * Estratto(es,VE_,2) - Estratto(es,RO_,4))
ImpostaGiocata 2,ambo,ruote,posta,klp'se metto il numero si ferma al primo esito positivo.
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
