VBNet - Форум - Реализовать перемешивание костяшек в игре "15

Вопрос: Реализовать перемешивание костяшек в игре "15 Добавлено: 18.12.12 00:15

Автор вопроса: BF_KARATEL

Помогите пожалуйста реализовать перемещевание костяшек в игре
я можно сказать не знаю vba а надо сдать курсовой по нему игру выбрал пятнашки решил с помощью изображений
и не могу их сделать так что бы при нажатие на новую игру они менялись местами

Sub Helchok(Im As Image)
Dim L As Integer, T As Integer
L = Im.left
T = Im.top

' Äâèãàåì âëåâî:
If ImageX.left - 50 = L And ImageX.top = T Then
k = Im.left
Im.left = ImageX.left
ImageX.left = k
End If

'Äâèãàåì âïðàâî

If ImageX.left + 50 = L And ImageX.top = T Then
k = Im.left
Im.left = ImageX.left
ImageX.left = k
End If

' Äâèãàåì â ââåðõ:
If ImageX.top - 50 = T And ImageX.left = L Then
k = Im.top
Im.top = ImageX.top
ImageX.top = k
End If

' Äâèãàåì âíèç
If ImageX.top + 50 = T And ImageX.left = L Then
k = Im.top
Im.top = ImageX.top
ImageX.top = k
End If
End Sub

Private Sub CommandButton17_Click()
Dim top() As Variant
Dim left() As Variant
Dim d As Integer
Dim q As Integer
Dim w As Integer, j As Integer
Dim e As Integer, r As Integer
Dim rand As Boolean

top = Array(54, 104, 154, 204)
left = Array(24, 74, 124, 174)

End Function

Private Sub Image1_Click()
Call Helchok(Image1)
End Sub

Private Sub Image10_Click()
Call Helchok(Image10)
End Sub

Private Sub Image11_Click()
Call Helchok(Image11)
End Sub

Private Sub Image12_Click()
Call Helchok(Image12)
End Sub

Private Sub Image13_Click()
Call Helchok(Image13)
End Sub

Private Sub Image14_Click()
Call Helchok(Image14)
End Sub

Private Sub Image15_Click()
Call Helchok(Image15)
End Sub

Private Sub Image2_Click()
Call Helchok(Image2)
End Sub

Private Sub Image3_Click()
Call Helchok(Image3)
End Sub

Private Sub Image4_Click()
Call Helchok(Image4)
End Sub

Private Sub Image5_Click()
Call Helchok(Image5)
End Sub

Private Sub Image6_Click()
Call Helchok(Image6)
End Sub

Private Sub Image7_Click()
Call Helchok(Image7)
End Sub

Private Sub Image8_Click()
Call Helchok(Image8)
End Sub

Private Sub Image9_Click()
Call Helchok(Image9)
End Sub

Пытаюсь сделать что то с этого http://vbbook.ru//igru-visual-basic-pyatnashki/ но немого (Index) для Image же нет?

Добавлено через 7 минут
Хотя бы подскажите как эту часть
Код Visual Basic

1
2
3
4

'Записываем в переменную координаты случайно выбранной кнопки
q = Command1(d).Left
w = Command1(d).Top

применить к Image т.е. как заменить Command1(Index)

Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Mikle Вопросов: 5 Ответов: 134	Профиль \| \| #1	Добавлено: 18.12.12 11:46
	Посмотри тут: http://bbs.vbstreets.ru/viewtopic.php?f=1&t=44163 Куча готовых исходников игры "15" на VB6 - на VBA очень похоже. Ответить

Страница: 1 |