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

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
  22. 22
  23. 23
  24. 24
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
Dim cr

Private Function click()
If cr = 0 Then
cr = 1
click = "X"
Else
cr = 0
click = "O"
End If
End Function
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "" Then CommandButton1.Caption = click()
End Sub

Private Sub CommandButton10_Click()
cr = 0
 CommandButton1.Caption = ""
 CommandButton2.Caption = ""
 CommandButton3.Caption = ""
 CommandButton4.Caption = ""
 CommandButton5.Caption = ""
 CommandButton6.Caption = ""
 CommandButton7.Caption = ""
 CommandButton8.Caption = ""
 CommandButton9.Caption = ""
 
End Sub

Private Sub CommandButton2_Click()
If CommandButton2.Caption = "" Then CommandButton2.Caption = click()

End Sub

Private Sub CommandButton3_Click()
If CommandButton3.Caption = "" Then CommandButton3.Caption = click()
End Sub

Private Sub CommandButton4_Click()
If CommandButton4.Caption = "" Then CommandButton4.Caption = click()
End Sub

Private Sub CommandButton5_Click()
If CommandButton5.Caption = "" Then CommandButton5.Caption = click()
End Sub

Private Sub CommandButton6_Click()
If CommandButton6.Caption = "" Then CommandButton6.Caption = click()
End Sub

Private Sub CommandButton7_Click()
If CommandButton7.Caption = "" Then CommandButton7.Caption = click()
End Sub

Private Sub CommandButton8_Click()
If CommandButton8.Caption = "" Then CommandButton8.Caption = click()
End Sub

Private Sub CommandButton9_Click()
If CommandButton9.Caption = "" Then CommandButton9.Caption = click()
End Sub

Крестики-нолики на Power Point за 2 минуты.

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

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

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

    Frei:
    в лет так 11-12 примерно так же свою первую игру написал:)
    Ответить

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

    CF:
    А на вижуал бейсике вообще можно что-то неунылое написать?
    Ответить

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

      Можно, я разрешаю.

      (Hint: если использовать VB новее 6-й версии, то очень даже можно.)
      Ответить

    • ava guest # 0 ⇈

      Купить: закладки, амфетамин, скорость соль кристаллы, кокаин
      Купить, закладки, мефедрон, MDMA, MDA, MDPV, 3md мука.


      Моментальный магазин закладок LegalRF.

      [u]Купить закладки через онлайн магазин или телеграм:
      Скорость соль кристаллы (a-pvp, a29, MDPV, 3md) , гашиш и шишки (бошки, haze, гарик, гаш), кокаин (VHQ, HQ, MQ, первый, орех), амфетамин (фен, амф, порох, кеды), мефедрон (меф, мяу-мяу), лирика (300), героин и метадон (хмурый, гера, гречка, мёд, мясо), спайс (микс, россыпь, ТВ), реагент (рега, каннабиноид, 1к15, 1к30, 1к45, 1к70, 1к100), лсд (lsd 25, марки, сибирь), грибы (психоделики), экстази (MDMA, ext, круглые, диски, таблы) [u]
      _____________
      Ответить

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

Где здесь C++, guest?!

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

    ↑
    8
    ↓