3.3.3. Fonction logarithmique
Interface visuelle
Propriétés
|
Propriété
|
valeur
|
|
Name
|
Logcplx
|
|
Caption
|
Logarithmes des nombres complexes
|
|
Back color
|
&H00FFC0C0&
|
|
StartUpPosition
|
CenterScreen
|
Codes
Private Sub A_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
B.SetFocus
End If
End Sub
Private Sub Command1_Click()
A = ""
B = ""
C = ""
D = ""
A.SetFocus
End Sub
Private Sub Command2_Click()
If A = "" Or B = "" Then
MsgBox "Entrer des valeurs numériques svp!",
vbInformation, "Information"
A = ""
B = ""
C = ""
D = ""
A.SetFocus
End If
If A = 0 Then
If B = 0 Then
MsgBox "Le logarithme de zéro est moins l'infini",
vbInformation, "Information"
A = ""
B = ""
C = ""
D = ""
A.SetFocus
Else
C = Log(Sqr(B * B))
If B > 0 Then
D = 1.57079632679
Else
D = -1.57079632679
End If
End If
Else
If A < 0 Then
If B < 0 Then
C = Log(Sqr(A * A + B * B))
E = 3.14159265359
D = Atn(B / A) - E
Else
C = Log(Sqr(A * A + B * B))
E = 3.14159265359
D = E + Atn(B / A)
End If
Else
C = Log(Sqr(A * A + B * B))
D = Atn(B / A)
End If
End If
End Sub
Private Sub Command3_Click()
Unload Me
accueil1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
3.3.4. Fonction sinus
Interface visuelle
Propriétés
|
Propriété
|
valeur
|
|
Name
|
Sincplx
|
|
Caption
|
Sinuss des nombres complexes
|
|
Back color
|
&H00FFC0C0&
|
|
StartUpPosition
|
CenterScreen
|
codes
Private Sub A_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
B.SetFocus
End If
End Sub
Private Sub Command1_Click()
A = ""
B = ""
C = ""
D = ""
A.SetFocus
End Sub
Private Sub Command2_Click()
If A = "" Or B = "" Then
MsgBox "Verifiez que vous avez rempli tous les champs",
vbInformation, "Information"
A = ""
B = ""
A.SetFocus
Else
C = (1 / 2) * Sin(A) * (2.71828182845924 ^ (-1 * B) +
2.71828182845924 ^ B)
D = -(1 / 2) * Cos(A) * (2.71828182845924 ^ (-1 * B) -
2.71828182845924 ^ B)
End If
End Sub
Private Sub Command3_Click()
Unload Me
accueil1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
3.3.5. Fonction cosinus
Interface visuelle
Propriétés
|
Propriété
|
valeur
|
|
Name
|
Coscplx
|
|
Caption
|
Cosinus des nombres complexes
|
|
Back color
|
&H00FFC0C0&
|
|
StartUpPosition
|
CenterScreen
|
Codes
Private Sub A_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
B.SetFocus
End If
End Sub
Private Sub Command1_Click()
A = ""
B = ""
C = ""
D = ""
A.SetFocus
End Sub
Private Sub Command2_Click()
If A = "" Or B = "" Then
MsgBox "Verifiez que vous avez rempli tous les champs",
vbInformation, "Information"
A = ""
B = ""
A.SetFocus
Else
C = (1 / 2) * Cos(A) * (2.71828182845924 ^ (-1 * B) +
2.71828182845924 ^ B)
D = (1 / 2) * Sin(A) * (2.71828182845924 ^ (-1 * B) -
2.71828182845924 ^ B)
End If
End Sub
Private Sub Command3_Click()
Unload Me
accueil1.Show
End Sub
Private Sub Command4_Click()
End
End Sub
3.3.6. Fonction arc sinus
Interface visuelle
Propriétés
|
Propriété
|
valeur
|
|
Name
|
Arcsincplx
|
|
Caption
|
Fonction trigonométrique réciproque (Arc sin)
|
|
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
Lbla = Atn(Sqr((A ^ 2) / (1 - A ^ 2)))
Lblb = 0
ElseIf A = 1 And B = 0 Then
Lbla = 1.57079632679
Lblb = 0
ElseIf A = 0 And B = 0 Then
Lbla = 0
Lblb = 0
ElseIf (A * B) >= 0 Then
Lbla = 1.57079632679 - (Atn((B + l) / (A + k)))
Lblb = Log(Sqr((A + k) ^ 2 + (B + l) ^ 2))
ElseIf (A * B) < 0 Then
Lbla = 1.57079632679 + 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
| 
