VB.NET kullanarak Milli Piyango programı yapmak oldukça eğlenceli olabilir. İşte adım adım bir Milli Piyango programı yapımı:
İlk olarak, bir Windows Form uygulaması oluşturun. Form üzerinde bir buton, bir etiket ve bir metin kutusu ekleyin. Etiket, kazanan numaraların görüntüleneceği yer olacaktır. Metin kutusu, kullanıcının numaralarını girmesi için kullanılacaktır.
Butona çift tıklayarak, tıklama işlemi için bir olay işleyicisi ekleyin. Ardından, olay işleyicisinin içine aşağıdaki kodu ekleyin:
vb.net
Private Sub btnCheckNumbers_Click(sender As Object, e As EventArgs) Handles btnCheckNumbers.Click
‘Kazanan numaraları oluşturun
Dim random As New Random()
Dim winningNumbers As New List(Of Integer)
While winningNumbers.Count < 6
Dim number As Integer = random.Next(1, 50)
If Not winningNumbers.Contains(number) Then
winningNumbers.Add(number)
End If
End While
'Kullanıcının girdiği numaraları alın
Dim userNumbers As New List(Of Integer)
For Each number As String In txtNumbers.Text.Split(","c)
If Not String.IsNullOrEmpty(number.Trim()) Then
userNumbers.Add(Integer.Parse(number.Trim()))
End If
Next
'Kazanan numaraları etikete yazdırın
lblResult.Text = "Kazanan numaralar: "
For Each number As Integer In winningNumbers
lblResult.Text += number.ToString() + " "
Next
'Kazanıp kazanmadığını kontrol edin
Dim matchedNumbers As Integer = 0
For Each number As Integer In userNumbers
If winningNumbers.Contains(number) Then
matchedNumbers += 1
End If
Next
'Sonuçları etikete yazdırın
If matchedNumbers = 6 Then
lblResult.Text += vbCrLf + "Tebrikler, tam 6 numara tutturduk!"
ElseIf matchedNumbers > 0 Then
lblResult.Text += vbCrLf + "Tebrikler, " + matchedNumbers.ToString() + " numara tutturduk!"
Else
lblResult.Text += vbCrLf + "Üzgünüz, hiçbir numara tutturamadık."
End IfEnd Sub
Bu kod, butona tıklandığında çalışacaktır. İlk olarak, kazanan numaraları rastgele bir şekilde oluştururuz. Daha sonra, kullanıcının girdiği numaraları bir listeye ekleriz. Kazanan numaraları ve kazanıp kazanmadığınızı kontrol ederiz. Son olarak, sonuçları etikete yazdırırız.
Son olarak, formun üzerindeki butona tıklandığında, btnCheckNumbers_Click olay işleyicisi çalışacaktır ve sonuçlar etikete yazdırılacaktır. Kullanıcının girdiği numaralar, virgülle ayrılmış bir dizi olarak alınır.