Школоло / Говнокод #13799 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
Public Class Form1
    Dim ns As Double : Dim s As Integer       ' Akiva     14/IX-2013
    Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
        tm1.Enabled = True
    End Sub
    
    Private Sub nums_ValueChanged(sender As Object, e As EventArgs) Handles nums.ValueChanged
        s = nums.Value : ns = s
    End Sub

    Private Sub tm1_Tick(sender As Object, e As EventArgs) Handles tm1.Tick
        If ns >= 0.1 Then
            ns -= 0.1
            l1.Text = Format(ns, "00.0")  
        End If
    End Sub

    Private Sub b2_Click(sender As Object, e As EventArgs) Handles b2.Click
        tm1.Enabled = False
    End Sub
End Class

Обратный отсчет до Апокалипсиса.

Запостил: Stertor Stertor, (Updated )

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

    • ava crastinus # Ссылка на оригинал 0 ⇈

      Очень захотелось напоить этого гипотетического студента.
      Ответить

    • ava TarasB # Ссылка на оригинал 0 ⇈

      Я так и знал, что у тебя был анальный учитель, который тебя анально учил.
      Ответить

      • ava Stertor # Ссылка на оригинал 0 ⇈

        Это никакая не тайна. Прочел я все твои посты, и сам себе умехнулся в усы; уж если такого молчуна и недотрогу, как ты, я сумел вывести в онлайн - значит, не совсем зря живу.
        Ответить

    • ava Stertor # Ссылка на оригинал 0 ⇈

      Я однажды написал ему - меня очень заинтересовали игры, созданные им и сам автор. Он меня тупо проигнорировал: наверно, усомнился в искренности моих побуждений.
      Ответить

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