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 >

İ

irfanmatak

20 yıl

Binbaşı

quote:

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

Hocam Basic 'te zorlanacak bi durum yok ! En basit dil. Kod için saol bu arada ne işe yaradığını çözemedim ama

Bu mesaja 4 cevap geldi.

M

mandelbrot

20 yıl

Teğmen

Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.

Hem Basic basit de kime göre neye göre?

Bu mesaja 3 cevap geldi.

P

Palin Majere

20 yıl

Er

aynen bencede ayrica işin mantiği aynıdır genelde anlad-ıyssan hepsi kolay

İ

irfanmatak

20 yıl

Binbaşı

quote:

Orjinalden alıntı: mandelbrot

Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.

Hem Basic basit de kime göre neye göre?

Bana göre basit, bir şeyi bildiğin zaman bilmeyenin gözüyle bakmak zordur bende az bilen bir insan olarak böyle yorumladım.

Bu mesaja 1 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

Arkadaşlar yukarıda zaten belirttim
mühendislik okuyan arkadaşlar bilir vb dersinin zorluğunu
bana normalde cok basit geliyordu ama sınavlara girdiğim zaman neyin ne olduğunu anlıyordum.
o yüzden zorluğunu belirttim. Yoksa herkes bilir basic ne var ki "dim t as integer" der gecersin.

bu arada kodlara devam edeceğim
elinde örnek kodlar olan arkadaşlar varsa yazabilirler

Bu mesaja 1 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

Uzun bir aradan sonra tekrar yeni kod yazalım. Bu sefer konu binom hesaplama n, x ve p değerlerini atadığımızda hesapla butonuyla p(x) değerini buluyoruz. İşte kodlar:

Public Function fak(a)
Dim i, r
r = 1
For i = 1 To a
r = r * i
Next i
fak = r
End Function
Public Function Binom()
n = Val(Text1.Text)
x = Val(Text2.Text)
Binom = fak(n) / (fak(x) * fak(n - x))
End Function
Public Function b()
x = Val(Text2.Text)
p = Val(Text3.Text)
b = (1 - p) ^ (n - x)
End Function
Public Function e()
x = Val(Text2.Text)
p = Val(Text3.Text)
e = p ^ x
End Function
Private Sub Command1_Click()
Dim sonuc
sonuc = Binom * b * e
Text4.Text = Str(sonuc)

End Sub

Bu mesaja 1 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

Okek hesaplama iki sayının okekini bulmaya yarıyan vb kodları:

Buradaki önemli nokta obeb isminde bir alt fonksiyonu görebilmektir...

Option Explicit
Private Sub Command1_Click()
Dim a, b, k As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
k = (a * b) / obeb(a, b)
Text3.Text = Str(k)
End Sub
Function obeb(ByVal a As Integer, ByVal b As Integer)
Dim w
While b <> 0
w = a
a = b
b = w Mod a
Wend
obeb = a
End Function

Bu mesaja 1 cevap geldi.

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

Sesli Harf sayısını sayan program:
Bu program için iki text kutusu ve bir command tusu yeterlidir buna göre ilk text kutusu icine yazılan yazı içindeki sesli harf sayısı ikinci text boxda sayı olarak cıkacaktır...

Option Explicit
Private Sub Command1_Click()
Text2.Text = Seslisay(Text1.Text)
End Sub
Function Seslisay(Metin As String) As Integer
Dim sayac, i As Integer
Const Harfler = "aeıioöuü"
For i = 1 To Len(Metin)
If InStr(Harfler, LCase(Mid(Metin, i, 1))) <> 0 Then
sayac = sayac + 1
End If
Next i
Seslisay = sayac
End Function

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

sewim

20 yıl

Teğmen

örnekler güzel olmuş ellerine sağlık
bunları saymayız devamını da bekleriz

Bu mesaja 1 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

quote:

Orijinalinden alıntı: sewim

örnekler güzel olmuş ellerine sağlık
bunları saymayız devamını da bekleriz

İnsan kendi kendine konusuyormus gibi hissediyordu yazın için sağol

Bu mesaja 1 cevap geldi.

S

sewim

20 yıl

Teğmen

bizim de v.basic dersimiz var ve normaldekiyle sınavdaki gerçekten farklı oluyo
daha zor

birşey sorucam ben daha birkaç form la program yapmadım sadece next butonuyla yapılabiliniyo mu?yöntemi nedir?

< Bu mesaj bu kişi tarafından değiştirildi sewim -- 10 Ağustos 2005, 20:35:58 >
Bu mesaja 1 cevap geldi.

S

sewim

20 yıl

Teğmen

yani mesela bir formda kullanıcı bilgilerini sorucam next e tıkladığında ikinci form açılıcak orada hesap yapıcak sonra diğer form ve ... işte böyle nasıl yapabilirim?

Bu mesaja 1 cevap geldi.

S

serseri

20 yıl

Yarbay

Konu Sahibi

Hmm sahi bu sorunun cevabını bulabildin mi? Bişeyler söylemiştim ama...

Bu arada topici hortlatmakta fayda var malum üniversiteler acıldı ve vb dersleri basladı umarım örnekler bir işe yarar....

Bu mesaja 1 cevap geldi.

F

Floyt

20 yıl

Onbaşı

saol serseri işime yaradı bende daha yeni baslıyorum lise 3 programlamada vB gösteriyolar baslangıc için iyi oldu

Bu mesaja 1 cevap geldi.

S

sewim

20 yıl

Teğmen

bize 2. sınıfta gösterdiler :)

Bu mesaja 1 cevap geldi.