script tecnica diemme novantesimale

[Settenario]

Buona sera, vorrei chiedere, gentilmente, se era possibile creare uno script...
Spiego la tecnica, è un misto tra la DIEMME e LA NUMERAZIONE NOVANTESIMALE ( modulo 8100) del Manna.

estrazione del 08.11.2012 ruota di Roma estratti : 65-31-43-22-26.
prendere gli estratti a coppie
65-31
31-43
43-22
22-26
26-65
Trasformare le coppie in numeri novantesimali ( moltiplicare il 1° numero x 90 poi aggiungere 2° numero:
65x90+32= 5881
31x90+43= 2833
43x90+22= 3892
22x90+26= 2006
26x90+65= 2405
....se ad 1 o piu' operazioni esce un numero superiore a 8100 bisogna sottrarre il modulo 8100 finché non si raggiunge un numero uguale o inferiore a 8100
ora si applica la formula Diemme:
5881 x 16 = 94096 2833 x 8 = 22664
3892 x 4 = 15568
2006 x 2 = 4012
2405 x 1 = 2405

sommare 94096+22664+15568+4012+2405=138745...moltiplicare x 6271= 870069895 poi (870069895x 2)-5881 = 1740133909 sottrarre 8100 fino ad raggiungere un numero uguale o inferiore....2809 (1740133909 x2)-2833 = 3480264985 2785
(3480264985x2)-3892 = 6960526078 1678 (6960526078 x2)- 2006 = 13921050150 1350
(13921050150x2)-2405= 27842097895 295


dividere 2809/90 = 31 resto 19
2785/90 = 30 resto 85
1678/90 = 18 resto 58
1350/90 = 15 resto 0 ( si considera 90)
295/90 = 3 resto 25

Ambi da giocare ROMA 31-19......30-85......18-58......15-90.......3-25...... ESITO 18- 58 1° COLPO ( NON è SEMPRE COSI)
... sarebbe interessante controllare anche l'esito dell' intera decina formata dai numeri 31-19-30-85-18-58-15-90-3-25 x ambo in questo caso si ebbe doppio esito al 1° colpo.

non so se tutto questo sia fattibile ma ringrazio infinitamente e anticipatamente .

Alberto
..dimenticavo il 16, 8, 4 , 2 , 1 e il 6271 sono numeri fissi....
poi nello script se sarebbe possibile scegliere la ruota i colpi di gioco e il range di estrazioni da controllare.

 

[Mike58]

ciao Kondor13, ci stavo provando ma i calcoli ahimè sono complessi comunque ti ho preparato un corpo di script in modo che se sai intervenire puoi correggere qualche calcolo.
Se poi qualcun altro scripter voglia intervenire per completarlo, tutto di guadagnato.

Giusto per non lasciare insoluta la richiesta.

Ciao

Sub Main
    Dim num(10)
    Dim ruota(12)
    Dim posta(5)
    Ini = 8610 ' inizio estrazioni
    fin = 8610 + 10 ' fine estrazioni
    r = 8 ' ruota
    clp = 10 ' colpi
    ruota(1) = r
    Scrivi "Ruota di..." & NomeRuota(r),1
    Scrivi
    For es = Ini To fin
        a = Estratto(es,r,1)
        b = Estratto(es,r,2)
        c = Estratto(es,r,3)
        d = Estratto(es,r,4)
        e = Estratto(es,r,5)
        'Scrivi StringaEstratti(es,1)
        '----- modulo fuori 8110 ---------------
        aa = FuoriX(a*90,8110) + b
        bb = FuoriX(b*90,8110) + c
        cc = FuoriX(c*90,8110) + d
        dd = FuoriX(d*90,8110) + e
        ee = FuoriX(e*90,8110) + a
        '--------------------------------------
        '----- modulo diemme ------------------
        a1 = aa*16
        a2 = bb*8
        a3 = cc*4
        a4 = dd*2
        a5 = ee*1
        '-------------------------------------
        '-------- 3 fase somma modulo diemme-----------------
        x =(a1 + a2 + a3 + a4 + a5)*6271
        x1 =(x*2) - aa
        x2 =(x*2) - bb
        x3 =(x*2) - cc
        x4 =(x*2) - dd
        x5 =(x*2) - ee
        '--------passaggio errato da capire ????? ----------------------
        xx1 = FuoriX(x1,8110)
        xx2 = FuoriX(x2,8110)
        xx3 = FuoriX(x3,8110)
        xx4 = FuoriX(x4,8110)
        xx5 = FuoriX(x5,8110)
        '---------- ultima fase resto ----------------------------------
        'y1 = xx1/90
        '---------------------------------------------------------------
        num(1) = Fuori90(Left(xx1,2))
        num(2) = Fuori90(Right(xx1,2))
        num(3) = Fuori90(Left(xx2,2))
        num(4) = Fuori90(Right(xx2,2))
        num(5) = Fuori90(Left(xx3,2))
        num(6) = Fuori90(Right(xx3,2))
        num(7) = Fuori90(Left(xx4,2))
        num(8) = Fuori90(Right(xx4,2))
        num(9) = Fuori90(Left(xx5,2))
        num(10) = Fuori90(Right(xx5,2))
        Call VerificaEsito(num,ruota,es + 1,2,clp,Nothing,retesito,retcolpi,retestratti,retid)
        Scrivi GetInfoEstrazione(es) & " - " & " - " & StringaEstratti(es,r) & " - " & StringaNumeri(num,,True)
        Scrivi
        ColoreTesto 2
        Scrivi " Esito... " & retesito
        Scrivi " Colpo...." & retcolpi
        Scrivi " Estratti " & retestratti
        Scrivi
        ColoreTesto 0
    Next
End Sub

 

[Rosanna]

Senza pormi tante domande, ho provato a scriverlo a modo mio... verifica se è giusto.
L'estrazione di inizio è quella di esempio, giusto per avere un riferimento comune...

Una volta appurata l'esattezza dei calcoli consiglio di mettere apice davanti ai vari "Scrivi.... " del dettaglio dei calcoli...

Sub main()
'0904_08 diemme novantesimale x kondor13
'listato Rosanna 04 07 2013

Dim n(5),m(5), ru(1), ambi(5,2),ambo(2),posta(2),lunghetta(10)

posta(2)=1 
colpi=10

r=8 : ru(1)=(r)
 
ini=8610  '<======= qui inizio dall'estrazione di esempio
fin=EstrazioneFin 

For es=ini To fin
    Scrivi
    Scrivi " --- Elaborazione estrazione n. " & Es  & " su ruota => " & SiglaRuota(r) & "---",1
    Scrivi
    Erase n : Erase ambi
    x=32 ' mi serve per le successive moltiplicazioni per 16,8,4,3,2
    t=0 : tt=0
    For p=1 To 5
        If p<5 Then p1=p+1 Else p1=1
        x=x/2
        n(p)=FN((Estratto(es,r,p)*90+Estratto(es,r,p1)))
        t=t+n(p)*x        
        Scrivi Estratto(es,r,p) & " "& Estratto(es,r,p1) & " => "& n(p)    & " => "&n(p)*x        
    Next
    
    tt=t*6271 
    Scrivi Space(9)& t & " * il fisso 6271 => "& tt,1
        
    For i= 1 To 5
        t=tt*2-n(i)
        m(i)=FN(t) 
        Scrivi tt & " *2 - "& n(i) & " => " & t & " => " & m(i)
        tt=t
    Next
    c=0 : d=0
    For i= 1 To 5
        c=c+1 : a=Int(m(i)/90): b=Fuori90(90+(m(i)-a*90))
        ambi(c,1)=a : ambi(c,2)=b : d=d+1
        lunghetta(d)=a : d=d+1: lunghetta(d)=b    
    Next
    Scrivi : Scrivi "ambi in gioco",1
    ScriviMatrice ambi
    Scrivi

    For i= 1 To 5
    ambo(1)=ambi(i,1) : ambo(2)=ambi(i,2)
    ImpostaGiocata i,ambo, ru, posta,colpi,2
    Next
    ImpostaGiocata 6,lunghetta,ru,posta,colpi,2

    For i= 1 To 6
        For y= 1 To 6
            ImpostaInterruzioni i,y,2
        Next
    Next
    Gioca es
Next

ScriviResoconto
End Sub

Function FN(n) ' fuori8100
    If N-(8100*Int(N/8100))=0 Then FN=8100 Else FN= N-(8100*Int(N/8100))
End Function

 

[Rosanna]

Aggiungo una piccola nota: ho provato a farlo girare anche su Spaziometria ma ho rilevato due problemi (non presenti sul programma abituale)

- 1° non ho gli archivi allineati...
- 2° gli ambi non sono memorizzati correttamente

Probabilmente ho dei problemi su Spaziometria (ogni tanto mi segnala degli errori ma non so di cosa si tratta... ) per cui provate voi e poi vediamo...

SUl "mio" l'output è questo (ne metto un pezzettino):

--- Elaborazione estrazione n. 8610 su ruota => Ro---

65 31 => 5881 => 94096
31 43 => 2833 => 22664
43 22 => 3892 => 15568
22 26 => 2006 => 4012
26 65 => 2405 => 2405
138745 * il fisso 6271 => 870069895
870069895 *2 - 5881 => 1740133909 => 2809
1740133909 *2 - 2833 => 3480264985 => 2785
3480264985 *2 - 3892 => 6960526078 => 1678
6960526078 *2 - 2006 => 13921050150 => 1350
13921050150 *2 - 2405 => 27842097895 => 295

ambi in gioco

31 19
30 85
18 58
15 90
3 25


gio 08.11.2012 [8610]
G 1: A 31.19 Ro 10/10
negativo
G 2: A 30.85 Ro 10/10
negativo
G 3: A 18.58 Ro 1/10
A 18.58 su Ro 1° colpo [8611/10.11.2012]
I1
G 4: A 15.90 Ro 10/10
negativo
G 5: A 03.25 Ro 10/10
negativo
G 6: A 31.19.30.85.18.58.15.90.03.25 Ro 1/10
A 18.58 su Ro 1° colpo [8611/10.11.2012]
I1

--- Elaborazione estrazione n. 8611 su ruota => Ro---

18 70 => 1690 => 27040
70 58 => 6358 => 50864
58 56 => 5276 => 21104
56 21 => 5061 => 10122
21 18 => 1908 => 1908
111038 * il fisso 6271 => 696319298
696319298 *2 - 1690 => 1392636906 => 3906
1392636906 *2 - 6358 => 2785267454 => 1454
2785267454 *2 - 5276 => 5570529632 => 5732
5570529632 *2 - 5061 => 11141054203 => 6403
11141054203 *2 - 1908 => 22282106498 => 2798

ambi in gioco

43 36
16 14
63 62
71 13
31 8


sab 10.11.2012 [8611]
G 1: A 43.36 Ro 10/10
negativo
G 2: A 16.14 Ro 10/10
negativo
G 3: A 63.62 Ro 10/10
negativo
G 4: A 71.13 Ro 10/10
negativo
G 5: A 31.08 Ro 10/10
negativo
G 6: A 43.36.16.14.63.62.71.13.31.08 Ro 8/10
A 62.08 su Ro 8° colpo [8619/29.11.2012]
I8

Mi piacerebbe riuscire ad utilizzare bene anche Spaziometria ma il tempo a disposizione è poco...

Edit: corretto una imprecisione sull'impostagiocata

 

[Rosanna]

Edit sul listato: aggiungo le interruzioni di giocata al primo esito positivo

 

[Joe91]

 --- Elaborazione estrazione n. 8610 su ruota => RO---     --- Elaborazione estrazione n. 8610 su ruota => Ro---    VERO        
VERO
65 31 => 5881 => 94096    65 31 => 5881 => 94096    VERO
31 43 => 2833 => 22664    31 43 => 2833 => 22664    VERO
43 22 => 3892 => 15568    43 22 => 3892 => 15568    VERO
22 26 => 2006 => 4012    22 26 => 2006 => 4012    VERO
26 65 => 2405 => 2405    26 65 => 2405 => 2405    VERO         
138745 * il fisso 6271 => 870069895             138745 * il fisso 6271 => 870069895    VERO
870069895 *2 - 5881 => 1740133909 => 2809    870069895 *2 - 5881 => 1740133909 => 2809    VERO
1740133909 *2 - 2833 => 3480264985 => 2785    1740133909 *2 - 2833 => 3480264985 => 2785    VERO
3480264985 *2 - 3892 => 6960526078 => 1678    3480264985 *2 - 3892 => 6960526078 => 1678    VERO
6960526078 *2 - 2006 => 13921050150 => 1350    6960526078 *2 - 2006 => 13921050150 => 1350    VERO
13921050150 *2 - 2405 => 27842097895 => 295    13921050150 *2 - 2405 => 27842097895 => 295    VERO        VERO
 --- Elaborazione estrazione n. 8611 su ruota => RO---     --- Elaborazione estrazione n. 8611 su ruota => Ro---    VERO        
VERO
18 70 => 1690 => 27040    18 70 => 1690 => 27040    VERO
70 58 => 6358 => 50864    70 58 => 6358 => 50864    VERO
58 56 => 5276 => 21104    58 56 => 5276 => 21104    VERO
56 21 => 5061 => 10122    56 21 => 5061 => 10122    VERO
21 18 => 1908 => 1908    21 18 => 1908 => 1908    VERO         
111038 * il fisso 6271 => 696319298             111038 * il fisso 6271 => 696319298    VERO
696319298 *2 - 1690 => 1392636906 => 3906    696319298 *2 - 1690 => 1392636906 => 3906    VERO
1392636906 *2 - 6358 => 2785267454 => 1454    1392636906 *2 - 6358 => 2785267454 => 1454    VERO
2785267454 *2 - 5276 => 5570529632 => 5732    2785267454 *2 - 5276 => 5570529632 => 5732    VERO
5570529632 *2 - 5061 => 11141054203 => 6403    5570529632 *2 - 5061 => 11141054203 => 6403    VERO
11141054203 *2 - 1908 => 22282106498 => 2798    11141054203 *2 - 1908 => 22282106498 => 2798    VERO
Omesso ...

Ciao Rosanna,

Ho dato una controllata veloce al tuo lavoro.

Gira senza errori (come sopra) sia in Spaziometria che sul vetusto L'Otto.

Produce gli stessi calcoli nei 2 ambienti, fino ad oggi.

ScriviMatrice che hai utilizzato ha un comportamento diverso, icludendo "lo Zero" in Spaziometria,

(l'ho chiusa, per omogeneizzare gli output) cosi come Erase in Spaziometria funziona diversamente.

Ha l'accezione più simile ad ELIMINARE che a Cancellare.

In genere ci sono diversità in tutto quello che riguarda le matrici.

Tutto piuittosto "risolvibile",ma da tenere presente.

Non avendo trovato differenze se ci sono/saranno nelle giocate,

penso potrà dipendere appunto dalla diversa gestione e dunque nel trasferimento degli array e/o matrici a "gioca".

L' Archivio di Spaziometria dovrebbe essere identico al tuo e ... si aggiorna automaticamente.Eventualmente ... si verifica,

o se ti servono indicazioni non hai che da indicare quali. Purtroppo, non ho capito quale dei due archivi abbia i problemi.

Appena riesco controllo ulteriormente ... Riferisco.

Buona Giornata a tutte/i.

 

[Joe91]

BuonGiorno a tutte/i.

Ho allineato aggiornato gli archivi e controllato anche le giocate.

Lo script di Rosanna mi risulta funzionare con risultati sostanzialmente identici.

[B][SIZE=2] --- Elaborazione estrazione n. 8709 su ruota => Ro---

[/SIZE][/B][SIZE=2]
[B]gio 27.06.2013  [8709]

[/B][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]  G  1:  A    10.63                           Ro    3/10    

[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]     in corso (3° su 10)

[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]  G  2:  A    89.88                           Ro    3/10    

[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]     in corso (3° su 10)

[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]  G  3:  A    50.86                           Ro    3/10    

[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]     in corso (3° su 10)

[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]  G  4:  A    11.18                           Ro    3/10    

[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]     in corso (3° su 10)

[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]  G  5:  A    47.42                           Ro    3/10    

[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]     in corso (3° su 10)

[/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]  G  6:  A    10.63.89.88.50.86.11.18.47.42   Ro    3/10    

[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]     in corso (3° su 10)

Contro:

[/SIZE][B][SIZE=2] --- Elaborazione estrazione n. 8709 su ruota => RO---[/SIZE][/B]
[FONT=Courier New][SIZE=2][COLOR=#000000][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 08709 [ 77 - 27/06/2013][/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Numeri in gioco : 10.63 su RO per Ambo[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 7 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0002[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Numeri in gioco : 89.88 su RO per Ambo[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 7 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0003[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Numeri in gioco : 50.86 su RO per Ambo[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 7 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0004[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Numeri in gioco : 11.18 su RO per Ambo[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 7 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0005[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Numeri in gioco : 47.42 su RO per Ambo[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 7 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0006[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Numeri in gioco : 10.63.89.88.50.86.11.18.47.42 su RO per Ambo[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 7 estrazioni[/COLOR][/SIZE][/FONT]

 

[Y10]

Un grazie a Rosanna e a tutti , ottimo lavoro.

Mauro

 

[Joe91]

Per Mike ...

Ho rivisto il tuo script correggendo gli errori.

Lo riporto "as is" con le linee di "scrivi" che ho utilizzato per il debug,

e per uniformare i risultati dello script, all' esempio fornito.

Remmate in loco, le segnalazioni di errori e malfunzionamenti.

Buona giornata a tutte/i.

 Sub Main
Dim num(10)
Dim ruota(12)
Dim posta(5)
Ini = 8610 ' inizio estrazioni
fin = 8610 + 10 ' fine estrazioni
r = 8 ' ruota
clp = 10 ' colpi
ruota(1) = r
Scrivi "Ruota di..." & NomeRuota(r),1
Scrivi
For es = Ini To fin
a = Estratto(es,r,1)
b = Estratto(es,r,2)
c = Estratto(es,r,3)
d = Estratto(es,r,4)
e = Estratto(es,r,5)
'Scrivi StringaEstratti(es,1)

'----- modulo fuori 8110 NO !! 8110 <> 8100 -----------
aa = FuoriX((a*90),8100) + b
bb = FuoriX((b*90),8100) + c
cc = FuoriX((c*90),8100) + d
dd = FuoriX((d*90),8100) + e
ee = FuoriX((e*90),8100) + a
Scrivi aa & " " & bb & " " & cc & " " & dd & " " & ee
'--------------------------------------
'----- modulo diemme ------------------
a1 = aa*16
a2 = bb*8
a3 = cc*4
a4 = dd*2
a5 = ee*1
'-------------------------------------
Scrivi a1 & " " & a2 & " " & a3 & " " & a4 & " " & a5 & " = ",0,0
Scrivi (a1 + a2 + a3 + a4 + a5) * 6271
'-------- 3 fase somma modulo diemme-----------------
x =(a1 + a2 + a3 + a4 + a5) * 6271
x1 =(x *2) - aa  
x2 =(x1*2) - bb '<<< Attento qui! NN X >>> X1 ecc ... a seguire 
x3 =(x2*2) - cc
x4 =(x3*2) - dd
x5 =(x4*2) - ee
Scrivi x1 & " " & x2 & " " & x3 & " " & x4 & " " & x5
'--------passaggio errato da capire NON FUNZIONA Fuori8100 -----
' Sostituito con Funzione di Rosanna
xx1 = FN(x1)
xx2 = FN(x2)
xx3 = FN(x3)
xx4 = FN(x4)
xx5 = FN(x5)
Scrivi xx1 & " " & xx2 & " " & xx3 & " " & xx4 & " " & xx5
'----------- INTERO --------------------------------------------
y1 = Int(xx1/90) 'versione classica
y2 = Int(xx2/90)
y3 = Int(xx3/90)
y4 = Int(xx4/90)
Y5 = Int(xx5/90)
Scrivi y1 & " " & y2 & " " & y3 & " " & y4 & " " & y5
'---------- RESTO ----------------------------------------------
z1 = Fuori90(xx1 -(90*y1))
z2 = Fuori90(xx2 -(90*y2))
z3 = Fuori90(xx3 -(90*y3))
z4 = Fuori90(xx4 -(90*y4))
z5 = Fuori90(xx5 -(90*y5))
Scrivi z1 & " " & z2 & " " & z3 & " " & z4 & " " & z5
'Utilizzato modello preesistente -------------------------------
num(1) = y1'Fuori90(Left(xx1,2))
num(2) = z1'Fuori90(Right(xx1,2))
num(3) = y2'Fuori90(Left(xx2,2))
num(4) = z2'Fuori90(Right(xx2,2))
num(5) = y3'Fuori90(Left(xx3,2))
num(6) = z3'Fuori90(Right(xx3,2))
num(7) = y4'Fuori90(Left(xx4,2))
num(8) = z4'Fuori90(Right(xx4,2))
num(9) = y5'Fuori90(Left(xx5,2))
num(10)= z5'Fuori90(Right(xx5,2))
Call VerificaEsito(num,ruota,es + 1,2,clp,Nothing,retesito,retcolpi,retestratti,retid)
Scrivi GetInfoEstrazione(es) & " - " & " - " & StringaEstratti(es,r) & " - " & StringaNumeri(num,,True)
Scrivi
ColoreTesto 2
Scrivi " Esito... " & retesito
Scrivi " Colpo...." & retcolpi
Scrivi " Estratti " & retestratti
Scrivi
ColoreTesto 0
Next
End Sub

Function FN(n) ' fuori8100 By Rox
If N -(8100*Int(N/8100)) = 0 Then FN = 8100 Else FN = N -(8100*Int(N/8100))
End Function
'DIEMME.TMP By Joe

 

[Rosanna]

Ciao Rosanna,

Ho dato una controllata veloce al tuo lavoro.

Gira senza errori (come sopra) sia in Spaziometria che sul vetusto L'Otto.

Produce gli stessi calcoli nei 2 ambienti, fino ad oggi.

ScriviMatrice che hai utilizzato ha un comportamento diverso, icludendo "lo Zero" in Spaziometria,

(l'ho chiusa, per omogeneizzare gli output) cosi come Erase in Spaziometria funziona diversamente.

Ha l'accezione più simile ad ELIMINARE che a Cancellare.

In genere ci sono diversità in tutto quello che riguarda le matrici.

Tutto piuittosto "risolvibile",ma da tenere presente.

Non avendo trovato differenze se ci sono/saranno nelle giocate,

penso potrà dipendere appunto dalla diversa gestione e dunque nel trasferimento degli array e/o matrici a "gioca".

L' Archivio di Spaziometria dovrebbe essere identico al tuo e ... si aggiorna automaticamente.Eventualmente ... si verifica,

o se ti servono indicazioni non hai che da indicare quali. Purtroppo, non ho capito quale dei due archivi abbia i problemi.

Appena riesco controllo ulteriormente ... Riferisco.

Buona Giornata a tutte/i.

Grazie per la verifica e per le info. Dunque devo piano piano studiare e assimilare le differenze tra i programmi...
Ovviamente già sto arrugginita così...... non sarà cosa facile e o immediata.

Per gli archivi, temo di aver fatto io qualche pasticcio durante l'aggiornamento degli archivi su Spaziometria, perchè mi trovo con una estrazione in più
rispetto all'altro. Confesso che nell'impazienza di poterlo usare sono andata un po' a naso... per l'aggiornamento e ad un certo punto avevo l'ultima es caricata
ma con nessun estratto (tutti zero). Ho provato varie strade alla fine ho sostituito gli archivi seguendo istruzioni trovate non so più dove...
Ho in apparenza risolto, perchè di fatto l'ultima ora la vedo (come valori) ma risulta che l'ultima es del 4/7 è la 8713 mentre sull'altro (commerciale con aggiornamento automatico a pagamento), quella del 4/7 è la 8712.

Conosco poco (praticamente niente) spaziometria, ma certamente per quel poco che ho visto, segnalazioni di errori a parte che magari dipendono anche dal mio pc (..?)
ha dei moduli che non ho visto su nessun altro programma. TEnendo conto che è free, è da tenere in ottima considerazione. Complimenti all'autore.

Joe, confidavo sul tuo aiuto...
Esiste una guida per capire meglio le varie opzioni sull'aggiornamento degli archivi? quando è il caso di utilizzare una rispetto all'altra?
Quando alla lottomatica mi pare di capire da quanto letto, che non è affidabilissima come archivi... Quando aggiorno da lì sovrascrive le precedenti? aggiorna solo l'ultima?

Ho letto che LuigiB si è allontanato... A parte lui c'è qualcuno a cui posso far riferimento circa gli errori (errore n. xxxxxx) che ho visto comparire per capire cosa fare?
Per ora non li ho salvati... ero troppo presa da altre cose e il tempo sempre tiranno...

Scusate se sono andata OT... magari è il caso di gestire a parte questo problema...

Grazie mille!! Ciao

 

[Mike58]

Ciao a tutti, innanzitutto ringrazio Joe per aver rimesso mano al mio corpo di script e corretto alcuni errori di calcolo che con poca voglia avevo implementato.
Lo scopo era anche quello di incoraggiare lo scambio di opinioni e migliorie nonchè dritte algoritmiche fra quei pochi scripter rimasti.

Colgo anche l'occasione per fare i complimenti a Rosanna, della quale avevo sentito parlare sempre con elogi e posso confermare che già dai primi scritti si vede tutta la bravura in fatto di vbscript, perciò Rosanna un grazie a te ed un piacere per me.

Sicuramente puoi ancora darci molto e per questo ti invito a restare con noi ed aiutarci a sperimentare ancor di + il vbscript.

Ciao a tutti

Mike

 

[Joe91]

Ciao Rosanna ...

Sicuramente LuigiB, se gli sarà possibile, non farà mancare una risposta,

in ultima ipotesi si potrà recuperare o ricostruire l'archivio.

Ma l'errore che è più antipatico e noioso, che di sostanza, potrà sicuramente essere risolto.

Come soluzione drastica è disinstallare, con l'apposita utility di pulitura totale,

per poi ripartire Ex-Novo, ma mi sembra persino troppo.

Attenderei il parere di qualche utente, se sa, come agire per reinstallare l'archivio originale,

o se può confermare che "Reimporta Archivio Originale" funziona correttamente.

Quale ultima alternativa potrai (partendo dall'altro programma) creare il file XLS con cui rimpiazzarlo.

Per gli errori non so se ne esiste un elenco-guida.

 

[Rosanna]

Ciao Mike58
sei troppo gentile... anni fa mi dilettavo a listare complice alcuni compagni di viaggio e tanta cocciutaggine.
Credevo di aver dimenticato tutto invece ho dimenticato solo il 90% delle cose...

Complimenti a te .... non sono entrata nel dettaglio ma ho visto tanto impegno da parte tua e soprattutto "ordine nei listati" (!!!).
R.

 

[Rosanna]

Grazie Joe...

 

[rabberto]

Ciao Rosanna per il tuo problema dell'archivio del programma spaziometria io con un altro utente ho risolto cosi :
1) Ti metto un link con 4 file , te li devi scaricare :
2) Apri il programma spaziometria in alto a sinistra clicca su Base dati , poi clicca su Apri directori dati
3) Incolla i 4 file che hai scaricato in questa cartella sovrascrivendo quelli esistenti
4) Chiudi il programma spaziometria e poi lo riapri fai l'aggiornamento da web e controlla se l'archivio e andato a posto

Se l'archivio non va a posto con questa procedura puo' essere che hai un problema sul programma o sul tuo pc , ciao.

 

[Rosanna]

Scaricati ... adesso provo. Grazie Domenico.

 

[LuigiB]

Ciao ragazzi , come dice giustamente Joe non farò mancare il mio supporto per
queste questioni che riguardano il lotto.
Faccio una piccola premessa , Spaziometria è nato per il lotto, tutti gli altri giochi
che gestisce sono semplicemente un "di più" quindi quando un problema riguarda il lotto
la mia posizione è di farmi in quattro per risolverlo, se riguarda gli altri giochi (come
ad esempio il 10 e lotto dove recentemente il gestore ha deciso che si gioca pure di notte)
sinceramente non ho tutto questo tempo di stare appresso.
Infatti mi dispiace che l'aggiornamento del 10 e lotto non sia allineato perfettamente ma per ora
rimarrà cosi.
Ringrazio Rosanna per i complimenti , alcuni moduli sono frutto della mia fantasia , altri
di quellla di BaffoBlu e altri ancora frutto delle proposte fatte dai vari utenti nel corso
di questi anni.
Veniamo a noi e ai problemi segnalati.

Problema Archivio :
L'archivio di Spaziometria è un file con estensione .Dat che si trova nella directory dati
del programma.
Questo significa che disponendo di un altro file fornito da un altro utente
o preso da un altro pc lo si puo sostituire tranquillamente a programma chiuso.
Come fare ? Dal primo menu del programma BASE DATI selezionare la penultima voce
APRI DIRECTORY DATI , si aprirà una finestra di risorse del computer che punterà alla
cartella dove il programma salva i dati, in questa cartella è presente il file
BaseDati.dat è quello il file da farsi dare da qualcun'altro per poi sostituirlo.

Un seconda strada per fare in modo che gli archivi di Spaziometria e del programma X
siano allineati potrebbe essere quella di individuare l'estrazione dove inizia lo
sfaldamento , poi usare la funzione TRONCA ARCHIVIO di Spaziometria tagliando fuori
tutte le estrazioni a partire da quella individuata per poi rifare il normale
aggiornamento da web.
Se al termine dell'operazione dovesse risultare ancora un disallineamento la causa
è da ricercarsi in un disallineamento del programma X con l'archivio ufficiale lottomatica
visto che Spaziometria le estrazioni le aggiorna proprio dal sito ufficiale e dando per assodato
che prima dell'aggiornamento i due archivi fossero allineati (grazie all'operazione TRONCA).

