So-net無料ブログ作成

たらい回しスクリプト [ジョーク]

雑な要件
・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ベースで簡単なサンプルスクリプトを書いてみました。
たらい回しアプリ作成の際は参考にしてみてください。
記述は一部簡略化しています。
nice!(0)  コメント(2)  トラックバック(0) 

nice! 0

コメント 2

もも

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

たいがぁ

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

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。