Novità

Mi servirebbe Aggiunta Ambetto a questo script

S

sean69

Member
Buongiorno a tutti,mi servirebbe gentilmente,come da titolo, aggiungere anche calcolo e sorte Ambetto allo script sotto..
Lo scipt calcola,dopo la sortita di un Ambo Spia su ruota,una terzina frequente (calcolata con matematica sommativa) su2 ruote..attualmente calcola solo le sorti di Ambo e Terno..e qui mi servirebbe anche l'aggiunta dell' Ambetto..se qualcuno puo' aiutarmi..grazie


Sub main()
Dim rt(1),nu(2),ru(2),n3(3),ptt(3),rtt(1),rut(1)
ptt(2)=1 : ptt(3)=1
rtt(1)=11 : rut(1)=12

aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","33.66")
aa="0."&aa
s=Split(aa,".")
nu(1)=CInt(s(1)) : nu(2)=CInt(s(2))

r1=CInt(InputBox ("Su che Ruota è uscito l'Ambo?","RUOTA",5))
rt(1)=r1

rr=InputBox ("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","1.3")
rr="0."&rr
q=Split(rr,".")
ru(1)=CInt (q(1)) : ru(2)=CInt (q(2))

ts=CInt (InputBox ("Vuoi il gioco a TUTTE ? (1=SI ; 0=NO)","TUTTE",1))

clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",13))

ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 5.5= 1^estr.di PA)","POS.-RUOTA","1.6")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 3 Fissi da sommare all'estratto scelto","FISSI","32.36.86")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3))

co=0
For es=8155 To EstrazioneFin 'qui' inserire da che estrazione vogliamo controllare
Messaggio es
If SerieFreq (es,es,nu,rt,2)>0 Then
co=co+1
a=Estratto (es,r,p)
n3(1)=Fuori90(a+f1) : n3(2)=Fuori90(a+f2) : n3(3)=Fuori90(a+f3)
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambo Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" e "& SiglaRuota (ru(2))&" per "&clp&" colpi"
ImpostaGiocata 1,n3,ru,ptt,clp
If ts=1 Then
'ImpostaGiocata 2,n3,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 3,n3,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es
End If
Next
ScriviResoconto

End Sub
 
Ciauz prova cosi

Codice: 
Sub main()
Dim rt(1),nu(2),ru(2),n3(3),ptt(3),pt(3),rtt(1),rut(1)

Dim Ambetto1(2),Ambetto2(2),Ambetto3(2),Ambetto4(2),Ambetto5(2),Ambetto6(2)
Dim Ambetto7(2),Ambetto8(2),Ambetto9(2),Ambetto10(2),Ambetto11(2),Ambetto12(2)
Dim Ambetto13(2),Ambetto14(2),Ambetto15(2),Ambetto16(2),Ambetto17(2),Ambetto18(2),Ambetto19(2),Ambetto20(2)
pt(2)=1
ptt(2)=1 : ptt(3)=1
rtt(1)=11 : rut(1)=12

aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","33.66")
aa="0."&aa
s=Split(aa,".")
nu(1)=CInt(s(1)) : nu(2)=CInt(s(2))

r1=CInt(InputBox ("Su che Ruota è uscito l'Ambo?","RUOTA",5))
rt(1)=r1

rr=InputBox ("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","1.3")
rr="0."&rr
q=Split(rr,".")
ru(1)=CInt (q(1)) : ru(2)=CInt (q(2))

ts=CInt (InputBox ("Vuoi il gioco a TUTTE ? (1=SI ; 0=NO)","TUTTE",1))

clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",13))

ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 5.5= 1^estr.di PA)","POS.-RUOTA","1.6")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 3 Fissi da sommare all'estratto scelto","FISSI","32.36.86")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3))
Ambe = CInt(InputBox(" Vuoi Giocare Anche Per la Sorte di Ambetto? SI = 1, NO un qualsiasi altro numero",,1))
co=0
For es=8155 To EstrazioneFin 'qui' inserire da che estrazione vogliamo controllare
Messaggio es
If SerieFreq (es,es,nu,rt,2)>0 Then
co=co+1
a=Estratto (es,r,p)
n3(1)=Fuori90(a+f1) : n3(2)=Fuori90(a+f2) : n3(3)=Fuori90(a+f3)


 If Ambe = 1 Then
                                       Ambetto1(1) =n3(1) : Ambetto1(2) = Fuori90(n3(2) + 1)
                                       Ambetto2(1) = n3(1) : Ambetto2(2) = Fuori90(90 +n3(2) - 1)
                                       Ambetto3(1) =Fuori90(n3(1) + 1) : Ambetto3(2) = n3(2)
                                       Ambetto4(1) =Fuori90((90 +n3(1)) - 1) : Ambetto4(2) = n3(2)

                                       Ambetto5(1) =n3(1) : Ambetto5(2) = Fuori90(n3(3) + 1)
                                       Ambetto6(1) = n3(1) : Ambetto6(2) = Fuori90(90 +n3(3) - 1)
                                       Ambetto7(1) =Fuori90(n3(1) + 1) : Ambetto7(2) = n3(3)
                                       Ambetto8(1) =Fuori90((90 +n3(1)) - 1) : Ambetto8(2) = n3(3)

                                       Ambetto9(1) =n3(2) : Ambetto9(2) = Fuori90(n3(3) + 1)
                                       Ambetto10(1) = n3(2) : Ambetto10(2) = Fuori90(90 +n3(3) - 1)
                                       Ambetto11(1) =Fuori90(n3(2) + 1) : Ambetto11(2) = n3(3)
                                       Ambetto12(1) =Fuori90((90 +n3(2)) - 1) : Ambetto12(2) = n3(3)
                                       End If


co=0
casi=casi+1:Scrivi String(52,"-")&" caso n° "&(casi),1
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambo Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" e "& SiglaRuota (ru(2))&" per "&clp&" colpi"
co=co+1
ImpostaGiocata 1,n3,ru,ptt,clp
If ts=1 Then
'ImpostaGiocata 2,n3,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 3,n3,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es


If Ambe = 1 Then
ColoreTesto 2
                                       Scrivi Space(19) & "AMBETTI",1
ColoreTesto 0
                                       co=co+1
                                       ImpostaGiocata co,Ambetto1,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto2,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto3,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto4,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto5,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto6,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto7,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto8,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto9,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto10,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto11,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto12,ru,pt,clp
                                      
                                  
                                       Gioca es




End If
End If
Next
ScriviResoconto

End Sub
 
Sub Main()
Dim rt(1), nu(2), ru(2), n3(3), ptt(3), ptt_ambetto(3)

' Definizione Poste: Ambo e Terno
ptt(2) = 1 : ptt(3) = 1
' Definizione Posta per Ambetto
ptt_ambetto(2) = 1

aa = InputBox("Digita Ambo Spia (separato da un punto)", "AMBO SPIA", "33.66")
aa = "0." & aa
s = Split(aa, ".")
nu(1) = CInt(s(1)) : nu(2) = CInt(s(2))

r1 = CInt(InputBox("Su che Ruota è uscito l'Ambo?", "RUOTA", 5))
rt(1) = r1

rr = InputBox("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)", "RUOTE GIOCO", "1.3")
rr = "0." & rr
q = Split(rr, ".")
ru(1) = CInt(q(1)) : ru(2) = CInt(q(2))

clp = CInt(InputBox("Per quanti colpi di gioco?", "COLPI di GIOCO", 13))

ww = InputBox("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 5.5= 1^estr.di PA)", "POS.-RUOTA", "1.6")
ww = "0." & ww
y = Split(ww, ".")
p = CInt(y(1)) : r = CInt(y(2))

