Pir Zöhre Ana Forum - Visual Basic

CBM Visual Basic 6 Türkçe Görsel Eğitim Seti

Sun, 14 Nov 2010 00:02:38 +0200

Visual Basic 6'nın anlatıldığı CBM firmasına ait CBM Visual Basic 6 Türkçe Görsel Eğitim Seti.

KURULUM :

1- Kurulumu yapınız.
2- Cd içinde patch klasörü var onun içinde dosyaları kurulum yaptığınız klasöre kopyalayınız.
3- Aktifleştirme menüsünden telefonla aktifleştirme işlemini seçiniz.
4- Rastgele rakamlar kullanarak aktifleştirmeyi gerçekleştiriniz.

Hotfile.com: One click file hosting: CBM Visual Basic.part1.rar
Hotfile.com: One click file hosting: CBM Visual Basic.part2.rar
Hotfile.com: One click file hosting: CBM Visual Basic.part3.rar

Simple CD DVD Collection Listview Using ADO

Sun, 18 Jul 2010 15:08:04 +0300

Cd ve Dvd takip otomasyonuna benzer bir arşivleme kod parçacığı benim hoşuma gitti birazdaha geliştirilirse güzel bişiler olur.
...::: Download Link :::...

Tıkla GElsin

...::: Ekran Görüntüsü :::...

Play YouTube Videos Using Flash Control

Thu, 15 Jul 2010 13:40:11 +0300

YouTube Videoları Flash ActiveX Control kullanarak oynamaya gösterir

...::: Download Link :::...

Tıkla GElsin

...::: Ekran Görüntüsü :::...

Text'dekı Yazıları Buyuk Harfe Veya Küçük Harfe Çevirmek (Açıklamalı)

Fri, 28 Nov 2008 15:38:26 +0200

Seltext ve sellenght komutlarını kullanarak. private sub command1_click()
if text1.sellenght <> then ' eğer text1 deki metin seçili ise
text1.text= ucase (text1.seltext) ' yalnızca seçili metini büyült ve text1e aktar
else ' seçili metin yoksa
text1.text= ucase (text1.text) ' text1 in içindeki metni büyült ve text1 e aktar .
end if
end sub

private sub command2_click()
if text1.sellenght >0 then ' eğer text1 deki metin seçili ise
text1.text =lcase (text1.seltext) ' yalnızca seçili metni küçült ve text1e aktar
else ' seçili metin yoksa
text1.text=lcase (text1.text ) ' text1 in hepsini küçült ve text 1e aktar.
end if
end sub

VS2005 Download İşlemi

Fri, 28 Nov 2008 15:36:55 +0200

VS2005 ile dosya indirme ve indirilen dosyanın otomatik çalıştırılması
Öncelikle programımızın daha önceden belirlenmiş bir dosyayı indirebilecek şekilde yapacağımızı belirtmek isterim. İndirilmek istenilen programın değişken olmasını isterseniz kodları ona göre düzenlemeniz gerekecek. Form üzerine aşağıdaki nesneleri ekleyin:
2 buton
1 backgroundworker
1 Savefiledialog

1. Butona "indir"
2. Butona "iptal" ismini verin (İptal butonu default olarak Enabled = false olacak)

Programımız şu şekilde çalışacak
İndir butonuna basıldığında karşımıza bir Savefiledialog gelecek ve dosyayı nereye kaydetmek istediğimiz sorulacak.
Ardından programımız indirilecek
indirme işlemi bittiğinde program bize dosyayı çalıştırmak isteyip istemediğimizi soracak. Eğer onaylarsak indirdiğimiz program çalıştırılacak.

Formumuzun Class bölümüne

Dim file_adres = "http://www.dosyasitesi.com/dosya.exe"
dim nereye as string
ibarelerini ekliyoruz
Programa öncelikle indir butonunun click olayı ile başlıyoruz
ve aşağıdaki kodu yazıyoruz
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
nereye = SaveFileDialog1.FileName
BackgroundWorker1.RunWorkerAsync()
indir.Enabled = False
iptal.Enabled = True
End If
böylelikle dialog penceremiz görüntüleniyor ve sonuca göre de dosya indirme işlemi başlatılıyor.
Aynı zamanda indir butonumuzu disable yaparak indirme işleminin tekil yapılmasını sağlıyoruz ve iptal tuşumuzu da aktif hale getiriyoruz.

Dosya indirmeyi backgroundworker yapacak
Bu nedenle backgroundworker objesinin dowork olayına aşağıdaki kodu yazıyoruz:
My.Computer.Network.DownloadFile(file_adres, SaveFileDialog1.FileName, "", "", False, 5000000, True)

