IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
Public choice As String

Public current As Double

Public prev As Double

Public counter As Integer
 

Private Sub ac_Click()

Text1.Text = ""

prev = current = 0

dz.Visible = False

asterisk.Enabled = False

equal.Enabled = False

expo.Enabled = False

logn.Enabled = False

logten.Enabled = False

minus.Enabled = False

plus.Enabled = False

sign.Enabled = False

slash.Enabled = False

sroot.Enabled = False

cosine.Enabled = False

sine.Enabled = False

tangent.Enabled = False

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

End Sub
 

Private Sub asterisk_Click()

Text1.Text = ""

choice = "*"

prev = current

current = 0

End Sub
 

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text & Command1(Index).Caption

current = Text1.Text

asterisk.Enabled = True

equal.Enabled = True

expo.Enabled = True

logn.Enabled = True

logten.Enabled = True

minus.Enabled = True

plus.Enabled = True

sign.Enabled = True

slash.Enabled = True

sroot.Enabled = True

tangent.Enabled = True

cosine.Enabled = True

sine.Enabled = True

End Sub
 

Private Sub cosine_Click()

Text1.Text = Cos(current * 3.14159265358979 / 180)

current = Cos(current * 3.14159265358979 / 180)

End Sub
 

Private Sub equal_Click()

If choice = "+" Then

   current = prev + current

   Text1.Text = current

ElseIf choice = "-" Then

   current = prev - current

   Text1.Text = current

ElseIf choice = "*" Then

   current = prev * current

   Text1.Text = current

ElseIf choice = "/" And current <> 0 Then

   current = prev / current

   Text1.Text = current

    Else

      Text1.Text = "Press AC to continue"

      dz.Visible = True

      dz.Caption = "Division by ZERO"

End If

If current < 0 Then

   sroot.Enabled = False

Else

   sroot.Enabled = True

End If

'asterisk.Enabled = False

'equal.Enabled = False

'expo.Enabled = False

'logn.Enabled = False

'logten.Enabled = False

'minus.Enabled = False

'plus.Enabled = False

'sign.Enabled = False

'slash.Enabled = False

'sroot.Enabled = False

'sine.Enabled = False

'cosine.Enabled = False

'tangent.Enabled = False

'invsine.Visible = False

'invcos.Visible = False

'invtan.Visible = False

'expo.Visible = False

End Sub
 

Private Sub exit_Click()

Unload Form1

End

End Sub
 

Private Sub expo_Click()

Text1.Text = Exp(current)

current = Exp(current)

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

expo10.Visible = False

End Sub
 

Private Sub expo10_Click()

Dim i As Integer

Dim j As Double

j = current

current = 1

For i = 1 To j Step 1

   current = current * 10

Next i

Text1.Text = current

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

expo10.Visible = False

End Sub
 

Private Sub Form_Click()

Text1.Text = ""

dz.Visible = False

asterisk.Enabled = False

equal.Enabled = False

expo.Enabled = False

expo10.Enabled = False

logn.Enabled = False

logten.Enabled = False

minus.Enabled = False

plus.Enabled = False

sign.Enabled = False

slash.Enabled = False

sroot.Enabled = False

cosine.Enabled = False

sine.Enabled = False

tangent.Enabled = False

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

expo10.Visible = False

End Sub
 

Private Sub Form_Load()

Form1.Width = 4830

End Sub
 

Private Sub Form_Unload(Cancel As Integer)

Dim value As Integer

value = MsgBox("This Calculator was created for scientific calculations, u can do any modification to ur requirements", vbInformation, "About")

End Sub
 

Private Sub invcos_Click()

Dim temp As Double

temp = current * 3.14159265358979 / 180

If (temp <= 1 And temp >= -1) Then

  Text1.Text = 1 / Cos(temp)

  current = 1 / Cos(temp)

End If

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

expo10.Visible = False

End Sub
 

Private Sub invsine_Click()

Dim temp As Double

temp = current * 3.14159265358979 / 180

If (temp <= 1 And temp >= -1) Then

  Text1.Text = 1 / Sin(temp)

  current = 1 / Sin(temp)

End If

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

expo10.Visible = False

End Sub
 

Private Sub invtan_Click()

Text1.Text = 1 / Tan(current * 3.14159265358979 / 180)

current = 1 / Tan(current * 3.14159265358979 / 180)

invsine.Visible = False

invcos.Visible = False

invtan.Visible = False

expo.Visible = False

expo10.Visible = False

End Sub
 

Private Sub logn_Click()

Text1.Text = Log(current)

current = Log(current)

End Sub
 

Private Sub logten_Click()

Text1.Text = Log(current) / Log(10)

current = Log(current) / Log(10)

End Sub
 

Private Sub mode_MouseDown(Button As Integer, shift As Integer, X As Single, Y As Single)

counter = counter + 1

If counter > 2 Then

   counter = 1

End If

If counter = 2 Then

 displaylb.Caption = "Normal Calculator"

 displaylb.ForeColor = &HFFC0C0

 Form1.Width = 4830

 sine.Visible = False

 cosine.Visible = False

 tangent.Visible = False

 logn.Visible = False

 logten.Visible = False

 random.Enabled = False

 random.Visible = False

 shiftb.Visible = False

 recall.Visible = False

Else

  displaylb.Caption = " Scientific Calculator"

  displaylb.ForeColor = &HC0&

  Form1.Width = 5670

  sine.Visible = True

  cosine.Visible = True

  tangent.Visible = True

  logn.Visible = True

  logten.Visible = True

  random.Enabled = True

  random.Visible = True

  shiftb.Visible = True

  recall.Visible = True

End If

End Sub
 

Private Sub point_Click()

If Text1.Text = "" Then

  Text1.Text = "0."

Else

  Text1.Text = Text1.Text & "."

End If

End Sub
 

Private Sub random_Click()

Text1.Text = (2.1021020134 * Rnd + 1)

End Sub
 

Private Sub recall_Click()

Text1.Text = current

End Sub
 

Private Sub shiftb_Click()

invsine.Visible = True

invcos.Visible = True

invtan.Visible = True

expo.Visible = True

expo10.Visible = True

If Text1.Text <= 1 And Text1.Text >= -1 Then

  invsine.Enabled = True

  invcos.Enabled = True

End If

  invtan.Enabled = True

  expo.Enabled = True

  expo10.Enabled = True

End Sub
 

Private Sub sign_Click()

If current < 0 Then

   Text1.Text = -current

   current = -current

Else

   Text1.Text = "-" & Text1.Text

   current = -current

End If

If current < 0 Then

   sroot.Enabled = False

Else

   sroot.Enabled = True

End If

End Sub
 

Private Sub minus_Click()

Text1.Text = ""

choice = "-"

prev = current

current = 0

End Sub
 

Private Sub plus_Click()

Text1.Text = ""

choice = "+"

prev = current

current = 0

End Sub
 

Private Sub sine_Click()

Text1.Text = Sin(current * 3.14159265358979 / 180)

current = Sin(current * 3.14159265358979 / 180)

End Sub
 

Private Sub slash_Click()

Text1.Text = ""

choice = "/"

prev = current

current = 0

End Sub
 

Private Sub sroot_Click()

Text1.Text = Sqr(current)

current = Sqr(current)

End Sub
 

Private Sub tangent_Click()

Text1.Text = Tan(current * 3.14159265358979 / 180)

current = Tan(current * 3.14159265358979 / 180)

End Sub
Alıntıdır