Net Anlatım .Net Geliştirme

Const AW_HOR_POSITIVE = &H1
Const AW_HOR_NEGATIVE = &H2
Const AW_VER_POSITIVE = &H4
Const AW_VER_NEGATIVE = &H8
Const AW_CENTER = &H10
Const AW_HIDE = &H10000
Const AW_ACTIVATE = &H20000
Const AW_SLIDE = &H40000
Const AW_BLEND = &H80000
Private Declare Function AnimateWindow Lib “user32″ (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Private Sub Form_Load()
        Me.AutoRedraw = True
    Me.Print “Unload et”
End Sub

Private Sub Form_Unload(Cancel As Integer)
     AnimateWindow Me.hwnd, 200, AW_VER_POSITIVE Or AW_HOR_NEGATIVE Or AW_HIDE
    ’form unload edildi
    Set Form1 = Nothing
End Sub

No Comments »

Visual Basic’te geliştirdiğiniz projelerinizde bilgisayarın üreteceği rasgele sayılara ihtiyaç duyabilirsiniz.Mesela mp3 çalarınızın parçaları belli bir düzene uymadan(rasgele) çalabilmesi ya da yaptığınız Loto programında rasgele 6 adet sayının üretilmesi durmunda böyle bir fonksiyona ihtiyaç duyabilirsiniz.Özelliklede oyunlar da…
VB’de bu işi Rnd fonksiyonu üstlenir.Bu fonksiyon bilgisayarımıza 0 ile 1 arasında rasgele bir sayı üretmesini söyler.Tabi 0 ile 1 arasında üretilen bir sayı bizim çok ta işimize yaramıyacaktır.Ancak Rnd fonksiyonu ile bizim belirleyeceğimiz sayılar arasında da (negatif ya da pozitif fark etmez) sayılar üretmek mümkün.Dilerseniz uygulamaya geçelim…

Önce Standart.exe uygulaması başlatın ve formumuza bir CommandButton ve bir Label(etiket kontrolü) ekleyin.
İlk önce 0 ile 9 arasında bir rakam üretelim
Kodlarımızı Command1′in Click olayına yazacağız
Continue Reading »

No Comments »