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
- Konu İstatistikleri Yükleniyor
- Favorilerime Ekle
- Konuyu Açandan
- Popüler Mesajlar
- Linkli Mesajlar
- Yazdır
- E-Posta Aboneliği
- Konuyu Gizle
- serseri Yarbay 4602 Mesaj "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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 - irfanmatak Binbaşı 1240 Mesaj "müdavim": En az 1.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 1. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
Hocam Basic 'te zorlanacak bi durum yok ! En basit dil. Kod için saol bu arada ne işe yaradığını çözemedim amaquote:Elimde olan bazı örneklerin kodlarını buraya aktarmaya calısacağım Malum mühendislik okuyan arkadaşlar basic konusunda zorlanıyor (kendimde dahil)
- mandelbrot Teğmen 129 Mesaj "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
Kod sıralama işlemi yapıyor. Zaten yukarda yazılmış. Hem Basic basit de kime göre neye göre? - Palin Majere Er 1 Mesaj "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
aynen bencede ayrica işin mantiği aynıdır genelde anlad-ıyssan hepsi kolay - irfanmatak Binbaşı 1240 Mesaj "müdavim": En az 1.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 1. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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.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?
- serseri Yarbay 4602 Mesaj "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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ı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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 - serseri Yarbay 4602 Mesaj "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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ı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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: 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ı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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ı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
Alan hesaplama: 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ı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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ı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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": 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
örnekler güzel olmuş ellerine sağlık bunları saymayız devamını da bekleriz - serseri Yarbay 4602 Mesaj "konu açıcı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
İnsan kendi kendine konusuyormus gibi hissediyordu yazın için sağolquote:Orijinalinden alıntı: sewim örnekler güzel olmuş ellerine sağlık bunları saymayız devamını da bekleriz
- sewim Teğmen 192 Mesaj "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
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? - sewim Teğmen 192 Mesaj "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
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ı": En az 500 konu açtı. 4 seviyeli bu başarı rozetinin 3. seviyesine sahip. "müdavim": En az 10.000 mesaj yazdı. 3 seviyeli bu başarı rozetinin 3. seviyesine sahip. "vefalı": En az 50 mention yanıtladı. 1 seviyeli bu başarı rozetinin 1. seviyesine sahip. "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
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şı": 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
saol serseri işime yaradı bende daha yeni baslıyorum lise 3 programlamada vB gösteriyolar baslangıc için iyi oldu - sewim Teğmen 192 Mesaj "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
bize 2. sınıfta gösterdiler :) yeni mesaja git Cevapla
Benzer içerikler
- nesne başvurusu bir nesnenin örneğine ayarlanmadı
- en çok kullanılan yazılım dilleri
- google güvenli arama kapatma
BR50,4211.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
Từ khóa » Visual Basic örnek Kodlar
-
Visual Basic Örnekleri - Tasarım Kodlama
-
Visual Studio Kod Örnekleri - Web Tasarım & Programlama
-
Visual Basic örnekleri Arşivleri - Bilişim Konuları
-
Visual Basic Ile 4 Örnek Program Yapımı Ve Kodları - Kitle
-
Vb Net örnek Kodlar - Gorsel Programlama
-
Visual Studio 2015 Dersleri - 1. Bölüm - Basit Kodlar - YouTube
-
Visual Basic NET | Örnek Uygulamalar - YouTube
-
Öğretici: Uygulama Oluşturma - Visual Studio (Windows)
-
Visual Basic - Vikipedi
-
Visual Studio Code'da Linq Ile Pratik Kodlar - Bora Kaşmer
-
Visual Basic : Örnek Kodlar,e-book ,Source Code - Turkish-Media.Com
-
Kod Visual Basic - Stevenhanduc