プログラムの組み方について (ID:126781)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

プログラムの組み方についｒ」ス問です。
案①と案②どちらのほうがよいでしょうか？
よろしくお願いいたします。
案①
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

案②

←解決時は質問者本人がここをチェックしてください。

戻る