Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

Visual Basic 2005 Buton ile ilgili YARDIM!!!!

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
4
Cevap
0
Favori
716
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • 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?????????



    < Bu mesaj bu kişi tarafından değiştirildi metinix_68 -- 3 Mart 2008; 21:27:10 >



  • 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 >
  • 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....




  • çok teşekkür ederim arkadaşlar :D

    say len güzelmiş gül gül öldüm :D
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız