Başlangıç > Kodlar > Visual Basic 6 ile ekran koruyucu programlamak

Visual Basic 6 ile ekran koruyucu programlamak


Vb İle Screen Saver Hazırlanması

Bu çalışma sonunda mouse denen minik ama hünerli alete nasıl hükmedeceğimizi göreceğiz. Kodu Eski bir visual basic kitabında bulup üstünde biraz değişiklik yaptım. Kendiniz uğraşarak daha da geliştirebilirsiniz. Aşağıdaki kodu bir modül içine paste edin. Başta Declare edilen fonksiyon fare imlecinin görünüp kaybolmasıyla ilgili user32 kütüphanesine ait bir fonksiyondur.



Declare Function ShowCursor Lib "user32" (ByVal fShow As Integer) As Integer
Global maxLines As Integer
Sub endScrnSave()
showmouse
End
End Sub

Sub HideMouse()
While ShowCursor(False) > = 0

Wend
End Sub

Sub main()
BlankForm.Show
End Sub

Sub showmouse()
While ShowCursor(True) < 0

Wend
End Sub

Projeye bir form ekleyip özelliklerini şu şekilde ayarlayın

1-Background = siyah
2-BorderStyle = 0-None
3-ShownInTaskBar = False
4-WindowState = 2-Maximized

Formu ekledikten sonra aşağıdaki koduda General Declerations kısmından itibaren kopyalayıp fonksiyonları sırayla bağlayın.


Dim lastX, lastY
Dim numlines

Sub form_Keydown(Keycode As Integer, Shift As Integer)
endScrnSave
End Sub

Private Sub Form_Load()
Move 0, 0, Screen.Width, Screen.Height
HideMouse
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IsEmpty(lastX) Or IsEmpty(lastY) Then
lastX = X
lastY = Y
End If

If Abs(lastX - X) > 2 Or Abs(lastY - Y) > 2 Then
endScrnSave
End If

lastX = X
lastY = Y
End Sub

Projeyi çalıştırınca ekran siyah bir formla kaplanacak ve siz mouse'a dokunan kadar kalacaktır. Fakat bu projenin henüz bazı eksik yanları var. Mesela klavyeden windows+E tuşuna basınca explorer açılıyor yani herhangi bir klavye kilidi yok. Bunun yanında bir password formu ekleyerek çıkışda (fare oynatıldıktan sonra) bir şifre girilmesi ve eğer şifre doğruysa screen saver'dan çıkılması güzel olurdu. Hadi yapın bunları ve programlama.com'a gönderin. Unutmayın ileride kaynak olarak başvuracağımız bu site ancak bizim çabamızla geniş bir arşiv olabilir. Kolay gelsin.

Gurkan YENICERI


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: