Visual Basic Başlamadan Önce Bilinmesi Gerekenler 1

MuhammedTr768

Kıdemli Üye
7 Kas 2021
2,932
1,815
31
MyKrallife
Herkese merhabalar bugün sizlere Visual Basic Başlamadan önce bilinmesi gerekenleri anlatacağım

1- Mesaj Kutusu​
C++:
Private Sub Button1_Clicked() Handles Button1.Click
    ' Button1 tuşuna tıklayınca Button 1'un Click Event kısmı Tetiklenir ve Bu Event'a Bağlı Prosedürler Çalışır.
    MsgBox("Merhaba, Dünya!")
 End Sub

2- Hesap Makinesi​
C++:
 Private Sub Button1_Click()
    ' Button1 tuşuna tıklayınca Text1 ve Text2'deki sayıları toplar, sonucu Text3'te gösterir
    TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
 End Sub
İki sayıya işlem yaptırma kodu bu kadar basittir, istediğiniz işlemi yaptırmak için kod içinde geçen artı işareti yerine eksi, çarpma, bölme, tam sayı bölme, bölümün kalanını gösterme gibi işaretleri ya da kısaltmaları yazabiliyoruz.

3- Diğer
Bu kod kullanıldığı Form Load'a yazıldığı zaman, Checkbox'umuz işaretli iken Textbox yazılabilir olacaktır. İşaretli değilse Textbox kapalı kalacaktır.
C++:
Private Sub FormLoad()
    If checkbox1.Checked = False Then 'CheckBox işaretli değil
        textbox1.Enabled = True 'CheckBox işaretli değilken TextBox'umuz yazı yazılabilir. Yani enabled olacak.
    Else
        textbox1.Enabled = False
    End If
 End Sub

Bu kod ise Button1e yazıldığında Label1'deki text sayı ise 1 artar. Yoksa Less Than Infinity hatası verir.
C++:
Private Sub Button1_Clicked() Handles Button1.Click
    Label1.Text = (Label1.Text) + 1
    'Alttaki kodsa daha karışık. Label2'yi x kabul edersek , Label1'e x'in bir fazlasını ekleyecek.
    Label1.Text = (Label1.Text) + (Label2.Text + 1)
    'Alttaki kod öncekilerden daha karışık. Label3'ü y kabul edersek, x ile y'nin 1'er fazlasını toplayıp label1'e ekleyecek.
    Label1.Text = (Label1.Text) + ((Label2.Text + 1) + (Label3.Text + 1))
    'En karışık olarak alttakini örnek verebiliriz. Label4'ü z kabul edersek , x + 1 ile y+1'i çarpacak ve bunun sonucu ile
    'z'yi çarparak Label1'e ekleyecek.
    Label1.Text = (Label1.Text) + (((Label2.Text + 1) * (Label3.Text + 1)) * Label4.Text)
    'Alttaki komut button'a yazıldığında Label1'deki değer Textbox 1'e eşitlenecek (Less Than hatası yok.)
    Label1.Text = TextBox1.Text
 End Sub

Beni dinlediğiniz için teşekkür ederim iyi forumlar​
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.