Anasayfa İletişim RSS
 
Şimdi Üye Ol | Şifremi Unuttum
 
Anasayfa » Visual Basic (46 ders)
 
4 Basamaklı Bir Sayının Basamakları Toplamını Bulmak

Yazar: Emre Çelebi  
Eklenme: 30.07.2008   Okunma: 833    Puan: 3   Seviyesi:  Orta
Bu dersimizde 4 basamaklı bir sayının her basamağındaki sayıların toplamını bulan program yazacağız.

Kullanıcağımız nesneler:

1 textbox: 4 basamaklı sayımızı girmemiz için
1 tane label: Sonucu görüntülemek için
1 tane button: İşlemi yaptırmamız için

Kodlarımızı button1_click olayına yazıyoruz.


a = TextBox1.Text Mod 10
b = TextBox1.Text \ 1000
c = (TextBox1.Text \ 100) Mod 10
d = (TextBox1.Text Mod 100) \ 10
label1.Text = a + b + c + d
 
  • Currently 3.00/5
Değelendirmek için üye girişi yapmanız gerekmektedir
EkleBunu Sosyal Paylam Butonu
4 Basamaklı Bir Sayının Basamakları Toplamını Bulmak Dersini Yazdırın

"4 Basamaklı Bir Sayının Basamakları Toplamını Bulmak" dersi için 6 yorum var

25.08.2008 ESRA ÇARK diyor ki:
ÇOK FAYDALI

25.08.2008 ESRA ÇARK diyor ki:
BEN DE VERİ TABANI PROGRAMCILIĞI OKUYORUM ÇOK KEYİFLİ

13.10.2008 tunishop diyor ki:
sağol kardeş ;)

17.10.2008 onurdolanbay diyor ki:
ben yazdım hata verdi .sonra textbox ın name bölümü textbox1 değil text1 yazıyormuş neden böyle fark ediyor onu söyler misiniz

17.10.2008 ShiLLy-cx diyor ki:
text1 visual basic 6.0 kodlarındaki nesnede bulunuyor. Textbox1 ise visual basic.net için kullanılan nesne sen kodları 6.0 da kullandıysan sorunla karşılaşmış olabilirsindoğrudur.

03.11.2008 onurdolanbay diyor ki:
ben senin kodların üzerine biraz daha ekleme yaptım.sahneye 1 text bir de buton ciz kod bölümüne sadece bukodları n yazın artık 4 basamak değil istediğiniz kadar basamaklı sayı girin hapsini basamagını topluyor yanlız bu kodlar visual basic 6.0 a göre :

Private Sub Command1_Click()
a = Len(Text1.Text)
For i = 1 To a
z = (Text1.Text \ (10 ^ (i - 1))) Mod 10
toplam = toplam + z
Next
MsgBox toplam
End Sub

Üye olmadan yorum ekleyemezsiniz !


UYARI: SANALKURS'ta yer alan materyaller ile ilgili her türlü sorumluluk hazırlayan veya gönderene aittir. SANALKURS'ta yer alan hiçbir makale, yazarından izinsiz başka bir yerde yayınlanamaz. SANALKURS kullanıcıları ve üyeleri, üçüncü kişilerin telif hakkı sahibi bulunduğu her türlü fikri eser, fotoğraf, resim vb. materyal ve ürünleri kullanamazlar. SANALKURS kullanıcı ve yazarlarının, üçüncü kişilerin telif hakkı sahibi olduğu yazı, resim vb. ürünleri kullanması durumunda, her türlü hukuki ve cezai sorumluluk kendilerine aittir. Söz konusu haksız kullanım nedeniyle SANALKURS .NET'in hiçbir hukuki sorumluluğu bulunmamakta olup, haksız kullanım nedeniyle SANALKURS.NET'in üçüncü kişilere ödemek zorunda kalabileceği her türlü tazminat ve/veya adli/idari para cezaları ilgili Sanalkurs kullanıcılarından rücu edilecektir.
 İSTATİSTİKLER
XML Kaynağımızdan yararlanarak sitemizdeki derslerimizi masaüstünüzden yada web sitenizden takip edebilirsiniz
ÇEVRİMİÇİ 202 Ziyaretçi, 35 Üye (1 Gizli)
Bym.ulku, R@pMania, incilay_8797, bethashil, odora, Necati Özden, serdar_twister07, sarcoglu, drzynp, hicrancinar, june, birsen.o, nagihanb, ardasefa, b3kirist, acemigrafikerim, grafikchim, ramazanqumus, levent0685, yıldızlar, muammert, fatih, mk1971, ayyse, dilek19, gizemly26, ozlu, free106, sistematik, srdrdnmz, cancana33, Herşeyi Bilen Adam, nevsun, MetalisT
Reklamlar: Lida Dantel Sohbet Facebook Dizi İzle Sahibinden Evden eve nakliyat Evden eve nakliyat Prefabrik Mimar
RSS Kaynağımızdan yararlanarak sitemizdeki derslerimizi masaüstünüzden yada web sitenizden takip edebilirsiniz