VINCENTE LA DISTANZA 27 (SCRIPT)

[Imaging]

dal 2018 sono troppe le estrazioni sono 699 estr se vuoi fare la statistica la puoi fare in questo anno..
calcola che la media delle estrazioni sono 155 estr all'anno ..
puoi anche elaborare 699 estr ma lo script ci metterà un po di tempo..
un altro consiglio che ti do su spaziometria resetta le estr solo con le venus
e inutile che ti tieni tutto l'archivio anche del dopo guerra a che ti serve a niente..
adesso le venus hanno effettuato 1999 estr e giovedi le venus festeggiano le 2000 estr..
speriamo di vincere cosi festeggiamo anche noi..

NON HO MAI VISTO COME SI PROCEDE::::

 

[Zetrix]

allora clicca su base dati..aggiornamento lotto..e tronca archivio..
metti la data di inizio 15-9-2009 e poi dai ok
spaziometria a questa opzione in altri programmi non lo puoi fare..
hanno l'archivio dal 1871 e se lo tenessero loro l'archivo dal 1871..

se ai qualche cosa da aggiungere nello script scrivi qua ..ok

 

[Imaging]

Questo non funziona

 

[Imaging]

si non avevo messo la condizione delle coppie isotope ma si puo modificare lo script
aspetta un po che faccio la modifica allo script..prova questo script fatto modifica con
numeri isotopi..comunque non tenere conto delle coppie isotope meglio considerare
tutte le combinazioni poi puoi scegliere te la combinazione migliore..

Sub Main
   Dim ru(4),calc(10),ruote(5),ruota(5),ab(4),posta(1),poste(2)
   Dim r1,r2
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2)
   Dim quartina(4)
   Dim ambata(2)
   Dim caso
   posta(1) = 1
   poste(2) = 1
   'rk = InputBox("Quale distanza vuoi controllare?",0)
   rs = InputBox("Quante estrazioni vuoi controllare?",,"0")
   caso = 0
   co = 0
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 9
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               For r2 = r1 + 1 To 10
                  c = Estratto(es,r2,p1)
                  d = Estratto(es,r2,p2)
                  For rx = rk To rk
                     '
                     n1 = Distanza(a,b)
                     n2 = Distanza(a,c)
                     n3 = Distanza(c,d)
                     n4 = Distanza(b,d)
                     '-------------------
                     s1 = Fuori90(a + b)
                     s2 = Fuori90(c + d)
                     s3 = Fuori90(a + c)
                     s4 = Fuori90(b + d)
                     s5 = Fuori90(a + d)
                     s6 = Fuori90(b + c)
                     '-------------------
                     '
                     If s1 = s2 Then
                        '
                        If a Then
                           ambo1(1) = Fuori90(a + 27)
                        End If
                        If b Then
                           ambo1(2) = Fuori90(b - 27)
                        End If
                        '---------------------------
                        If c Then
                           ambo2(1) = Fuori90(c - 9)
                        End If
                        If d Then
                           ambo2(2) = Fuori90(d + 9)
                        End If
                        '
                        quartina(1) = ambo1(1)
                        quartina(2) = ambo1(2)
                        quartina(3) = ambo2(1)
                        quartina(4) = ambo2(2)
                        '
                        'If rx = n2 And rx = n4 Then
                        If n2 = 27 And n4 = 27 Then
                           '
                           caso = caso + 1
                           Scrivi String(90,"-") & " gioco n. " & caso
                           '
                           ruota(1) = r1
                           ruota(2) = r2
                           ruote(1) = r1
                           ruote(2) = r2
                           ruote(3) = TT_
                           ruote(4) = NZ_
                           ru(1) = TT_
                           '------------------
                           calc(1) = a
                           calc(2) = b
                           calc(3) = c
                           calc(4) = d
                           '---------------------------------
                           ' identifica ad esempio 4 caselle
                           ReDim MatriceCaselleDaEvid(4,1)
                           ' Primo elemento
                           MatriceCaselleDaEvid(1,0) = r1 ' ruota di bari
                           MatriceCaselleDaEvid(1,1) = p1 ' primo estratto
                           ' secondo elemento
                           MatriceCaselleDaEvid(2,0) = r1 ' ruota di bari
                           MatriceCaselleDaEvid(2,1) = p2 ' secondo estratto
                           ' terzo elemento
                           MatriceCaselleDaEvid(3,0) = r2 ' ruota di venezia
                           MatriceCaselleDaEvid(3,1) = p1 ' terzo estratto
                           ' quarto elemento
                           MatriceCaselleDaEvid(4,0) = r2 ' ruota di venezia
                           MatriceCaselleDaEvid(4,1) = p2 ' quarto estratto
                           Call DisegnaEstrazione(es,MatriceCaselleDaEvid)
                           '
                           Scrivi("" & Left(NomeRuota(r1),2) & "______" & Format2(a) & "_" & Format2(n1) & "_" & Format2(b) & "______"),1,1,3,7,6
                           Scrivi("________" & Format2(n2) & "____" & Format2(n4) & "_" & "_____"),1,1,4,7,6
                           Scrivi("" & Left(NomeRuota(r2),2) & "______" & Format2(c) & "_" & Format2(n3) & "_" & Format2(d) & "______"),1,1,3,7,6
                           Scrivi
                           Scrivi
                           Scrivi("somma " & s1 & "") & "",1,1,3,7,6
                           Scrivi
                           'EliminaRipetuti (nu)
                           'Call DisegnaCerchioCiclometrico(calc,True,True,,,True,True,True)
                           'ImpostaGiocata 1,ambata,ruota,posta,co,0
                           'Gioca es,1,,1
                           ImpostaGiocata 1,ambo1,ruote,poste,co,0
                           ImpostaGiocata 2,ambo2,ruote,poste,co,0
                           Gioca es,1,,1
                           Scrivi
                           Scrivi String(55,"-")
                           Scrivi
                           ImpostaGiocata 1,quartina,ru,poste,co,0
                           Gioca es,1,,1
                           Scrivi
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "script di Zetrix",0,1,4,1
End Sub

Questo non funziona

 

[Zetrix]

lo script non e che non funziona e che trova poche combinazioni di gioco
con numeri isotopi devi usare l'altro script che calcola tutte le combinazioni..

 

[Imaging]

allora clicca su base dati..aggiornamento lotto..e tronca archivio..
metti la data di inizio 15-9-2009 e poi dai ok
spaziometria a questa opzione in altri programmi non lo puoi fare..
hanno l'archivio dal 1871 e se lo tenessero loro l'archivo dal 1871..

se ai qualche cosa da aggiungere nello script scrivi qua ..ok

allora clicca su base dati..aggiornamento lotto..e tronca archivio..
metti la data di inizio 15-9-2009 e poi dai ok
spaziometria a questa opzione in altri programmi non lo puoi fare..
hanno l'archivio dal 1871 e se lo tenessero loro l'archivo dal 1871..

se ai qualche cosa da aggiungere nello script scrivi qua ..ok

QUESTO NON FUNZIONA ::::::

 

[Zetrix]

cerca di spiegarti meglio che sarebbe questo non funziona devi scrivere le cose
piu complete..

 

[Imaging]

cerca di spiegarti meglio che sarebbe questo non funziona devi scrivere le cose
piu complete..

Hai ragione la script non funziona

 

[Zetrix]

no lo script funziona benissimo fai la ricerca indietro di 30 estr..
ti ho detto che trova poche combinazioni con numeri isotopi
a meno che non metti tutte le dist..

 

[Imaging]

Funziona ma la combinazione del 21 /7/ 2022 con coppie isotopa non la porta si ferma al 9/6/22

 

[Zetrix]

metti la condizione del 21 7 cosi vediamo perche non la calcola forse hanno le somme
impostate diverse

 

[Imaging]

metti la condizione del 21 7 cosi vediamo perche non la calcola forse hanno le somme
impostate diverse

PALERMO 60-23 (2°-5°)
TORINO 33-90 (2°-5°)

 

[Zetrix]

PALERMO 60-27 (2°-5°)
TORINO 33-90 (2°-5°)

lo script non la calcola questa combinazione perche non hanno la stessa somma

60+27=87
33+90=33

 

[Imaging]

PALERMO 60-27 (2°-5°)
TORINO 33-90 (2°-5°)

lo script non la calcola questa combinazione perche non hanno la stessa somma

60+27=87
33+90=33

Forse Perché questa e una distanza verticale...60-33=27 ; 90-27=27 (27+90=117-90=27.......

 

[Zetrix]

gli ambi hanno tutte la dist 27 vert ma le somme uguali o le calcola in oriz o in diag
non puo mai calcolare una somma uguale in vert..a meno che se sono diametrali tra loro..

esempio
30 75
57 12
---------
87-87

 

[Imaging]

gli ambi hanno tutte la dist 27 vert ma le somme uguali o le calcola in oriz o in diag
non puo mai calcolare una somma uguale in vert..

OK Perfetto.....

 

[Imaging]

Imaging ma il tuo nome risulta bannato ma ti hanno bannato adesso..?

lo script e un po difficile da fare non so se riesco a farlo..
per la distanza 27 si puo fare anzi ho tutti gli script che calcolano tutte le dist e somme..
non sono un programmatore se no avrei fatto qualche programma alla Rambo..

IO CREDO CHE LO FARAI... SEMPRE MEGLIO DI ME E QUALCHE ALTRO O NO!!!!!!!!

 

[Imaging]