たらい回しスクリプト

雑な要件
・1階から10階の窓口でランダムにたらい回し
・時間外は窓口閉鎖
・何かあったらすぐ土下座
・去る人は追わない

Sub
　'エラー発生（客が激怒）時は"ErrorFunction"の処理を行う
　On Error Goto ErrorFunction

　i = 0
　'17時まで延々とたらい回し
　Do Until Now > 17:00:00

　　'9時になるまで待たせる
　　If Now < 9:00:00
　　　Messagebox "9時まで今しばらくお待ちください。", OkCancel
　　　'キャンセル時は処理終了
　　　If Cancel Then Exit Sub

　　'9時を過ぎたらたらい回し開始
　　Else
　　　'7→4→1→8→5→2→9→6→3→10→7の順の疑似乱数
　　　i = i + 7
　　　If i > 10 Then
　　　　i = i - 10
　　　End If

　　　'たらい回しメッセージ表示（例：7階の窓口へお回りください）
　　　Messagebox Cstr(i) & "階の窓口へお回りください。", OkCancel
　　　If Cancel Then Exit Sub
　　End If
　Loop

　'17時を過ぎたら即終了
　Messagebox "本日の窓口業務は17時を持ちまして終了いたしました。", Ok
　Exit Sub

'客が激怒したときの処理
ErrorFunction:
　'まずはしつこく土下座
　Messagebox "誠に申し訳ございません m(__)m", Ok
　Messagebox "誠に申し訳ございません m(__)m", Ok
　Messagebox "誠に申し訳ございません m(__)m", Ok
　Messagebox "誠に申し訳ございません m(__)m", Ok
　Messagebox "誠に申し訳ございません m(__)m", Ok

　'たらい回しに戻す
　Resume Next

End Sub


VBベースで簡単なサンプルスクリプトを書いてみました。
たらい回しアプリ作成の際は参考にしてみてください。
記述は一部簡略化しています。

コメント 2

勉強になりました m(__)m
by もも (2016-01-26 22:31) 

ライセンスフリーですw
by たいがぁ (2016-01-27 22:59)