Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
Dim terzina(5)
Dim r1,r2
Dim caso
posta(1) = 1
poste(2) = 1
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
caso = 0
'
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r1 = 1 To 9
For r2 = r1 + 1 To r2
'
For p1 = 1 To 5
For p2 = 1 To 5
'
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
'--------------------
n1 = a + b
n2 = Diametrale(n1)
n3 = DiametraleD(n2)
x = n3
n4 = Massimo(a,b)
n5 = DiametraleD(n4)
n6 = n3 + 1
'
If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
ambata(1) = x
'
ambo1(1) = x
ambo1(2) = n4
ambo2(1) = x
ambo2(2) = n5
'
terzina(1) = n6
terzina(2) = n4
terzina(3) = n5
'
caso = caso + 1
Scrivi String(99,"-") & " gioco n. " & caso
Scrivi
'
ReDim MatriceCaselleDaEvid(10,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
' quarto elemento
MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
' ---------------------------------------------------
MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
' terzo elemento
MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
' quarto elemento
MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
' quarto elemento
MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
ruote(3) = TT_
ruote(4) = NZ_
'
Scrivi
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" numero " & Format2(a) & " in " & p1 & "° Pos.",1,1,3,7,4
'
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" numero " & Format2(b) & " in " & p2 & "° Pos.",1,1,7,3,4
Scrivi
Scrivi
'
ImpostaGiocata 1,ambata,ruota,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi
ImpostaGiocata 1,ambo1,ruota,poste,k
ImpostaGiocata 2,ambo2,ruota,poste,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi
ImpostaGiocata 1,terzina,ruota,poste,k
Gioca es,1,,1
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi "script di Zetrix",0,1,4,1
End Sub
Ci sono troppi rompi cogl.......sono con te ma specifico per chi giocherà il metodo Quindi quando si presenta cosila nazionale non la metto perchè e na rompi cogliona..
non la metto quasi mai la nazionale negli script..
il listato era semplice potevi farlo anche tu..
Sub Main
Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
Dim terzina(5)
Dim r1,r2
Dim caso
posta(1) = 1
poste(2) = 1
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
caso = 0
'
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r1 = 1 To 11
For r2 = r1 + 1 To r2
'
For p1 = 1 To 5
For p2 = 1 To 5
'
If r2 = 11 Then r2 = 12 End If
'
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
'--------------------
n1 = a + b
n2 = Diametrale(n1)
n3 = DiametraleD(n2)
x = n3
n4 = Massimo(a,b)
n5 = DiametraleD(n4)
n6 = n3 + 1
'
If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
ambata(1) = x
'
ambo1(1) = x
ambo1(2) = n4
ambo2(1) = x
ambo2(2) = n5
'
terzina(1) = n6
terzina(2) = n4
terzina(3) = n5
'
caso = caso + 1
Scrivi String(99,"-") & " gioco n. " & caso
Scrivi
'
ReDim MatriceCaselleDaEvid(10,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
' quarto elemento
MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
' ---------------------------------------------------
MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
' terzo elemento
MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
' quarto elemento
MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
' quarto elemento
MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
ruote(3) = TT_
ruote(4) = NZ_
'
Scrivi
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" numero " & Format2(a) & " in " & p1 & "° Pos.",1,1,3,7,4
'
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" numero " & Format2(b) & " in " & p2 & "° Pos.",1,1,7,3,4
Scrivi
Scrivi
'
ImpostaGiocata 1,ambata,ruota,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi
ImpostaGiocata 1,ambo1,ruota,poste,k
ImpostaGiocata 2,ambo2,ruota,poste,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi
ImpostaGiocata 1,terzina,ruota,poste,k
Gioca es,1,,1
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi "script di Zetrix",0,1,4,1
End Sub
Escono sempre quando non si giocano strano caso.....la nazionale non la metto perchè e na rompi cogliona..
non la metto quasi mai la nazionale negli script..
il listato era semplice potevi farlo anche tu..
stasera sono inca. perche ho cambiato una previsione..
e stasera e uscita proprio quella previsione che ho cambiata..
Fare la selezione di tutto il listato e poi IN COLLAciao, come posso scaricare questo script. grazie
non servono...... perché si verifica prima dei 9/10 colpi....Buongiorno per quanti colpi si giocano le previsioni? dallo script ho visto che non ci sono dei colpi stabiliti.... grazie
ciao questi script non si scaricano non sono programmi che si scaricano e poi si installanociao, come posso scaricare questo script. grazie
Sub Main
Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
Dim terzina(5)
Dim r1,r2
Dim caso
posta(1) = 1
poste(2) = 1
'
rs = InputBox("Quante estrazioni vuoi controllare?",,0)
k = 0
caso = 0
'
For es = EstrazioneFin - rs To EstrazioneFin
AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
For r1 = 1 To 11
For r2 = r1 + 1 To r2
'
For p1 = 1 To 5
For p2 = 1 To 5
'
If r2 = 11 Then r2 = 12 End If
'
a = Estratto(es,r1,p1)
b = Estratto(es,r2,p2)
'--------------------
n1 = a + b
n2 = Diametrale(n1)
n3 = DiametraleD(n2)
x = n3
n4 = Massimo(a,b)
n5 = DiametraleD(n4)
n6 = n3 + 1
'
If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then
ambata(1) = x
'
ambo1(1) = x
ambo1(2) = n4
ambo2(1) = x
ambo2(2) = n5
'
terzina(1) = n6
terzina(2) = n4
terzina(3) = n5
'
ruota(1) = r1
ruota(2) = r2
ruote(1) = r1
ruote(2) = r2
ruote(3) = TT_
ruote(4) = NZ_
'
caso = caso + 1
Scrivi String(99,"-") & " gioco n. " & caso
Scrivi
'
ReDim MatriceCaselleDaEvid(10,1)
' Primo elemento
MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(1,1) = 1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto
' terzo elemento
MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto
' quarto elemento
MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto
' quarto elemento
MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia
MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto
' ---------------------------------------------------
MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(6,1) = 1 ' primo estratto
' secondo elemento
MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari
MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto
' terzo elemento
MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto
' quarto elemento
MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto
' quarto elemento
MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia
MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'
Scrivi
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" numero " & Format2(a) & " in " & p1 & "° Pos.",1,1,3,7,4
'
Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" numero " & Format2(b) & " in " & p2 & "° Pos.",1,1,7,3,4
Scrivi
Scrivi
'
ImpostaGiocata 1,ambata,ruota,posta,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi
ImpostaGiocata 1,ambo1,ruote,poste,k
ImpostaGiocata 2,ambo2,ruote,poste,k
Gioca es,1,,1
Scrivi
Scrivi String(55,"-")
Scrivi
Scrivi
ImpostaGiocata 1,terzina,ruote,poste,k
Gioca es,1,,1
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi "script di Zetrix",0,1,1,5,4,4,8
Scrivi "richiesta di Imaging",0,1,1,5,4,4,8
End Sub
Non ci sono scuse era già tutto a posto !!!!!!Codice:Sub Main Dim ambata(5),ruote(5),calc(10),ruota(5),num(5),posta(2),poste(2) Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2) Dim terzina(5) Dim r1,r2 Dim caso posta(1) = 1 poste(2) = 1 ' rs = InputBox("Quante estrazioni vuoi controllare?",,0) k = 0 caso = 0 ' For es = EstrazioneFin - rs To EstrazioneFin AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es For r1 = 1 To 11 For r2 = r1 + 1 To r2 ' For p1 = 1 To 5 For p2 = 1 To 5 ' If r2 = 11 Then r2 = 12 End If ' a = Estratto(es,r1,p1) b = Estratto(es,r2,p2) '-------------------- n1 = a + b n2 = Diametrale(n1) n3 = DiametraleD(n2) x = n3 n4 = Massimo(a,b) n5 = DiametraleD(n4) n6 = n3 + 1 ' If Decina(a) = 0 And Decina(b) = 0 And p1 = p2 Then ambata(1) = x ' ambo1(1) = x ambo1(2) = n4 ambo2(1) = x ambo2(2) = n5 ' terzina(1) = n6 terzina(2) = n4 terzina(3) = n5 ' ruota(1) = r1 ruota(2) = r2 ruote(1) = r1 ruote(2) = r2 ruote(3) = TT_ ruote(4) = NZ_ ' caso = caso + 1 Scrivi String(99,"-") & " gioco n. " & caso Scrivi ' ReDim MatriceCaselleDaEvid(10,1) ' Primo elemento MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari MatriceCaselleDaEvid(1,1) = 1 ' primo estratto ' secondo elemento MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari MatriceCaselleDaEvid(2,1) = 2 ' secondo estratto ' terzo elemento MatriceCaselleDaEvid(3,0) = r1 ' ruota di venezia MatriceCaselleDaEvid(3,1) = 3 ' terzo estratto ' quarto elemento MatriceCaselleDaEvid(4,0) = r1 ' ruota di venezia MatriceCaselleDaEvid(4,1) = 4 ' quarto estratto ' quarto elemento MatriceCaselleDaEvid(5,0) = r1 ' ruota di venezia MatriceCaselleDaEvid(5,1) = 5 ' quinto estratto ' --------------------------------------------------- MatriceCaselleDaEvid(6,0) = r2 ' ruota di bari MatriceCaselleDaEvid(6,1) = 1 ' primo estratto ' secondo elemento MatriceCaselleDaEvid(7,0) = r2 ' ruota di bari MatriceCaselleDaEvid(7,1) = 2 ' secondo estratto ' terzo elemento MatriceCaselleDaEvid(8,0) = r2 ' ruota di venezia MatriceCaselleDaEvid(8,1) = 3 ' terzo estratto ' quarto elemento MatriceCaselleDaEvid(9,0) = r2 ' ruota di venezia MatriceCaselleDaEvid(9,1) = 4 ' quarto estratto ' quarto elemento MatriceCaselleDaEvid(10,0) = r2 ' ruota di venezia MatriceCaselleDaEvid(10,1) = 5 ' quinto estratto Call DisegnaEstrazione(es,MatriceCaselleDaEvid) ' ' Scrivi Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _ " numero " & Format2(a) & " in " & p1 & "° Pos.",1,1,3,7,4 ' Scrivi DataEstrazione(es,1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _ " numero " & Format2(b) & " in " & p2 & "° Pos.",1,1,7,3,4 Scrivi Scrivi ' ImpostaGiocata 1,ambata,ruota,posta,k Gioca es,1,,1 Scrivi Scrivi String(55,"-") Scrivi Scrivi ImpostaGiocata 1,ambo1,ruote,poste,k ImpostaGiocata 2,ambo2,ruote,poste,k Gioca es,1,,1 Scrivi Scrivi String(55,"-") Scrivi Scrivi ImpostaGiocata 1,terzina,ruote,poste,k Gioca es,1,,1 End If Next Next Next Next Next Scrivi Scrivi "script di Zetrix",0,1,1,5,4,4,8 Scrivi "richiesta di Imaging",0,1,1,5,4,4,8 End Sub
scusa Imaging non avevo messo il gioco a tutte
adesso lo script evidenzia il terno 1 6 43 a MI (TT)