Torrent Dükkanı, Torrent Oyun, Torrent Film, Torrent Dizi, Full İndir
Torrent Dükkanı Bilgilendirme

Torrent Dükkanı Vip Üyelik

Torrent Dükkanı Moderatör Başvurusu

Forum kuralları!

Merhaba! Forumlarımızda herhangi bir aktivitede bulunmadan önce, forum düzeni ve kalıcılığı için lütfen forum kurallarını okuyunuz.

Forum Kuralları
Bilgi? Yeni temamız aktif edilmiştir, iyi forumlar dileriz.
Sağolun! Gün geçtikçe büyüyor ve gelişiyoruz destek verenlere teşekkür ederiz.
Dikkat! Kurallara uymayan üyeler uyarılmaksızın siteden men edilecektir.
Süper:) Yeni kampanyalarımızla sizlere yenilikler katmaya devam ediyoruz.
 
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VISUAL BASIC / Bilimsel Hesap Makinesi
(Okunma: 213)
Acces
#1
Kod:
Purpose:
'       This program is a Simple Scientific Calculator. It handles
'       Roman Numeral, Hex, Decimal, Octal and Binary numbers.
'       Degrees, Radians and Gradians. All the standard Trig functions.
'       Factorial, Sqr, Inverse, Square, Cube, X^Y.
'       Fun conversions like:
'           Ounce <-> Grams
'           Pounds <-> Kilograms
'           Gallon <-> Litre
'           Mile <-> Kilometer
'           Inch <-> Centimeter
'           Fahrenheight <-> Celsius
'***********************************************************************


Private Sub Button8_Click()
   If bError = False Then
       If bEntered = False Then
           bEntered = True
           OutputWindow.Text = "8"
       Else
           OutputWindow.Text = OutputWindow.Text + "8"
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub Button9_Click()
   If bError = False Then
       If bEntered = False Then
           bEntered = True
           OutputWindow.Text = "9"
       Else
           OutputWindow.Text = OutputWindow.Text + "9"
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub ButtonA_Click()
   If bError = False Then
       If bEntered = False Then
           bEntered = True
           OutputWindow.Text = "A"
       Else
           OutputWindow.Text = OutputWindow.Text + "A"
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub Bu
   End If
   OutputWindow.SetFocus
End Sub

