Visual Basic 2005 Buton ile ilgili YARDIM!!!!

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Visual Basic 2005 Buton ile ilgili YARDIM!!!!

Bu konudaki kullanıcılar: 1 misafir

3
Cevap 873
Tıklama 0
Öne Çıkarma

1. sayfa

Visual Basic 2005 Buton ile ilgili YARDIM!!!!

Cevap Yaz

metinix_68

19 yıl (203 mesaj)

Teğmen

Konu Sahibi

Arkadaşlar Visual Basic te bir hesap makinası yaptım. Herşey tamam ama küsürlü sayı gircekken "." butonuna tıklamaya engel olamadım. Ard arda nokta konulabiliyor. Nasıl bir döngü ile "." koymayı 1 kere yapabilirim?????????

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 metinix_68 -- 3 Mart 2008; 21:27:10 >

ethan hunt

19 yıl (2945 mesaj)

Binbaşı

mesela text1 e yazıyon sayıları diyelim..

bu olay . butonuna bastığında olacak..

dim say as integer
dim krktr as string

say=len(textbox1.text)

for a 1 to say

krktr=mid(textbox1.text,say,1)

if krktr="." then exit sub

next a

< Bu mesaj bu kişi tarafından değiştirildi ethan hunt -- 4 Mart 2008; 8:51:31 >
Bu mesaja 1 cevap geldi.

fuujinsan

19 yıl (1707 mesaj)

Binbaşı

quote:

Orjinalden alıntı: ethan hunt

mesela text1 e yazıyon sayıları diyelim..

bu olay . butonuna bastığında olacak..

dim say as integer
dim krktr as string

say=len(textbox1.text)

for a 1 to say

krktr=mid(textbox1.text,say,1)

if krktr="." then exit sub

next a

sabah sabah güldürdün beni

bu program tabiki çalışmayacak bir sürü hata var;

textbox'ın keypress olayına ve "." butonunu basıldığı (click) kısmına su kodları yazman yeterli olacaktır....

1. yöntem:
kontrol = InStr(Text1.Text, ".")
If kontrol = 0 Then Text1.Text = Text1.Text + "."

arkadaşında yazdığını düzeltelim....
2.yöntem

For i = 1 To Str(Len(Text1.Text))
kontrol = Mid$(Text1.Text, i, 1)
If kontrol = "." Then GoTo atla
Next i
Text1.Text = Text1.Text + "."
atla: End Sub

oda bu şekilde olacak kolay gelsin... ben olsam ilk yöntemi kullanırdım....

Bu mesaja 1 cevap geldi.