Aiuto script

[france]

Buongiorno a tutti
ho un problema con script. Sarei grato se qualcuno può aiutarmi a risolvere questa espressione matematica.
Ebbene dovrei calcolare il 2° di bari -90 poi lo stesso numero -45 e fare la differenza:
esempio 2° estratto di bari 47 a 90 = 43 poi lo stesso numero e cioè 47 -45 = 2
calcolare la differenza tra 43 e 2 = 41

altro esempio: 9 a 90 = 81 -----9+45 = 54 differenza 27.
grazie per l'aiuto.
Francesco

 

[joe]

Ciao Francesco,

queste dovrebbero essere le istruzioni che ti servono per calcolare la coppia di numeri :

Option Explicit
Sub Main
   Dim X,a,b,c
   X = 47
   a = ComplAdX(X)
   b = Diametrale(X)
   c = Fuori90 (Abs(a - b))
   Scrivi "X = " & X 
   Scrivi "a = " & a & " & b = " & b
   Scrivi "|a-b| = " & c
End Sub

 

[france]

grazie joe poi lo provo e i faccio sapere. grazie

 

[france]

Buonasera Joe
ho provato ma mi da errore a = ComplAdX(X).
molto probabilmente non sono capace.
Io i sistemi e calcoli li faccio di solito in excel, purtroppo so poco di script.
Sto lavorando ad un progetto in cui si ricava 1 ambata che esce con continuità e attualmente anche una cinquina per ambo e terno. ricavo la giocata ogni primo del mese e gioco per per 8 estrazioni.
Ruota di calcolo NAZIONALE estratto n.4
se mi poi aiutare ti ringrazio.
cordialità.
francesco

 

[joe]

Lo script funziona con il programma Spaziometria 1.6.54.

Le formule di excel non conoscono le funzioni degli script di Spaziometria.

Pertanto dovrai aggiungere queste 3 funzioni, per calcolare i valori da te voluti,

e poi abilitare la loro esecuzione al cambiamento del valore di una cella in cui inserire l'input.

Function ComplAdX(X As Integer) As Integer
' Funzione di esempio: complemento ad X (ipotizzo 90 come base)
ComplAdX = 90 - X
End Function

Function Diametrale(X As Integer) As Integer
' Calcolo diametrale: se X <= 45 allora X+45, altrimenti X-45
If X <= 45 Then
Diametrale = X + 45
Else
Diametrale = X - 45
End If
End Function

Function Fuori90(val As Integer) As Integer
' Funzione esempio: ritorna val se val <= 90, altrimenti modulo 90
If val <= 90 Then
Fuori90 = val
Else
Fuori90 = val Mod 90
End If
End Function

Tuttavia essendo un calcolo rigido, con lo script che ti ho dato,

è molto più semplice costruire una tabella per tutti i 90 numeri,

Per poter operare senza la necessità di PC / Spaziometria / Excel / Macro ecc. ecc.

01) 89-46 = 43
02) 88-47 = 41
03) 87-48 = 39
04) 86-49 = 37
05) 85-50 = 35
06) 84-51 = 33
07) 83-52 = 31
08) 82-53 = 29
09) 81-54 = 27
10) 80-55 = 25
11) 79-56 = 23
12) 78-57 = 21
13) 77-58 = 19
14) 76-59 = 17
15) 75-60 = 15
16) 74-61 = 13
17) 73-62 = 11
18) 72-63 = 09
19) 71-64 = 07
20) 70-65 = 05
21) 69-66 = 03
22) 68-67 = 01
23) 67-68 = 01
24) 66-69 = 03
25) 65-70 = 05
26) 64-71 = 07
27) 63-72 = 09
28) 62-73 = 11
29) 61-74 = 13
30) 60-75 = 15
31) 59-76 = 17
32) 58-77 = 19
33) 57-78 = 21
34) 56-79 = 23
35) 55-80 = 25
36) 54-81 = 27
37) 53-82 = 29
38) 52-83 = 31
39) 51-84 = 33
40) 50-85 = 35
41) 49-86 = 37
42) 48-87 = 39
43) 47-88 = 41
44) 46-89 = 43
45) 45-90 = 45
46) 44-01 = 43
47) 43-02 = 41
48) 42-03 = 39
49) 41-04 = 37
50) 40-05 = 35
51) 39-06 = 33
52) 38-07 = 31
53) 37-08 = 29
54) 36-09 = 27
55) 35-10 = 25
56) 34-11 = 23
57) 33-12 = 21
58) 32-13 = 19
59) 31-14 = 17
60) 30-15 = 15
61) 29-16 = 13
62) 28-17 = 11
63) 27-18 = 09
64) 26-19 = 07
65) 25-20 = 05
66) 24-21 = 03
67) 23-22 = 01
68) 22-23 = 01
69) 21-24 = 03
70) 20-25 = 05
71) 19-26 = 07
72) 18-27 = 09
73) 17-28 = 11
74) 16-29 = 13
75) 15-30 = 15
76) 14-31 = 17
77) 13-32 = 19
78) 12-33 = 21
79) 11-34 = 23
80) 10-35 = 25
81) 09-36 = 27
82) 08-37 = 29
83) 07-38 = 31
84) 06-39 = 33
85) 05-40 = 35
86) 04-41 = 37
87) 03-42 = 39
88) 02-43 = 41
89) 01-44 = 43
90) 90-45 = 45

 

[france]

ok ti ringrazio

 

[Reacher]

Forse l errore è nello script intero
Se lo posti capiamo meglio

 

[joe]

Forse l errore è nello script intero
Se lo posti capiamo meglio

Script è un termine generico per indicare il codice di un linguaggio in astratto.

Ogni ide è piuttosto indirizzata ad usarne uno in particolare e per facilitarne la scrittura.

Ci sono per il Basic, il VBscript, il VBA, l'Applesoft, il'Python, il Qbasic, il C, il Cobol, il Dephy, Java, Html, ecc. ecc. ecc.

Dunque lo script è per Spaziometria, funziona ed è completo.

Non funziona nel VBA di Excel perché non sono riconosciute le 3 cabale lottologiche presenti che sono:

ComplemantoAdX, Fuori90, Diametrale.

Pertanto le ho inserite come funzioni da aggiungere ad Excel e poi si tratta di saperle utilizzare.

Però anch'esse sono complete e per il poco che le ho provate, come sempre faccio prima di pubblicarle ... funzionano.







PS: Grazie Alien.

 

[Reacher]

Buongiorno a tutti
ho un problema con script. Sarei grato se qualcuno può aiutarmi a risolvere questa espressione matematica.
Ebbene dovrei calcolare il 2° di bari -90 poi lo stesso numero -45 e fare la differenza:
esempio 2° estratto di bari 47 a 90 = 43 poi lo stesso numero e cioè 47 -45 = 2
calcolare la differenza tra 43 e 2 = 41

altro esempio: 9 a 90 = 81 -----9+45 = 54 differenza 27.
grazie per l'aiuto.
Francesco

Hai risolto?
Puoi postare lo script?