Visual Basic Örnekler

20 yıl

Yarbay

Konu Sahibi

Başlangıç olarak şu yazıyı eklemekte fayda var:

VISUAL BASIC Nedir?

Microsoft vb microsoftun gelistirdiği bir yazılım derleyicisidir.Programlamayla biraz olsun ilgilenenlerin hemen hemen hepsi Qbasic hakkinda birşeyler öğrenmiştir.İşte sizin de gözlemleyebileceğiniz gibi,dil gene aynı dil sadece bir iki ekleme var(tabi ole,ado,activex,dll ve daha sayamıyacağim kadar ileri uygulamalar icin kullandiğimiz komutlari saymazsak)ama programın derlendigi alan tamamen görsel,herşeyi mousenizle yapiyorsunuz.Yani programınıza 1 buton koymak,buton simgesi işaretliyken mousenizle çizmeniz kadar kolaydır.Kısaca özetlersek Visual Basic adından da anlaşılacağı gibi Qbasici temel almış ancak ondan çok daha gelişmiş(benzer) dile sahip ileri uygulamalı bir dildir.

Neden Visual Basic
Yukarıda vb'nin ne olduğunu tanımınladıktan sonra bu yazıda neden vb'yi tercih edelim sorusuna yanıt arıyacağız.Vb bir Microsoft ürünüdür.Bu yüzden burada yazacağınız programların databaseleri windowsla tamamen uyumlu olacaktir çünkü aynı firma tarafından destekleniyor,bunun gibi birçok Microsoft ürününü vb ile etkinleştirme imkanımız var örnegin accessde yaptiğiniz basit öğrenci kayıt programını VB'den açıp onu VB'de daha görsel daha gelişmiş hale getirebilirsiniz.Atlanmaması gereken bir ayrıntı da şu: Vb'de program derlemek birçok dile göre daha kolaydır.Çünkü VB'de görsellik ön plandadır ve dil olarak da kolaydır,demek istediğim; komut ezberlemek için çok uğraşmıyorsunuz,biraz ingilizce biliyorsanız işiniz çok kolay; komutlar genelde ingilizce ya da ingilizce kısaltmaları.Şu var ki bazıları bunu abartır ve der ki: "Bilgisayarı yeni açanlar bile vb'de program yazabilir,vb çocuk işidir.." Evet vb'nin kolay olduğunu ben de söylüyorum ama programlama mantığı hep aynıdır,ekran başında kafa çatlatırsınız.Ben de herzaman diyorum, gene en kolayı VB dir ama iş çok sonraki derslerimde anlatacağım dll,actixex.. gibi uygulamalara geldiğinde herkes biraz zorlanır.Dünya üzerinde 3,5 milyonun üzerinde insan VB kullanmakta,ayrica birçok yazılım şirketi de vb bilen yazılımcılar aramakta.Özetliyecek olursak programlamaya yeni başlamışsanız ve gelişmek istiyorsanız şiddetle VB tavsiye ederim,VB yi iyice kaptiktan sonra size delphi veya Microsoft c++ tavsiye ederim...

Alıntıdır, kaynak :http://www.mutasyon.net/dersoku.asp?id=83

Elimde olan bazı örneklerin kodlarını buraya aktarmaya calısacağım
Malum mühendislik okuyan arkadaşlar basic konusunda zorlanıyor (kendimde dahil)

Kabarcık Sıaralama Yöntemi
Bir listede rassal olarak atanmıs sayıların diğer listeye sıralı halde gecmesine yarayan program kodları

Option Explicit

Private Sub Command1_Click()
Const max = 200
Dim x(1 To max) As Integer
Dim k, n As Integer
n = 500
n = Text1.Text
For k = 1 To max
x(k) = 1 + Int(n * Rnd())
Next k
List1.Clear
For k = 1 To max
List1.AddItem x(k)
Next k
sırala x(), max
List2.Clear
For k = 1 To max
List2.AddItem x(k)
Next k
End Sub
Sub sırala(a() As Integer, ByVal n As Integer)
Dim j, gecici As Integer
Dim değişmedi As Boolean
değişmedi = False
Do Until değişmedi
değişmedi = True
For j = 1 To n - 1
If a(j) > a(j + 1) Then
gecici = a(j + 1)
a(j + 1) = a(j)
a(j) = gecici
değişmedi = False
End If
Next j
n = n - 1
Loop

End Sub

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< Bu mesaj bu kişi tarafından değiştirildi serseri -- 31 Ocak 2006 1:56:57 >

S

serseri

20 yıl

Yarbay

Konu Sahibi

Sıcaklık Dönüştürme : Adı üzerinde C ve F sıcaklık değerleri arasında geçişi yapabiliroyruz. Buradaki amç ise resimde görülen scrollbar butonunu kullanabilmektir:

< Resime gitmek için tıklayın >

işte kodlar:

Private Sub VScrollBar_Change()
Function CdenFye(isiC As Integer) As Integer
CdenFye = CInt(isiC * 9 / 5 + 32)
End Function
Sub Gosterge()
Dim Sıcaklık As Integer
Sıcaklık = CInt(vscTermo.Value)
Text2.Text = Str(Sıcaklık)
Text1.Text = Str(CdenFye(Sıcaklık))
End Sub

Private Sub VStermo_Change()
Gosterge
End Sub
Private Sub vscTermo_Scroll()
Gosterge
End Sub

Bu mesaja 1 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

Bu seferki programımız baslangıca hitap edecek sekilde :
basit bir hesap makinesi

Programın ekran görüntüsü resimdeki gibidir;
< Resime gitmek için tıklayın >

Programın kod kısmı işe su sekilde:

Private Sub Command1_Click()
Dim sayı1, sayı2, sonuç As Double
sayı1 = Val(Text1.Text)
sayı2 = Val(Text2.Text)
If Option1 = True Then sonuç = sayı1 + sayı2
If Option2 = True Then sonuç = sayı1 - sayı2
If Option3 = True Then sonuç = sayı1 * sayı2
If Option4 = True Then sonuç = sayı1 / sayı2
Text3.Text = Str(sonuç)
End Sub

Bu mesaja 2 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

Alan hesaplama:

< Resime gitmek için tıklayın >

kodlar:
Private Sub Command1_Click()
Dim a, b, c As Double
If Option1.Value = True Then
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text3.Text = b
End If
If Option2.Value = True Then
a = Val(Text1.Text)
b = a ^ 2
Text3.Text = b
End If
If Option3.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
Text3.Text = c
End If
If Option4.Value = True Then
a = Val(Text1.Text)
b = Val(Text2.Text)
c = (a * b) / 2
Text3.Text = c
End If
End Sub
Private Sub option1_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "yarıçap(r)"
Label3.Caption = "Alan"
End Sub
Private Sub option2_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = False
Text2.Visible = False
Label1.Caption = "Kenar(a)"
Label3.Caption = "Alan"
End Sub
Private Sub option3_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Kenar(a)"
Label2.Caption = "Kenar(b)"
Label3.Caption = "Alan"
End Sub
Private Sub option4_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label2.Visible = True
Text2.Visible = True
Label1.Caption = "Taban(a)"
Label2.Caption = "Yükseklik(h)"
Label3.Caption = "Alan"
End Sub

Bu mesaja 1 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

Koordinat sisteminde verilen iki nokta arasındaki mesafeyi hesaplama:

< Resime gitmek için tıklayın >

Option Explicit
Private Sub Command1_Click()
Dim BirX, BirY, İkiX, İkiY As Integer
BirX = Val(Text1.Text)
BirY = Val(Text2.Text)
İkiX = (Text3.Text)
İkiY = Val(Text4.Text)
Text5.Text = Str(Mesafe(BirX, BirY))
Text6.Text = Str(Mesafe(İkiX, İkiY))
Text7.Text = Str(Mesafe(BirX, BirY, İkiX, İkiY))
End Sub
Function Mesafe(ByVal x1, ByVal y1 As Integer, Optional x2, Optional y2 As Integer) As Double
If IsMissing(x2) Then x2 = 0
If IsMissing(y2) Then y2 = 0
Mesafe = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
End Function

Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

< Resime gitmek için tıklayın >

Detaylı isteyen arkadaslar bu linkteki .pdf formatındaki kaynaktan bakabilirler...

http://rapidshare.de/files/12198164/VB_VeriTuru.pdf.html

Kısaca değinmek gerekirse veriler depolara saklanırken mümkün olan en uygun alanlarda depolanırlar. Visual Basic icin veri türlerine bakarsak

Byte : 0-255 arasındaki değerler için kullanılabilir. Örneğin sınıf lisesi yapılacaksa bu tür işe yarayabilir.

Integer : -32768 ile 32767 sayı değerleri arasındadır (genelde en sık kullanılan veri türlerdinde birisidir)

Long : -2 147 483 648 ile 2 147 483 647 arasında değerler alır.

Yukarıda kullanılan bu 3 veri türü tamsayı niteliği taşır, değişkenlere bir gerçel sayı atanmak istenirse en yakın atanacak değer en yakın tam sayıya çevrilerek atanacaktır. Şunu eklemekte fayda var Byte kullanılan veriler Long yazılarakta ifade edilir.
Diyelim

Dim sıra_no as Byte

ya da

Dim sıra_no as Long

ikisi arasında fark yoktur (sıra numaralarının 256dan büyük olmayacagını düsünürsek) Tek ayrım bilgisayar hesaplamalarda bu işleme daha çok alan ayırmakta böylece işlme süresi uzamaktadır.

Devam edelim;

Single : a üssü b şekli gösterime izin verir a ve b yi integer veri türünde düşünürsek. 3.14 pi sayısını göstermek istersek 312*10 üzeri -2 şeklinde ifade edebiliriz. 2 integer ifadesi yer alacagından bellekte 8 byte yer kaplar.

Double : single ifade eden a ve b değerlerinin long veri türünde olması durumundaki haldir. Çok büyük sayılar bu yolla yazılabilir (örneğin maliye hesaplarındaki parsal değerler)

Boolean : yalnızca 0 ya da 1 değerini alır bir nevi matematikteki mantık dersinde görülen doğru yanlış ifadesidir. 0 değeri False (yanlış), 1 değeri true (doğru) şeklinde atanır. (örneğin sayı 2ye bölünüyorsa doğru deyip sayıya çift sayı dedirtebiliriz)

String : Karakterleri tanımlamada kullanırız. Burada karakter kelimesinden kasıt sayısal ifadesizliktir. örneğin bir yer için parola tanımlayaılım bu paralada A30G23T79 şeklinde olsun. Bu parolada rakamlar olmasına rağmen bir sayısal değer ifade etmemektedir bu yüzden

Dim parola as string şeklinde ifade edilir.

Kısaca veri türleri bunlardır.

< Bu mesaj bu kişi tarafından değiştirildi serseri -- 31 Ocak 2006 1:17:20 >
Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

Daha önce açılmış bu linklerden bakabilirsin

http://forum.donanimhaber.com/m_2097337/mpage_1/key_setup%252Cnas%25FDl//tm.htm#2097337

http://forum.donanimhaber.com/m_2561038/mpage_1/key_visual%252Cbasic%252Csetup//tm.htm#2561038

http://forum.donanimhaber.com/m_4811602/mpage_1/key_visual%252Cbasic%252Csetup//tm.htm#4811602

Kolay gelsin

Bu mesaja 2 cevap geldi.

C

cag3003

19 yıl

Teğmen

quote:

Orjinalden alıntı: serseri

Daha önce açılmış bu linklerden bakabilirsin

http://forum.donanimhaber.com/m_2097337/mpage_1/key_setup%252Cnas%25FDl//tm.htm#2097337

http://forum.donanimhaber.com/m_2561038/mpage_1/key_visual%252Cbasic%252Csetup//tm.htm#2561038

http://forum.donanimhaber.com/m_4811602/mpage_1/key_visual%252Cbasic%252Csetup//tm.htm#4811602

Kolay gelsin

sağol hocam çok yardımı oldu

Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

< Resime gitmek için tıklayın >

Private Sub Command1_Click()
Dim z1, z2
z1 = Text1.Text
z2 = Text2.Text
If Option1.Value = True Then Text3.Text = z1 \ z2
If Option2.Value = True Then Text3.Text = z1 Mod z2
If Option3.Value = True Then Text3.Text = z1 ^ z2
If Option4.Value = True Then Text3.Text = z1 & z2

End Sub

Private Sub Command2_Click()
End
End Sub

Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

< Resime gitmek için tıklayın >

Private Sub Command1_Click()
End

End Sub

Private Sub Form_Load()
List1.AddItem "serseri"
List1.AddItem "forum"
List1.AddItem "donanımhaber"
List1.AddItem "kelime"
List1.AddItem "visual"
List1.AddItem "basic"
List1.AddItem "öğreniyorum"
List1.AddItem " "
List1.AddItem "."

End Sub

Private Sub List1_Click()
Label3.Caption = List1.Text
Label4.Caption = Label4.Caption & List1.Text

End Sub

Bu mesaja 2 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

< Resime gitmek için tıklayın >

Private Sub Command1_Click()
If Text1.Text = "serseri" Then
Timer1.Enabled = False
MsgBox "Doğru şifre! Hoşgeldiniz!"
Form1.Hide
Form2.Show
Else
MsgBox "Yanlış Parola, Bir kere daha deneyiniz..."
End If

End Sub

Private Sub Timer1_Timer()
MsgBox "zamanınız doldu!"
End

End Sub

S

serseri

19 yıl

Yarbay

Konu Sahibi

< Resime gitmek için tıklayın >

Option Explicit
Private Sub Command1_Click()
Dim sayı As Double
Dim hane As Integer
sayı = Val(Text1.Text)
hane = Val(Text2.Text)
Text3.Text = yuvarla(sayı, hane)

End Sub
Function yuvarla(ByVal x As Double, n As Integer) As Double
yuvarla = Int((x * 10 ^ n) + 0.5) / 10 ^ n

End Function

S

serseri

19 yıl

Yarbay

Konu Sahibi

Visual Basic Temel Ders Notları : Yeni baslayanalar için güzel bir kaynak 40 sayfa 627 kb rarlı dosya..

http://rapid share.de/files/7349431/VisualBasicTemel.rar.html

Bu mesaja 1 cevap geldi.

S

serseri

19 yıl

Yarbay

Konu Sahibi

quote:

http://rapidshare.de/files/18293319/vbuzman1.rar.html
http://rapidshare.de/files/18294469/vbuzman2.rar.html
http://rapidshare.de/files/18295520/vbuzman3.rar.html

Uzmanlar için hazırlanmıs VB notları. Alıntıdır...

İ

isosi92

18 yıl

Er

BEN DE YENİ BAŞLAYANLARDANIM.BEN VB 2005 KULLANIYORUM.AŞAĞIDAKİ PROGRAMDA TEXT1 TEXT2 VE 3 ,OPTİON1 OPTİON2 3 VE 4 TANIMLI DEĞİL DİOR HATA VERİYOR.NASIL TANIMLAMALIYIM ŞİMDİDEN TEŞEKKÜRLER( ÇOK ŞEY ÖĞRENDİM)

quote:

Orjinalden alıntı: serseri

Bu seferki programımız baslangıca hitap edecek sekilde :
basit bir hesap makinesi

Programın ekran görüntüsü resimdeki gibidir;
< Resime gitmek için tıklayın >

Programın kod kısmı işe su sekilde:

Private Sub Command1_Click()
Dim sayı1, sayı2, sonuç As Double
sayı1 = Val(Text1.Text)
sayı2 = Val(Text2.Text)
If Option1 = True Then sonuç = sayı1 + sayı2
If Option2 = True Then sonuç = sayı1 - sayı2
If Option3 = True Then sonuç = sayı1 * sayı2
If Option4 = True Then sonuç = sayı1 / sayı2
Text3.Text = Str(sonuç)
End Sub

Bu mesaja 1 cevap geldi.

X

XFREESTYLER

18 yıl

Teğmen

Burayahttp://www.mediafire.com/?5b0njz1dnk1 topic topic ayırdığım vb arşivlerim ve bu sene olduğumuz sınavlar var. İsteyen indirsin baksın öğrensin. Ben tamamen örneklerden kopyala yapıştı yaparak öğrendim. Kendinizi geliştirmenizin yolu bol örnektir. Site tavsiyem :http://www.planetsourcecode.com/

Bu mesaja 1 cevap geldi.

S

serseri

18 yıl

Yarbay

Konu Sahibi

@TECH-TR

http://vbnet.mvps.org/index.html?code/subclass/buttoncolour.htm burada yapılan örnekleme işini görebilir...Buradaki renk renk ile gitmiş sen ASCİİ kullanarak butonların üzerine harf atayabilirsin...

D

discretion

17 yıl

Çavuş

Örnegin aslı yine bu bolumde 1. sayfada yer alıyor.

http://forum.donanimhaber.com/m_2734140/mpage_1/key_/tm.htm

Ama sorun ornekten mi yoksa bu D:\belgelerim\Visual Studio 2005 dosyasını C:\Program Files'ın altına mı yerlestirmeliyim? Bu da sorun olusturur mu? Nasıl olması gerekli?

Sadece denemek icin asagıdaki ornegi yazdım ama soyle bir sey bile yazsam hata veriyor:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text=TextBox1.Text
End Sub

tesekkurler...

Bu mesaja 1 cevap geldi.

N

neco1989

17 yıl

Er

VB.nette . tamamen kendim geliştrdiğim basit not(sınav)tutma programı
setup haline getirdim deneyebilirsiniz.
bu linkten indirebilirsiniz
http://r a p i d s h a re.com/files/176106734/NOT.rar.html
resim ;
http://img176.imageshack.us/my.php?image=clipimage002ql4.jpg

< Bu mesaj bu kişi tarafından değiştirildi neco1989 -- 23 Aralık 2008; 17:39:19 >
Bu mesaja 2 cevap geldi.

S

swat474

13 yıl

Er

http://visualbasic25.blogspot.com/

bu ADRESTEN BANA ULAŞIP BİLGİ ALABİLİRSİNİZ