Un 'informazione importante è che Spazioemtria quando aggiorna NON ricopre l'archivio ma aggiorna solo
le nuove estrazioni, perciò se uno modifica l'archivio la tale modifica poi rimarrà per sempre
non verrà ricoperta dal prossimo aggiornamento.
Aggiungo che esiste una funzione nello SpaziosCript che puo essere richiamata all'inizio del proprio script
e xche serve per lanciare l'aggiornamento delle estrazioni in modo che lo script possa girare sempre
con i dati piu recentii , la funzione è la AggiornaArchivio e se ben ricordo me la propose Claudio8.



Problemi riguardanti gli array e le istruzioni

Qui non ho ben capito quale sia il problema riscontrato , nel caso dell'istruzione Erase
Spaziometria la implementa nell'accezione fornita dal vbScript ufficiale come da sito Microsoft

Erase Statement


Problematiche varie

Anche qui non posso rispondere con precisione perche non conosco i sintomi del problema.
Esorto tutti ad usare sempre l'ultima versione disponibile di Spaziometria.
Nel corso di questi anni ho sentito le motivazioni piu disparate da vari utenti
che preferivano tenersi la versione vecchia pur essendo disponibile una nuova.
Essendo io il programmatore chi piu di me può dire che sono tutte moivazioni sbagliate ?
Si deve sempre usare l'ultima versione disponibile se non si vogliono avere problemi.
L'utente dovrà semplicemente eseguire il nuovo setup , ci pensera il setup stesso
eventualmente a disinstallare i vecchi componenti.
Ricordo anche che attualmente per installare l'ultimo aggiornamento si devono eseguire 2 setup
come da istruzioni riportate nel post

http://forum.lottoced.com/f12/spaziometria-nuova-versione-96822/


un saluto a tutti

 

[Roby]

Ciao Luigi, è un piacere rileggerti

 

[LuigiB]

ciao Black , un saluto anche a te !!

 

[Rosanna]

Grazie infinite LuigiB per le spiegazioni. E' confortante sapere che segui e risolvi....

Archivi: per ora ho risolto... nel modo più drastico perchè il programma non rispondeva.. Mi spiace non poter essere più precisa. Forse è il mio pc che ha problemi.
Altre problematiche: mi impegno a fare degli screen per documentarle qualora si ripresentino etc... E' peraltro possibile che "i problem visti" non siano tali ma solo cose da capire... (nb: avevo già, ed ho nuovamente, installato l'ultima versione di Spaziometria)

Mio Listato fatto: ora mi sento di dire che è ok. Mi ha ingannato il diverso funzionamento di scrivimatrice e altre cose.

Segnalo a kondor13 alcuni casi particolari che devono essere gestiti e solo lui può dire come:

a) all'ultimo calcolo può succedere di avere un numero inferiore a 90 quindi prendendo come primo numero, l'intero si ha zero...

vedi es. 8618

 --- Elaborazione estrazione n. 8618 su ruota => Ro---

80 38 => 7238 => 115808
38 84 => 3504 => 28032
84 51 => 7611 => 30444
51 83 => 4673 => 9346
83 80 => 7550 => 7550
         191180 * il fisso 6271 => 1198889780
1198889780 *2 - 7238 => 2397772322 => 2222
2397772322 *2 - 3504 => 4795541140 => 940
4795541140 *2 - 7611 => 9591074669 => 2369
9591074669 *2 - 4673 => 19182144665 => [COLOR="#FF0000"]65[/COLOR]
19182144665 *2 - 7550 => 38364281780 => 680

ambi in gioco

    24    62
    10    40
    26    29
     [COLOR="#FF0000"]0[/COLOR]    65
     7    50

b) all'ultimo calcolo può succedere di avere un multiplo di 90 quindi non c'è resto. Al momento avendo impostato un fuori90, restituisce 90 ma non so se ti va bene

es. 8640

--- Elaborazione estrazione n. 8640 su ruota => Ro---

45 10 => 4060 => 64960
10 58 => 958 => 7664
58 18 => 5238 => 20952
18 22 => 1642 => 3284
22 45 => 2025 => 2025
         98885 * il fisso 6271 => 620107835
620107835 *2 - 4060 => 1240211610 => [COLOR="#FF0000"]4410[/COLOR]
1240211610 *2 - 958 => 2480422262 => 7862
2480422262 *2 - 5238 => 4960839286 => 2386
4960839286 *2 - 1642 => 9921676930 => 3130
9921676930 *2 - 2025 => 19843351835 => 4235

ambi in gioco

    49    [COLOR="#FF0000"]90[/COLOR]
    87    32
    26    46
    34    70
    47     5

c) all'ultimo calcolo può succedere di avere due numeri uguali. cosa si deve fare in tal caso per poter giocare un ambo?

es. 8704

--- Elaborazione estrazione n. 8704 su ruota => Ro---

90 8 => 8 => 128
8 85 => 805 => 6440
85 36 => 7686 => 30744
36 59 => 3299 => 6598
59 90 => 5400 => 5400
         49310 * il fisso 6271 => 309223010
309223010 *2 - 8 => 618446012 => [COLOR="#FF0000"]2912[/COLOR]
618446012 *2 - 805 => 1236891219 => 5019
1236891219 *2 - 7686 => 2473774752 => 2352
2473774752 *2 - 3299 => 4947546205 => 1405
4947546205 *2 - 5400 => 9895087010 => 5510

ambi in gioco

    [COLOR="#FF0000"]32    32[/COLOR]
    55    69
    26    12
    15    55
    61    20

Saluti a tutti