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.
BA 36 ambata contata 27 12 rt
BA 10 ambata contata 74 2 rt
BA 58 ambata contata 36 0 rt
BA 08 ambata contata 36 0 rt
BA 09 ambata contata 40 17 rt
CA 35 ambata contata 68 13 rt
CA 02 ambata contata 10 29 rt
CA 36 ambata contata 27 7 rt
CA 40 ambata contata 10 29 rt
CA 74 ambata contata 31 28 rt
FI 37 ambata contata 25 0 rt
FI 25 ambata contata 21 3 rt
FI 84 ambata contata 18 40 rt
FI 52 ambata contata 10 5 rt
FI 01 ambata contata 36 20 rt
GE 24 ambata contata 31 137 rt
GE 12 ambata contata 25 3 rt
GE 15 ambata contata 1 1 rt
GE 82 ambata contata 37 10 rt
GE 61 ambata contata 37 10 rt
MI 30 ambata contata 6 19 rt
MI 36 ambata contata 27 3 rt
MI 85 ambata contata 68 49 rt
MI 31 ambata contata 42 4 rt
MI 21 ambata contata 30 0 rt
NA 09 ambata contata 40 41 rt
NA 18 ambata contata 15 16 rt
NA 12 ambata contata 25 58 rt
NA 07 ambata contata 2 1 rt
NA 06 ambata contata 35 7 rt
PA 42 ambata contata 21 20 rt
PA 37 ambata contata 25 3 rt
PA 67 ambata contata 12 21 rt
PA 18 ambata contata 15 61 rt
PA 68 ambata contata 15 61 rt
RO 27 ambata contata 18 81 rt
RO 25 ambata contata 21 20 rt
RO 23 ambata contata 85 46 rt
RO 41 ambata contata 84 1 rt
RO 10 ambata contata 74 12 rt
TO 84 ambata contata 18 27 rt
TO 21 ambata contata 30 17 rt
TO 08 ambata contata 36 11 rt
TO 70 ambata contata 61 1 rt
TO 53 ambata contata 58 26 rt
VE 59 ambata contata 40 37 rt
VE 56 ambata contata 35 22 rt
VE 65 ambata contata 1 13 rt
VE 09 ambata contata 40 37 rt
VE 26 ambata contata 9 0 rt
22/10/2024
Option Explicit
Sub Main
Scrivi "x Zetrix ",1
Dim r,n,rx,fre,Ini,fin,cam,nu,tn,Iniz,aretritardi,aretidestr,qt,rit,k,ctn,Formazione
Dim retestratti,retidestr,t,v,frq
Dim AR(1),anum(50)
r = InputBox("Ruota",,1)
fin = InputBox("Estraz.n.2410",,EstrazioneFin)
Ini = fin - 17 + 1
Scrivi "Ruota di " & NomeRuota(r),1,5,7
Scrivi "da : " & Ini & " / " & DataEstrazione(Ini) & " / " & fin & " / " & DataEstrazione(fin)
Iniz = 2000
t = 0
AR(1) = r
'''loop per ritardi periodo
For n = 1 To 90
rit = EstrattoRitardo(r,n,Ini,fin)
frq = EstrattoFrequenza(r,n,Ini,fin)
'''''''''''''riepilogo numeri con presenze 0 nei 18 concorsi
If Int(frq) = 0 Then
cam = cam & Format2(n) & "."
t = t + 1
anum(t) = n
End If
Next
''''
Scrivi
Scrivi "Presenze 0 Periodo: " & Ini & " / " & fin
Scrivi "Totale " & t & " Numeri: " & cam,1,2,4
Scrivi
Scrivi "Verifica risultati nei 18 concorsi successivi dall'estrazione n." & fin + 1,1,2,3
Scrivi "Sulla Ruota di " & SiglaRuota(r) & " " & StringaNumeri(anum," "),1,2,7
For v = 1 To 18
Call VerificaEsitoTurbo(anum,AR,fin + v,1,1,,,,retestratti,retidestr)
If retestratti <> "" Then
Scrivi fin + 1 & " : " & retidestr & " " & retestratti & " colpo " & retidestr -(fin),1,2,3
End If
Next
End SubSub Main()
'Scrivi : ColoreTesto 2 : Scrivi "Ambata contata by Scythe"
'
Dim ruotaa(5),ruote(5),ambata1(2),ambata2(2),ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2)
Dim posta(1),poste(2),amba1(2),amba2(2)
Dim n1(5),nu(1),ruota1(2),ruota2(2),ambata3(2),ambata4(2)
Dim CollAmbiTrovati
Dim sAmbo
Dim qEstrTrovate
Dim clsCoppia
Dim anum1,anum2,ruota(5)
Dim p,pp,k,R,ex,es,v1,v2,v3,tn,tx,SR
Dim A(5),B(5),C(5),D(5),E(5),Z(5)
Dim Pc1(5)
Dim pc(5)
Dim npc(5)
'
posta(1) = 1
poste(2) = 1
k = 0
'
SR = ScegliRuota
'
ex = InputBox("Quante estrazioni vuoi controllare ?",0,0)
ini = EstrazioneFin - ex
fin = EstrazioneFin
For R = SR To SR
'
For es = ini To fin
Messaggio(es)
'
For p = 1 To 5
n1(p) = Estratto(es,R,p)
Next
'
'
Scrivi
Scrivi
For x = 1 To 5
A(x) = FuoriX(n1(x),50) 'numero da contare se n1 > 50
B(x) =(50 -(R - 1) * 5)'numero di caselle a disposizione fino al 5° di venezia
C(x) =(50 - B(x)) 'numero di caselle a disposizione per la continuazione del conteggio di n1
D(x) = Abs(A(x) - B(x)) 'numero di caselle da contare restanti
E(x) = Abs(D(x) - B(x)) 'scarto di caselle oltre la ruota di origine
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 <> 0 Then
ruotaa(1) = BA_ + Int(A(x)/5)
Else
If(A(x) < B(x) Or A(x) = B(x))And A(x) Mod 5 = 0 Then
ruotaa(1) = BA_ - 1 + Int(A(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 <> 0 Then
ruotaa(1) = BA_ + Int(A(x)/5)
Else
If A(x) > B(x) And A(x) Mod 5 = 0 Then
ruotaa(1) = BA_ - 1 + Int(A(x)/5)
End If
End If
End If
End If
If ruotaa(1) > 10 Then
ruotaa(1) = ruotaa(1) - 10
End If
'aggiunto--------------------------------------------
If n1(x) < 5 Then
Pc1(x) =(n1(x) + 10) Mod 5
npc(x) = Estratto(es,ruotaa(1),Pc1(x))
End If
Pc1(x) = n1(x) Mod 5
If n1(x) Mod 5 = 0 Then
Pc1(x) = 5
End If
npc(x) = Estratto(es,ruotaa(1),Pc1(x))
v1 = DiametraleD(n1(x))
v2 = Diametrale(v1)
v3 = DiametraleD(v2)
'--------------------------------------------
Z(x) = SiglaRuota(ruotaa(1)) & " " & npc(x) ' ambata contata
'
ReDim MatriceCaselleDaEvid(6,1)
'
MatriceCaselleDaEvid(1,0) = R
MatriceCaselleDaEvid(1,1) = 1
'
MatriceCaselleDaEvid(2,0) = R
MatriceCaselleDaEvid(2,1) = 2
'
MatriceCaselleDaEvid(3,0) = R
MatriceCaselleDaEvid(3,1) = 3
'
MatriceCaselleDaEvid(4,0) = R
MatriceCaselleDaEvid(4,1) = 4
'
MatriceCaselleDaEvid(5,0) = R
MatriceCaselleDaEvid(5,1) = 5
'
MatriceCaselleDaEvid(6,0) = ruotaa(1)
MatriceCaselleDaEvid(6,1) = Pc1(x)
'
Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
'
'
'
nu(1) = StringaEstratti(es,R)
'
sAmbo = sAmbo & Format2(npc(x)) & Space(7) & "." & SiglaRuota(R) & "" & vbCrLf
'
ruota(1) = R
ruota1(1) = RuotaDiametrale(R)
ruota2(1) = RuotaGemella(R)
'
ruote(1) = TT_
ruote(2) = NZ_
'
ambata3(1) = npc(x)
ambata4(1) = npc(x)
Scrivi SiglaRuota(ruota(1)) & Space(5) & "" & Format2(n1(x)) & Space(5) & " ambata contata " & Space(3) & npc(x) & Space(5) & " diretto alla stazione di " & SiglaRuota(ruotaa(1)) & " " & String(10," ") & "",0,0,1,5
Scrivi
Scrivi
Scrivi
If n1(x) = npc(x) And(ruota(1)) =(ruotaa(1)) Then
ambata1(1) = Diametrale(npc(x))
ambata2(1) = DiametraleD(npc(x))
Scrivi "ambata contata",0,1,4
ImpostaGiocata 1,ambata1,ruota,posta,k,1
ImpostaGiocata 2,ambata2,ruota,posta,k,1
Gioca es,1,,1
Scrivi
ColoreTesto 0
Else
ambata1(1) = npc(x)
ImpostaGiocata 1,ambata1,ruota,posta,k,1
'ImpostaGiocata 2,ambata2,ruota,posta,k,1
Gioca es,1,,1
Scrivi
ColoreTesto 0
End If
'
'
If npc(x) Then
amba1(1) = npc(x)
amba1(2) = Diametrale(n1(x))
amba2(1) = npc(x)
amba2(2) = DiametraleD(n1(x))
'
ImpostaGiocata 1,amba1,ruote,poste,k,0
'ImpostaGiocata 2,amba2,ruote,poste,k,0
Gioca es,1,,1
End If
'If ambata3(1) = npc(x) And ambata3(1) = ruota1(1) Then
'Scrivi "ambata contata deviata su " & SiglaRuota(ruota1) & "",0,1,1,4
ImpostaGiocata 1,ambata3,ruota1,posta,k,1
Gioca es,1,,1
'End If
'If ambata4(1) = npc(x) And ambata4(1) = ruota2(1) Then
'Scrivi "ambata contata deviata su " & SiglaRuota(ruota2) & "",0,1,1,3
ImpostaGiocata 2,ambata4,ruota2,posta,k,1
Gioca es,1,,1
'End If
Scrivi
Next
Next
Next
Scrivi(sAmbo),0,0,1,5,4,8,8
End Sub
