Kodları yazmadan önce formumuza 1 adet textbox 1 adet Command ekliyoruz tabi ki şifre doğru ise gideceği form2’yi de oluşturuyoruz.
Formumuza elemanlarımızı yerleştirdikten sonra View Code bölümünü açıyoruz ve kodları yazmaya başlıyoruz.
Kodların Açıklaması:
Cıvata yazan yere programın size soracağı şifreyi yazın.
If Text1.Text = “civata” Then
Burada eğer şifre doğru ise ilgili formu açacak illaki forum olmasına gerek yok isteğe bağlı olarak başka kodları da çalıştıra bilirsiniz.
Form2.Show
Şifre doğru değilse
Else
Şifre Yanlış alanına istediğinizi yaza bilirsiniz bu yazı yanlış şifre yazana gösterilecek mesajdır. Bu kod yerine başka kodlar da çalıştıra bilirsiniz.
MsgBox “Şifre Yanlış”
Koşulu kapatıyoruz.
End If
Not:text1 kutusunu seçip properties ayarlarından passwordchar kısmına * şeklini yazın. O zaman şifreniz yıldız şeklinde gözükecektir. Ayrıca text ile işiniz bittiği zaman text kutularının içini boşaltın. Bu şekilde daha az hata verir.
Hazır Kod bölümündeki kodları kopyalayıp View Code bölümüne yapıştırırsanız program sorunsuz olarak çalışacaktır. Tabi ki baş da dediğimiz elemanları unutmadıysanız.
Hazır Kod:
Private Sub Command1_Click()
If Text1.Text = ” civata” Then
Form2.Show
Else
MsgBox ” Şifre Yanlış”
End If
End Sub
İstanbul Son Dakika Haberler - isthaberler.com ile güncel gelişmeler, trafik ve hava durumu, önemli olaylar…
İstanbul, yüzyıllar boyunca sanatçılara ilham veren eşsiz bir şehir olmuştur. Tarihi yarımadası, Boğaz manzaraları, camileri,…
Moda dünyası, yaratıcılığın ve profesyonelliğin bir araya geldiği dinamik bir sektördür. Bu sektörde kalıcı bir…
Artan güvenlik ihtiyacıyla birlikte güvenlik kulübesi kullanımı Türkiye genelinde hızla yaygınlaşıyor. Site girişleri, sanayi tesisleri, otoparklar ve…
Emlak sektöründe bayilik almak, herhangi bir sektördeki bayilik sistemine dahil olmaya göre belirgin farklılıkları bulunan…
Evcil dostlarınıza daha iyi yaşam koşulları sağlayabilmek ve sağlıklarını koruyarak hastalıklara karşı önlem alabilmek için…