-
Notifications
You must be signed in to change notification settings - Fork 0
/
mdlUno.bas
83 lines (53 loc) · 1.4 KB
/
mdlUno.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Attribute VB_Name = "mdlUno"
Option Explicit
Public a As Double
Public b As Double
Public c As Double
Public ana As Double
Public AnB As Double
Public anc As Double
Public Sub rightab(a, b)
c = Sqr((a * a) + (b * b))
anc = (Atn((a / b))) * (180 / PI)
AnB = (Atn((b / a))) * (180 / PI)
End Sub
Public Sub rightac(a, c)
b = Sqr((c * c) - (a * a))
AnB = (Atn((b / a))) * (180 / PI)
anc = (Atn((a / b))) * (180 / PI)
End Sub
Public Sub rightbc(b, c)
a = Sqr((c * c) - (b * b))
AnB = (Atn((b / a))) * (180 / PI)
anc = (Atn((a / b))) * (180 / PI)
End Sub
Public Sub rightangba(a, AnB)
anc = 90 - AnB
c = a / Sin((anc * (PI / 180)))
b = Sqr((c * c) - (a * a))
End Sub
Public Sub rightangbc(c, AnB)
anc = 90 - AnB
a = Sin((anc * (PI / 180))) * c
b = Sqr((c * c) - (a * a))
End Sub
Public Sub rightangca(a, anc)
AnB = 90 - anc
c = a / Sin((anc * (PI / 180)))
b = Sqr((c * c) - (a * a))
End Sub
Public Sub rightangcc(c, anc)
AnB = 90 - anc
a = Sin((anc * (PI / 180))) * c
b = Sqr((c * c) - (a * a))
End Sub
Public Sub rightangcb(b, anc)
AnB = 90 - anc
a = b * Tan(anc * (PI / 180))
c = Sqr((b * b) + (a * a))
End Sub
Public Sub rightangbb(b, AnB)
anc = 90 - AnB
a = b * Tan(anc * (PI / 180))
c = Sqr((b * b) + (a * a))
End Sub