bu sayede dosyamız indirilmeye başlanıyor

backgroundworker nesnemizin RunWorkerCompleted özelliğine ise aşağıdaki kodu ekliyoruz.
if msgbox("Dosyanız indirildi." & vbnewline & "Programı şimdi çalıştırmak istiyor musunuz?", MsgBoxStyle.YesNo, "Yükleme tamamlandı") = MsgBoxResult.Yes Then
Shell(nereye, AppWinStyle.NormalFocus, False, -1)
end if

böylelikle indirme işlemi tamamlandığında kullanıcıya bir uyarı penceresi çıkartılacak programı çalıştırmak isteyip istemediği sorulacak.

ikinci butonumuz ise indirme işleminin iptalinde kullanılacak.
bunun için iptal butonumuzun click olayına aşağıdaki kodu ekliyoruz
BackgroundWorker1.CancelAsync()
indir.Enabled = true
iptal.Enabled = False

VB .Net İle Runtimeda Nesne Kopyalamak

Fri, 28 Nov 2008 15:36:02 +0200

(VB 6.0 ile runtimeda kontrol kopyalamak) index olayını .net 2005 ile programlama yaparken unutun...Bunda index denen olay yoktur...Hatta öyle ki.. kopyalayacağınız kontrolü daha önceden forma yerleştirmemiş olmanız gerekiyor.kopyalamak istediğiniz kontrolü öncelikle formun declare bölümüne eklememiz gerekecek.Örnekle daha iyi anlayacaksınız.Mesela bir button kontrolünü kopyalamak istiyoruz.

'Declare bölümüne

Dim B(100) as button

yazdığımız zaman 100 adet buttonun formda olabileceğini kodumuzla belirtiyoruz.Yalnız buda yeterli değil.Me.Controls.Add(nesnemiz) kodunuda eklememiz gerekir ki ; bu çoğaltılacak nesnenin Formun bir elemanı olduğunu belirtir.Örneğin formun load olayına...

------------------------------------------------------------------------------------------------

dim b(100) as button

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

for i = 1 to 100

me.controls.add(b(i))
if i = 1 then b(i).left = 0
if i >1 then b(i).left = b(i-1).left + b(i-1).width
b(i).text = "Gaspar Le Marc : " & i
b(i).width = 10
b(i).top = 10
next i

end sub

--------------------------------------------------------------------------------------------------------

Bu kodu yazdığımızda form açılınca yan yana 100 tane buttonumuz olacak.

Bunların özelliklerini nasıl kullanacağımıza gelince... .Net 2005 bizim için AddHandler olayını vermiş.Yani kontrolün hangi özelliğini kullanmak istiyorsak o özelliğe AddHandler eklememiz gerekiyor.Örneğin yukarıdaki koda AddHandler ekleyelim

------------------------------------------------------------------------------------------------

dim b(100) as button

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

for i = 1 to 100

me.controls.add(b(i))
if i = 1 then b(i).left = 0
if i >1 then b(i).left = b(i-1).left + b(i-1).width
b(i).text = "Gaspar Le Marc : " & i
b(i).width = 10
b(i).top = 10
AddHandler b(i).Click, AddressOf ButtonSeçim

next i

end sub

Sub ButtonSeçim(ByVal sender As System.Object, ByVal e As System.EventArgs)

'Buraya button tıklanınca devreye girmesini istediğimiz koldar gelecek
'örneğin ;
msgbox(sender.text)

End Sub
--------------------------------------------------------------------------------------------------------

Burada çok önemli bir nokta (ByVal sender As System.Object, ByVal e As System.EventArgs) kısmını herhangi bir buttonun click olayıyla aynı olmalı.Birtek bu kontrol için değil... hangi kontrol kopyalanırsa kopyalansın orijinaliyle aynı olmalı.

Burada "sender" ve "e" olayları da çok önemli.sender ; bu olayı hangi kontrolün gönderdiğini belirtir ve hangi kontrol göndermişse onun yerine geçer.yani bu , şu işe yarar.Eğer 100 tane buttonunuz warsa ve 72. buttona tıklamışsanız.b(72) demektir sender... Yani yukarıdaki kodu kullanıp herhangi bir buttona tıklarsanız... Hangisine tıklamışsanız onun index değerini Gaspar Le Marc : "index" olarak gösterecektir.

Saat Programı

Fri, 28 Nov 2008 15:35:11 +0200

Bir adet label oluşturun ve aşağıdaki kod satirlarını forma yapıştırın. Private Sub Form_Activate()
a:
Label1 = Format(Now, "hh:mms")
DoEvents
GoTo a
End Sub

Ürün Tutarı Hesaplayan Program.

Fri, 28 Nov 2008 15:34:30 +0200

Ürün bilgilerini giriyorsunuz, size tutarını ve yüzdesini hesaplıyor.
[COLOR=#c5003f]forma 1 adet buton,3 adet textbox ve 1 adet checkbox eklemelisiniz.
Private Sub Command1_Click()
Dim adet As Integer
Dim birimf As Integer
Dim toplamt As Integer
adet = Val(Text2.Text)
birimf = Val(Text3.Text)
toplamt = (adet * birimf)
Text4.Text = toplamt
If Check1.Value = 1 Then
'toplamt = (adet*birimf %18)
End If
End Sub

Farklıkaydet ve Yazi Tipleri

Fri, 28 Nov 2008 15:33:50 +0200

Private Sub farklikaydet_Click()
On Error Resume Next
CommonDialog1.Action = 2
End Sub

Private Sub font_Click()
On Error Resume Next
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.Action = 4
Text2.FontName = CommonDialog1.FontName
Text2.FontBold = CommonDialog1.FontBold
Text2.FontItalic = CommonDialog1.FontItalic
Text2.FontSize = CommonDialog1.FontSize
Text2.ForeColor = CommonDialog1.Color
Text2.FontUnderline = CommonDialog1.FontUnderline
Text2.FontStrikethru = CommonDialog1.FontStrikethru

End Sub

Kısayol Tuşları Oluşturma

Fri, 28 Nov 2008 15:32:46 +0200

F tuşlarıyla işlem yapabilmemiz için key kodlar yer alıyor
Merhaba arkadaşlar bu kodlar çoğunuzun bildiği kodlardır muhtemelen ben bu kodları biraz geliştirerek diğer örnekler gibi aklınızı karıştırmadan öğrenmenizi sağlamaya çalıştım...

örnek uygulamamız ufak bi hesap makinası...

gereken nesneler:

3 adet TextBox
4 adet CommandButton

yapacağımız işlem şu text1 ve text2 ye değer girilip sonucu text3'e yazdıracağız.

command1 toplama
command2 çıkarma
command3 çarpma
command4 bölme

işlemini yapacak bunun dışında profesyonel programlarda gördüğümüz o F1,F2,F3'le işlem yaptırmalar var ya işte bunu öğreneceksiniz burada.

Şimdi 3 adet textbox'ı ve 4 tane commandbuton'u ekleyin!!!

şimdi kodlarımız şöyle

Option Explicit ' burada f tuşlarıyla işlem yapabilmemiz için key kodlar yer alıyor
Const KEY_F1 = &H70
Const KEY_F2 = &H71
Const key_f3 = &H72
Const key_f4 = &H73
Const KEY_ESCAPE = &H1B 'esc tuşu ile program kapanır

Private Sub Command1_Click() 'command1 e tıkladığımızda toplama işlemi yapacak
Text3 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command2_Click() 'command1 e tıkladığımızda çıkarma işlemi yapacak
Text3 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command3_Click() 'command1 e tıkladığımızda çarpma işlemi yapacak
Text3 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command4_Click() 'command1 e tıkladığımızda bölme işlemi yapacak
Text3 = Val(Text1) / Val(Text2)
End Sub

' şimdi geldik bizim için en eğlenceli ve ipucumuzdaki amaca.

Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode

Case KEY_F1: Text3 = Val(Text1) + Val(Text2) 'f1 e basıldığı zaman toplama işlemi yapıyor
Case KEY_F2: Text3 = Val(Text1) - Val(Text2) 'f2 e basıldığı zaman çıkarma işlemi yapıyor
Case key_f3: Text3 = Val(Text1) * Val(Text2) 'f3 e basıldığı zaman çarpma işlemi yapıyor
Case KEY_F4: text3= Val(taxt1) / Val(Text2) 'f4 e basıldığı zaman bölme işlemi yapıyor

End Select
End Sub

Şimdi bu sistemi yeni gören arkadaşlar için şöyle bir açıklama yapayım burada sadece bu tarz aritmatiksel işlemler değil herhangi bir forumun açılıp kapanmasınıda yapabilirsiniz

mesela

Case KEY_F1: form2.show şeklinde de basit bişeyler yapılabilir.

Son söylediğim çok yeni başlayanlar içindi.

Umarım anlayabildiniz aklınızı karıştıran bir yer olursa bana pm yoluyla ulaşabilirsiniz.

İyi Çalışmalar!!!

Sayı İçinde Harf Olduğunu Anlama

Fri, 28 Nov 2008 15:31:39 +0200

Kullanıcının girdiği büyük bir sayı içinde, eğer HARF varsa burada onu uyarabiliriz

Dim a As Integer, b As Integer, c As String
a = Len(Text1.Text)
For b = 1 To a
c = Mid(Text1.Text, b, 1)
Select Case c
Case "a" To "z"
MsgBox "Girdiğiniz sayı içinde harf var",vbcritical, "Dikkat !"
End Select

Kayıt Programı

Fri, 28 Nov 2008 15:30:51 +0200

Text1'e yazılan bir ismi kaydet butonuna basınca kaydeder. Text2'ye bir sayı yazıldıktan sonra sorgula butonuna basınca text3'te girdiğiniz sayının karşılığı olan kayıt gelir. tümünü göster butonuna basınca bütün kayıtları gösteriri. bu basit bir programdır. işlemler menüsünde kaydet, sorgula ,tümünü göster bölümlerinden ilk ğnce kaydetme butonu seçme şartıyla daha sonra istediği bölümü seçer. menüden işlem girmen gerekiyo çünkü başta text ve command kutuları gözükmüyor... bu 1000 kişilik bir kayıt sistemidir

Dim i As Integer
Dim veri(1000) As String

Private Sub Command1_Click()
veri(i) = Text1.Text
Text1.Text = ""
i = i + 1
End Sub

Private Sub Command2_Click()
Text3.Text = veri(Text2.Text)
End Sub

Private Sub Command3_Click()

Timer1.Enabled = True
i = 0
End Sub

Private Sub Form_Load()

Text1.Visible = False
Command1.Visible = False
Text2.Visible = False
Text3.Visible = False
Command2.Visible = False
Text4.Visible = False
Command3.Visible = False
Timer1.Interval = 100
Timer1.Enabled = False

i = 0
End Sub

Private Sub mnukaydettem_Click()
Text1.Visible = True
Command1.Visible = True
End Sub

Private Sub mnusorgulatem_Click()
Text2.Visible = True
Text3.Visible = True
Command2.Visible = True
End Sub

Private Sub mnutümkayıtlartem_Click()
Text4.Visible = True
Command3.Visible = True

End Sub

Private Sub Timer1_Timer()
Text4.Text = Text4.Text & veri(i)
i = i + 1
End Sub

Word'deki Kelimeyi Bul ve Değiştir

Fri, 28 Nov 2008 15:29:43 +0200

Kullanıcının text1e yazmış olduğu yazılardan istediği kelimeyi bulması için.

option explicit
dim aranan poz as integer

private sub commandBul_click()
ara1
end sub

sub ara (baslangıc as integer)
dim poz as isnteger, aranacak as string
aranacak=textaranacak.text
poz= ınstr(baslangic,textmetin.text,aranacak)
if poz>0 then
arananpoz=poz
textmetin.selstart 'seçime başlarken kullanılır
textmetin.sellength= len (aranacak) 'secim uzunlugudur
textmetin.setfocus ' imleci sabitlemek içindir
else
msgbox ("aranan kelime bulunamadı")
end if
end sub

Titrerken Renk Değiştiren Program

Fri, 28 Nov 2008 15:28:39 +0200

formunuzun load, mouse move ve unload bolumlerine aşağıdaki kodu ekleyip forecolor ozelliğini siyah, border style ozelliğinide 4 yapın
Dim i As Integer
For i = 0 To 1000
Form1.Top = Form1.Top + 50
If Form1.Top > 1000 Then
Form1.Top = 100
Form1.Left = Form1.Left + 50
ElseIf Form1.Left > 3000 Then
Form1.Left = Form1.Left - 1000
End If

Next i
If Form1.BackColor = &HFFFF& Then
Form1.BackColor = &HFF00&
ElseIf Form1.BackColor = &HFF00& Then
Form1.BackColor = &HFF&
ElseIf Form1.BackColor = &HFF& Then
Form1.BackColor = &H404040
ElseIf Form1.BackColor = &H404040 Then
Form1.BackColor = &HFFFF&
End If
End Sub

Pencereyi Asla Kapatamasın !

Fri, 28 Nov 2008 15:27:32 +0200

Pencereyi kapatmak için kapat düğmesini tıklıcaktır kullanıcı ama...

Formun unload prosedürüne girin, ve sadece şunu yazın
işte ;

Private Sub Form_Unload(Cancel As Integer)
cancel=1 'formu kapatma
End Sub

isterseniz değişik mesajlarla kullnıcıyla eğlenebilirsiniz örneğin ;
Private Sub Form_Unload(Cancel As Integer)
cancel=1
msgbox "Kapatamazsınız"
End Sub

Private Sub Form_Load()
app.taskvisible=false 'görev çubuğunda gösterme
End Sub