Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Güvenlik Kodu Uygulaması yapmak.
#1
Selamun aleyküm arkadaşlar Kullanıcı tarafından girilen değerin, uygulama tarafından rastgele oluşturulmuş bir değer ile eşleşip eşleşmediğini kontrol eden bir uygulama yapmak için aşağıdaki kodları kullanabiliriz.

www.deccal.org

Form üzerine eklenmesi gereken nesneler
1 Tane PictureBox
1 Tane TextBox
2 Tane Button

PictureBox1 – Oluşturulan güvenlik kodunun görüntüleneceği nesnedir.
TextBox1 – Kullanıcının cevabı girmesini sağlayacak olan nesnedir.
Button1 – Kontrol amaçlı olarak kullanılacak olan butondur. Cevabın doğru yada yanlış olduğunu kontrol edecektir.
Button2 – Oluşturulan güvenlik kodunu yenilemek için kullanılacaktır.

KODLAR:;

Fonksiyonlar;

Private Cevap As String = Nothing
Private Function KodOlustur() As String
Dim Operatorler As String() = {"+", "-"}
Baslangic:
Dim Sayi1 As Integer = New Random().Next(1, 9)
Dim Sayi2 As Integer = New Random().Next(1, 9)
If Sayi1 = Sayi2 Then GoTo Baslangic
Dim cOperatorler As String = Operatorler(New Random().Next(0, Operatorler.Length))
Select Case cOperatorler
Case "+"
Cevap = Sayi1 + Sayi2
If Cevap <= 0 Then GoTo Baslangic
Case "-"
Cevap = Sayi1 - Sayi2
If Cevap <= 0 Then GoTo Baslangic
End Select
Return String.Format("{0}{1}{2}", Sayi1, cOperatorler, Sayi2)
End Function
Private Sub CizgiOlustur(ByVal G As Graphics)
If Not G Is Nothing Then
Dim R As New Random()
Dim RenkFirca As New SolidBrush(Color.LightGray)
For i% = 0 To 9
G.DrawLines(New Pen(RenkFirca, R.Next(1, 2)), New Point() {New Point(0, R.Next(0, 60)), New Point(200, R.Next(0, 60))})
Next
End If
End Sub
Private Function ResimOlustur() As Image
Dim B As New Bitmap(200, 60)
Using G As Graphics = Graphics.FromImage(B)
With G
.Clear(Color.White)
.DrawString(KodOlustur(), New Font("Segoe UI", 20), Brushes.Black, New Rectangle(0, 0, 200, 60), New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
End With
CizgiOlustur(G)
End Using
Return B
End Function

Button1’in Kodları;

Select Case TextBox1.Text
Case Is = Cevap
MessageBox.Show("Doğru", "Doğru!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
PictureBox1.Image = ResimOlustur()
TextBox1.Clear()
Case Else
MessageBox.Show("Yanlış!", "Yanlış!", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
PictureBox1.Image = ResimOlustur()
TextBox1.Clear()
End Select
TextBox1.Clear()

Button2’nin Kodları;

PictureBox1.Image = ResimOlustur()

Nasıl çalışır ?

Güvenlik kodu oluşturma işlemini yapabilmek için yukarıdaki kodlarda 3 tane fonksiyon kullandık.

Bunlar;

KodOlustur()
Bu fonksiyon 1 ve 9 arasında rastgele bir sayı üretir. Üretilen 2 sayının, kullanıcı tarafından toplama veya çıkarma işlemine mi sokulacağını yine rastgele olarak belirler.
CizgiOlustur()
Bu fonksiyon oluşturulan resmin üzerine gri renkte çizgiler çizer.
ResimOlustur()
Bu fonksiyon ise KodOlustur() fonksiyonu üzerinde üretilen sayıların resmini PictureBox’ın üzerine çizer. Daha sonra CizgiOlustur() fonksiyonunu çağırarak resmin üzerine gri renkte çizgiler çizer.

Button1, kullanıcının girmiş olduğu değeri yani TextBox1’in içindeki değeri resimdeki değer ile karşılaştırarak duruma göre “Doğru” yada “Yanlış” biçiminde 2 adet mesaj kutusu görüntüler.

Button2, ResimOlustur() fonksiyonunu çağırarak yeniden bir resim oluşturulmasını sağlar.
Beğenenler:
#2
Eline saglık eywallah .
Beğenenler: H4KİK4T
#3
eline sağlık
Beğenenler: H4KİK4T
#4
Eline saglık reis
Beğenenler: H4KİK4T
#5
Çok saol
Beğenenler:

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fud Downloader 0/35 Kaynak Kodu Mr.F92 11 360 24-08-2016, Saat: 11:23
Son Yorum: S0N4K
  [VB.NET] Yanıp Sönen Yazı Yapmak Just.Watch 0 251 14-09-2015, Saat: 23:45
Son Yorum: Just.Watch
  [VB.NET] HTML Çekici Program Yapmak - 1# ByLaST 4 421 04-09-2015, Saat: 23:13
Son Yorum: ByLaST
  VB.NET Açılara Göre Elips Yayı Çizim Kodu HackLock 7 625 15-02-2015, Saat: 11:35
Son Yorum: Reappy
Anahtar Kelimeler

Güvenlik Kodu Uygulaması yapmak. indir, Güvenlik Kodu Uygulaması yapmak. Videosu, Güvenlik Kodu Uygulaması yapmak. Online izle, Güvenlik Kodu Uygulaması yapmak. Bedava indir, Güvenlik Kodu Uygulaması yapmak. Yükle, Güvenlik Kodu Uygulaması yapmak. Hakkında, Güvenlik Kodu Uygulaması yapmak. Nedir, Güvenlik Kodu Uygulaması yapmak. Free indir, Güvenlik Kodu Uygulaması yapmak. Oyunu, Güvenlik Kodu Uygulaması yapmak. Download


1 Ziyaretçi