プログラムの組み方について

解決

あいうえお 2005-10-24 19:18:12 No: 126781

プログラムの組み方についｒ」ス問です。
案①と案②どちらのほうがよいでしょうか？
よろしくお願いいたします。
案①
Dim Setting
Private Sub H_Up_Click()    '高さUP
    Set Setting = High      '「高さ」ボタンを押した場合
    One_Up                  '値を一つ上げる
End Sub

Private Sub H_Down_Click()  '高さDown
    Set Setting = High      '「高さ」ボタンを押した場合
    One_Down                '値を一つ下げる
End Sub

Private Sub S_Up_Click()    'スピードUP
    Set Setting = Speed     '「速度」ボタンを押した場合
    One_Up                  '値を一つ上げる
End Sub

Private Sub S_Down_Click()  'スピードDown
    Set Setting = Speed     '「速度」ボタンを押した場合
    One_Down                '値を一つ下げる
End Sub

Private Sub I_Up_Click()    '間隔UP
    Set Setting = Interval  '「間隔」ボタンを押した場合
    One_Up                  '値を一つ上げる
End Sub

Private Sub I_Down_Click()  '間隔Down
    Set Setting = Interval
One_Down
End Sub

Private Sub One_Up()
    If (Setting < 5) Then
        Timer_Start
        MSComm1.Output = "00FFBW0M0903051000024" + CRLF$
    End If
End Sub

案②

あいうえお 2005-10-24 19:19:05 No: 126782

間違えました。。。