Archive

Archive for the ‘Dökümanlar’ Category

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...

Exe Dosyalarının Dijital Olarak Imzalanması

10/05/2013 4 yorum

Eğer uygulamanız admin yetkileri gerektiriyorsa ve güvenilir değil şeklinde uyarı çıkıyorsa yukarıdaki resimdeki gibi sertifika alabilirsiniz.

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 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

Algoritma PC world dergisi (PDF)

17/11/2011 Yorum bırakın

Dosya adı: Algoritma (PC World dergisi)
Yayınlanma :  2007
Yazarı          :  Mehmet KURT
Kitabın Dili     : Türkçe
Dosya Uzantısı     : .pdf

Daha fazlasını oku…

Algoritma geliştirme ve programlamaya giriş – Fahri VATANSEVER

12/11/2011 Yorum bırakın

Programlama Dili: Basic, Pascal, C/C++
Kitap Adı      :  Algoritma geliştirme ve programlamaya giriş
Yazarı          :  Fahri VATANSEVER
Yayınlanma : 2007
Kitabın Dili     : Türkçe

Aşağıdaki adresten devam edebilirsiniz

https://tdsoftware.wordpress.com/2010/09/14/algoritmalar-ve-programlama-cozumleri/