Bilgi? 5 Bin Tl Para Ödülü Kazanmak İster misiniz ? Detaylı bilgi için ["TIKLAYINIZ."]
#BaşvuruYap Yetkili Alımları Başlamıştır! Sitede Görevli Olmak İsteyen Arkadaşlar Konuyu İnceleyebilir, Detaylar İçin: ["TIKLAYINIZ."]
Süper:) VİP Üyelik Ayrıcalıklarından Yararlanmak İçin Buraya! Ömür Boyu VİP Üye Olabilirsiniz Detaylar Konumuzda: ["TIKLAYINIZ."]
Dikkat! Emeklere Karşılık Olarak Konulara Yorumlarını Eksik Etmeyiniz. Kurallara Uymayanlar Siteden Men Edilecektir! Torrentleri Seed Ediniz.!
Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VISUAL BASIC / Bilimsel Hesap Makinesi
01-06-2016, Saat: 19:53,
#1
VISUAL BASIC / Bilimsel Hesap Makinesi
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
17-03-2017, Saat: 04:12,
#2
RE: VISUAL BASIC / Bilimsel Hesap Makinesi
Eline Sağlık Kardeşim Benim
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  C++ / File Processing-Hesap Bilgilerini Dosyaya Yazdırmak Acces 1 368 17-03-2017, Saat: 04:13
Son Yorum: Watherson
  VISUAL BASIC / Library Çalışması Acces 1 382 17-03-2017, Saat: 04:13
Son Yorum: Watherson
  VISUAL BASIC / Ms Dondurucu Acces 1 397 17-03-2017, Saat: 04:13
Son Yorum: Watherson
  VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi Acces 1 392 17-03-2017, Saat: 04:12
Son Yorum: Watherson

Hızlı Menü:

Konuyu Okuyanlar: 1 Ziyaretçi
Torrent Oyun Torrent film film indir