• Konu İçeriğini Görebilmek İçin Lütfen Üye Olun. Aksi Takdirde İçeriği Göremezsiniz.

Code Visual Basic sayı programı

[ZF] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde Visual Basic kategorisinde sessizadam tarafından oluşturulan Visual Basic sayı programı başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 223 kez görüntülenmiş, 0 yorum ve 0 tepki puanı almıştır...
Kategori Adı Visual Basic
Konu Başlığı Visual Basic sayı programı
Konbuyu başlatan sessizadam
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan sessizadam

sessizadam

Üye
Katılım
21 Ocak 2023
Mesajlar
327
Tepkime puanı
27
Puanları
28

İtibar:

Algoritma ve programlama eğitiminde Visual Basic ilk öğrenilen programlama dillerinden bir tanesidir. Ofis programlarında macro oluştururken, küçük işletmeler için form uygulamaları yazarken sıklıkla tercih ederiz. Basit kod en büyük ve en küçük sayıyı bulan kısa bir kod ile program.


Kod:
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Val(TextBox1.Text) > Val(TextBox2.Text) And Val(TextBox1.Text) > Val(TextBox3.Text) Then
            TextBox4.Text = TextBox1.Text
        End If
        If Val(TextBox2.Text) > Val(TextBox1.Text) And Val(TextBox2.Text) > Val(TextBox3.Text) Then
            TextBox4.Text = TextBox2.Text
        End If
        If Val(TextBox3.Text) > Val(TextBox1.Text) And Val(TextBox3.Text) > Val(TextBox2.Text) Then
            TextBox4.Text = TextBox3.Text
        End If
        If Val(TextBox1.Text) < Val(TextBox2.Text) And Val(TextBox1.Text) < Val(TextBox3.Text) Then
            TextBox5.Text = TextBox1.Text
        End If
        If Val(TextBox2.Text) < Val(TextBox1.Text) And Val(TextBox2.Text) < Val(TextBox3.Text) Then
            TextBox5.Text = TextBox2.Text
        End If
        If Val(TextBox3.Text) < Val(TextBox1.Text) And Val(TextBox3.Text) < Val(TextBox2.Text) Then
            TextBox5.Text = TextBox3.Text
        End If
    End Sub
End Class
 
Üst Alt