[TI-Basic] (Probléme pour un morpion)

[TI-Basic] (Probléme pour un morpion) - Divers - Programmation

Marsh Posté le 24-12-2006 à 16:25:57    

Salut!
Je suis entrein de faire un morpion, mais j'ai quelques petits problémes:  

Code :
  1. ClrHome
  2. ClrDraw
  3. 0->Z
  4. 0->Y
  5. 0->X
  6. 0->W
  7. 0->V
  8. 0->U
  9. 0->T
  10. 0->S
  11. 0->R
  12. Line(32,0,32,62)
  13. Line(62,0,62,62)
  14. Line(0,21,94,21)
  15. Line(0,42,94,42)
  16. Lbl 1
  17. randInt(1,9->C
  18. If (C=1)(Z<1)
  19. Then
  20. Circle(15,52,5
  21. 1->Z
  22. Else
  23. Goto 1
  24. End
  25. If (C=2)(Y<1)
  26. Then
  27. Circle(45,52,5
  28. 1->Y
  29. Else
  30. Goto 1
  31. End
  32. If (C=3)(X<1)
  33. Then
  34. Circle(79,52,5
  35. 1->X
  36. Else
  37. Goto 1
  38. End
  39. If (C=4)(W<1)
  40. Then
  41. Circle(15,32,5
  42. 1->W
  43. Else
  44. Goto 1
  45. End
  46. If (C=5)(V<1)
  47. Then
  48. Circle(45,32,5
  49. 1->V
  50. Else
  51. Goto 1
  52. End
  53. If (C=6)(U<1)
  54. Then
  55. Circle(79,32,5
  56. 1->U
  57. Else
  58. Goto 1
  59. End
  60. If (C=7)(T<1)
  61. Then
  62. Circle(15,10,5
  63. 1->T
  64. Else
  65. Goto 1
  66. End
  67. If (C=8)(S<1)
  68. Then
  69. Circle(45,10,5
  70. 1->S
  71. Else
  72. Goto 1
  73. End
  74. If (C=9)(R<1)
  75. Then
  76. Circle(79,10,5
  77. 1->R
  78. Else
  79. Goto 1
  80. End
  81. Repeat K
  82. getKey->K
  83. If K=72 and Z<1
  84. Then
  85. Line(9,49,16,56
  86. Line(16,49,9,56
  87. 2->Z
  88. End
  89. If K=73 and Y<1
  90. Then
  91. Line(42,49,49,56
  92. Line(49,49,42,56
  93. 2->Y
  94. End
  95. If K=74 and X<1
  96. Then
  97. Line(74,49,81,56
  98. Line(81,49,74,56
  99. 2->X
  100. End
  101. If K=82 and W<1
  102. Then
  103. Line(9,28,16,35
  104. Line(16,28,9,35
  105. 2->W
  106. End
  107. If K=83 and V<1
  108. Then
  109. Line(42,28,49,35
  110. Line(49,28,42,35
  111. 2->V
  112. End
  113. If K=84 and U<1
  114. Then
  115. Line(74,28,81,35
  116. Line(81,28,74,35
  117. 2->U
  118. End
  119. If K=92 and T<1
  120. Then
  121. Line(9,5,16,12
  122. Line(16,5,9,12
  123. 2->T
  124. End
  125. If K=93 and S<1
  126. Then
  127. Line(42,5,49,12
  128. Line(49,5,42,12
  129. 2->S
  130. End
  131. If K=94 and R<1
  132. Then
  133. Line(81,5,74,12
  134. Line(74,5,81,12
  135. 2->R
  136. End
  137. End
  138. Goto 1


 
Le problème, c'est qu'en appuiyant sur une des touches, aucune croix n'apparait.
Y'a seulement un cercle dans la premiére case en haut à gauche et puis c'est tout.
Vous pouvez m'aider plz?    :)

Reply

Marsh Posté le 24-12-2006 à 16:25:57   

Reply

Marsh Posté le 25-12-2006 à 00:01:34    

La solution est ........... Joyeux noël !!!!!!!

Reply

Marsh Posté le 25-12-2006 à 09:56:49    

Non, apprentitux ... la solution c'est "Debug"  :heink:

Reply

Marsh Posté le 25-12-2006 à 16:25:44    

Merci pour ces remarques pértinantes :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed