Ambo su ruota + terno

[Roby]

metodo di ambo su ruota

Scrivi String(15," ")
ColoreTesto 2
Scrivi String(15," ")&"***********************************************",1
ColoreTesto 1
Scrivi String(15," ")&" metodo Ambo su ruota ",1
ColoreTesto 2
Scrivi String(15," ")&"***********************************************",1
Scrivi String(15," ")&"***********************************************",1
ColoreTesto 9
Scrivi String(15," ")&" By Ras",1
ColoreTesto 9
Scrivi String(15," ")&"***********************************************",1
Sub main()
Dim ruota(10), ruote(10)
Dim numeri1(10), numeri2(10), numeri3(10)
Dim posto(5), poste(5), posta(5)
posta(1)=10
poste(2)=1
posto(2)=2
ruota(1)=2
ruota(2)=3
ruote(1)=11
For n= EstrazioneFin -100 To EstrazioneFin
If IndiceMensile (n+1)=1 Or n=EstrazioneFin Then
numeri1(1)=Fuori90(Estratto(n,2,3)+Estratto(n,3,3)+2)
ImpostaGiocata 1,numeri1,ruota,posta,10,1
numeri2(1)=numeri1(1)
a=Estratto(n,2,1)
b=Estratto(n,3,5)
If a<b Then numeri2(2)=Fuori90(b-a)+20 End If
If a>b Then numeri2(2)=Fuori90(a-b)+20 End If
If a=b Then numeri2(2)=20 End If
ImpostaGiocata 2,numeri2,ruota,poste,10,2
ImpostaGiocata 3,numeri2,ruote,posto,10,2
numeri3(1)=numeri1(1)
a=Estratto(n,2,5)
b=Estratto(n,3,1)
If a<b Then numeri3(2)=Fuori90(b-a)+40 End If
If a>b Then numeri3(2)=Fuori90(a-b)+40 End If
If a=b Then numeri3(2)=40 End If
ImpostaGiocata 4,numeri3,ruota,poste,10,2
ImpostaGiocata 5,numeri3,ruote,posto,10,2
Gioca n
End If
Next
ScriviResoconto



End Sub

 

[Ras]

Terno e ambo su torino

Scrivi String(20," ")&"************************************** ",1
Scrivi String(20," ")&"****** Terno e Ambo su Torino ****** ",1
Scrivi String(20," ")&"******* Ras ******** ",1
Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(2)=1.5
posta(3)=0.4
posta(4)=0.1
ruote(1)=9
k=12
y=4
For n=7300 To EstrazioneFin
If IndiceMensile(n+1)=1 Then
ng=0
numeri1(1)=Fuori90(Estratto(n,8,3)+Estratto(n,8,4)+13)
numeri1(2)=Fuori90(Estratto(n,2,1)+Estratto(n,8,2)+26)
numeri1(3)=Fuori90(Estratto(n,1,3)+Estratto(n,5,3)+14)
numeri1(4)=Fuori90(Estratto(n,2,3)+Estratto(n,6,2)+21)
numeri1(5)=Fuori90(Estratto(n,2,3)+Estratto(n,3,2)+64)
numeri1(6)=Fuori90(Estratto(n,5,1)+Estratto(n,8,1)+29)
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=Fuori90(Estratto(n,8,3)+Estratto(n,8,4)+13)
numeri1(2)=Fuori90(Estratto(n,2,1)+Estratto(n,8,2)+26)
numeri1(3)=Fuori90(Estratto(n,1,2)+Estratto(n,8,3)+31)
numeri1(4)=Fuori90(Estratto(n,8,1)+Estratto(n,8,3)+51)
numeri1(5)=Fuori90(Estratto(n,2,3)+Estratto(n,3,2)+64)
numeri1(6)=Fuori90(Estratto(n,10,2)+Estratto(n,10,5)+60)
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=Fuori90(Estratto(n,8,3)+Estratto(n,8,4)+13)
numeri1(2)=Fuori90(Estratto(n,2,1)+Estratto(n,8,2)+26)
numeri1(3)=Fuori90(Estratto(n,5,3)+Estratto(n,9,2)+48)
numeri1(4)=Fuori90(Estratto(n,1,4)+Estratto(n,1,5)+08)
numeri1(5)=Fuori90(Estratto(n,1,4)+Estratto(n,2,5)+77)
numeri1(6)=Fuori90(Estratto(n,9,4)+Estratto(n,10,5)+25)
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=Fuori90(Estratto(n,8,3)+Estratto(n,8,4)+13)
numeri1(2)=Fuori90(Estratto(n,2,1)+Estratto(n,8,2)+26)
numeri1(3)=Fuori90(Estratto(n,2,3)+Estratto(n,6,1)+22)
numeri1(4)=Fuori90(Estratto(n,1,2)+Estratto(n,9,4)+01)
numeri1(5)=Fuori90(Estratto(n,1,3)+Estratto(n,3,5)+33)
numeri1(6)=Fuori90(Estratto(n,4,4)+Estratto(n,5,4)+35)
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
numeri1(1)=Fuori90(Estratto(n,8,3)+Estratto(n,8,4)+13)
numeri1(2)=Fuori90(Estratto(n,2,1)+Estratto(n,8,2)+26)
numeri1(3)=Fuori90(Estratto(n,2,4)+Estratto(n,2,5)+55)
numeri1(4)=Fuori90(Estratto(n,2,3)+Estratto(n,7,4)+77)
numeri1(5)=Fuori90(Estratto(n,3,3)+Estratto(n,10,2)+09)
numeri1(6)=Fuori90(Estratto(n,5,3)+Estratto(n,9,1)+84)
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,posta,k,y
For a=1 To ng
For b=1 To ng
ImpostaInterruzioni a,b,y
Next
Next
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[sognoosondesta]

ciao, per favore potresti mettere la previsione già calcolata?Ti ringrazio, ciaooo

 

[musa26]

Potresti riportare il calcolo del metodo fatto con carta, penna e calcolatrice?
Grazie

 

[curioso]

ciao, potresti gentilmente spiegarci a parole semplici (magari con un bell'esempio) come avvengono i calcoli? grazie per la tua disponibilità.

 

[Ras]

Ambo su ruota:
calcolo alla prima del mese febbraio ruote scelte

Cagliari 83-30...83-90...83-89...31-89...31-41
Firenze 83-30...83-90...83-89...31-89...31-41

 

[Ras]

ambo e terno su Torino:
calcolo per il mese di febbraio per ambo e terno.

71-4-65
71-4-60
54-6-33
76-6-45
lunghetta 71-4-65-60-54-6-33-76-45 per ambo e terno