Private Sub ButtonC_Click()
   If bError = False Then
       If bEntered = False Then
           bEntered = True
           OutputWindow.Text = "C"
       Else
           OutputWindow.Text = OutputWindow.Text + "C"
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub ButtonD_Click()
   If bError = False Then
       If bEntered = False Then
           bEntered = True
           OutputWindow.Text = "D"
       Else
           OutputWindow.Text = OutputWindow.Text + "D"
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub ButtonE_Click()
   If bError = False Then
       If bEntered = False Then
   
               iValue = OutputWindow.Text * -1
               OutputWindow.Text = iValue
           End If
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub ButtonDivide_Click()
   If bError = False Then
       If bEntered = True Then
           If bFirstNum = True Then
               Select Case iCurrentRadix
                   Case ROMANNUM
                      xSecondNum = Val("&H" + OutputWindow.Text)
                   C
                   iMathFunction = DIVIDE
               End If
           Else
               Select Case iCurrentRadix
                   Case ROMANNUM
                       xFirstNum = GetRomanDecNum(OutputWindow.Text)
                   Case HEXNUM
                       xFirstNum = Val("&H" + OutputWindow.Text)
                   Case DECNUM
                       xFirstNum = OutputWindow.Text
                   Case OCTNUM
                       xFirstNum = Val("&O" + OutputWindow.Text)
                   Case BINNUM
                       xFirstNum = GetBinDecNum(OutputWindow.Text)
               End Select
               bFirstNum = True
               bEntered = False
               iMathFunction = DIVIDE
           End If
       Else
           iMathFunction = DIVIDE
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub ButtonMultiply_Click()
   If bError = False Then
       If bEntered = True Then
           If bFirstNum = True Then
               Select Case iCurrentRadix
                   Case ROMANNUM
                       xSecondNum = GetRomanDecNum(OutputWindow.Text)
                   Case HEXNUM
                       xSecondNum = Val("&H" + OutputWindow.Text)
                   Case DECNUM
                       xSecondNum = OutputWindow.Text
                   Case OCTNUM
                       xSecondNum = Val("&O" + OutputWindow.Text)
                   Case BINNUM
                       xSecondNum = GetBinDecNum(OutputWindow.Text)
               End Select
               bError = Calculate_Total(xFirstNum, xSecondNum, xTotal)
               If Not bError Then
                   xFirstNum = xTotal
                   bFirstNum = True
                   bEntered = False
                   iMathFunction = MULTIPLY
               End If
          Else
               Select Case iCurrentRadix
                   Case RO
       Else
           iMathFunction = MULTIPLY
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub ButtonPlus_Click()
   If bError = False Then
       If bEntered = True Then
           If bFirstNum = True Then
               Select Case iCurrentRadix
                   Case ROMANNUM
                       xSecondNum = GetRomanDecNum(OutputWindow.Text)
                   Case HEXNUM
                       xSecondNum = Val("&H" + OutputWindow.Text)
                   Case DECNUM
                       xSecondNum = OutputWindow.Text
                   Case OCTNUM
                       xSecondNum = Val("&O" + OutputWindow.Text)
                   Case BINNUM
                       xSecondNum = GetBinDecNum(OutputWindow.Text)
               End Select
               bError = Calculate_Total(xFirstNum, xSecondNum, xTotal)
               If Not bError Then
                   xFirstNum = xTotal
                   bFirstNum = True
                   bEntered = False
                   iMathFunction = PLUS
               End If
           Else
               Select Case iCurrentRadix
                   Case ROMANNUM
                       xFirstNum = GetRomanDecNum(OutputWindow.Text)
                   Case HEXNUM
                       xFirstNum = Val("&H" + OutputWindow.Text)
                   Case DECNUM
                       xFirstNum = OutputWindow.Text
                   Case OCTNUM
                       xFirstNum = Val("&O" + OutputWindow.Text)
                   Case BINNUM
                       xFirstNum = GetBinDecNum(OutputWindow.Text)
               End Select
               bFirstNum = True
               bEntered = False
               iMathFunction = PLUS
           End If
                       xSecondNum = GetRomanDecNum(OutputWindow.Text)
                   Case HEXNUM
                       xSecondNum = Val("&H" + OutputWindow.Text)
                   Case DECNUM
                       xSecondNum = OutputWindow.Text
                   Case OCTNUM
                       xSecondNum = Val("&O" + OutputWindow.Text)
                   Case BINNUM
                       xSecondNum = GetBinDecNum(OutputWindow.Text)
               End Select
               bError = Calculate_Total(xFirstNum, xSecondNum, xTotal)
               If Not bError Then
                   xFirstNum = xTotal
                   bFirstNum = True
                   bEntered = False
                   iMathFunction = MINUS
               End If
           Else
               Select Case iCurrentRadix
                   Case ROMANNUM
                       xFirstNum = GetRomanDecNum(OutputWindow.Text)
                   Case HEXNUM
                       xFirstNum = Val("&H" + OutputWindow.Text)
                   Case DECNUM
                       xFirstNum = OutputWindow.Text
                   Case OCTNUM
                       xFirstNum = Val("&O" + OutputWindow.Text)
                   Case BINNUM
                       xFirstNum = GetBinDecNum(OutputWindow.Text)
               End Select
               bFirstNum = True
               bEntered = False
               iMathFunction = MINUS
           End If
       Else
           iMathFunction = MINUS
       End If
   End If
   OutputWindow.SetFocus
End Sub

Private Sub ButtonPower_Click()
   If bError = False Then
       If bEntered = True Then
           Select Case iCurrentRadix
               Case ROMAN
   End If
   OutputWindow.SetFocus
Cevapla
 


Anahtar Kelimeler

VISUAL BASIC / Bilimsel Hesap Makinesi, VISUAL BASIC / Bilimsel Hesap Makinesi indir, VISUAL BASIC / Bilimsel Hesap Makinesi Videosu, VISUAL BASIC / Bilimsel Hesap Makinesi online izle, VISUAL BASIC / Bilimsel Hesap Makinesi Bedava indir, VISUAL BASIC / Bilimsel Hesap Makinesi Yükle, VISUAL BASIC / Bilimsel Hesap Makinesi Hakkında, VISUAL BASIC / Bilimsel Hesap Makinesi nedir, VISUAL BASIC / Bilimsel Hesap Makinesi Free indir, VISUAL BASIC / Bilimsel Hesap Makinesi oyunu, VISUAL BASIC / Bilimsel Hesap Makinesi download



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi Acces 0 197 01-06-2016, Saat: 19:54
Son Yorum: Acces
  VISUAL BASIC / Library Çalışması Acces 0 175 01-06-2016, Saat: 19:49
Son Yorum: Acces
  VISUAL BASIC / Ms Dondurucu Acces 0 174 01-06-2016, Saat: 19:46
Son Yorum: Acces
  C++ / File Processing-Hesap Bilgilerini Dosyaya Yazdırmak Acces 0 162 31-05-2016, Saat: 19:57
Son Yorum: Acces

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi