VB'de virgüllü işlem

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb VB'de virgüllü işlem

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

4
Cevap 1967
Tıklama 0
Öne Çıkarma

1. sayfa

VB'de virgüllü işlem

Cevap Yaz

utkusakallioglu

15 yıl (191 mesaj)

Teğmen

Konu Sahibi

Merhaba arkadaşlar. Bir ödev için VB'de hesap makinesi yaptım. Virgül butonu ile ilgili bir sorununum var. Ekrana virgül yazdırmama rağmen işlem sonucu hep yuvarlanıyor. Virgül yerine nokta koymayı denedim o da olmadı. Nasıl yaparım sizce?

Birde virgül yazdırırken bir defa yazdırmasını istiyorum. Yani orijinalindeki gibi onu nasıl yaparım?

not: yeni başlayan biriyim lütfen ona göre cevap verin.

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

Guest-6CB3B4454

15 yıl (13457 mesaj)

Yarbay

işlem sonucu hep yuvarlanıyor derken ? variablenin türü integer mi ?

Bu mesaja 1 cevap geldi.

utkusakallioglu

15 yıl (191 mesaj)

Teğmen

Konu Sahibi

dediğim gibi çok yeniyim nasıl anlatacağımı bilemedim

direk kodu atıyorum. virgülle ilgili olan bölüm sondan bir önceki...

 
  Dim islem As Integer 
  Dim al As Integer 
  Dim secim As String 
  Dim hafiza As Integer 
   
  Private Sub Command1_Click(Index As Integer) 
   
  End Sub 
   
  Private Sub Form_Load() 
   
  islem = 0 
   
  End Sub 
   
  Private Sub hakkinda_Click() 
   
  hakkinda.Show 
   
  End Sub 
   
  Private Sub hakkimda_Click() 
   
  hakkinda.Show 
   
   
  End Sub 
   
   
  Private Sub mArti_Click(Index As Integer) 
   
  al = Val(ekran.Text) 
   
  hafiza = hafiza + al 
  mEkrani.Text = "M" 
   
   
  End Sub 
   
  Private Sub mc_Click(Index As Integer) 
   
  hafiza = 0 
  ekran.Text = 0 
  mEkrani.Text = "" 
   
  End Sub 
   
   
  Private Sub mr_Click(Index As Integer) 
   
   
  ekran.Text = hafiza 
   
   
  End Sub 
   
  Private Sub ms_Click(Index As Integer) 
   
  hafiza = Val(ekran.Text) 
   
  End Sub 
   
  Private Sub tus0_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
  ekran.Text = ekran.Text + "0" 
  End If 
   
  End Sub 
   
  Private Sub tus1_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "1" 
   
  End Sub 
   
  Private Sub tus1Bolu_Click(Index As Integer) 
   
  ekran.Text = (1 / ekran.Text) 
   
  End Sub 
   
  Private Sub tus2_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "2" 
   
  End Sub 
   
  Private Sub tus3_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "3" 
   
  End Sub 
   
   
  Private Sub tus4_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "4" 
   
  End Sub 
   
   
  Private Sub tus5_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "5" 
   
  End Sub 
   
   
  Private Sub tus6_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "6" 
   
  End Sub 
   
   
  Private Sub tus7_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "7" 
   
  End Sub 
   
   
  Private Sub tus8_Click(Index As Integer) 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "8" 
   
  End Sub 
   
   
  Private Sub tus9_Click() 
   
  If ekran.Text = 0 Then ekran.Text = "" 
  ekran.Text = ekran.Text + "9" 
   
  End Sub 
   
   
  Private Sub tusArtiEksi_Click(Index As Integer) 
   
  al = Val(ekran.Text) 
   
  ekran.Text = al * (-1) 
   
  End Sub 
   
  Private Sub tusBol_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
     al = Val(ekran.Text) 
     
     If islem = 0 Then 
        islem = al / 1 
     Else 
        islem = islem / al 
     End If 
   
  End If 
   
  ekran.Text = 0 
  secim = "bol" 
   
  End Sub 
   
  Private Sub tusBosalt_Click() 
   
  secim = "" 
   
  End Sub 
   
  Private Sub tusCarp_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
     al = Val(ekran.Text) 
     
     If islem = 0 Then 
        islem = al * 1 
     Else 
        islem = al * islem 
     End If 
   
  End If 
   
  ekran.Text = 0 
  secim = "carp" 
   
  End Sub 
   
  Private Sub tusCıkar_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
     al = Val(ekran.Text) 
     
     islem = al - islem 
        
  End If 
   
   
  ekran.Text = 0 
  secim = "cikar" 
   
  End Sub 
   
  Private Sub tusEsittir_Click(Index As Integer) 
   
  If secim = "topla" Then 
  ekran.Text = islem + ekran.Text 
   
  ElseIf secim = "cikar" Then 
  ekran.Text = islem - ekran.Text 
   
  ElseIf secim = "carp" Then 
  ekran.Text = islem * ekran.Text 
   
  ElseIf secim = "bol" Then 
  ekran.Text = islem / ekran.Text 
   
  End If 
  End Sub 
   
  Private Sub tusGeri_Click() 
   
  ekran.Text = Mid(ekran.Text, 1, Len(ekran.Text) - 1) 
   
  End Sub 
   
   
  Private Sub tusKok_Click(Index As Integer) 
   
  ekran.Text = Sqr(Val(ekran.Text)) 
   
  End Sub 
   
   
  Private Sub tusMarti_Click(Index As Integer) 
   
  hafiza = hafiza + ekran.Text 
   
  End Sub 
   
  Private Sub tusMC_Click(Index As Integer) 
   
  hafiza = 0 
  mEkrani.Text = "" 
   
  End Sub 
   
  Private Sub tusMR_Click(Index As Integer) 
   
  ekran.Text = hafiza 
   
  End Sub 
   
  Private Sub tusMS_Click(Index As Integer) 
   
  hafiza = Val(ekran.Text) 
  mEkrani.Text = "M" 
   
  End Sub 
   
  Private Sub tusSil_Click() 
   
  ekran.Text = 0 
  al = 0 
  islem = 0 
  secim = "" 
   
  End Sub 
   
   
  Private Sub tusTopla_Click(Index As Integer) 
   
  If ekran.Text <> 0 Then 
     al = Val(ekran.Text) 
     islem = islem + al 
  End If 
   
  ekran.Text = 0 
  secim = "topla" 
   
   
  End Sub 
   
   
  Private Sub tusVirgul_Click(Index As Integer) 
   
  ekran.Text = ekran.Text + "." 
   
  End Sub 
   
   
  Private Sub tusYuzde_Click(Index As Integer) 
   
  If secim = "carp" Then 
  ekran.Text = (al / 100) * Val(ekran.Text) 
  Else 
  ekran.Text = 0 
  End If 
   
  End Sub

Bu mesaja 1 cevap geldi.

pckopatx

15 yıl (4313 mesaj)

Yarbay

Convert.ToDouble

http://forum.donanimhaber.com/m_38093155/tm.htm

baris1907

15 yıl (65 mesaj)

Çavuş

quote:

Orijinalden alıntı: utq745

Merhaba arkadaşlar. Bir ödev için VB'de hesap makinesi yaptım. Virgül butonu ile ilgili bir sorununum var. Ekrana virgül yazdırmama rağmen işlem sonucu hep yuvarlanıyor. Virgül yerine nokta koymayı denedim o da olmadı. Nasıl yaparım sizce?

Birde virgül yazdırırken bir defa yazdırmasını istiyorum. Yani orijinalindeki gibi onu nasıl yaparım?

not: yeni başlayan biriyim lütfen ona göre cevap verin.

integer yerine double olarak tanımla sorun çözülür.

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb VB'de virgüllü işlem