Fethi Polat 1
Fethi Polat
noisiv 1
noisiv
Manwe Work 1
Manwe Work
Scarlet 1
Scarlet
xranzei 1
xranzei
Hikaye Ekle

Vısual Basic Kodları ve Yaptıgı İşlev

  • Konuyu başlatan Konuyu başlatan ragebar
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 8
  • Görüntüleme Görüntüleme 772

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Arkadaşlarımızın çoğu ne olduğunu bilmeden,kopyalayım Visual Basic ile program yapar.Ama bunların ne işe yaradığını
bilirseniz.Biraz mantık kullanırsanız.Birazda çalışma ile iyi bir coder olabilirsiniz.Bende Ragebar olarak bunu öğretmek amaçlı küçük bir çalışma yaptım.


Gelelim kodlar ve anlamlarına,basit bir şifreleme öğreticem ve ne olduğunu açıklıyacam.

PHP:
If Text1.Text = "Turk" and Text2.Text = "Hack" Then
 Me.Hide
 Form2.Show
 Else
 Msgbox "Text 1 veya Text 2 hatalı,lütfen tekrar deneyin"
 End If
 End

Evet arkadaşlar bu yazdığım bir programa giriş şifresi yapmaktır.Burda dedikleri şunlar;

PHP:
Eğer Text1 = Turk ve Text2 = Hack İse
 Beni gizle
 Form2`yi göster
 Değilse
 Mesaj yaz "Text 1 veya Text 2 hatalı,lütfen tekrar deneyin"
 Eğer Bitti
 Bitti

Programda denilenler bunlar.Birde neyin ne için olduğuna bakalım.

PHP:
If (Bu komut bir şart koyar.Eğer demektir)
 Text (Bu yazıların yazıldığı kutu)
 And (ve demektir,iki şey kesin olucaksa kullanılır)
 Or (veya demek,iki şeyden biri olucaksa kullanılır)
 Then (ise demektir,yapılan iş şu ise şunu yap gibi)
 Me.Hide (Beni gizle demektir.Yani formlar için kullanılır,yazıldığı forumu şartlar olduktan sonra gizle)
 FormX.Show (Şartlar sağlandıktan sonra gösterilecek formu söyler ve gösterir)
 Else (Bu istenilen olmadıysa yapılıcakları söyler, yani değilse komutudur)
 Msgbox (Bu ekrana gelicek yazıdır)
 End If (Eğer şartını kapatmak için mutlaka If komutundan sonra kullanılır)
 End (Bitiş,yapılacaklar bittiğinde koyulur)

Bu Kodlar Vısual Basic 6 İçin Gecerlidir...

 
Son düzenleme:

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst