Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

Visual Basic Örnekler

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
191
Cevap
4
Favori
94.767
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 12345
Sayfaya Git
Git
sonraki
Giriş
Mesaj
  • 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



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







  • 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
  • Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış.

    Hem Basic basit de kime göre neye göre?
  • aynen bencede ayrica işin mantiği aynıdır genelde anlad-ıyssan hepsi kolay
  • 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.
  • 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
  • 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
    • Yapay Zeka’dan İlgili Konular
    Visual Basic Hesaplama Sorunsalı
    8 yıl önce açıldı
    Visual basic satır atlama
    6 yıl önce açıldı
    Visual Basic te Keylogger nasıl yazılır?
    19 yıl önce açıldı
    Daha Fazla Göster
  • 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
  • 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:

    Visual Basic Örnekler

    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 seferki programımız baslangıca hitap edecek sekilde :
    basit bir hesap makinesi

    Programın ekran görüntüsü resimdeki gibidir;
    Visual Basic Örnekler

    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




  • Alan hesaplama:

    Visual Basic Örnekler


    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




  • 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
  • Koordinat sisteminde verilen iki nokta arasındaki mesafeyi hesaplama:

    Visual Basic Örnekler




    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




  • örnekler güzel olmuş ellerine sağlık
    bunları saymayız devamını da bekleriz
  • 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
  • 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 >
  • 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?
  • 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....
  • saol serseri işime yaradı bende daha yeni baslıyorum lise 3 programlamada vB gösteriyolar baslangıc için iyi oldu
  • bize 2. sınıfta gösterdiler :)
    • 
Sayfa: 12345
Sayfaya Git
Git
sonraki

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum