1. Pascal / Говнокод #8658

    +96

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    MediaPlayer1.FileName := './data/gong.wav';
      MediaPlayer1.Open;
      g1 := timetostr(time);
      g2 := timetostr(strtotime('0:00:00'));
      g3 := timetostr(strtotime('3:00:00'));
      g4 := timetostr(strtotime('6:00:00'));
      g5 := timetostr(strtotime('5:00:00'));
      g6 := timetostr(strtotime('12:00:00'));
      g7 := timetostr(strtotime('15:00:00'));
      g8 := timetostr(strtotime('18:00:00'));
      g9 := timetostr(strtotime('21:00:00'));
      if g1 = g2 then
        MediaPlayer1.Play
      else
        Label2.Caption := 'не работает тварь...';

    этнический таджик, а в душе - индокитаец

    Запостил: bugmenot, 27 Ноября 2011

    Комментарии (15) RSS

    Добавить комментарий