48221 Lecture 6: Tute 6 P4
Tutorial 6 Problem 4 code for VBA:
Private Sub CmdCalc_Click()
'inputs
SideB = TxtSideB.Value
AngleB = TxtX.Value
AngleC = TxtAngleC.Value
SideA = TxtX.Value
Pi = 4 * Atn(1)
'Calculations note: have to convert angles from deg to rad in excel
If OptSin.Value = True Then
SideC = SideB * (Sin(AngleC) / Sin(AngleB * Pi / 180))
Else
SideC = Sqr(SideA ^ 2 + SideB ^ 2 - 2 * SideA * SideB * Cos(AngleC * Pi / 180))
End If
'output and switch to second page
MultiPage1.Value = 1 'Value od 0 if page 1 and value of 1 is page 2
LblOutput.Caption = "Side C=" & Round(SideC, 2)
End Sub
Private Sub CmdExit_Click()
find more resources at oneclass.com
find more resources at oneclass.com
