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ì 24 luglio 2026
    Bari
    42
    60
    68
    78
    57
    Cagliari
    07
    72
    59
    74
    84
    Firenze
    68
    42
    03
    81
    61
    Genova
    24
    88
    62
    66
    35
    Milano
    24
    14
    73
    19
    72
    Napoli
    40
    71
    57
    34
    01
    Palermo
    56
    64
    44
    08
    75
    Roma
    15
    16
    77
    03
    04
    Torino
    12
    43
    35
    40
    02
    Venezia
    21
    29
    80
    76
    83
    Nazionale
    37
    70
    84
    24
    76
    Estrazione Simbolotto
    Nazionale
    36
    20
    11
    16
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto