Arşiv

Posts Tagged ‘vb6’

Windows 10’a Visual Basic 6 kurulumu

13/06/2016 3 yorum

Visual Basic 6 yı Windows 10 da nasıl kurduğumuzu ve indirme adresini paylaşıcam,

kurulumu:

indirmek için: Daha fazlasını oku…

Visual basic 6’da Yönetici Olarak Çalıştırma Parametresi

06/06/2013 1 yorum

Başlıkta belirttiğimiz gibi ilginç bir yöntem (Win7 ve Win8'de test edildi)

Exe'nin "Project Properties" > "Make" > "Version information" kısmındaki herhangi bir yerin değerini "install" yada "update" yaptığınızda yönetici olarak çalıştırıyor

https://i2.wp.com/img18.imageshack.us/img18/4079/test1dbi.jpg

Sonuç:

Daha fazlasını oku...

VB6 ile metin şifrelemek & çözmek

14/08/2012 1 yorum

https://i0.wp.com/img805.imageshack.us/img805/1543/sifrele.jpg

Text1(multiline=true), text2(multiline=true), command1, command2 ekliyoruz

Daha fazlasını oku...

Kategoriler:Kodlar Etiketler:, , , , , , , , ,

Visual Basic ile Facebook’da otomatik dürtme kodları

30/01/2012 1 yorum

Otomatik dürtme, geri dürtme kodları
Daha fazlasını oku…

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…

StringToHex fonksiyonu (VB6)

05/12/2011 Yorum bırakın

Girilen diziyi, hexe çevirir (Dizi>Ascii>Hex)

Private Function AsciiDonusturHexe(Ascii As String) As String
Dim hexDeger As String
For heks = 1 To Len(Ascii)
hexDeger = hexDeger & Hex(Asc(Mid(Ascii, heks, heks)))
Next heks
AsciiDonusturHexe = hexDeger
End Function

Private Sub Command1_Click()
Text1 = AsciiDonusturHexe(Text1)
End Sub

VB6 String fonksiyonları

02/12/2011 Yorum bırakın

Len fonksiyonu:

Girilen değerin uzunluğunu verir

Kullanımı:

Msgbox Len("tdsoftware") 'Dönen veri 10 olacaktır

 

 

Mid fonksiyonu:

Girilen değerin, istenilen kısmını ayıklamanızı sağlar

Kullanımı:

Msgbox Mid$("tdsoftware",1,2) 'Sonuç 'td' olacaktır, 1. karakterden 2. karaktere kadar al demektir

 

Left fonkisyonu:

Girilen değerin sol tarafını alır

Kullanımı:

msgbox Left$("tdsoftware",2) 'Sonuç 'td', girilenin sol tarafındaki 2 karakteri alır

 

Right fonkisyonu:

Girilen değerin sağ tarafını alır

Kullanımı:

msgbox Right$("tdsoftware",8) 'Sonuç 'software',sağ taraftaki 8 karakteri alır

 

Ucase fonksiyonu:

Girilen değerin tüm harflerini büyük yapar

Kullanımı:

msgbox ucase$("tdsoftware") ' Sonuç 'TDSOFTWARE'

 

Lcase fonkisyonu:

Girilen değerin tüm harflerini küçük yapar

Kullanımı:

msgbox lcase$("TDSoftware") ' Sonuç 'tdsoftware'

 

InStr fonksiyonu:

Girilen değerde karakter kontrolü yapar

Kullanımı:

MsgBox InStr("tdsoftware", "x") 'Dönen veri 0, yani x karakteri yok
MsgBox InStr("tdsoftware", "s") 'Dönen veri 3, çünkü 3. karakterimiz s
MsgBox InStr(4, "tdsoftware", "s") 'Dönen veri 0, çünkü 4. karakterden itibaren kontrole başlar
MsgBox InStr("tdsoftware", "S") 'Dönen veri 0, büyük-küçük harf algılamadı
MsgBox InStr("tdsoftware", "S", 1) 'Dönen veri 0, büyük-küçük harf algıladı
MsgBox InStr(1, "tdsoftware", "S", 1) 'Dönen veri 3, büyük-küçük algılamadı

String Fonksiyonu:
Girilen değeri istenilen kadar tekrarlar
Kullanmı:
MsgBox String$(3, "t") 'Dönen veri 'ttt'
MsgBox String$(3, 13) 'Dönen veri 3 tane enter, 13 ün asciideki karşılığı enter tuşudur

Space fonksiyonu:
Belirttiğiniz kadar boşluk koymanızı sağlar
Kullanımı:
MsgBox "TD" & Space$(1) & "Software" ' Dönen veri 'TD Software'

Replace fonksiyonu:

Girilen değeri değiştirmenizi sağlar

Kullanımı:

MsgBox Replace$("tdsoftware", "tds", "TD S") 'Sonuna 1 veya 0 koyarsanız büyük-küçük harf algılama değerini değiştirir

 

StrReverse fonksiyonu:

Girilen değeri tersten verir

Kullanımı:

MsgBox StrReverse$("xc.rt.erawtfoSDT") 'Dönen veri TDSoftware.tr.cx

 

Trim Fonksiyonu

Boşlukları siler

Kullanımı:

Girilen değerdeki tüm boşlukları siler

Msgbox Trim$(" TD Software ") 'Dönen veri 'TDSoftware'

 

Ltrim fonksiyonu:

En sol tarafta boşluk varsa siler

Kullanımı:

MsgBox LTrim$(" TD Software") 'Dönen veri 'TD Software'

 

Rtrim fonksiyonu:

En sağ tarafta boşluk varsa siler

Kullanımı:

MsgBox LTrim$("TD Software ") 'Dönen veri 'TD Software'

 

Asc fonksiyonu:

Girilen değeri ascii numarasına çevirir

MsgBox Asc("T") & "," & Asc("D") ' Dönen veri 84,68

 

Chr fonksiyonu:

Girilen ascii değerini, karaktere çevrir

Kullanılımı:

Msgbox chr("84") & "," & chr("68") 'Dönen veri T,D