ff = InputBox("Digita i 3 Fissi da sommare all'estratto scelto", "FISSI", "32.36.86")
ff = "0." & ff
h = Split(ff, ".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3))

co = 0
For es = 8155 To EstrazioneFin
Messaggio es
If SerieFreq(es, es, nu, rt, 2) > 0 Then
co = co + 1
a = Estratto(es, r, p)
n3(1) = Fuori90(a + f1) : n3(2) = Fuori90(a + f2) : n3(3) = Fuori90(a + f3)

Scrivi String(65, "=") & " Caso n°" & co
Scrivi DataEstrazione(es) & " " & SiglaRuota(rt(1)) & " " & StringaEstratti(es, rt(1)) & " Ambo Spia " & StringaNumeri(nu)
Scrivi "Sommiamo " & f1 & "," & f2 & "," & f3 & " al " & p & "^ estr. di " & SiglaRuota(r) & "[" & a & "]"
Scrivi "Giochiamo su " & SiglaRuota(ru(1)) & " e " & SiglaRuota(ru(2)) & " per " & clp & " colpi"

' Impostazione Giocata Ambo e Terno
ImpostaGiocata 1, n3, ru, ptt, clp, 2
' Impostazione Giocata Ambetto
ImpostaGiocata 2, n3, ru, ptt_ambetto, clp, 4

Gioca es
End If
Next
ScriviResoconto
End Sub
 
DjNomade ha scritto:
Ciauz prova cosi

Codice: 
Sub main()
Dim rt(1),nu(2),ru(2),n3(3),ptt(3),pt(3),rtt(1),rut(1)

Dim Ambetto1(2),Ambetto2(2),Ambetto3(2),Ambetto4(2),Ambetto5(2),Ambetto6(2)
Dim Ambetto7(2),Ambetto8(2),Ambetto9(2),Ambetto10(2),Ambetto11(2),Ambetto12(2)
Dim Ambetto13(2),Ambetto14(2),Ambetto15(2),Ambetto16(2),Ambetto17(2),Ambetto18(2),Ambetto19(2),Ambetto20(2)
pt(2)=1
ptt(2)=1 : ptt(3)=1
rtt(1)=11 : rut(1)=12

aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","33.66")
aa="0."&aa
s=Split(aa,".")
nu(1)=CInt(s(1)) : nu(2)=CInt(s(2))

r1=CInt(InputBox ("Su che Ruota è uscito l'Ambo?","RUOTA",5))
rt(1)=r1

rr=InputBox ("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","1.3")
rr="0."&rr
q=Split(rr,".")
ru(1)=CInt (q(1)) : ru(2)=CInt (q(2))

ts=CInt (InputBox ("Vuoi il gioco a TUTTE ? (1=SI ; 0=NO)","TUTTE",1))

clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",13))

ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 5.5= 1^estr.di PA)","POS.-RUOTA","1.6")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 3 Fissi da sommare all'estratto scelto","FISSI","32.36.86")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3))
Ambe = CInt(InputBox(" Vuoi Giocare Anche Per la Sorte di Ambetto? SI = 1, NO un qualsiasi altro numero",,1))
co=0
For es=8155 To EstrazioneFin 'qui' inserire da che estrazione vogliamo controllare
Messaggio es
If SerieFreq (es,es,nu,rt,2)>0 Then
co=co+1
a=Estratto (es,r,p)
n3(1)=Fuori90(a+f1) : n3(2)=Fuori90(a+f2) : n3(3)=Fuori90(a+f3)


 If Ambe = 1 Then
                                       Ambetto1(1) =n3(1) : Ambetto1(2) = Fuori90(n3(2) + 1)
                                       Ambetto2(1) = n3(1) : Ambetto2(2) = Fuori90(90 +n3(2) - 1)
                                       Ambetto3(1) =Fuori90(n3(1) + 1) : Ambetto3(2) = n3(2)
                                       Ambetto4(1) =Fuori90((90 +n3(1)) - 1) : Ambetto4(2) = n3(2)

                                       Ambetto5(1) =n3(1) : Ambetto5(2) = Fuori90(n3(3) + 1)
                                       Ambetto6(1) = n3(1) : Ambetto6(2) = Fuori90(90 +n3(3) - 1)
                                       Ambetto7(1) =Fuori90(n3(1) + 1) : Ambetto7(2) = n3(3)
                                       Ambetto8(1) =Fuori90((90 +n3(1)) - 1) : Ambetto8(2) = n3(3)

                                       Ambetto9(1) =n3(2) : Ambetto9(2) = Fuori90(n3(3) + 1)
                                       Ambetto10(1) = n3(2) : Ambetto10(2) = Fuori90(90 +n3(3) - 1)
                                       Ambetto11(1) =Fuori90(n3(2) + 1) : Ambetto11(2) = n3(3)
                                       Ambetto12(1) =Fuori90((90 +n3(2)) - 1) : Ambetto12(2) = n3(3)
                                       End If


co=0
casi=casi+1:Scrivi String(52,"-")&" caso n° "&(casi),1
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambo Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" e "& SiglaRuota (ru(2))&" per "&clp&" colpi"
co=co+1
ImpostaGiocata 1,n3,ru,ptt,clp
If ts=1 Then
'ImpostaGiocata 2,n3,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 3,n3,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es


