Private Sub Command1_Click()
Dim x, y, a, b As Double
x = Val(Text1.Text)
y = Val(Text2.Text)
a = Val(Text3.Text)
b = Val(Text4.Text)
Text5.Text = (x) + (a)
Text6.Text = (y) + (b)
End Sub

Private Sub Command10_Click()
Call Shell("calc.exe", 1)
End Sub

Private Sub Command2_Click()
Dim x, y, a, b As Double
x = Val(Text1.Text)
y = Val(Text2.Text)
a = Val(Text3.Text)
b = Val(Text4.Text)
Text5.Text = (x) - (a)
Text6.Text = (y) - (b)
End Sub

Private Sub Command3_Click()
Dim x, y, a, b As Double
x = Val(Text1.Text)
y = Val(Text2.Text)
a = Val(Text3.Text)
b = Val(Text4.Text)
Text5.Text = (x * a) - (y * b)
Text6.Text = (x * b) + (y * a)
End Sub

Private Sub Command4_Click()
Dim x, y, a, b As Double
x = Val(Text1.Text)
y = Val(Text2.Text)
a = Val(Text3.Text)
b = Val(Text4.Text)
Text5.Text = ((x * a) + (y * b)) / ((a * a) + (b * b))
Text6.Text = (-(x * b) + (y * a)) / ((a * a) + (b * b))
End Sub

Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
End Sub

Private Sub Command6_Click()
MsgBox "Karmaşık Sayılarda Yani i li Sayılarda 4 işlem Yapmayı Saglayan Bir Programdır."
MsgBox "1.sayı Bölümüne ilk karmaşık sayının 2. sayı bölümüne de sonraki karmaşık sayının katsayılarını yazıyoruz."
MsgBox "Mesela sayımız 3+4i ise x yerine 3 y yerine 4 yazıyoruz"
MsgBox "Sayıları yazdıktan sonra butonları kullanıp dört işlem yapıyoruz"
End Sub

Private Sub Command7_Click()
MsgBox "Bölme işlemlerinde sonuç virgüllü cıkabiliyor."
MsgBox "Sonuç 0,1+0,4i gibi bir şey cıkarsa bunu (1+4i)/10 şeklinde yazmanız gerekebilir"
End Sub

Private Sub Command8_Click()
MsgBox "Bu Program ErDeM HOT Tarafından Yazılmıştır. Kopyalanması Ve Dagıtılması Yasaktır"
End Sub


Private Sub Command9_Click()
Dim c, d, mk, re As Double
c = Val(Text7.Text)
d = Val(Text8.Text)
mk = (c * c) + (d * d)
Text9.Text = (mk)
re = Sqr((c * c) + (d * d))
Text10.Text = (re)
End Sub

Private Sub Form_Load()
If InputBox("Şifreyi giriniz") <> "ErDeM" Then
MsgBox ("Şifreyi bilemediniz.Bilgiler üzerinde degişiklik yapamazsınız.....!")
End
End If
End Sub