Visual Basic Örnekler | DonanımHaber Forum

Trang chủ » Visual Basic örnek Programlar » Visual Basic Örnekler | DonanımHaber Forum

Có thể bạn quan tâm

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 Moldex Pura Fit 7700 kulak tıkacı, 20 çift https://www.amazon.com.tr/dp/B00624UN0K 10 sa. önce paylaşıldı tomtoc RFID Engelleme ile Pasaport Tutucu Ailesi, Pasaport Cüzdanı Kadın Erkek, Airtag ve Sim Kart Tutucu ve Çıkarma Pimi ile, Bilek Kayışı ile Seyahat Belgesi Düzenleyici, 4 Pasaport, Suya Dayanıklı, https://www.amazon.com.tr/dp/B0BWQ1133S 11 sa. önce paylaşıldı Ultenic U10 Pro Kablosuz Dikey Süpürge, 30000Pa, Beyaz https://www.amazon.com.tr/dp/B0B829K872 2 yıl önce paylaşıldı Us.Sleeping Ultra Ortopedik Süper Bamboo Yaylı Yatak Tüm Ölçüler 90 x 190 Fiyatları ve Özellikleri https://www.n11.com/urun/ussleeping-ultra-ortopedik-super-bamboo-yayli-yatak-tum-olculer-18185410 12 sa. önce paylaşıldı Helbi Bol Tahinli Helvalı Bisküvi 35 G - Migros https://www.migros.com.tr/helbi-bol-tahinli-helvali-biskuvi-35-g-p-6b007b 10 sa. önce paylaşıldı Moldex Pura Fit 7700 kulak tıkacı, 20 çift https://www.amazon.com.tr/dp/B00624UN0K?ref=cm_sw_r_cso_cp_apin_dp_SKJ8STMD4D2DV65B0F5D&ref_=cm_sw_r_cso_cp_apin_dp_SKJ8STMD4D2DV65B0F5D&social_share=cm_sw_r_cso_cp_apin_dp_SKJ8STMD4D2DV65B0F5D 13 sa. önce paylaşıldı Keramika Mini Gondol Çerezlik-Sosluk, Mor, 8 Cm, 6 Adet https://www.amazon.com.tr/gp/product/B07HZFS2HP 7 sa. önce paylaşıldı Daha fazla göster butonu Daha fazla göster butonu {{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}} Daha Fazla Bu Konudaki Kullanıcılar: Daha Az 2 Misafir - 2 Masaüstü 5 sn 191Cevap 4Favori 95.290Tıklama Daha Fazlaİstatistik
  • Konu İstatistikleri Yükleniyor
Konudaki Resimler Mesaj Tarihine Göre En Beğenilen Son Ekleneneler Seçimimi Hatırla Mesaj Tarihine Göre Konuya Özel
  • Favorilerime Ekle
  • Konuyu Açandan
  • Popüler Mesajlar
  • Linkli Mesajlar
  • Yazdır
  • E-Posta Aboneliği
  • Konuyu Gizle
