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ì 28 agosto 2026
    Bari
    79
    83
    41
    52
    53
    Cagliari
    72
    29
    02
    57
    87
    Firenze
    27
    04
    62
    21
    57
    Genova
    11
    24
    85
    79
    40
    Milano
    74
    70
    48
    49
    80
    Napoli
    71
    42
    70
    04
    39
    Palermo
    45
    56
    38
    71
    70
    Roma
    76
    40
    16
    10
    28
    Torino
    48
    31
    29
    38
    78
    Venezia
    23
    13
    62
    50
    56
    Nazionale
    73
    17
    07
    71
    89
    Estrazione Simbolotto
    Nazionale
    27
    11
    43
    41
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto