Sayı Bulmaca Oyunu - Vb.Net

By: İbrahim Fırat on Pazartesi, Mart 31, 2014 / yorum : 0 Vb.Net, Visual Basic

Visual basic  Sayı Bulmaca Programı Yapımı

Formunuza bir adet Button ekleyin ve  çift  tıklayarak click olayına aşağıdaki kodları yazınız.

Dim randomsayi , deneme , tahmin As Integer  
  'Burada sayı ürettiriyoruz'  
   Randomize Timer
   randomsayi=(Fix(Rnd*50)+1)
       
   deneme=0
      
   'bu aşamada bir döngü oluşturuyoruz'
    Do
   'burada kullanıcıdan herhangi bir sayı alınıyor'
    tahmin=Inputbox("Tahmin ettiğiniz sayı?")
'Değişkene kullanıcının tahmin ettiği herhangi bir sayıyı atadık.'
'bu aşamada ise Select Case karşılaştırmasını başlatıyoruz'    
    Select Case tahmin
     Case randomsayi
     Msgbox "Bravo"& deneme &"bildiniz"
     exit sub
     
     Case is > randomsayi
     Msgbox "Minimum bir sayı girmeniz gerekmektedir"
     deneme = deneme + 1 

     Case 0
     exit sub 

     Case is z randomsayi
     Msgbox "maximum bir sayı girmeeniz gerekmektedir."
     deneme = deneme + 1  

     End Select
Loop Until tahmin=0
end sub

VB.Net NotifyIcon Yapımı

By: İbrahim Fırat on Pazar, Mayıs 19, 2013 / yorum : 0 Vb.Net, Visual Basic

 

' NotifyIconData yapısını tanımladık
Private Type NotifyIconData
Size As Long
Handle As Long
ID As Long
Flags As Long
CallBackMessage As Long
Icon As Long
Tip As String * 64
End Type

' lAZIM olan değişkenleri tanımladık.  Bu değerleri "shell32.h" bölümünden ulaşabilirsiniz
Private Const Ekle = &H0
Private Const Duzenle = &H1
Private Const Sil = &H2

Private Const WM_MOUSEMOVE = &H200

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLICK = &H203

Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLICK = &H206

Private Const MessageFlag = &H1
Private Const IconFlag = &H2
Private Const TipFlag = &H5

' Shell32.dll içinden API fonksiyonunu  tanımladık
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" _
 Alias "Shell_NotifyIconA" (ByVal Message As Long, Data As NotifyIconData) As Boolean

' Notify Icon nesnesini tanımladık
Private Data As NotifyIconData

' İkon nesnesini ekleyebilmek için kullanabileceğiniz yöntem
Private Sub SimgeyiEkle()
Data.Size = Len(Data)
Data.Handle = hWnd
Data.ID = vbNull
Data.Flags = IconFlag Or TipFlag Or MessageFlag
Data.CallBackMessage = WM_MOUSEMOVE
Data.Icon = Icon ' Formun ikonu ile devam ediyoruz
Data.Tip = "Arkeolog NET - NotifyIcon" & vbNullChar ' Bilgi yazısı
Call Shell_NotifyIcon(Ekle, Data)
End Sub

' Forum ikonunu kaldırmak isterseniz aşağıdaki yöntem ile kaldırma işlemi gerçekleşecektir.
Private Sub SimgeyiKaldir()
Call Shell_NotifyIcon(Sil, Data)
End Sub

' Başlangıç fonksiyonu
Private Sub Form_Load()
SimgeyiEkle
End Sub

' Bitiş fonksyonu
Private Sub Form_Terminate()
SimgeyiKaldir
End Sub

'Menü tıklandığında
Private Sub ShowHide_Click()
Visible = Not (Visible)
End Sub

Visual Basic Eğitim Dersleri

By: İbrahim Fırat on Çarşamba, Temmuz 18, 2012 / yorum : 0 Vb.Net