Vb.net - Эмулятор игральных костей (кубиков)

Простой эмулятор игральных костей. Основан на генераторе случайных чисел.

Добавляем на форму следующие элементы

Код программы

Public Class Form1

    Dim r As New Random, r2 As New Random 'задаем переменные типа рандом

    'кнопка 
    Private Sub cmdStart_Click(sender As Object, e As EventArgs) Handles cmdStart.Click
        Dim ak As Byte, bk As Byte ' локальные переменные
        ak = r.Next(1, 7)          ' опеределяем границы от 1 до 6
        bk = r.Next(1, 7)

        Select Case ak 'изменение картинки для 1 кубика
            Case 1
                pctKyb1.Image = pctK1.Image
            Case 2
                pctKyb1.Image = pctK2.Image
            Case 3
                pctKyb1.Image = pctK3.Image
            Case 4
                pctKyb1.Image = pctK4.Image
            Case 5
                pctKyb1.Image = pctK5.Image
            Case 6
                pctKyb1.Image = pctK6.Image
        End Select

        Select Case bk 'изменение картинки для 2 кубика
            Case 1
                pctKyb2.Image = pctK1.Image
            Case 2
                pctKyb2.Image = pctK2.Image
            Case 3
                pctKyb2.Image = pctK3.Image
            Case 4
                pctKyb2.Image = pctK4.Image
            Case 5
                pctKyb2.Image = pctK5.Image
            Case 6
                pctKyb2.Image = pctK6.Image
        End Select

        'вывод результата
        If RadioButton1.Checked = False Then
            lbl1.Text = ak
            lbl2.Text = bk
            lblOtvet.Text = "У вас выпало " + Str(ak + bk)
        Else
            lbl1.Text = ak
            lbl2.Text = ""
            lblOtvet.Text = "У вас выпало " + Str(ak)
        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        'когда вкл 2 то мы видим 2 кубика
        'и суммируем их значения
        pctKyb2.Visible = True

   End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        'когда вкл 1 то мы видим 1 кубик
        pctKyb2.Visible = False
    End Sub
End Class

Смотреть видео