Script su Metodi Cabalistici, Ciclometrici & C.

[Roby]

New]'----------------------------------------------------------------------------" ISTRUZIONI " '- "se NON è già PRESENTE" creare una "Nuova cartella" nel "Disco locale (C:)" e rinominarla con: " script vl7 dati txt " i file necessari alla ricera li crea e riscrive VL7 'danilo VL7 vers. 7.4.8 Sub Main() Testo.SetBackgroundColor("#FDEADA" ) MessageBox.Show("INSERIRE ESATTAMENTE 8 NUMERI","OTTINE") Dim numeri() As Integer'ottine statistiche piramide Input.Numeri(numeri) Dim inizio As Integer= Input.DataListSel("Seleziona la data di inizio:",0,_Data1946,_DataNaz,_DataAuto) Dim fine As Integer= Estrazione.Ultima Dim ruote() As Integer Input.Ruote(ruote) Dim sorte As Integer= _Ambo Dim k7,k6,k5,k4,k3,k31,k2,k21,k1 As Integer Dim strnumeri As String Dim pu,n(8),sett(8),ses(28),cin(56),qua(70),ter(56),cop(28) As String Script.TimerStart() strnumeri = StrSerie(numeri) pu = (Mid(strnumeri,3,1)) n(1) = (Mid(strnumeri,1,2)) n(2) = (Mid(strnumeri,4,2)) n(3) = (Mid(strnumeri,7,2)) n(4) = (Mid(strnumeri,10,2)) n(5) = (Mid(strnumeri,13,2)) n(6) = (Mid(strnumeri,16,2)) n(7) = (Mid(strnumeri,19,2)) n(8) = (Mid(strnumeri,22,2)) FileText.Salva("C:\script vl7 dati txt\singoli.txt",(n(1) & vbCrLf & n(2) & vbCrLf & n(3) & vbCrLf & n(4) & vbCrLf & n(5) & vbCrLf & n(6) & vbCrLf & n(7) & vbCrLf & n(8))) sett(1) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7)) sett(2) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(8)) sett(3) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(7) & pu & n(8)) sett(4) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(7) & pu & n(8)) sett(5) = (n(1) & pu & n(2) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) sett(6) = (n(1) & pu & n(2) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) sett(7) = (n(1) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) sett(8) = (n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) FileText.Salva("C:\script vl7 dati txt\settine.txt",(sett(1) & vbCrLf & sett(2) & vbCrLf & sett(3) & vbCrLf & sett(4) & vbCrLf & sett(5) & vbCrLf & sett(6) & vbCrLf & sett(7) & vbCrLf & _ sett(8))) ses(1) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6)) ses(2) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(7)) ses(3) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(8)) ses(4) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(7)) ses(5) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(8)) ses(6) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(7) & pu & n(8)) ses(7) = (n(1) & pu & n(2) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(7)) ses(8) = (n(1) & pu & n(2) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(8)) ses(9) = (n(1) & pu & n(2) & pu & n(3) & pu & n(5) & pu & n(7) & pu & n(8)) ses(10) = (n(1) & pu & n(2) & pu & n(3) & pu & n(6) & pu & n(7) & pu & n(8)) ses(11) = (n(1) & pu & n(2) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7)) ses(12) = (n(1) & pu & n(2) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(8)) ses(13) = (n(1) & pu & n(2) & pu & n(4) & pu & n(5) & pu & n(7) & pu & n(8)) ses(14) = (n(1) & pu & n(2) & pu & n(4) & pu & n(6) & pu & n(7) & pu & n(8)) ses(15) = (n(1) & pu & n(2) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) ses(16) = (n(1) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7)) ses(17) = (n(1) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(8)) ses(18) = (n(1) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(7) & pu & n(8)) ses(19) = (n(1) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(7) & pu & n(8)) ses(20) = (n(1) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) ses(21) = (n(1) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) ses(22) = (n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7)) ses(23) = (n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(8)) ses(24) = (n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(7) & pu & n(8)) ses(25) = (n(2) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(7) & pu & n(8)) ses(26) = (n(2) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) ses(27) = (n(2) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) ses(28) = (n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) FileText.Salva("C:\script vl7 dati txt\sestine.txt",(ses(1) & vbCrLf & ses(2) & vbCrLf & ses(3) & vbCrLf & ses(4) & vbCrLf & ses(5) & vbCrLf & ses(6) & vbCrLf & ses(7) & vbCrLf & _ ses(8) & vbCrLf & ses(9) & vbCrLf & ses(10) & vbCrLf & ses(11) & vbCrLf & ses(12) & vbCrLf & ses(13) & vbCrLf & ses(14) & vbCrLf & ses(15) & vbCrLf & ses(16) & vbCrLf & _ ses(17) & vbCrLf & ses(18) & vbCrLf & ses(19) & vbCrLf & ses(20) & vbCrLf & ses(21) & vbCrLf & ses(22) & vbCrLf & ses(23) & vbCrLf & ses(24) & vbCrLf & ses(25) & vbCrLf & _ ses(26) & vbCrLf & ses(27) & vbCrLf & ses(28))) cin(1) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(5)) cin(2) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(6)) cin(3) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(7)) cin(4) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4) & pu & n(8)) cin(5) = (n(1) & pu & n(2) & pu & n(3) & pu & n(5) & pu & n(6)) cin(6) = (n(1) & pu & n(2) & pu & n(3) & pu & n(5) & pu & n(7)) cin(7) = (n(1) & pu & n(2) & pu & n(3) & pu & n(5) & pu & n(8)) cin(8) = (n(1) & pu & n(2) & pu & n(3) & pu & n(6) & pu & n(7)) cin(9) = (n(1) & pu & n(2) & pu & n(3) & pu & n(6) & pu & n(8)) cin(10) = (n(1) & pu & n(2) & pu & n(3) & pu & n(7) & pu & n(8)) cin(11) = (n(1) & pu & n(2) & pu & n(4) & pu & n(5) & pu & n(6)) cin(12) = (n(1) & pu & n(2) & pu & n(4) & pu & n(5) & pu & n(7)) cin(13) = (n(1) & pu & n(2) & pu & n(4) & pu & n(5) & pu & n(8)) cin(14) = (n(1) & pu & n(2) & pu & n(4) & pu & n(6) & pu & n(7)) cin(15) = (n(1) & pu & n(2) & pu & n(4) & pu & n(6) & pu & n(8)) cin(16) = (n(1) & pu & n(2) & pu & n(4) & pu & n(7) & pu & n(8)) cin(17) = (n(1) & pu & n(2) & pu & n(5) & pu & n(6) & pu & n(7)) cin(18) = (n(1) & pu & n(2) & pu & n(5) & pu & n(6) & pu & n(8)) cin(19) = (n(1) & pu & n(2) & pu & n(5) & pu & n(7) & pu & n(8)) cin(20) = (n(1) & pu & n(2) & pu & n(6) & pu & n(7) & pu & n(8)) cin(21) = (n(1) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6)) cin(22) = (n(1) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(7)) cin(23) = (n(1) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(8)) cin(24) = (n(1) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(7)) cin(25) = (n(1) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(8)) cin(26) = (n(1) & pu & n(3) & pu & n(4) & pu & n(7) & pu & n(8)) cin(27) = (n(1) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(7)) cin(28) = (n(1) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(8)) cin(29) = (n(1) & pu & n(3) & pu & n(5) & pu & n(7) & pu & n(8)) cin(30) = (n(1) & pu & n(3) & pu & n(6) & pu & n(7) & pu & n(8)) cin(31) = (n(1) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7)) cin(32) = (n(1) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(8)) cin(33) = (n(1) & pu & n(4) & pu & n(5) & pu & n(7) & pu & n(8)) cin(34) = (n(1) & pu & n(4) & pu & n(6) & pu & n(7) & pu & n(8)) cin(35) = (n(1) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) cin(36) = (n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(6)) cin(37) = (n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(7)) cin(38) = (n(2) & pu & n(3) & pu & n(4) & pu & n(5) & pu & n(8)) cin(39) = (n(2) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(7)) cin(40) = (n(2) & pu & n(3) & pu & n(4) & pu & n(6) & pu & n(8)) cin(41) = (n(2) & pu & n(3) & pu & n(4) & pu & n(7) & pu & n(8)) cin(42) = (n(2) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(7)) cin(43) = (n(2) & pu & n(3) & pu & n(5) & pu & n(6) & pu & n(8)) cin(44) = (n(2) & pu & n(3) & pu & n(5) & pu & n(7) & pu & n(8)) cin(45) = (n(2) & pu & n(3) & pu & n(6) & pu & n(7) & pu & n(8)) cin(46) = (n(2) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7)) cin(47) = (n(2) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(8)) cin(48) = (n(2) & pu & n(4) & pu & n(5) & pu & n(7) & pu & n(8)) cin(49) = (n(2) & pu & n(4) & pu & n(6) & pu & n(7) & pu & n(8)) cin(50) = (n(2) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) cin(51) = (n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(7)) cin(52) = (n(3) & pu & n(4) & pu & n(5) & pu & n(6) & pu & n(8)) cin(53) = (n(3) & pu & n(4) & pu & n(5) & pu & n(7) & pu & n(8)) cin(54) = (n(3) & pu & n(4) & pu & n(6) & pu & n(7) & pu & n(8)) cin(55) = (n(3) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) cin(56) = (n(4) & pu & n(5) & pu & n(6) & pu & n(7) & pu & n(8)) FileText.Salva("C:\script vl7 dati txt\cinquine.txt",(cin(1) & vbCrLf & cin(2) & vbCrLf & cin(3) & vbCrLf & cin(4) & vbCrLf & cin(5) & vbCrLf & cin(6) & vbCrLf & cin(7) & vbCrLf & _ cin(8) & vbCrLf & cin(9) & vbCrLf & cin(10) & vbCrLf & cin(11) & vbCrLf & cin(12) & vbCrLf & cin(13) & vbCrLf & cin(14) & vbCrLf & cin(15) & vbCrLf & cin(16) & vbCrLf & _ cin(17) & vbCrLf & cin(18) & vbCrLf & cin(19) & vbCrLf & cin(20) & vbCrLf & cin(21) & vbCrLf & cin(22) & vbCrLf & cin(23) & vbCrLf & cin(24) & vbCrLf & cin(25) & vbCrLf & _ cin(26) & vbCrLf & cin(27) & vbCrLf & cin(28) & vbCrLf & cin(29) & vbCrLf & cin(30) & vbCrLf & cin(31) & vbCrLf & cin(32) & vbCrLf & cin(33) & vbCrLf & cin(34) & vbCrLf & _ cin(35) & vbCrLf & cin(36) & vbCrLf & cin(37) & vbCrLf & cin(38) & vbCrLf & cin(39) & vbCrLf & cin(40) & vbCrLf & cin(41) & vbCrLf & cin(42) & vbCrLf & cin(43) & vbCrLf & _ cin(44) & vbCrLf & cin(45) & vbCrLf & cin(46) & vbCrLf & cin(47) & vbCrLf & cin(48) & vbCrLf & cin(49) & vbCrLf & cin(50) & vbCrLf & cin(51) & vbCrLf & cin(52) & vbCrLf & _ cin(53) & vbCrLf & cin(54) & vbCrLf & cin(55) & vbCrLf & cin(56))) qua(1) = (n(1) & pu & n(2) & pu & n(3) & pu & n(4)) qua(2) = (n(1) & pu & n(2) & pu & n(3) & pu & n(5)) qua(3) = (n(1) & pu & n(2) & pu & n(3) & pu & n(6)) qua(4) = (n(1) & pu & n(2) & pu & n(3) & pu & n(7)) qua(5) = (n(1) & pu & n(2) & pu & n(3) & pu & n(8)) qua(6) = (n(1) & pu & n(2) & pu & n(4) & pu & n(5)) qua(7) = (n(1) & pu & n(2) & pu & n(4) & pu & n(6)) qua(8) = (n(1) & pu & n(2) & pu & n(4) & pu & n(7)) qua(9) = (n(1) & pu & n(2) & pu & n(4) & pu & n(8)) qua(10) = (n(1) & pu & n(2) & pu & n(5) & pu & n(6)) qua(11) = (n(1) & pu & n(2) & pu & n(5) & pu & n(7)) qua(12) = (n(1) & pu & n(2) & pu & n(5) & pu & n(8)) qua(13) = (n(1) & pu & n(2) & pu & n(6) & pu & n(7)) qua(14) = (n(1) & pu & n(2) & pu & n(6) & pu & n(8)) qua(15) = (n(1) & pu & n(2) & pu & n(7) & pu & n(8)) qua(16) = (n(1) & pu & n(3) & pu & n(4) & pu & n(5)) qua(17) = (n(1) & pu & n(3) & pu & n(4) & pu & n(6)) qua(18) = (n(1) & pu & n(3) & pu & n(4) & pu & n(7)) qua(19) = (n(1) & pu & n(3) & pu & n(4) & pu & n(8)) qua(20) = (n(1) & pu & n(3) & pu & n(5) & pu & n(6)) qua(21) = (n(1) & pu & n(3) & pu & n(5) & pu & n(7)) qua(22) = (n(1) & pu & n(3) & pu & n(5) & pu & n(8)) qua(23) = (n(1) & pu & n(3) & pu & n(6) & pu & n(7)) qua(24) = (n(1) & pu & n(3) & pu & n(6) & pu & n(8)) qua(25) = (n(1) & pu & n(3) & pu & n(7) & pu & n(8)) qua(26) = (n(1) & pu & n(4) & pu & n(5) & pu & n(6)) qua(27) = (n(1) & pu & n(4) & pu & n(5) & pu & n(7)) qua(28) = (n(1) & pu & n(4) & pu & n(5) & pu & n(8)) qua(29) = (n(1) & pu & n(4) & pu & n(6) & pu & n(7)) qua(30) = (n(1) & pu & n(4) & pu & n(6) & pu & n(8)) qua(31) = (n(1) & pu & n(4) & pu & n(7) & pu & n(8)) qua(32) = (n(1) & pu & n(5) & pu & n(6) & pu & n(7)) qua(33) = (n(1) & pu & n(5) & pu & n(6) & pu & n(8)) qua(34) = (n(1) & pu & n(5) & pu & n(7) & pu & n(8)) qua(35) = (n(1) & pu & n(6) & pu & n(7) & pu & n(8)) qua(36) = (n(2) & pu & n(3) & pu & n(4) & pu & n(5)) qua(37) = (n(2) & pu & n(3) & pu & n(4) & pu & n(6)) qua(38) = (n(2) & pu & n(3) & pu & n(4) & pu & n(7)) qua(39) = (n(2) & pu & n(3) & pu & n(4) & pu & n(8)) qua(40) = (n(2) & pu & n(3) & pu & n(5) & pu & n(6)) qua(41) = (n(2) & pu & n(3) & pu & n(5) & pu & n(7)) qua(42) = (n(2) & pu & n(3) & pu & n(5) & pu & n(8)) qua(43) = (n(2) & pu & n(3) & pu & n(6) & pu & n(7)) qua(44) = (n(2) & pu & n(3) & pu & n(6) & pu & n(8)) qua(45) = (n(2) & pu & n(3) & pu & n(7) & pu & n(8)) qua(46) = (n(2) & pu & n(4) & pu & n(5) & pu & n(6)) qua(47) = (n(2) & pu & n(4) & pu & n(5) & pu & n(7)) qua(48) = (n(2) & pu & n(4) & pu & n(5) & pu & n(8)) qua(49) = (n(2) & pu & n(4) & pu & n(6) & pu & n(7)) qua(50) = (n(2) & pu & n(4) & pu & n(6) & pu & n(8)) qua(51) = (n(2) & pu & n(4) & pu & n(7) & pu & n(8)) qua(52) = (n(2) & pu & n(5) & pu & n(6) & pu & n(7)) qua(53) = (n(2) & pu & n(5) & pu & n(6) & pu & n(8)) qua(54) = (n(2) & pu & n(5) & pu & n(7) & pu & n(8)) qua(55) = (n(2) & pu & n(6) & pu & n(7) & pu & n(8)) qua(56) = (n(3) & pu & n(4) & pu & n(5) & pu & n(6)) qua(57) = (n(3) & pu & n(4) & pu & n(5) & pu & n(7)) qua(58) = (n(3) & pu & n(4) & pu & n(5) & pu & n(8)) qua(59) = (n(3) & pu & n(4) & pu & n(6) & pu & n(7)) qua(60) = (n(3) & pu & n(4) & pu & n(6) & pu & n(8)) qua(61) = (n(3) & pu & n(4) & pu & n(7) & pu & n(8)) qua(62) = (n(3) & pu & n(5) & pu & n(6) & pu & n(7)) qua(63) = (n(3) & pu & n(5) & pu & n(6) & pu & n(8)) qua(64) = (n(3) & pu & n(5) & pu & n(7) & pu & n(8)) qua(65) = (n(3) & pu & n(6) & pu & n(7) & pu & n(8)) qua(66) = (n(4) & pu & n(5) & pu & n(6) & pu & n(7)) qua(67) = (n(4) & pu & n(5) & pu & n(6) & pu & n(8)) qua(68) = (n(4) & pu & n(5) & pu & n(7) & pu & n(8)) qua(69) = (n(4) & pu & n(6) & pu & n(7) & pu & n(8)) qua(70) = (n(5) & pu & n(6) & pu & n(7) & pu & n(8)) FileText.Salva("C:\script vl7 dati txt\quartine.txt",(qua(1) & vbCrLf & qua(2) & vbCrLf & qua(3) & vbCrLf & qua(4) & vbCrLf & qua(5) & vbCrLf & qua(6) & vbCrLf & qua(7) & vbCrLf & _ qua(8) & vbCrLf & qua(9) & vbCrLf & qua(10) & vbCrLf & qua(11) & vbCrLf & qua(12) & vbCrLf & qua(13) & vbCrLf & qua(14) & vbCrLf & qua(15) & vbCrLf & qua(16) & vbCrLf & _ qua(17) & vbCrLf & qua(18) & vbCrLf & qua(19) & vbCrLf & qua(20) & vbCrLf & qua(21) & vbCrLf & qua(22) & vbCrLf & qua(23) & vbCrLf & qua(24) & vbCrLf & qua(25) & vbCrLf & _ qua(26) & vbCrLf & qua(27) & vbCrLf & qua(28) & vbCrLf & qua(29) & vbCrLf & qua(30) & vbCrLf & qua(31) & vbCrLf & qua(32) & vbCrLf & qua(33) & vbCrLf & qua(34) & vbCrLf & _ qua(35) & vbCrLf & qua(36) & vbCrLf & qua(37) & vbCrLf & qua(38) & vbCrLf & qua(39) & vbCrLf & qua(40) & vbCrLf & qua(41) & vbCrLf & qua(42) & vbCrLf & qua(43) & vbCrLf & _ qua(44) & vbCrLf & qua(45) & vbCrLf & qua(46) & vbCrLf & qua(47) & vbCrLf & qua(48) & vbCrLf & qua(49) & vbCrLf & qua(50) & vbCrLf & qua(51) & vbCrLf & qua(52) & vbCrLf & _ qua(53) & vbCrLf & qua(54) & vbCrLf & qua(55) & vbCrLf & qua(56) & vbCrLf & qua(57) & vbCrLf & qua(58) & vbCrLf & qua(59) & vbCrLf & qua(60) & vbCrLf & qua(61) & vbCrLf & _ qua(62) & vbCrLf & qua(63) & vbCrLf & qua(64) & vbCrLf & qua(65) & vbCrLf & qua(66) & vbCrLf & qua(67) & vbCrLf & qua(68) & vbCrLf & qua(69) & vbCrLf & qua(70))) ter(1) = (n(1) & pu & n(2) & pu & n(3)) ter(2) = (n(1) & pu & n(2) & pu & n(4)) ter(3) = (n(1) & pu & n(2) & pu & n(5)) ter(4) = (n(1) & pu & n(2) & pu & n(6)) ter(5) = (n(1) & pu & n(2) & pu & n(7)) ter(6) = (n(1) & pu & n(2) & pu & n(8)) ter(7) = (n(1) & pu & n(3) & pu & n(4)) ter(8) = (n(1) & pu & n(3) & pu & n(5)) ter(9) = (n(1) & pu & n(3) & pu & n(6)) ter(10) = (n(1) & pu & n(3) & pu & n(7)) ter(11) = (n(1) & pu & n(3) & pu & n(8)) ter(12) = (n(1) & pu & n(4) & pu & n(5)) ter(13) = (n(1) & pu & n(4) & pu & n(6)) ter(14) = (n(1) & pu & n(4) & pu & n(7)) ter(15) = (n(1) & pu & n(4) & pu & n(8)) ter(16) = (n(1) & pu & n(5) & pu & n(6)) ter(17) = (n(1) & pu & n(5) & pu & n(7)) ter(18) = (n(1) & pu & n(5) & pu & n(8)) ter(19) = (n(1) & pu & n(6) & pu & n(7)) ter(20) = (n(1) & pu & n(6) & pu & n(8)) ter(21) = (n(1) & pu & n(7) & pu & n(8)) ter(22) = (n(2) & pu & n(3) & pu & n(4)) ter(23) = (n(2) & pu & n(3) & pu & n(5)) ter(24) = (n(2) & pu & n(3) & pu & n(6)) ter(25) = (n(2) & pu & n(3) & pu & n(7)) ter(26) = (n(2) & pu & n(3) & pu & n(8)) ter(27) = (n(2) & pu & n(4) & pu & n(5)) ter(28) = (n(2) & pu & n(4) & pu & n(6)) ter(29) = (n(2) & pu & n(4) & pu & n(7)) ter(30) = (n(2) & pu & n(4) & pu & n(8)) ter(31) = (n(2) & pu & n(5) & pu & n(6)) ter(32) = (n(2) & pu & n(5) & pu & n(7)) ter(33) = (n(2) & pu & n(5) & pu & n(8)) ter(34) = (n(2) & pu & n(6) & pu & n(7)) ter(35) = (n(2) & pu & n(6) & pu & n(8)) ter(36) = (n(2) & pu & n(7) & pu & n(8)) ter(37) = (n(3) & pu & n(4) & pu & n(5)) ter(38) = (n(3) & pu & n(4) & pu & n(6)) ter(39) = (n(3) & pu & n(4) & pu & n(7)) ter(40) = (n(3) & pu & n(4) & pu & n(8)) ter(41) = (n(3) & pu & n(5) & pu & n(6)) ter(42) = (n(3) & pu & n(5) & pu & n(7)) ter(43) = (n(3) & pu & n(5) & pu & n(8)) ter(44) = (n(3) & pu & n(6) & pu & n(7)) ter(45) = (n(3) & pu & n(6) & pu & n(8)) ter(46) = (n(3) & pu & n(7) & pu & n(8)) ter(47) = (n(4) & pu & n(5) & pu & n(6)) ter(48) = (n(4) & pu & n(5) & pu & n(7)) ter(49) = (n(4) & pu & n(5) & pu & n(8)) ter(50) = (n(4) & pu & n(6) & pu & n(7)) ter(51) = (n(4) & pu & n(6) & pu & n(8)) ter(52) = (n(4) & pu & n(7) & pu & n(8)) ter(53) = (n(5) & pu & n(6) & pu & n(7)) ter(54) = (n(5) & pu & n(6) & pu & n(8)) ter(55) = (n(5) & pu & n(7) & pu & n(8)) ter(56) = (n(6) & pu & n(7) & pu & n(8)) FileText.Salva("C:\script vl7 dati txt\terzine.txt",(ter(1) & vbCrLf & ter(2) & vbCrLf & ter(3) & vbCrLf & ter(4) & vbCrLf & ter(5) & vbCrLf & ter(6) & vbCrLf & ter(7) & vbCrLf & _ ter(8) & vbCrLf & ter(9) & vbCrLf & ter(10) & vbCrLf & ter(11) & vbCrLf & ter(12) & vbCrLf & ter(13) & vbCrLf & ter(14) & vbCrLf & ter(15) & vbCrLf & ter(16) & vbCrLf & _ ter(17) & vbCrLf & ter(18) & vbCrLf & ter(19) & vbCrLf & ter(20) & vbCrLf & ter(21) & vbCrLf & ter(22) & vbCrLf & ter(23) & vbCrLf & ter(24) & vbCrLf & ter(25) & vbCrLf & _ ter(26) & vbCrLf & ter(27) & vbCrLf & ter(28) & vbCrLf & ter(29) & vbCrLf & ter(30) & vbCrLf & ter(31) & vbCrLf & ter(32) & vbCrLf & ter(33) & vbCrLf & ter(34) & vbCrLf & _ ter(35) & vbCrLf & ter(36) & vbCrLf & ter(37) & vbCrLf & ter(38) & vbCrLf & ter(39) & vbCrLf & ter(40) & vbCrLf & ter(41) & vbCrLf & ter(42) & vbCrLf & ter(43) & vbCrLf & _ ter(44) & vbCrLf & ter(45) & vbCrLf & ter(46) & vbCrLf & ter(47) & vbCrLf & ter(48) & vbCrLf & ter(49) & vbCrLf & ter(50) & vbCrLf & ter(51) & vbCrLf & ter(52) & vbCrLf & _ ter(53) & vbCrLf & ter(54) & vbCrLf & ter(55) & vbCrLf & ter(56))) cop(1) = (n(1) & pu & n(2)) cop(2) = (n(1) & pu & n(3)) cop(3) = (n(1) & pu & n(4)) cop(4) = (n(1) & pu & n(5)) cop(5) = (n(1) & pu & n(6)) cop(6) = (n(1) & pu & n(7)) cop(7) = (n(1) & pu & n(8)) cop(8) = (n(2) & pu & n(3)) cop(9) = (n(2) & pu & n(4)) cop(10) = (n(2) & pu & n(5)) cop(11) = (n(2) & pu & n(6)) cop(12) = (n(2) & pu & n(7)) cop(13) = (n(2) & pu & n(8)) cop(14) = (n(3) & pu & n(4)) cop(15) = (n(3) & pu & n(5)) cop(16) = (n(3) & pu & n(6)) cop(17) = (n(3) & pu & n(7)) cop(18) = (n(3) & pu & n(8)) cop(19) = (n(4) & pu & n(5)) cop(20) = (n(4) & pu & n(6)) cop(21) = (n(4) & pu & n(7)) cop(22) = (n(4) & pu & n(8)) cop(23) = (n(5) & pu & n(6)) cop(24) = (n(5) & pu & n(7)) cop(25) = (n(5) & pu & n(8)) cop(26) = (n(6) & pu & n(7)) cop(27) = (n(6) & pu & n(8)) cop(28) = (n(7) & pu & n(8)) FileText.Salva("C:\script vl7 dati txt\coppie.txt",(cop(1) & vbCrLf & cop(2) & vbCrLf & cop(3) & vbCrLf & cop(4) & vbCrLf & cop(5) & vbCrLf & cop(6) & vbCrLf & cop(7) & vbCrLf & _ cop(8) & vbCrLf & cop(9) & vbCrLf & cop(10) & vbCrLf & cop(11) & vbCrLf & cop(12) & vbCrLf & cop(13) & vbCrLf & cop(14) & vbCrLf & cop(15) & vbCrLf & cop(16) & vbCrLf & _ cop(17) & vbCrLf & cop(18) & vbCrLf & cop(19) & vbCrLf & cop(20) & vbCrLf & cop(21) & vbCrLf & cop(22) & vbCrLf & cop(23) & vbCrLf & cop(24) & vbCrLf & cop(25) & vbCrLf & _ cop(26) & vbCrLf & cop(27) & vbCrLf & cop(28))) Testo.Centrato Testo.Header("Statistica Ottina per " & SorteTestuale(sorte) & " Ruote: " & ElencoRuote(ruote), 40,"#0070C0" , _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,False) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Stat.AnalisiSerieFull(inizio,fine,ruote,numeri,sorte) ControllaEsito(fine - stat.ritardo,ruote,numeri,1,sorte) Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(ElencoNumeri(numeri)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo*1.5,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico*1.5,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Table.Close() Testo.Out Testo.Header("Statistica Ottina per " & SorteTestuale(sorte + 1) & " Ruote: " & ElencoRuote(ruote), 35,"#76923C" , _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,False) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Stat.AnalisiSerieFull(inizio,fine,ruote,numeri,sorte + 1) ControllaEsito(fine - stat.ritardo,ruote,numeri,1,sorte + 1) Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(ElencoNumeri(numeri)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo/4,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico/4,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Table.Close() Testo.Out Testo.Header("Sviluppo In Settine per " & SorteTestuale(sorte) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim setreadDati As String = FileText.Apri("C:\script vl7 dati txt\settine.txt") setreadDati = setreadDati.Replace(Chr(13)+Chr(10),"|") Dim setdatiSplit() As String = setreadDati.Split("|") For Each line As String In setdatiSplit Dim setnum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,setnum,sorte) ControllaEsito(fine - stat.ritardo,ruote,setnum,1,sorte) k7 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k7) Table.TD_Style(ElencoNumeri(setnum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo*1.1,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico*1.1,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Header("Sviluppo In Sestine per " & SorteTestuale(sorte) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim sesreadDati As String = FileText.Apri("C:\script vl7 dati txt\sestine.txt") sesreadDati = sesreadDati.Replace(Chr(13)+Chr(10),"|") Dim sesdatiSplit() As String = sesreadDati.Split("|") For Each line As String In sesdatiSplit Dim sesnum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,sesnum,sorte) ControllaEsito(fine - stat.ritardo,ruote,sesnum,1,sorte) k6 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k6) Table.TD_Style(ElencoNumeri(sesnum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo/1.2,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico/1.2,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Header("Sviluppo In Cinquine per " & SorteTestuale(sorte) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim cinreadDati As String = FileText.Apri("C:\script vl7 dati txt\cinquine.txt") cinreadDati = cinreadDati.Replace(Chr(13)+Chr(10),"|") Dim cindatiSplit() As String = cinreadDati.Split("|") For Each line As String In cindatiSplit Dim cinnum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,cinnum,sorte) ControllaEsito(fine - stat.ritardo,ruote,cinnum,1,sorte) k5 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k5) Table.TD_Style(ElencoNumeri(cinnum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo/3,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico/3,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Header("Sviluppo In Quartine per " & SorteTestuale(sorte) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim quareadDati As String = FileText.Apri("C:\script vl7 dati txt\quartine.txt") quareadDati = quareadDati.Replace(Chr(13)+Chr(10),"|") Dim quadatiSplit() As String = quareadDati.Split("|") For Each line As String In quadatiSplit Dim quanum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,quanum,sorte) ControllaEsito(fine - stat.ritardo,ruote,quanum,1,sorte) k4 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k4) Table.TD_Style(ElencoNumeri(quanum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo/4,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico/4,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Header("Sviluppo In Terzine per " & SorteTestuale(sorte) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim terreadDati As String = FileText.Apri("C:\script vl7 dati txt\terzine.txt") terreadDati = terreadDati.Replace(Chr(13)+Chr(10),"|") Dim terdatiSplit() As String = terreadDati.Split("|") For Each line As String In terdatiSplit Dim ternum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,ternum,sorte) ControllaEsito(fine - stat.ritardo,ruote,ternum,1,sorte) k3 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k3) Table.TD_Style(ElencoNumeri(ternum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo/10,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico/10,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Header("Sviluppo In Terzine per " & SorteTestuale(sorte - 1) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim sterreadDati As String = FileText.Apri("C:\script vl7 dati txt\terzine.txt") sterreadDati = sterreadDati.Replace(Chr(13)+Chr(10),"|") Dim sterdatiSplit() As String = sterreadDati.Split("|") For Each line As String In sterdatiSplit Dim sternum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,sternum,(sorte - 1)) ControllaEsito(fine - stat.ritardo,ruote,sternum,1,(sorte - 1)) k31 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k31) Table.TD_Style(ElencoNumeri(sternum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo*1.5,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico*1.5,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Header("Sviluppo In Coppie per " & SorteTestuale(sorte) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim copreadDati As String = FileText.Apri("C:\script vl7 dati txt\coppie.txt") copreadDati = copreadDati.Replace(Chr(13)+Chr(10),"|") Dim copdatiSplit() As String = copreadDati.Split("|") For Each line As String In copdatiSplit Dim copnum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,copnum,sorte) ControllaEsito(fine - stat.ritardo,ruote,copnum,1,sorte) k2 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k2) Table.TD_Style(ElencoNumeri(copnum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo/25,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico/25,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Header("Sviluppo In Coppie per " & SorteTestuale(sorte - 1) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim coppreadDati As String = FileText.Apri("C:\script vl7 dati txt\coppie.txt") coppreadDati = coppreadDati.Replace(Chr(13)+Chr(10),"|") Dim coppdatiSplit() As String = coppreadDati.Split("|") For Each line As String In coppdatiSplit Dim coppnum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,coppnum,sorte - 1) ControllaEsito(fine - stat.ritardo,ruote,coppnum,1,sorte - 1) k21 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k21) Table.TD_Style(ElencoNumeri(coppnum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo*1.5,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico*1.5,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Header("Sviluppo In Singoli per " & SorteTestuale(sorte - 1) & " Ruote: " & ElencoRuote(ruote) ,30,"#FF0000", _GRASSETTO) Testo.Out Table.Open("100%",,,,,,,,True) Table.SetHeader(Gradient.Gray, "Black", "Gray") Table.SetRow(Gradient.White, "Black", "Gray") Table.TH_Style("ID") Table.TH_Style("Formazione") Table.TH_Style("Frequenze") Table.TH_Style("Scarto") Table.TH_Style("Ritardo") Table.TH_Style("Esito Al Ritardo") Table.TH_Style("Storico") Table.TH_Style("Data Storico") Table.TH_Style("Media Ritardi") Table.TH_Style("Rapporto Ritardi") Table.TH_Style("Ultimi Ritardi") Table.TH_Style("Trend") Dim sinreadDati As String = FileText.Apri("C:\script vl7 dati txt\singoli.txt") sinreadDati = sinreadDati.Replace(Chr(13)+Chr(10),"|") Dim sindatiSplit() As String = sinreadDati.Split("|") For Each line As String In sindatiSplit Dim sinnum() As Integer = ConvStringaToArray(line) Stat.AnalisiSerieFull(inizio,fine,ruote,sinnum,sorte - 1) ControllaEsito(fine - stat.ritardo,ruote,sinnum,1,sorte - 1) k1 += 1 Table.Row(_INS) Table.AlternateRow(True,Gradient.Blue2) Table.TD_Style(k1) Table.TD_Style(ElencoNumeri(sinnum)) Table.TD_Style(Stat.Frequenze) Select Case (Stat.Scarto) Case Is > 0 Table.TD_ArrowUp(1,Stat.Scarto) Case Is < 0 Table.TD_ArrowDown(0,Stat.Scarto) Case Is = 0 Table.TD_Style(Stat.Scarto) End Select Table.TD_Bar(Gradient.Red,Stat.Ritardo,Stat.Ritardo) Table.TD_Style(ElencoEsiti(False)) Table.TD_Bar(Gradient.Orange,Stat.Storico,Stat.Storico) Table.TD_Style(Stat.DataStorico) Table.TD_Style(Stat.MediaRit) Table.TD_Bar(Gradient.Red,Stat.RapportoRit*100,Stat.RapportoRit) Table.TD_Style(Stat.RitardiSerie(10,True)) Select Case (Stat.TrendSerie(10)) Case Is > 0 Table.TD_ArrowUp(1,Stat.TrendSerie(10)) Case Is < 0 Table.TD_ArrowDown(0,Stat.TrendSerie(10)) Case Is = 0 Table.TD_Style(Stat.TrendSerie(10)) End Select Table.Row(_END) Next Table.Close() Testo.Out Testo.Output(Script.TimerEnd()) End Sub[/FONT]

ciao, non ho capito perchè lo vedo tutto su una riga sola.

 

[chicco3]

Ciao neanche io ho capito infatti ho fatto come tu dici ma è venuto cosi non lo adesso lo tolgo.

 

[chicco3]

Non lo so con script spaziometria viene bene e con questo non capisco boo

 

[chicco3]

Ciao Cerberus l'unica è cosi.

 

[Roby]

Azz, poche volte ho visto uno script così lungo.
Mi sa che questo su spaziometria non girerà mai.
Lo vedo completamente diverso da quel poco che conosco.
Ci vuole qualcuno che usa VL7 e al contempo Spaziometria che sappia dire se si può fare o no.
Ma ho il sospetto che per farlo girare in spaziometria ci vorranno modifiche moilto sostanziali.
Passo la palla ai più esperti
ciao

 

[salvo50]

Azz, poche volte ho visto uno script così lungo.
Mi sa che questo su spaziometria non girerà mai.
Lo vedo completamente diverso da quel poco che conosco.
Ci vuole qualcuno che usa VL7 e al contempo Spaziometria che sappia dire se si può fare o no.
Ma ho il sospetto che per farlo girare in spaziometria ci vorranno modifiche moilto sostanziali.
Passo la palla ai più esperti
ciao

Idem

 

[joe]

Non credo esistano utility di conversione ...

ed è scritto sicuramente con un altro tipo e stile di programmazione.

Inoltre le tabelle di cui si caratterizza (molto curate graficamente) utilizzano istruzioni come:

Table.TD_ArrowDown(0,Stat.TrendSerie(10))

che per essere rese compatibili a spaziometria renderebbero necessario parecchio lavoro.

Io non vi posso aiutare perché non conoscendo il programma e il suo linguaggio

sono capace di leggerlo solo per sommi capi.

 

[chicco3]

grazie joe x la tua disponibilità

 

[chicco3]

Ciao Salvo scusa se mi intrometto qua, ti volevo chiedere tu hai per caso uno script che va a cercare sul quadro estrazionale la distanza 1-10 e 30 sia in orizzontale che in verticale; ti faccio un esempio data 26.5.2018 su firenze c'e l'estratto 3-4 e su Genova l'estratto 5 quindi distanza 1.Oppure va bene anche in orizzontale o verticale ci sia una distanza 30 e l'altra 10 va bene lo stesso l'importante che rientri nei paramentri di quelle distanze cioè 1-10 e 30 in questo ultimo caso magari ti faccio un'altro esempio:- Estraz. del 24.5.2018 BA 57-47 distaz.10, mentre sulla ruota di CA estratto 17 dist.trà 17 e 47=30 cosi va bene lo stesso in quanto da un lato si viene a formare una terzina simmetrica.Ovviamente da un lato in isotopia, non ha importanza se le ruote sono consecutive o no. Se possibile si puo segnalare quando trova su ruote consecutive.Per il momento ti faccio un caro saluto e buona Domenica
Chicco

 

[salvo50]

Ciao Salvo scusa se mi intrometto qua, ti volevo chiedere tu hai per caso uno script che va a cercare sul quadro estrazionale la distanza 1-10 e 30 sia in orizzontale che in verticale; ti faccio un esempio data 26.5.2018 su firenze c'e l'estratto 3-4 e su Genova l'estratto 5 quindi distanza 1.Oppure va bene anche in orizzontale o verticale ci sia una distanza 30 e l'altra 10 va bene lo stesso l'importante che rientri nei paramentri di quelle distanze cioè 1-10 e 30 in questo ultimo caso magari ti faccio un'altro esempio:- Estraz. del 24.5.2018 BA 57-47 distaz.10, mentre sulla ruota di CA estratto 17 dist.trà 17 e 47=30 cosi va bene lo stesso in quanto da un lato si viene a formare una terzina simmetrica.Ovviamente da un lato in isotopia, non ha importanza se le ruote sono consecutive o no. Se possibile si puo segnalare quando trova su ruote consecutive.Per il momento ti faccio un caro saluto e buona Domenica
Chicco

Ciao Chicco3

Per me è più facile farlo che andarlo a cercare nella miriade di script che ho, appena ho tempo vedo quello che posso fare.

 

[chicco3]

OK Salvo ti ringrazio buona serata

 

[salvo50]

UN AMBO DA PREMIO OSCAR - AUTORI E. MASI e S. FELICI

Le spiegazioni e relative immagini si trovano nel post 54 di questo 3D

Ultima correzione 25-01-19

 'Metodo - UN AMBO DA PREMIO OSCAR - AUTORI E. MASI e S. FELICI
'script by Salvo50
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,R2,R3,R4,R5,R6
   Dim P1,P2,P3,P4,P5,P6,P7,P8,P9,P10,P11,P12,P13
   Dim E1,E2,E3,E4,E5,E6,S1,Diam
   Dim A,B,C,D,E,F,G,H,I,L,M,Caso,Clp,Salvo50,Casi
   Dim DAB,DCD,DEF,DGH,DIL
   Dim Post(2),Ruote(6),Ambata(2)
   Post(2) = 1
   Fin = EstrazioneFin
   Ini = 9570
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambo ? ",Salvo50,7))
   Call ScegliRange(Ini,Fin,Ini,Fin) '6563
   For Es = Ini To Fin
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 9
         For R2 = R1 + 1 To 10
            For P1 = 1 To 4
               For P2 = P1 + 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  For R3 = R2 + 1 To 12
                     If R3 = 11 Then R3 = 12
                     For P3 = 1 To 4
                        For P4 = P3 + 1 To 5
                           E = Estratto(Es,R3,P3)
                           F = Estratto(Es,R3,P4)
                           DAB = Distanza(A,B) : DCD = Distanza(C,D) : DEF = Distanza(E,F)
                           If DAB = DCD And DAB = DEF Then
                              For R4 = 1 To 10
                                 For R5 = R4 + 1 To 12
                                    If R5 = 11 Then R5 = 12
                                    For P5 = 1 To 4
                                       For P6 = P5 + 1 To 5
                                          G = Estratto(Es,R4,P5)
                                          H = Estratto(Es,R4,P6)
                                          I = Estratto(Es,R5,P5)
                                          L = Estratto(Es,R5,P6)
                                          DGH = Distanza(G,H) : DIL = Distanza(I,L)
                                          If DGH = DIL And DGH <> DAB Then
                                             S1 = Fuori90(DAB + DGH)
                                             Diam = Diametrale(S1)
                                             For R6 = 1 To 12
                                                If R6 = 11 Then R6 = 12
                                                For P12 = 1 To 5
                                                   M = Estratto(Es,R6,P12)
                                                   If Diam = M Then
                                                      Ambata(1) = DAB
                                                      Ambata(2) = DGH
                                                     If SerieFreqTurbo (Es - 15,Es,Ambata,Ruote,2) = 0  Then


                                                         '-------------------------------
                                                         Caso = Caso + 1
                                                         Casi = Casi + 1
                                                         ColoreTesto 1
                                                         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                                         ColoreTesto 2
                                                         Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                                         ColoreTesto 0
                                                         Scrivi
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                                         For P7 = 1 To 5
                                                            E1 = Estratto(Es,R1,P7)
                                                            If E1 = A Or E1 = B Then
                                                               Call ColoreTesto(2)
                                                            Else
                                                               Call ColoreTesto(0)
                                                            End If
                                                            Call Scrivi(Format2(E1) & " ",1,0)
                                                            Call ColoreTesto(0)
                                                         Next
                                                         Scrivi Space(8) & "<-- Rossi Distanza " & Format2(DAB),1
                                                         '
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                                         For P8 = 1 To 5
                                                            E2 = Estratto(Es,R2,P8)
                                                            If E2 = C Or E2 = D Then
                                                               Call ColoreTesto(2)
                                                            Else
                                                               Call ColoreTesto(0)
                                                            End If
                                                            Call Scrivi(Format2(E2) & " ",1,0)
                                                            Call ColoreTesto(0)
                                                         Next
                                                         Scrivi Space(8) & "<-- Rossi Distanza " & Format2(DCD),1
                                                         '
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                                         For P9 = 1 To 5
                                                            E3 = Estratto(Es,R3,P9)
                                                            If E3 = E Or E3 = F Then
                                                               Call ColoreTesto(2)
                                                            Else
                                                               Call ColoreTesto(0)
                                                            End If
                                                            Call Scrivi(Format2(E3) & " ",1,0)
                                                            Call ColoreTesto(0)
                                                         Next
                                                         Scrivi Space(8) & "<-- Rossi Distanza " & Format2(DEF),1
                                                         Scrivi
                                                         '
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R4) & " ",1,0
                                                         For P10 = 1 To 5
                                                            E4 = Estratto(Es,R4,P10)
                                                            If E4 = G Or E4 = H Then
                                                               Call ColoreTesto(2)
                                                            Else
                                                               Call ColoreTesto(0)
                                                            End If
                                                            Call Scrivi(Format2(E4) & " ",1,0)
                                                            Call ColoreTesto(0)
                                                         Next
                                                         Scrivi Space(8) & "<-- Rossi Distanza " & Format2(DGH),1
                                                         '
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R5) & " ",1,0
                                                         For P11 = 1 To 5
                                                            E5 = Estratto(Es,R5,P11)
                                                            If E5 = I Or E5 = L Then
                                                               Call ColoreTesto(2)
                                                            Else
                                                               Call ColoreTesto(0)
                                                            End If
                                                            Call Scrivi(Format2(E5) & " ",1,0)
                                                            Call ColoreTesto(0)
                                                         Next
                                                         Scrivi Space(8) & "<-- Rossi Distanza " & Format2(DIL),1
                                                         Scrivi
                                                         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                         Scrivi "  " & SiglaRuota(R6) & " ",1,0
                                                         For P13 = 1 To 5
                                                            E6 = Estratto(Es,R6,P13)
                                                            If E6 = M Then
                                                               Call ColoreTesto(2)
                                                            Else
                                                               Call ColoreTesto(0)
                                                            End If
                                                            Call Scrivi(Format2(E6) & " ",1,0)
                                                            Call ColoreTesto(0)
                                                         Next
                                                         Scrivi "<-- Rosso Diametrale Somma " & Format2(S1),1
                                                         Scrivi
                                                         Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = R3
                                                         Ruote(4) = R4 : Ruote(5) = R5 : Ruote(6) = R6
                                                         ImpostaGiocata 1,Ambata,Ruote,Post,Clp,2
                                                         Gioca Es
                                                      End If
                                                   End If
                                                Next
                                             Next
                                          End If
                                       Next
                                    Next
                                 Next
                              Next
                           End If
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi Space(40) & "Metodo - UN AMBO DA PREMIO OSCAR - AUTORI E. MASI e S. FELICI",1
   Scrivi Space(60) & "Script by Salvo50",1
End Sub

 

[chicco3]

Ciao Salvo come mai lo scriptnon va avanti nelle ricerche grazie

 

[chicco3]

https://forum.lottoced.com/forum/lo...ichi-e-di-grandi-autori?p=2089776#post2089776

Ciao Salvo ho scricato lo script di cui sopra ma non va avanti con le estrazioni come mai? grazie se puoi rispondermi ciao
Chicco

 

[chicco3]

Ciao guarda che il post nr.7 due somme 45 di pasquale robbie.

 

[salvo50]

Ciao guarda che il post nr.7 due somme 45 di pasquale robbie.

Dato che avevi scritto sopra, pensavo che era l'ultimo che avevo fatto, sono andato anche nel link, ma ti porta all'inizio del topic, non ti specifica quale metodo, poi se scrivi in commenta in un post vecchio, è difficile che lo veda, comunque il metodo - Due somme 45 - si è fermato all'estrazione 9422 del 16-01-2018 è perchè non si sono verificate le condizioni del metodo,(oppure io ho sbagliato tutti i calcoli) che sono:
nella stessa estrazione trovare due numeri consecutivi con somma 45 (col fuori 90), in un'altra ruota in posizione isotopa altri 2 numeri con le stesse condizioni.
Poi basta fare un po' di calcoli lo script è impostato dall'estrazione 7818 del 18-10-2007 fino all'ultima estrazione la 9502, ci sono 1684 estrazioni di differenza, se guardi quanti casi si sono verificati in questi 1684 estrazioni, vedi che si sono verificate solo 45 casi, cioè di media un caso ogni 38 estrazioni.

 

[Juri]

Ciao salvo

per il momento ho fatto la lista di quelli che mi son rimasti ancora sui pochi giornali salvati. (per l'email poi vediamo...)

Poi ho un paccone di 30 cm di ritagli che saranno un 400-500 fogli......povero me...

Ti posterò un file zip con la lista un po più completa....

questa la lista parziale , c'è un po di tutto :



Massimo Roasio
vincite quasi a colpo
un metodo quasi infallibile
vincite costanti
l'ambo secco su ruota unica
vincite costanti su napoli
vinciamo su milano e venezia
vincite al 94% su cagliari


Antonio di Gilio
l'ampave riveduto e corretto 1
l'ampave riveduto e corretto 2


Gianni D'Amore
la teoria del ritardo:micro e macro configurazioni 2° parte
un terno a 34 carati

Vincenzo Bocchino
triasim
diam. dec.
intertriade


benito bozzon
vincite d'ambata,ambi e terni cob un numeretto e la sua cadenza 1° parte
vincite d'ambata,ambi e terni cob un numeretto e la sua cadenza 2° parte
l'ambo secco su tutte all'uscita di un ambo gemellare
metodo per vincere realmente l'ambo secco su ruota fissa e a tutte 1° parte
metodo per vincere realmente l'ambo secco su ruota fissa e a tutte 2° parte
ambata e ambi secchi ricavati con l'armonia geometrica 3° parte


salvatore fucarino
metodo lotto 5 - 1° parte (aggiunta al "metodo omega")
metodo lotto 5 - 2° parte (aggiunta al "metodo omega")
la strategia del gioco del metodo ritmo
l'evoluzione dell'ambo secco 1° parte
l'evoluzione dell'ambo secco 3° parte
l'evoluzione dell'ambo secco 4° parte
le fonti ciclometriche 2° parte
le fonti ciclometriche 3° parte
il metodo delle cadenze 1° parte
una ricerca interessante 1° parte


luciano cupioli
metodo della doppia finale
i triangoli simmetrico-proporzionali
metodo dello zerato sovrapposto
coppie omogenee e coppie eterogenee
lo zerato primo estratto ed il novanta
terzo genova-milano
differenza dei secondi
dal primo al secondo


carlo arancio
il sistema del 33
i numeri prossimi


delear
l'infallibile legge del terzo 1° parte
l'infallibile legge del terzo 2° parte
le triple principio empirico di riproduzione
le previsioni plurime 1° parte
le previsioni plurime 2° parte
osservazioni simmetriche


luciana giorgetti
metodo dei vertibili diametrali
vertice 30
le figure diametrali
fisso 1 = vincita costante
la vincita in tasca
distanza più diametrale
la scaletta delle figure


michele pace
il 90 come ambata fissa, nell'armonia geometrica 1° parte
metodo plaros 1° parte
metodo plaros 2° parte
vincite regolari con l'ambo diametrale in decina
F.S.E. frequenze nelle sestine esagonali 1° parte
F.S.E. frequenze nelle sestine esagonali 2° parte


la bua riccardo
vespri 1


manco ciro
vincite sistemiste


giovanni negrisolo
metodo mariang
l'ambo secco a tutte
metodi e rielaborazioni 2° parte


michele archidiacono
il quadrambo magico


alfio tirreni
la forza magnetica dei numeri
milano in cadenza
la vincita assicurata


mongillo/petrazzuoli
vinciamo ambi e terni con le formazioni D.E.V. - 2° parte
l'ambata sommata


giacomo scionti
le sestine


giuseppe verratti
la cadenza vincente


clivio botticelli
l'ambo naturale


elisabetta masi
il fenomeno dell'anno 2000


fabio felici
è lo zero la chiave per vincere a lotto


angelo medici
dai piccoli numeri i grandi risultati continuano
un poker d'assi con i diametrali in decina
vincere l'ambo con le formazioni speculari
vincere presto e anche bene
prev super con le ottine supersimmetriche
bari e palermo per un mare di vincite
quattro ruote unite per la vittoria


pasquale santilio
il terzo di bari raddoppia e vince
al posto giusto nel momento giusto
le ruote diametrali in compagnia del 23
i gemelli chiamano le ruote rispondono
i numeri doppi primi della classe
numeri consecutivi gemelli sprint
patto d'acciaio fra tre ruote
ruote confinanti cifre consecutive

cristian uguccioni
bari allunga il passo e arriva all'ambo


maurizio carini
una spia simmetrica per vincite record


francesco mazza
l'ambo secco sbanca in due colpi


mauro carbonetta
previsioni doc su mi e na
frontiere simmmetriche


fernando di fazio
cambia la chiave ma non i risultati


angelo licari
colpo grosso su ve


antonello atzori
prev in salute basta dire 33


gaetano toti
la figura 9 al terzo posto arriva prima


arturo alesiano
milano mette in palio i suoi numeri
milano ruota generosa
i numeretti vanno in gondola
bari in cifre per vincere a palermo
un diametrale in prestito
decine e unità coppia super

fiore masci
venezia propone e torino vince
il gioco delle figure


michele elia
come vincere l'ambo in 5 colpi


paolo onnis
i gemelli vanno in vacanza?


anna pollio
ambi in progressione vincite reali
una strategia vincente per il gioco a tutte

giuseppe giordano
la strada dell'ambo passa da bari e venezia
ripetizione diametrale
firenze e genova calano le figure
firenze si mette in bella mostra

ezio melle
gli ambi consecutivi preferiscono firenze


luigi barone
la regola degli ottanta per cagliari


leo todaro
due ambi alla ribalta
la somma 90, chiave dell'ambo
bari e cagliari a paaso 5

giacomo scalzo
il fisso 3 chiave vincente
due ruote per un oscar

matteo palumbo
numeri a prima vista


alessandro ginestrino
la somma 90 vera regina
le tre distanze:quando le trovi
somme di chiusura della diagonale 90
il numero 1 è il protagonista
previsioni facili


grobby
con firenze e genova si passa alla cassa
vedi firenze e genova e poi vinci
milano e napoli:è successo un 48


claudio minacci
le cadenze,che sorpresa! le vincite che gioia!
tre terzine dai numeri uguali
un gemello che da sicurezza

salvatore landolfi
apollo due per volare


luigi gaetano
la tripla mensile
il numero ricerca
gli ambi figurali
elementi vincenti

maria rosaria falbo
ecco l'ambo colorato

paolo marchisotti
ambata a doppia faccia
posto d'onore alle figure
il fenomeno della ripetizione

giuseppe pezzella
il concetto di vincolo
spunti simmetrici

chiara campaci
simmetria sprint
le cifre:che numeri!
scartiamo la ripetizione
diametrali da favola

michael
tre ruote da sballo
la rivincita degli esclusi
il gioco continuo

A. A. Pica
il gioco che rende
progrediamo assieme

giuseppe pellegrino
ibridi eccezionali
con qull'ambo si sfida la sorte

roberto di lorenzo
quando il 90 premia
il gemello base vincente
ricominciamo da zero

david raseni
la proiezione cubica


donato mecca
al di fuori della decina


g. arpino
la terzina magica
venezia in simmetria


d'annibali
le decine variabili

m. turci
giochiamo a ruota fissa

gaetano lai
diametrali d'assalto

Ciao.

Quali metodi della lista funzionano e conviene vedere?Avete fatto una cernita?

Grazie mille.

Statemi bene.

 

[salvo50]

Ciao Juri

questa è la lista dei metodi che ha Cerberus, e non ho controllato se sono tra quelli che ha postato, nei due thread che ha aperto, che sono, TUTTOLOTTO e DA COLLEZIONE, tutto quello che è stato fatto a livello di scrit è in questo thead.

Script su Metodi Cabalistici Ciclometrici & C.

 

[Juri]

Grazie.

 

[Matematico]

Ciao salvo50, questo è un tuo script sul BYRON originale...cortesemente sarebbe possibile modificarlo in modo che si possa ottenere la previsione in tutte le estrazioni anche senza l'equazione perfetta a 90?
Se possibile sarebbe utileun imput box x poter inserire gli estratti desiderati .

Grazie sempre x tutto quell oche fai con grande generosità

'Progetto - BYRON 'Script - by Salvo50 Option Explicit Sub Main Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11 Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5 Dim R1,Es,CLP,Esq,Caso,Casi Dim S1,S2,S3,S4,S5,S6,S10,S11,S12 Dim FIn,Ini,Ruote(10),Posta(1) Dim Idestr,Col,Esqcol,Ambata(1) Posta(1) = 1 FIn = EstrazioneFin Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,8000) CLP = CInt(InputBox("Per quanti colpi vuoi fare la ricerca?",,13)) Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn)) Esqcol = Esq + Col If Esqcol > FIn Then Esqcol = FIn For Es = Esq To Esqcol Caso = 0 AvanzamentoElab Esq,Esqcol,Es For R1 = 1 To 10 A1 = Estratto(Es,R1,1) : If A1 > 0 Then A2 = Estratto(Es,R1,2) A3 = Estratto(Es,R1,3) A4 = Estratto(Es,R1,4) A5 = Estratto(Es,R1,5) B1 = Estratto(Es + 1,R1,1) B2 = Estratto(Es + 1,R1,2) B3 = Estratto(Es + 1,R1,3) B4 = Estratto(Es + 1,R1,4) B5 = Estratto(Es + 1,R1,5) '----------------------------------------- S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90 S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90 S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90 S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90 S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90 S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90 D1 = Fuori90(90 +(A1 - A2)) D2 = Fuori90(90 +(A2 - A3)) D3 = Fuori90(90 +(A3 - A4)) D4 = Fuori90(90 +(A4 - A5)) D5 = Fuori90(90 +(A5 - B1)) D6 = Fuori90(90 +(B1 - B2)) '---------------------------- D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90 D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90 D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90 D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90 D11 = Fuori90(90 +(B4 - B5)) : If D11 < 10 Then D11 = D11 + 90 S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11) Ambata(1) = Fuori90(S10 + B1) S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6) S12 = Fuori90(S11 + S10) If S12 = 90 Then Caso = Caso + 1 Casi = Casi + 1 ColoreTesto 1 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000") ColoreTesto 2 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000") ColoreTesto 0 Scrivi(" Estrazione n." & FormattaStringa(Es,"0000") & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1 Scrivi(" Estrazione n." & FormattaStringa(Es + 1,"0000") & " del " & DataEstrazione(Es + 1)),1,0 Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es + 1,R1),1 Scrivi Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0 Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " - Distanze " & Format2(D1),1,0 Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1 Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0 Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1 Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0 Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0 ColoreTesto 1 Scrivi Format2(S10),1 ColoreTesto 0 Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0 Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1 Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0 Scrivi " " & Format2(B4) & " " & Format2(B5),1,0 ColoreTesto 2 Scrivi " " & Format2(Ambata(1)),1,0 ColoreTesto 0 Scrivi " - Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1 Scrivi Space(20) & String(20,"-") Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0 Scrivi " " & Format2(S5) & " " & Format2(S6) & " - Somma delle somme ",1,0 ColoreTesto 1 Scrivi Format2(S11),1 ColoreTesto 0 Scrivi Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " Equazione Perfetta",1 Scrivi '--------------------------------------------------------------------------------------------------- Ruote(1) = R1 ImpostaGiocata 1,Ambata,Ruote,Posta,CLP,1 Gioca Es End If End If Next If ScriptInterrotto Then Exit Sub Next ScriviResoconto Scrivi Space(50) & "Progetto - Lord Byron - " Scrivi Space(50) & "Script - by Salvo50" End Sub