VB Hesap Makinesi Ondalık Sorunu

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb VB Hesap Makinesi Ondalık Sorunu

Bu konudaki kullanıcılar: 1 misafir

1
Cevap 1799
Tıklama 0
Öne Çıkarma

1. sayfa

VB Hesap Makinesi Ondalık Sorunu

Cevap Yaz

YaBuZ

19 yıl

Çavuş

Konu Sahibi

Merhabalar
windowstaki gibi hesap makinesi yapmam lazım. Commond Buttonları " 10 rakam + - * / = , " olacak. Bu durumda yazdığım kodu yolluyorum.

Dim s As Byte 
  Dim bir As Double 
  Dim iki As Double 
  Dim sonuc As Double 
  Private Sub Command1_Click() 
  If s = 0 Then 
  bir = bir & 1 
  Text1.Text = bir 
  Else 
  iki = iki & 1 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command10_Click() 
  If s = 0 Then 
  bir = bir & "," 
  Text1.Text = bir 
  Else 
  iki = iki & "," 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command11_Click() 
  If s = 0 Then 
  bir = bir & 0 
  Text1.Text = bir 
  Else 
  iki = iki & 0 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command12_Click() 
  If s = 1 Then sonuc = bir + iki 
  If s = 2 Then sonuc = bir - iki 
  If s = 3 Then sonuc = bir * iki 
  If s = 4 Then sonuc = bir / iki 
  Text1.Text = sonuc 
  s = 0 
  bir = Val("") 
  iki = Val("") 
  End Sub 
   
  Private Sub Command13_Click() 
  s = 1 
  End Sub 
   
  Private Sub Command14_Click() 
  s = 2 
  End Sub 
   
  Private Sub Command15_Click() 
  s = 3 
  End Sub 
   
  Private Sub Command16_Click() 
  s = 4 
  End Sub 
   
  Private Sub Command2_Click() 
  If s = 0 Then 
  bir = bir & 2 
  Text1.Text = bir 
  Else 
  iki = iki & 2 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command3_Click() 
  If s = 0 Then 
  bir = bir & 3 
  Text1.Text = bir 
  Else 
  iki = iki & 3 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command4_Click() 
  If s = 0 Then 
  bir = bir & 4 
  Text1.Text = bir 
  Else 
  iki = iki & 4 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command5_Click() 
  If s = 0 Then 
  bir = bir & 5 
  Text1.Text = bir 
  Else 
  iki = iki & 5 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command6_Click() 
  If s = 0 Then 
  bir = bir & 6 
  Text1.Text = bir 
  Else 
  iki = iki & 6 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command7_Click() 
  If s = 0 Then 
  bir = bir & 7 
  Text1.Text = bir 
  Else 
  iki = iki & 7 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command8_Click() 
  If s = 0 Then 
  bir = bir & 8 
  Text1.Text = bir 
  Else 
  iki = iki & 8 
  Text1.Text = iki 
  End If 
  End Sub 
   
  Private Sub Command9_Click() 
  If s = 0 Then 
  bir = bir & 9 
  Text1.Text = bir 
  Else 
  iki = iki & 9 
  Text1.Text = iki 
  End If 
  End Sub

ancak böyle durumda birinci sayı ve ikinci sayıyı double olarak girdiğim için bir = bir & "," dediğimde virgülü eklemiyor. Değişkeni string olarak tanımlayıncada , ekleniyor ama işlemlerde sapıtıyor :) Bir yardım... :D

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< Bu mesaj bu kişi tarafından değiştirildi YaBuZ -- 13 Aralık 2006; 2:29:16 >