If Ambe = 1 Then
ColoreTesto 2
                                       Scrivi Space(19) & "AMBETTI",1
ColoreTesto 0
                                       co=co+1
                                       ImpostaGiocata co,Ambetto1,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto2,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto3,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto4,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto5,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto6,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto7,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto8,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto9,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto10,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto11,ru,pt,clp
                                       co=co+1
                                       ImpostaGiocata co,Ambetto12,ru,pt,clp
                                     
                                 
                                       Gioca es




End If
End If
Next
ScriviResoconto

End Sub
Clicca per espandere...
Grazie..perfetto..grazie ancora
 
AlessandroPe74 ha scritto:
Sub Main()
Dim rt(1), nu(2), ru(2), n3(3), ptt(3), ptt_ambetto(3)

' Definizione Poste: Ambo e Terno
ptt(2) = 1 : ptt(3) = 1
' Definizione Posta per Ambetto
ptt_ambetto(2) = 1

aa = InputBox("Digita Ambo Spia (separato da un punto)", "AMBO SPIA", "33.66")
aa = "0." & aa
s = Split(aa, ".")
nu(1) = CInt(s(1)) : nu(2) = CInt(s(2))

r1 = CInt(InputBox("Su che Ruota è uscito l'Ambo?", "RUOTA", 5))
rt(1) = r1

rr = InputBox("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)", "RUOTE GIOCO", "1.3")
rr = "0." & rr
q = Split(rr, ".")
ru(1) = CInt(q(1)) : ru(2) = CInt(q(2))

clp = CInt(InputBox("Per quanti colpi di gioco?", "COLPI di GIOCO", 13))

ww = InputBox("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 5.5= 1^estr.di PA)", "POS.-RUOTA", "1.6")
ww = "0." & ww
y = Split(ww, ".")
p = CInt(y(1)) : r = CInt(y(2))

ff = InputBox("Digita i 3 Fissi da sommare all'estratto scelto", "FISSI", "32.36.86")
ff = "0." & ff
h = Split(ff, ".")
f1 = CInt(h(1)) : f2 = CInt(h(2)) : f3 = CInt(h(3))

co = 0
For es = 8155 To EstrazioneFin
Messaggio es
If SerieFreq(es, es, nu, rt, 2) > 0 Then
co = co + 1
a = Estratto(es, r, p)
n3(1) = Fuori90(a + f1) : n3(2) = Fuori90(a + f2) : n3(3) = Fuori90(a + f3)

Scrivi String(65, "=") & " Caso n°" & co
Scrivi DataEstrazione(es) & " " & SiglaRuota(rt(1)) & " " & StringaEstratti(es, rt(1)) & " Ambo Spia " & StringaNumeri(nu)
Scrivi "Sommiamo " & f1 & "," & f2 & "," & f3 & " al " & p & "^ estr. di " & SiglaRuota(r) & "[" & a & "]"
Scrivi "Giochiamo su " & SiglaRuota(ru(1)) & " e " & SiglaRuota(ru(2)) & " per " & clp & " colpi"

' Impostazione Giocata Ambo e Terno
ImpostaGiocata 1, n3, ru, ptt, clp, 2
' Impostazione Giocata Ambetto
ImpostaGiocata 2, n3, ru, ptt_ambetto, clp, 4

Gioca es
End If
Next
ScriviResoconto
End Sub
Clicca per espandere...
Grazie..grazie..ottimo davvero..siete tutti gentilissimi..
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 03 novembre 2026
    Bari
    60
    81
    39
    27
    89
    Cagliari
    49
    40
    60
    34
    57
    Firenze
    33
    90
    53
    40
    10
    Genova
    18
    81
    28
    44
    52
    Milano
    12
    50
    54
    43
    81
    Napoli
    74
    79
    42
    24
    17
    Palermo
    51
    31
    10
    90
    62
    Roma
    23
    27
    40
    65
    28
    Torino
    89
    44
    69
    04
    21
    Venezia
    19
    33
    78
    37
    59
    Nazionale
    01
    56
    18
    50
    68
    Estrazione Simbolotto
    Torino
    45
    09
    18
    28
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto