3.3.10. Fonction arc sinus hyperbolique
Interface visuelle
Propriétés
|
Propriété
|
valeur
|
|
Name
|
shcplx
|
|
Caption
|
Fonction hyperbolique réciproque : Arsh
|
|
Back color
|
&H00FFC0C0&
|
|
StartUpPosition
|
CenterScreen
|
Codes
Dim A, B, k, l As Long
Private Sub Cmdcal_Click()
A = Val(Txta)
B = Val(Txtb)
If (Txta = "" Or Txtb = "") Then
MsgBox "Verifiez que vous avez rempli tous les champs",
vbInformation, "Information"
Txta = ""
Txtb = ""
Lbla = ""
Lblb = ""
Txta.SetFocus
Else
A = Val(Txta)
B = Val(Txtb)
k = Sqr((Sqr(A ^ 4 + B ^ 4 + 2 * A ^ 2 * B ^ 2 - 2 * A ^ 2 -
2 * B ^ 2 + 1) + A ^ 2 - B ^ 2 + 1) / 2)
l = Sqr((Sqr(A ^ 4 + B ^ 4 + 2 * A ^ 2 * B ^ 2 - 2 * A ^ 2 -
2 * B ^ 2 + 1) - A ^ 2 + B ^ 2 + 1) / 2)
If (A + k) = 0 Then
Lblb = -1.57079632679
Lbla = Log(Sqr((A + k) ^ 2 + (B + l) ^ 2))
ElseIf (A * B) > 0 Then
Lblb = Atn((B + l) / (A + k))
Lbla = Log(Sqr((A + k) ^ 2 + (B + l) ^ 2))
ElseIf (A * B) <= 0 Then
Lblb = -1 * Atn((B + l) / (A + k))
Lbla = Log(Sqr((A + k) ^ 2 + (B + l) ^ 2))
End If
End If
End Sub
Private Sub Command1_Click()
Txta = ""
Txtb = ""
Lbla = ""
Lblb = ""
Txta.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
accueil1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Txta_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtb.SetFocus
End If
End Sub
Private Sub Txtb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdcal.SetFocus
End If
End Sub
3.3.11. Fonction arc cosinus hyperbolique
Interface visuelle
Propriété
|
Propriété
|
valeur
|
|
Name
|
chcplx
|
|
Caption
|
Fonction hyperbolique réciproque : Ch
|
|
Back color
|
&H00FFC0C0&
|
|
StartUpPosition
|
CenterScreen
|
Codes
Dim A, B, k, l As Long
Private Sub Cmdcal_Click()
If (Txta = "" Or Txtb = "") Then
MsgBox "Verifiez que vous avez rempli tous les champs",
vbInformation, "Information"
Txta = ""
Txtb = ""
Lbla = ""
Lblb = ""
Txta.SetFocus
Else
A = Val(Txta)
B = Val(Txtb)
k = Sqr((Sqr(A ^ 4 + B ^ 4 + 2 * A ^ 2 * B ^ 2 - 2 * A ^ 2 +
2 * B ^ 2 + 1) + A ^ 2 - B ^ 2 - 1) / 2)
l = Sqr((Sqr(A ^ 4 + B ^ 4 + 2 * A ^ 2 * B ^ 2 - 2 * A ^ 2 +
2 * B ^ 2 + 1) - A ^ 2 + B ^ 2 + 1) / 2)
If (A > -1 And A < 1 And A <> 0) And B = 0
Then
Lblb = Atn(Sqr((1 - A ^ 2) / A ^ 2))
Lbla = 0
ElseIf A = 0 And B = 0 Then
Lblb = 1.57079632679
Lbla = 0
ElseIf (A + k) = 0 Then
Lbla = Log(Sqr((A + k) ^ 2 + (B + l) ^ 2))
Lblb = 1.57079632679
ElseIf (A * B) >= 0 Then
Lblb = Atn((B + l) / (A + k))
Lbla = Log(Sqr((A + k) ^ 2 + (B + l) ^ 2))
ElseIf (A * B) < 0 Then
Lblb = -1 * Atn((B + l) / (A + k))
Lbla = Log(Sqr((A + k) ^ 2 + (B + l) ^ 2))
End If
End If
End Sub
Private Sub Command1_Click()
Txta = ""
Txtb = ""
Lbla = ""
Lblb = ""
Txta.SetFocus
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Command3_Click()
Unload Me
accueil1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Txta_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtb.SetFocus
End If
End Sub
Private Sub Txtb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Cmdcal.SetFocus
End If
End Sub
| 
