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
    venerdì 10 luglio 2026
    Bari
    88
    71
    89
    31
    33
    Cagliari
    05
    67
    39
    21
    35
    Firenze
    54
    85
    02
    78
    57
    Genova
    17
    45
    04
    25
    29
    Milano
    56
    58
    49
    35
    08
    Napoli
    49
    56
    19
    68
    08
    Palermo
    87
    39
    72
    05
    56
    Roma
    59
    51
    22
    62
    41
    Torino
    60
    84
    32
    28
    01
    Venezia
    46
    69
    11
    36
    22
    Nazionale
    22
    36
    41
    18
    76
    Estrazione Simbolotto
    Nazionale
    23
    34
    14
    42
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto