Как сделать поле (например для морского боя) чтоб оно имело адресацию по клеткам - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте.Подскажите пожалуйста как сделать поле (например для морского боя) чтоб оно имело адресацию по клеткам.

Решение задачи: «Как сделать поле (например для морского боя) чтоб оно имело адресацию по клеткам»

textual
Листинг программы
'на форме Command1
'в свойствах Command1 Index=0
Dim n%, m%
Private Sub Command1_Click(Index As Integer)
ip = (Index - 1) \ m + 1
jp = (Index - 1) Mod m + 1
adr = "[" & ip & "," & jp & "]"
Command1(Index).Caption = adr
Me.Caption = String(4 * m, " ") & adr
End Sub
 
Private Sub Form_Load()
 
t = 120: l = 120
w = 700: h = 700
n = 10: m = 10
Command1(0).Width = w
Command1(0).Height = h
Command1(0).Visible = False
For i = 1 To n
   For j = 1 To m
    k = (i - 1) * m + j
     Load Command1(k)
          Command1(k).Move l + (j - 1) * w, t + (i - 1) * h
          Command1(k).Visible = True
   Next j
Next i
Me.Width = w * m + 2 * l + 100
Me.Height = h * n + 2 * t + 500
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы