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 macro di excel non conoscono le funzioni degli script di Spaziometria.

Pertanto dovrai aggiungere le funzioni utilizzate ad una macro per calcolare i valori equivalenti:

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

Oppure inserirle come formule direttamente nelle celle.

Tuttavia essendo un calcolo, con lo script che ti ho dato è molto più semplice costruire una tabella per tutti i 90 numeri,

Per operare senza la necessità di PC / Spaziometria / Escel / Macro 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