DIE

Private Sub Form_Load()

    Die1Display 0
    Die2Display 0
   
End Sub

Private Sub RollButton_Click()

    Roll

End Sub

Private Sub Roll()

    Beep
    Die1Display GetDieRoll()
    Die2Display GetDieRoll()

End Sub

Private Function GetDieRoll() As Long
   
    GetDieRoll = Round(1 + Rnd() * 5)

End Function

Private Sub Die1Display(n As Long)
    Select Case n
        Case 1:
            Die1NW.Visible = False
            Die1NE.Visible = False
            Die1W.Visible = False
            Die1C.Visible = True
            Die1E.Visible = False
            Die1SW.Visible = False
            Die1SE.Visible = False
        Case 2:
            Die1NW.Visible = False
            Die1NE.Visible = True
            Die1W.Visible = False
            Die1C.Visible = False
            Die1E.Visible = False
            Die1SW.Visible = True
            Die1SE.Visible = False
        Case 3:
            Die1NW.Visible = False
            Die1NE.Visible = True
            Die1W.Visible = False
            Die1C.Visible = True
            Die1E.Visible = False
            Die1SW.Visible = True
            Die1SE.Visible = False
        Case 4:
            Die1NW.Visible = True
            Die1NE.Visible = True
            Die1W.Visible = False
            Die1C.Visible = False
            Die1E.Visible = False
            Die1SW.Visible = True
            Die1SE.Visible = True
        Case 5:
            Die1NW.Visible = True
            Die1NE.Visible = True
            Die1W.Visible = False
            Die1C.Visible = True
            Die1E.Visible = False
            Die1SW.Visible = True
            Die1SE.Visible = True
        Case 6:
            Die1NW.Visible = True
            Die1NE.Visible = True
            Die1W.Visible = True
            Die1C.Visible = False
            Die1E.Visible = True
            Die1SW.Visible = True
            Die1SE.Visible = True
        Case Else:
            Die1NW.Visible = False
            Die1NE.Visible = False
            Die1W.Visible = False
            Die1C.Visible = False
            Die1E.Visible = False
            Die1SW.Visible = False
            Die1SE.Visible = False
    End Select
End Sub

Private Sub Die2Display(n As Long)
    Select Case n
        Case 1:
            Die2NW.Visible = False
            Die2NE.Visible = False
            Die2W.Visible = False
            Die2C.Visible = True
            Die2E.Visible = False
            Die2SW.Visible = False
            Die2SE.Visible = False
        Case 2:
            Die2NW.Visible = False
            Die2NE.Visible = True
            Die2W.Visible = False
            Die2C.Visible = False
            Die2E.Visible = False
            Die2SW.Visible = True
            Die2SE.Visible = False
        Case 3:
            Die2NW.Visible = False
            Die2NE.Visible = True
            Die2W.Visible = False
            Die2C.Visible = True
            Die2E.Visible = False
            Die2SW.Visible = True
            Die2SE.Visible = False
        Case 4:
            Die2NW.Visible = True
            Die2NE.Visible = True
            Die2W.Visible = False
            Die2C.Visible = False
            Die2E.Visible = False
            Die2SW.Visible = True
            Die2SE.Visible = True
        Case 5:
            Die2NW.Visible = True
            Die2NE.Visible = True
            Die2W.Visible = False
            Die2C.Visible = True
            Die2E.Visible = False
            Die2SW.Visible = True
            Die2SE.Visible = True
        Case 6:
            Die2NW.Visible = True
            Die2NE.Visible = True
            Die2W.Visible = True
            Die2C.Visible = False
            Die2E.Visible = True
            Die2SW.Visible = True
            Die2SE.Visible = True
        Case Else:
            Die2NW.Visible = False
            Die2NE.Visible = False
            Die2W.Visible = False
            Die2C.Visible = False
            Die2E.Visible = False
            Die2SW.Visible = False
            Die2SE.Visible = False
    End Select
End Sub

import random

random.seed()

dieFace = [ '⚀', '⚁', '⚂', '⚃', '⚄', '⚅' ]

def cho_han_bakuchi():

    # Get dice
    die1 = random.randrange(1, 6)
    die2 = random.randrange(1, 6)
    total = die1 + die2;

    s = dieFace[die1-1] + " %d  " % (die1) + dieFace[die2-1] + " %d  " % (die2)

    if total % 2:
        s += " Han"
    else:
        s += " Cho"

    print s