Archive

Posts Tagged ‘visual basic 6’

Dosyada değişiklik varmı kontrolü yapmak (VB6)

18/12/2011 Yorum bırakın

MD5’in biraz daha hassası veri bütünlüğünü tespit etmek içindir. Dosya değiştirme tarihi, Dosya boyutu, Dosya isminde değişiklik varmı diye kontrol eder, varsa program kapanır tahribatın çük sayfasına yönlendirir

Daha fazlasını oku…

Visual Basic (For, Do, While, Select, If)

02/12/2011 Yorum bırakın

For döngüsü:

For benim = 0 To 3 'Benim değişkeni için 0 dan 3'e kadar tekrarla

MsgBox "for " & benim 'Benim değişkenin değişen değerlerini yazdır

Next benim 'Benim döngüsüne devam et

MsgBox "for tamamlandı" 'Döngü bitti

 

 

 

Do while döngüsü:

bitti = False 'Değişkenimize değer atıyoruz

Do 'Burada emir veriyoruz, for gibi döngü sonu yok

Do While ToplamDeger < 3 'Ne yapmak istiyoruz, amacı buraya giriyoruz

ToplamDeger = ToplamDeger + 1 'ToplamDeger değişkeni her seferinde +1 artırılıyor

If ToplamDeger = 10 Then 'İstediğimiz koşul buysa

MsgBox "Bitti"

bitti = True 'bitti değişkenini True yapıyoruz

Exit Do 'Döngüdende çıkıyoruz

End If 'Koşulumuzu bitirdik

Loop

Loop Until bitti = True 'bitti değişkeni true olunca döngüyü sonlandır

 

 

 

While döngüsü:

While deger < 10 'deger hala 10'dan küçükse

deger = deger + 1 'her seferinde degerimize +1 ekliyoruz

Wend 'Döngü tekrarı

MsgBox deger 'Değer 10'dan küçük olmadığı için döngüden çıktı

 

 

 

Select case karar yapısı:

notunuz = InputBox("Notunuzu girin?", "") 'Değişkene değer atıyoruz

Select Case notunuz 'İşlem yapılacak değişkeni seçiyoruz

Case "1" 'İşlem yapılacak değişkenin değeri buysa işlem yapıyoruz

MsgBox ":("

Case "2"

MsgBox ":|"

Case "3"

MsgBox ":)"

Case "4"

MsgBox ":D"

Case "5"

MsgBox "xD"

Case Else 'İşlem yapılacak değişkenin değeri bulunamadıysa

MsgBox "^^"

End Select

 

 

 

If karar yapısı:

notunuz = InputBox("Notunuzu girin?", "TD Software") 'Değişkene değer atıyoruz

If notunuz = "" Then 'Hiçbirşey girilmişse

MsgBox "0-100 arası sayı girin"

ElseIf notunuz < 50 Then 'Girilen 2 den küçükse

MsgBox ":("

Else ' 50 den küçük değilse

MsgBox ":)"

End If

VB6’da sonsuz döngüye giren projeyi çözmek

12/11/2011 Yorum bırakın

Timerde Msgbox ile sonsuz döngüye giren bir kod kullandığında, programınız kapatılmaz hale gelebiliyor işlemlerden kapattığınızda ise projenizde yaptığınız değişiklikleri kaybedebiliyorsunuz, bu sorunu çözmek için

Yeni bir proje açın aşağıdaki kodları derleyin ve kapanmayan msgboxun üzerine tıklayın

Daha fazlasını oku…

Visual Basic 6.0 Pro eğitim kitabı (PDF)

30/09/2011 Yorum bırakın

Programlama Dili: Visual Basic 6
Yayınlanma : –
Yazarı          :  İhsan KARAGÜLLE & Zeydin PALA
Kitabın Dili     : Türkçe
Dosya Uzantısı     : .pdf

Daha fazlasını oku…

Visual basic 6 shockwave flash component sorunu

17/09/2011 1 yorum

Flash playerin yeni sürümlerini kurduktan sonra yaşanan bir problemdir

Problem:

  • System Error &H80004005 (-2147467259). Bilinmeyen hata
  • Projenizde flash kontrolü daha önceden eklenmişse yeni herhangi bir kontrol eklediğinizde projeniz açılmaz

Çözüm:

VB6’da uyum sağlayabilecek en güncel sürümü kurmak (Flash10e.ocx)

Daha fazlasını oku…

WebBrowserdan PictureBox’a direk resim aktarmak

11/09/2011 1 yorum

Private Sub Command1_Click()
Dim O as Object
Set O = WebBrowser1.Document.body.createControlRange()
Call O.Add(WebBrowser1.Document.All("verificationImg"))
Call O.execCommand("Copy")
Set Picture1.Picture = Clipboard.GetData
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "https://adslkota.turktelekom.com.tr/adslkota/login_tr.jsp"
End Sub

Visual basic ile fare denetimi

11/09/2011 Yorum bırakın

Fare ile sol, sağ, orta tık ve taşıma kodları

Daha fazlasını oku...

Kategoriler:Kodlar Etiketler:, , ,