Öne Çıkar 0 oy x İlgini çekti mi? Öne çıkar, anasayfadadaha üstte görünsün. Daha Fazla Bilgi Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Delphi / C++ /Vb >> Visual Basic Örnekler | DonanımHaber Forum Sayfa: 12345 Sayfaya Git Git sonraki Giriş Mesaj
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 30 Nisan 2005 16:51:01 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    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 >
    _____________________________
  • irfanmatak Binbaşı 1240 Mesaj müdavim "müdavim": En az 1.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 1. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. binbaşı "binbaşı": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 02 Mayıs 2005 04:15:07
    • Mesaj Linkini Kopyala
    • Şikayet
    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
    _____________________________ "Data: Hayat Like Ref Null."
  • mandelbrot Teğmen 129 Mesaj vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. teğmen "teğmen": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 02 Mayıs 2005 04:52:04
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: irfanmatak
    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?
    _____________________________ we're just two lost souls swimming in a fish bowl, year after year, running over the same old ground. what have we found? the same old fears.
  • Palin Majere Er 1 Mesaj er "er": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 02 Mayıs 2005 11:47:36
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: mandelbrotKod sıralama işlemi yapıyor. Zaten yukarda yazılmış. Hem Basic basit de kime göre neye göre?Alıntıları Göster
    aynen bencede ayrica işin mantiği aynıdır genelde anlad-ıyssan hepsi kolay
    _____________________________ PALİN MAJERE
  • irfanmatak Binbaşı 1240 Mesaj müdavim "müdavim": En az 1.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 1. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. binbaşı "binbaşı": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 03 Mayıs 2005 00:18:49
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: mandelbrotKod sıralama işlemi yapıyor. Zaten yukarda yazılmış. Hem Basic basit de kime göre neye göre?Alıntıları Göster
    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.
    _____________________________ "Data: Hayat Like Ref Null."
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 05 Mayıs 2005 15:34:45 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: irfanmatak
    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.Alıntıları Göster
    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
    _____________________________
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 30 Temmuz 2005 12:15:52 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriArkadaş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 yazabilirlerAlıntıları Göster
    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 satır atlama 6 yıl önce açıldı Adobe Creative Cloud TAM Lisans – Photoshop, Premiere, After Effects 2 ay önce açıldı İleri Bilgisayar Grafikleri - Visual Studio FreeGLUT GLEW Kütüphanelerini include etme geçen yıl açıldı Visual Studio Code türkçe karakter problemi 4 yıl önce açıldı Adobe Photoshop Öğrenmek 4 yıl önce açıldı Adobe After Effects sürümü hakkında tavsiye? 6 yıl önce açıldı Daha Fazla Göster
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 30 Temmuz 2005 12:18:48 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriUzun 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 SubAlıntıları 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
    _____________________________
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 30 Temmuz 2005 12:24:00 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriOkek 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 FunctionAlıntıları Göster
    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
    _____________________________
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 31 Temmuz 2005 21:28:31 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriSı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 SubAlıntıları Göster
    Bu seferki programımız baslangıca hitap edecek sekilde : basit bir hesap makinesi Programın ekran görüntüsü resimdeki gibidir; 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
    _____________________________
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 01 Ağustos 2005 17:07:52 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriBu seferki programımız baslangıca hitap edecek sekilde : basit bir hesap makinesi Programın ekran görüntüsü resimdeki gibidir; 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 SubAlıntıları Göster
    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
    _____________________________
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 10 Ağustos 2005 13:44:54 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriAlan 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 SubAlıntıları Göster
    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
    _____________________________
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 10 Ağustos 2005 13:47:52 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriSesli 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 FunctionAlıntıları Göster
    Koordinat sisteminde verilen iki nokta arasındaki mesafeyi hesaplama: 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
    _____________________________
  • sewim Teğmen 192 Mesaj teğmen "teğmen": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 10 Ağustos 2005 15:10:24
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriKoordinat sisteminde verilen iki nokta arasındaki mesafeyi hesaplama: 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 FunctionAlıntıları Göster
    örnekler güzel olmuş ellerine sağlık bunları saymayız devamını da bekleriz
    _____________________________
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 10 Ağustos 2005 20:23:26 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: sewimörnekler güzel olmuş ellerine sağlık bunları saymayız devamını da beklerizAlıntıları Göster
    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
    _____________________________
  • sewim Teğmen 192 Mesaj teğmen "teğmen": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 10 Ağustos 2005 20:30:17
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseri
    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 Alıntıları Göster
    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 >
    _____________________________
  • sewim Teğmen 192 Mesaj teğmen "teğmen": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 11 Ağustos 2005 23:11:07
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: sewimbizim 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?Alıntıları Göster
    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?
    _____________________________
  • serseri Yarbay 4602 Mesaj konu açıcı "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. müdavim "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. vefalı "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. gececi "gececi": En az 100 farklı gece DH'ye giriş yaptı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. Tüm Başarılarını Gör 29 Eylül 2005 16:06:56 Konu Sahibi
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: sewimyani 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?Alıntıları Göster
    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....
    _____________________________
  • Floyt Onbaşı 24 Mesaj onbaşı "onbaşı": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 02 Ekim 2005 20:54:35
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: serseriHmm 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.... Alıntıları Göster
    saol serseri işime yaradı bende daha yeni baslıyorum lise 3 programlamada vB gösteriyolar baslangıc için iyi oldu
    _____________________________ insan doğar, yaşar, ölür ama geride bıraktıkları sonsuza dek onun bi nevi dünyadaki aynası olur.
  • sewim Teğmen 192 Mesaj teğmen "teğmen": Geleneksel rütbe sistemi koşulları geçerlidir. Tüm Başarılarını Gör 04 Ekim 2005 09:49:42
    • Mesaj Linkini Kopyala
    • Şikayet
    quote:Orijinalden alıntı: Floytsaol serseri işime yaradı bende daha yeni baslıyorum lise 3 programlamada vB gösteriyolar baslangıc için iyi olduAlıntıları Göster
    bize 2. sınıfta gösterdiler :)
    _____________________________
    • yeni mesaja git Yeni mesaj Cevapla
Sayfa: 12345 Sayfaya Git Git sonraki Favorile Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Delphi / C++ /Vb >> Visual Basic Örnekler | DonanımHaber Forum

Benzer içerikler

  • armut benzeri uygulamalar
  • unable to launch the application
  • sensi tv
  • edu uzantılı mail alma
  • jnlp dosyası açılmıyor
  • google güvenli arama nasıl kapatılır
Reklamlar instagram takipçi satın al smm panel instagram takipçi satın al Vds vds satın al Bu sayfanın Mobil sürümü Mini Sürümü

BR30,4221.2.165

Reklamlar Mesaj linki kopyalandı. Bir sorun oluştu. Ip işlemleri Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara KAPAT X x %40Kazan %2,8Kazan %6,5Kazan %25Kazan %1,6Kazan %3,2Kazan %5,5Kazan %3,2Kazan %5Kazan %3,2Kazan %5Kazan %2Kazan Alışveriş Yaptıkça Para Kazan Harekete Geç » - x Bildirim
  • X
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

Từ khóa » Visual Basic örnek Programlar