Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Calcolatice - Frmcalc.frm

Frmcalc.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Option Explicit
  2. Dim numero As Double
  3. Private Sub Cmdcos_Click()
  4. If Txtcalc.Text <> "" Then
  5. Txtcalc.Text = coseno(CDbl(Txtcalc.Text))
  6. End If
  7. End Sub
  8.  
  9. Private Sub Cmdcubo_Click()
  10. Static cub As Double
  11.  If Txtcalc.Text <> "" Then
  12.   Txtcalc.Text = cubo(CDbl(Txtcalc.Text))
  13.   cub = CDbl(Txtcalc.Text)
  14.     If cub > 9999999999# Then
  15.          MsgBox "Max 11 caratteri", vbExclamation, "Over range"
  16.            Call init
  17.          End If
  18.  End If
  19. End Sub
  20.  
  21. Private Sub Cmddel_Click()
  22. Call init
  23. Txtcalc.SetFocus
  24. End Sub
  25.  
  26. Private Sub Cmddiv_Click()
  27. If Txtcalc.Text = "" Then
  28.        contdiv = 0
  29.        Exit Sub
  30.        End If
  31.  contdiv = contdiv + 1
  32.     If contdiv > 1 Then
  33.       Call calcola
  34.       flag = True
  35.       operazione = "/"
  36.       Txtcalc.Text = risultato
  37.      Else
  38.       Call calcola
  39.       flag = True
  40.       operazione = "/"
  41.     End If
  42. End Sub
  43.  
  44. Private Sub cmdinfo_Click()
  45.  
  46. End Sub
  47.  
  48. Private Sub cmdlog_Click()
  49. If Txtcalc.Text <> "" Then
  50. Txtcalc.Text = ln(CDbl(Txtcalc.Text))
  51. End If
  52. End Sub
  53.  
  54. Private Sub Cmdmeno_Click()
  55. If Txtcalc.Text = "" Then
  56.        contmeno = 0
  57.        Exit Sub
  58.        End If
  59.   contmeno = contmeno + 1
  60.     If contmeno > 1 Then
  61.       Call calcola
  62.       flag = True
  63.       operazione = "-"
  64.       Txtcalc.Text = risultato
  65.      Else
  66.       Call calcola
  67.       flag = True
  68.       operazione = "-"
  69.     End If
  70. End Sub
  71.  
  72. Private Sub Cmdnum_Click(Index As Integer)
  73. If Not flag2 Then
  74. Txtcalc.Text = Txtcalc.Text & Index
  75. Else
  76. Txtcalc.Text = Index
  77. flag2 = False
  78. End If
  79. If flag Then
  80. Txtcalc.Text = Index
  81. End If
  82. flag = False
  83. Txtcalc.SetFocus
  84. End Sub
  85.  
  86. Private Sub Cmdper_Click()
  87. If Txtcalc.Text = "" Then
  88.        contper = 0
  89.        Exit Sub
  90.        End If
  91.  contper = contper + 1
  92.     If contper > 1 Then
  93.       Call calcola
  94.       flag = True
  95.       operazione = "*"
  96.       Txtcalc.Text = risultato
  97.      Else
  98.       Call calcola
  99.       flag = True
  100.       operazione = "*"
  101.     End If
  102.  
  103. End Sub
  104.  
  105. Private Sub Cmdperc_Click()
  106. operazione = "%"
  107. End Sub
  108.  
  109. Private Sub Cmdpiu_Click()
  110. If Txtcalc.Text = "" Then
  111.        contpiu = 0
  112.        Exit Sub
  113.        End If
  114.     contpiu = contpiu + 1
  115.     If contpiu > 1 Then
  116.       Call calcola
  117.       flag = True
  118.       flag2 = False
  119.       operazione = "+"
  120.       Txtcalc.Text = risultato
  121.      Else
  122.       Call calcola
  123.       flag = True
  124.       flag2 = False
  125.       operazione = "+"
  126.     End If
  127. End Sub
  128.  
  129. Private Sub Cmdpiumeno_Click()
  130. If Len(Txtcalc.Text) = 0 Then
  131. Exit Sub
  132. End If
  133. operazione = "+"
  134. contpiumeno = contpiumeno + 1
  135. If (contpiumeno Mod 2) <> 0 Then
  136. cmdlog.Enabled = False
  137. Txtcalc.Text = "-" & Txtcalc.Text
  138. Else
  139. cmdlog.Enabled = True
  140. Txtcalc.Text = Abs(Txtcalc.Text)
  141. End If
  142. End Sub
  143.  
  144. Private Sub Cmdquad_Click()
  145. If Txtcalc.Text <> "" Then
  146. Txtcalc.Text = q(CDbl(Txtcalc.Text))
  147. End If
  148. End Sub
  149.  
  150. Private Sub Cmdradice_Click()
  151. If Txtcalc.Text <> "" Then
  152. Txtcalc.Text = r(CDbl(Txtcalc.Text))
  153. End If
  154. End Sub
  155.  
  156. Private Sub Cmdris_Click()
  157. If Txtcalc.Text = "" Then
  158. Exit Sub
  159. End If
  160. Call calcola
  161. Txtcalc.Text = CDbl(risultato)
  162. risultato = 0
  163. operazione = "+"
  164. flag2 = True
  165. End Sub
  166.  
  167. Private Sub Cmdseno_Click()
  168. If Txtcalc.Text <> "" Then
  169. Txtcalc.Text = seno(CDbl(Txtcalc.Text))
  170. End If
  171. End Sub
  172.  
  173. Private Sub Cmdvirgola_Click()
  174. If Len(Txtcalc.Text) = 0 Then
  175. Txtcalc.Text = "error"
  176. End If
  177. If InStr(Txtcalc.Text, ",") = 0 Then
  178. Txtcalc.Text = Txtcalc.Text & ","
  179. End If
  180. End Sub
  181.  
  182. Private Sub Form_Load()
  183.  Call init
  184. End Sub
  185.  
  186. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  187.     If MsgBox("Vuoi uscire dal programma?", vbQuestion + vbYesNoCancel, _
  188.            "Esci") = vbYes Then
  189.           MsgBox "Programma realizzato da Albert King (11\05\2006)" & _
  190.           vbCrLf & "Calcolatrice version 1.0 MS_Visual Basic", vbInformation, _
  191.           "Creatore"
  192.         Unload Frmcalc
  193.         Else
  194.         Cancel = True
  195. End If
  196. End Sub
  197.  
  198. Private Sub mnuesci_Click()
  199.   Call about
  200. End Sub
  201.  
  202. Private Sub mnunotte_Click()
  203.     If mnunotte.Checked = False Then
  204.      mnunotte.Checked = True
  205.      mnustandard.Checked = False
  206.      For i = 0 To 9
  207.        Cmdnum(i).BackColor = &HFF0000
  208.      Next i
  209.       Cmddel.BackColor = &HFF8080
  210.       Frmcalc.BackColor = &HC00000
  211.       Cmdseno.BackColor = &HC000&
  212.       Cmdcos.BackColor = &HC000&
  213.       cmdlog.BackColor = &HC000&
  214.       Cmdpiu.BackColor = &HC00000
  215.       Cmdmeno.BackColor = &HC00000
  216.       Cmdpiumeno.BackColor = &HC000C0
  217.       Cmdper.BackColor = &HC00000
  218.       Cmddiv.BackColor = &HC00000
  219.       Cmdvirgola.BackColor = &HC000C0
  220.       Cmdris.BackColor = &HFF8080
  221.       Txtcalc.BackColor = &HC0C000
  222.       Cmdcubo.BackColor = &HFF8080
  223.       Cmdquad.BackColor = &HFF8080
  224.       Cmdradice.BackColor = &HFF8080
  225.      End If
  226.      
  227. End Sub
  228.  
  229. Private Sub mnustandard_Click()
  230. If mnustandard.Checked = False Then
  231. mnustandard.Checked = True
  232. mnunotte.Checked = False
  233. For i = 0 To 9
  234.  Cmdnum(i).BackColor = &HC0FFFF
  235.  Next i
  236.  Cmdseno.BackColor = &H8080FF
  237.  Cmdcos.BackColor = &H8080FF
  238.  cmdlog.BackColor = &H8080FF
  239.  Frmcalc.BackColor = &HC0FFC0
  240.  Cmddel.BackColor = &H80FFFF
  241.  Cmdpiu.BackColor = &H80FF&
  242.  Cmdmeno.BackColor = &H80FF&
  243.  Cmdper.BackColor = &H80FF&
  244.  Cmddiv.BackColor = &H80FF&
  245.  Txtcalc.BackColor = vbWhite
  246.  End If
  247. End Sub
  248.  
  249. Private Sub Txtcalc_Change()
  250. If Not IsNumeric(Txtcalc.Text) Then
  251.    Txtcalc.Text = ""
  252.     End If
  253.  If Val(Txtcalc.Text) <= 0 Then
  254.   cmdlog.Enabled = False
  255.   Cmdradice.Enabled = False
  256.  Else
  257.   cmdlog.Enabled = True
  258.   Cmdradice.Enabled = True
  259.  End If
  260. End Sub