Как сделать поле (например для морского боя) чтоб оно имело адресацию по клеткам - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д