Würfelgenerator

Option Explicit

'Ende Schalter , schließt das Programm

Private Sub cmd_ende_Click()
    End
End Sub

'Start Schalter - erzeugt die Zufallszahl und zeigt die passenden Radiobuttons an

Private Sub cmd_start_Click()

    Call loeschenderwuerfelpunkte    'löschen aller Würfelpunkte

    Dim wuerfel As Integer

    wuerfel = Int(Rnd * 6 + 1)
    lbl_hintergrund.Caption = wuerfel

    Select Case wuerfel

        Case 1
        shp_vier.Visible = True

        Case 2
        shp_drei.Visible = True
        shp_fuenf.Visible = True

        Case 3
        shp_drei.Visible = True
        shp_vier.Visible = True
        shp_fuenf.Visible = True

        Case 4
        shp_eins.Visible = True
        shp_drei.Visible = True
        shp_fuenf.Visible = True
        shp_sieben.Visible = True

        Case 5
        shp_eins.Visible = True
        shp_drei.Visible = True
        shp_vier.Visible = True
        shp_fuenf.Visible = True
        shp_sieben.Visible = True

        Case 6
        shp_eins.Visible = True
        shp_zwei.Visible = True
        shp_drei.Visible = True
        shp_fuenf.Visible = True
        shp_sechs.Visible = True
        shp_sieben.Visible = True

    End Select

End Sub

'Startroutine

Private Sub Form_Load()

    Call loeschenderwuerfelpunkte    'löschen aller Würfelpunkte

    Randomize

End Sub

'Labelfeld Copyright und Autor

Private Sub lbl_copyright_Click()

End Sub

'Hintergrund des Würfels

Private Sub lbl_hintergrund_Click()

End Sub

'Pulldownmenue Ende

Private Sub men_Ende_Click()

    End

End Sub

'Pulldownmenue - Wie Startschalter

Private Sub men_start_Click()

    Call loeschenderwuerfelpunkte    'löschen aller Würfelpunkte

    Dim wuerfel As Integer

    wuerfel = Int(Rnd * 6 + 1)
    lbl_hintergrund.Caption = wuerfel

    Select Case wuerfel

        Case 1
        shp_vier.Visible = True

        Case 2
        shp_drei.Visible = True
        shp_fuenf.Visible = True

        Case 3
        shp_drei.Visible = True
        shp_vier.Visible = True
        shp_fuenf.Visible = True

        Case 4
        shp_eins.Visible = True
        shp_drei.Visible = True
        shp_fuenf.Visible = True
        shp_sieben.Visible = True

        Case 5
        shp_eins.Visible = True
        shp_drei.Visible = True
        shp_vier.Visible = True
        shp_fuenf.Visible = True
        shp_sieben.Visible = True

        Case 6
        shp_eins.Visible = True
        shp_zwei.Visible = True
        shp_drei.Visible = True
        shp_fuenf.Visible = True
        shp_sechs.Visible = True
        shp_sieben.Visible = True

    End Select

End Sub

'Pulldownmenue Info

Private Sub mnu_info_Click()
    MsgBox "Würfelgenerator 1.02" & Chr(10) & Chr(10) & "Copyright 2002 by Roland Löffler", 64, ""
End Sub

'Würfelpunkt drei

Private Sub shp_drei_Click()

End Sub

'Würfelpunkt eins

Private Sub shp_eins_Click()

End Sub

'Würfelpunkt fuenf

Private Sub shp_fuenf_Click()

End Sub

'Würfelpunkt sechs

Private Sub shp_sechs_Click()

End Sub

'Würfelpunkt sieben

Private Sub shp_sieben_Click()

End Sub

'Würfelpunkt vier

Private Sub shp_vier_Click()

End Sub

'Würfelpunkt zwei

Private Sub shp_zwei_Click()

End Sub

'Löschen  aller RadioButtons

Private Sub loeschenderwuerfelpunkte()

    shp_eins.Visible = False
    shp_zwei.Visible = False
    shp_drei.Visible = False
    shp_vier.Visible = False
    shp_fuenf.Visible = False
    shp_sechs.Visible = False
    shp_sieben.Visible = False

End Sub