Visual Basic Örnekler | DonanımHaber Forum

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 HONEYWELL QuietSet HYF260 Tüm Oda İçin Salınımlı Kule Vantilatör, 5 Hız Ayarı, 80 Derece Salınım, Zamanlayıcı Fonksiyonu, Aydınlatma, Otomatik Kapanma, Uzaktan Kumanda https://www.amazon.com.tr/dp/B06W9LSS3V 6 ay önce paylaşıldı Puma Galatasaray S.K. 24/25 Erkek Forma Siyah XL https://www.amazon.com.tr/Puma-Galatasaray-Erkek-Forma-Siyah/dp/B0DWT5GFXV 2 sa. önce paylaşıldı Geotech Mode 27,5 Econ 2 24 Vites Mavi Kırmızı Dağ https://www.amazon.com.tr/dp/B0DY7YBSPD 2 ay önce paylaşıldı PUMA Transport Unisex Yetişkin Futbol Ayakkabısı, Lime Pow-PUMA Black-White, 42 https://www.amazon.com.tr/dp/B0CM1HG1ZR 3 hafta önce paylaşıldı Dalan Fresh & Minerals Kiraz Çiçeği Sabun 4X110 G - Migros https://www.migros.com.tr/dalan-fresh-minerals-kiraz-cicegi-sabun-4x110-g-p-1c2bea1 2 sa. önce paylaşıldı Şenocak Fındık Ezmesi 300 G - Migros https://www.migros.com.tr/senocak-findik-ezmesi-300-g-p-6d19d2 5 sa. önce paylaşıldı Wera 05072448001 867/1 Z Torx DIY Bits Uçlar, TX 20 x 25 mm, 100 Parça : Amazon.com.tr: Yapı Market https://www.amazon.com.tr/dp/B004MAJNCU 2 sa. önce paylaşıldı {{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}} Daha Fazla Bu Konudaki Kullanıcılar: Daha Az 2 Misafir - 2 Masaüstü 5 sn 191Cevap 4Favori 95.288Tı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

• Mesaj Tarihine Göre
• En Beğenilenler
• Son Eklenenler

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ı": 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 < Bu mesaj bu kişi tarafından değiştirildi serseri -- 31 Ocak 2006 1:56:57 >

  _____________________________

• 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

  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ı": 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?

  _____________________________ 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": 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

  _____________________________ PALİN MAJERE

• 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

  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ı": 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

  _____________________________

Yapay Zeka’dan İlgili Konular Adobe Creative Cloud TAM Lisans – Photoshop, Premiere, After Effects 2 ay önce açıldı Corel Draw hakkında 7 yıl ö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ı": 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

  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": 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? < 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": 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

  _____________________________ 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": 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

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 Bu sayfanın Mobil sürümü Mini Sürümü

BR30,5001.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