プログラミング工房 > NS Basic/Palm > サンプルモジュール > 

サンプルモジュール 「サイコロを振る」

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' 引数で指定された種類のサイコロを1つ振り出た目を返す '''
'''     p1 = サイコロの種類(〜面体)。1〜100のみ有効。 '''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function droll(dtype as Integer) as Integer
    'サイコロ種チェック
    If (dtype<1)Or(dtype>100) Then
        droll = 0
        Exit Function
    End If
    
    '結果の最大桁数をセット
    Dim column as Integer   '結果桁数
    Dim roll as Integer     '結果
    roll = 0
    
    If (dtype>=1)And(dtype<=9) Then
        column = 1
    ElseIf (dtype>=10)And(dtype<=99) Then
        column = 2
    ElseIf dtype=100 Then
        column = 3
    EndIf
    
    'サイコロを振る
    Do until (roll>=1)And(roll<=dtype)
        roll = val(mid(str(rand()),2,column))
    Loop
    droll = roll
End Function

ダウンロード > dice.cod