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 1798
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

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