3.3.7. Fonction arc cosinus
Interface visuelle
Propriétés
|
Propriété
|
valeur
|
|
Name
|
Arcoscplx
|
|
Caption
|
Fonction trigonométrique réciproque (Arc cos)
|
|
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 = 0 And B = 0 Then
Lbla = 1
Lblb = 0
ElseIf (A > -1 And A < 1 And A <> 0) And B = 0
Then
Lbla = Atn(Sqr((1 - A ^ 2) / (A ^ 2)))
Lblb = 0
ElseIf (A * B) > 0 Then
Lbla = Atn((B + l) / (A + k))
Lblb = Log(Sqr((A + k) ^ 2 + (B + l) ^ 2))
ElseIf (A * B) <= 0 Then
Lbla = -1 * Atn((B + l) / (A + k))
Lblb = 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.8. Fonction sinus hyperbolique
Interface visuelle
Propriétés
|
Propriété
|
valeur
|
|
Name
|
shcplx
|
|
Caption
|
Fonction hyperbolique : sinus hyperbolique
|
|
Back color
|
&H00FFC0C0&
|
|
StartUpPosition
|
CenterScreen
|
codes
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)
Lbla = (1 / 2) * Cos(B) * (2.71828182845924 ^ A -
2.71828182845924 ^ (-A))
Lblb = (1 / 2) * Sin(B) * (2.71828182845924 ^ A +
2.71828182845924 ^ (-A))
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
3.3.9. Fonction Cosinus hyperbolique
Interface visuelle
Propriétés
|
Propriété
|
valeur
|
|
Name
|
chcplx
|
|
Caption
|
Fonction hyperbolique : cosinus hyperbolique
|
|
Back color
|
&H00FFC0C0&
|
|
StartUpPosition
|
CenterScreen
|
Codes
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)
Lbla = (1 / 2) * Cos(B) * (2.71828182845924 ^ A +
2.71828182845924 ^ (-A))
Lblb = (1 / 2) * Sin(B) * (2.71828182845924 ^ A -
2.71828182845924 ^ (-A))
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
| 
