Visual Basic Programlama Dili - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > vısual basic

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 20 January 2009, 15:53   Mesaj No:1

CoNQueRoR_61

Papatyam Usta Üyesi
Avatar Otomotik
Durumu:CoNQueRoR_61 isimli Üye şimdilik offline konumundadır
Papatyam No : 1397
Üyelik T.: 20 January 2009
Arkadaşları:0
Cinsiyet:
Memleket:istanbul
Yaş:35
Mesaj: 131
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Visual Basic Programlama Dili

Visual Basic Programlama Dili

Visual Basic Programlama Dili

Visual Basic, Microsoft tarafından, Basic programlama dili üzerinde geliştirilmiş, olay yönlendirmeli, üst seviye, nesne tabanlı ve görsel bir programlama dilidir.

ÖzellikleriAO, RDO ve ADO yöntemleri ile SQL, MySQL, Microsoft Access, Paradox ve Oracle gibi çeşitli veri tabanlarına bağlanabilir.
Active-X denetimleri ve nesneleri yaratalabilir.
Ascii ve İkili dosya biçemleriyle çalışabilir.
Nesne tabanlı bir dildir.
Windows API çağrısı ve benzeri harici işlev çağrıları yapabilir.

Visual Basic Programlama Diline Örnek :
Private Sub Form_Load() 'formumuz yüklenirken ->
'yani form ilk açıldığındaoluşturmak istediklerimiz
'Mesela formun başlığı, butonların içnde yazacaklar. vs
Form1.Caption = "ilk hesap makinesi" 'formun başlığı
Text1.Text = "" 'form açıldığında text1'in içi boş olsun
Text2.Text = "" 'form açıldığında text2nin içi boş olsun
Label1.Caption = "" 'form açıldığında label1in içi boş olsun
Label2.Caption = "" 'form açıldığında label2nin içi boş olsun
Command1.Caption = "Topla" 'bunları yazmama gerek yok
Command2.Caption = "Çıkart"
Command3.Caption = "Çarp"
Command4.Caption = "Böl"
Command5.Caption = "Temizle"
End Sub

Command1 butonumuz toplama işlemini yapıyor, bunu koda dökmek çok kolay devam edelim

Private Sub command1_click() 'toplama işlemi
Label1.Caption = "+" 'buttona bastığımız zaman iki ->
'textbox arasında "+" işareti olacak
Label2.Caption = Val(Text1.Text) + Val(Text2.Text)
'text1'in içinde yazan değeri tex2 ninkiyle topla
End Sub

Gördüğünüz gibi text1in değeri ile tex2nin değerini topla diyoruz.
Diğer işlemler için hemen hemen aynı şeyler geçerli... Çıkarma işlemine geçelim.

Private Sub command2_click() 'çıkarma işlemi
Label1.Caption = "-" 'butona bastığın zaman
'iki textbox arasında işlemin çıkarma olduğunu gösteren "-" işareti olur
Label2.Caption = Val(Text1.Text) - Val(Text2.Text)
'text1den text2'yi çıkart sıra önemli
End Sub

text1den text2yi çıkardık. Yani text1de "10" , text2de de "8" yazıyosa 10'dan 8'i çıkart, label2'ye sonucu yaz

Private Sub command3_click() 'çarpma işlemi
Label1.Caption = "x" 'artık ne yaptığımızı anladınız
Label2.Caption = Val(Text1.Text) * Val(Text2.Text)
'ikisini de çarptık
End Sub

Private Sub command4_click() 'bölme işlemi biraz zor
Label1.Caption = "÷" 'bu bölü işaretini kendin bul
'şimdi zor olan kısıma geldik
'program eğer text1 yada text2 sıfırsa ya da bir şey yamıyorsa hata verecektir
'aşağıda bunu önleyeceğiz
If Text1.Text = "" Or Text1.Text = "0" Or Text2.Text = "" Or Text2.Text = "0" Then
MsgBox ("Mantık hatası&quot, vbOKOnly, ("Hata&quot
Exit Sub
End If
'eğer text1 boşsa yada sıfırsa text2 sıfırsa yada boşsa
'mesajbox'a atla
'"exit sub" yazdık, bunu yazmazsanız program gene hata verecektir.
'yani sub'ı bitirme sadece subdan çık
Label2.Caption = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub command5_click() 'yazıları temizler
Text1.Text = "" 'text1'in içine bişey yazma
Text2.Text = "" 'text2 için
Label1.Caption = "" 'label1 için
Label2.Caption = "" 'label2 için
End Sub

'hesap makinesinde harflerin ne işi var?Şimdi yazacağım kodlarla text1 ve text2'nin içeriğine harf yazamayacağız sadece sayı yazacağız.

Private Sub Text1_KeyPress(KeyAscii As Integer)
'text1in içine harf yazmamızı engeller
If KeyAscii > Asc("0&quot And Asc("9&quot < KeyAscii Then
KeyAscii = 0 'harf ise iptal et
Else
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
'text2nin içine harf yazmamızı engeller
If KeyAscii > Asc("0&quot And Asc("9&quot < KeyAscii Then
KeyAscii = 0 'harf ise iptal et
Else
End If
End Sub

***Bu program ile basit bir hesap makinesi hazırlanır***
__________________
Biz Bu Hallere Düşecek Adammıydık ???
Alıntı ile Cevapla
Alt 25 February 2009, 15:22   Mesaj No:2

merwe

Papatyam Üyesi
Avatar Otomotik
Durumu:merwe isimli Üye şimdilik offline konumundadır
Papatyam No : 1413
Üyelik T.: 25 February 2009
Arkadaşları:0
Cinsiyet:
Mesaj: 12
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Standart Ynt: Visual Basic Programlama Dili

ne kadar güsel bilgilerr
__________________
Biliyorum, imkânsız aşk bu! Ama hükmedemiyorum kendime...
"Çünkü, Yüreğim Seni Çok Sevdi!..
"Yüreğim seni çok sevdi
o yürek talan
o yürek yangın yeri
o yürek seni istiyor
bir tek seni..."
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Visual Basic 6.0 Full Download agasarlinuris vısual basic 2 27 February 2009 19:46
Pascal Programlama Dili CoNQueRoR_61 Pascal 0 20 January 2009 15:53
Baharın Dili PESTEMAL Deneme & Düz Yazılar 0 21 August 2008 20:05
Visual Basic Örnek Kodlar (1) Mekansiz Programlar ve Anlatımlar 0 29 March 2006 11:40
Aşkın Dili... Papatyam Şiir Bahçesi 2 10 March 2006 12:44

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.