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ì 08 settembre 2026
    Bari
    55
    75
    52
    74
    27
    Cagliari
    72
    20
    83
    21
    31
    Firenze
    19
    07
    55
    11
    71
    Genova
    34
    66
    57
    49
    10
    Milano
    15
    72
    39
    35
    02
    Napoli
    59
    47
    31
    82
    12
    Palermo
    63
    08
    14
    85
    12
    Roma
    89
    87
    11
    63
    73
    Torino
    36
    57
    49
    01
    58
    Venezia
    20
    88
    29
    32
    44
    Nazionale
    47
    81
    03
    30
    08
    Estrazione Simbolotto
    Palermo
    27
    03
    13
    08
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto