20 January 2009, 15:53 | Mesaj No:1 |
Durumu:
Papatyam No :
1397
Üyelik T.:
20 January 2009
Arkadaşları:0
Cinsiyet:
Memleket:istanbul
Yaş:35
|
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ı", vbOKOnly, ("Hata" 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" And Asc("9" < 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" And Asc("9" < 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 ???
|
25 February 2009, 15:22 | Mesaj No:2 |
Durumu:
Papatyam No :
1413
Üyelik T.:
25 February 2009
Arkadaşları:0
Cinsiyet:
|
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..." |
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 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |