Şimdi Ara

VB Hesap Makinesi Ondalık Sorunu

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Russell Hobbs tost makinesi [3'ü 1 arada: 17888-56 masa üstü ızgara, açık ızgara plakaları, panini ve sandviç makinesi, temas ızgarası, aynı anda her iki taraftan] paslanmaz çelik, yapışmaz kaplamalı plakalar : Amazon.com.tr: Mutfak https://www.amazon.com.tr/dp/B008MZKS5C 2 yıl önce paylaşıldı

Şarjlı Araç Süpürgesi Ev-ofis-araba Kullanımı Çok Fonksiyonlu Emiş Gücü 8500pa - Üfleme - Lt-117 Neo : Amazon.com.tr: Ev ve Yaşam https://www.amazon.com.tr/dp/B0DD5N1TRN 6 gün önce paylaşıldı

Philips 3'lü Çocuk Korumalı priz 1.5 M Beyaz, CHP2134W/62 : Amazon.com.tr: Yapı Market https://www.amazon.com.tr/dp/B0CVB94QBX 7 ay önce paylaşıldı

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

2
Cevap

0
Favori

1.713
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konuya Özel

0 oy

Öne Çıkar

Cevapla

Sayfa: 1

Giriş

Mesaj

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 >