Создание объекта shape программно / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание объекта shape программно

25 сообщений из 181, страница 2 из 8

все

Создание объекта shape программно

#38866507

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronА переспрашивать не хочутем самым делая еще хуже, так как я считаю, что ты понял
vdekameronпошлете или просто не ответитепошлю в гугл или учебник, если считаю, что там есть ответ, но если ты возвращаешься из гугла или учебника, не разобравшись, попытаюсь все же объяснить.

vdekameronНе совсем понял(((так. мы возвращаемся на две недели назад - основы процедур:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Sub Command1_Click()

Dim a As Integer
a = 2
a = MySum(a, 4)
MsgBox CStr(a)

End Sub
Function MySum(a As Integer, b As Integer)

MySum = a + b ^ 2

End Function

не запуская код ответь, что выведет MsgBox при нажатии кнопки и почему, потом проверь
Пока нет понимания этого кода, нет смысла идти дальше

...

Рейтинг:

0 / 0

29.01.2015, 12:28

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866515

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronДелаю вот так выдает ошибку - byref argument type mismatchа надо взять словарь английского и перевести ошибку.

Код: vbnet

sh As Integer

на основании каких соображений ты так определил аргумент?

vdekameronНе могу понять как цикл записать чтобы перебирал все им. shКоллекцию удобнее всего перебирать с помощью цикла For Each, а не с помощью For. Тогда тебе не надо будет думать о том, сколько у тебя элементов в коллекции и как они называются.

...

Рейтинг:

0 / 0

29.01.2015, 12:32

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866634

vdekameron

Гость

Shocker.Proне запуская код ответь, что выведет MsgBox при нажатии кнопки и почему, потом проверь
Пока нет понимания этого кода, нет смысла идти дальше
Сначала прочитал, ответил и проверил- сошлось. Я понимаю смысл каждой строчки этого кода.

Код: vbnet

a = MySum(a, 4)

- вызываю функцию, передавая ей a=2 и b=4. Возвращаем из нее 18
Shocker.Proна основании каких соображений ты так определил аргумент?
на основании того, что кол-во шейпов это же число.

Shocker.ProКоллекцию удобнее всего перебирать с помощью цикла For Each, а не с помощью For.
Сейчас читал про For each.

Код: vbnet

1.
2.
3.
4.
5.

Private Sub Timer1_Timer()
 For Each sh In Me.Controls
 One_step
 Next sh
End Sub

Не могу понять почему он присваивает sh имя - Таймер Разве sh не коллекция контролов?

...

Рейтинг:

0 / 0

29.01.2015, 13:29

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866644

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronна основании того, что кол-во шейпов это же число.А причем тут количество шейпов? Ты разве количество передаешь в процедуру? Что ты должен передать туда? И как ты у КОЛИЧЕСТВА потом нашел свойства Left и Top?

vdekameronСейчас читал про For each.

Код: vbnet

1.
2.
3.
4.
5.

Private Sub Timer1_Timer()
 For Each sh In Me.Controls
 One_step
 Next sh
End Sub

Не могу понять почему он присваивает sh имя - Таймер Разве sh не коллекция контролов?Всё не то.
Во-первых, тебе нужно перебирать в цикле коллекцию шейпов, а не коллекцию контролов формы
Во-вторых, где и как у тебя объявлена sh? Уже десять раз сказал, что переменные надо в процедурах объявить, а ты опять ее неизвестно где объявил.
Нет, sh - это не коллекция контролов.

Код: vbnet

Dim colShapes As New Collection 'вот твоя коллекция шейпов

Код: vbnet

colShapes.Add sh 'вот ты добавляешь туда очередной шейп

...

Рейтинг:

0 / 0

29.01.2015, 13:40

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866759

vdekameron

Гость

Shocker.ProВо-вторых, где и как у тебя объявлена sh? Уже десять раз сказал, что переменные надо в процедурах объявить, а ты опять ее неизвестно где объявил.
Объявляю в процедуре возникает ошибка, а так работает. значит неправильно объявил ее?
Вот до чего дошел. Все работает, только не знаю куда вопхнуть счетчик k=k+1. когда один sh он отрабатывает 10 шагов первого sh , а когда появляется второй sh то третий уже появляется после 5 шагов первого и 5 второго. т .е. в прогрессии уменьшается число шагов каждого до появления след.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.

Dim sh As Control
Dim colShapes As New Collection
Dim k As Integer

Private Sub Form_Load()
Show
  eddcontrol
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
 For Each sh In colShapes
 One_step
 Next sh
End Sub

Private Sub One_step()
    sh.Left = sh.Left + 200
    sh.Top = sh.Top + 300
    k = k + 1
    If k = 3 Then eddcontrol
End Sub

Private Sub eddcontrol()
  k = 0
  Set sh = Me.Controls.Add("VB.Shape", "sh" & colShapes.Count)
  sh.Visible = 1
  sh.Shape = 3
  colShapes.Add sh
End Sub

...

Рейтинг:

0 / 0

29.01.2015, 14:52

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866780

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronОбъявляю в процедуре возникает ошибка, а так работает. значит неправильно объявил ее?значит ты не понимаешь, где и для чего она используется. Ты мыслишь тем, что переменная sh у тебя глобальная, поэтому затык, второй день никак не получается выбить из тебя эту дурь.
Забудь, у тебя нет глобальной переменной sh. Чтобы тебе было проще, забудь вообще про слово "sh" и объяви несколько переменных для шейпов с РАЗНЫМИ именами в каждой из процедур. Когда ты это сделаешь правильно, у тебя ВНЕЗАПНО прояснится в голове.

Кроме того, ты не сделал что я просил. У One_step должен быть параметр на входе - он должен принимать шейп и работать С НИМ (а не с каким-то непонятно каким sh). Ты пока все еще не понял принцип автономности процедур.

Как сделаешь, будем со счетчиком разбираться.

...

Рейтинг:

0 / 0

29.01.2015, 15:02

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866784

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

Private Sub Timer1_Timer()
 For Each sh In colShapes
     One_step sh
 Next sh
End Sub

Private Sub One_step(ByRef Item as Shape)
    With Item 
        .Left = .Left + 200
     ...

    End With
...
End Sub

...

Рейтинг:

0 / 0

29.01.2015, 15:05

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866827

vdekameron

Гость

Shocker.Proзабудь вообще про слово "sh" и объяви несколько переменных для шейпов с РАЗНЫМИ именами в каждой из процедур

Я запутался!(((

...

Рейтинг:

0 / 0

29.01.2015, 15:31

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866833

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Ок, давай по порядку.
Удали строку

Код: vbnet

Dim sh As Control

она не нужна

Где у тебя использовалась эта sh?

1) в Timer1_Timer
напиши внутри собственный Dim (только другое имя дай)
кстати, лучше объявлять как Shape, а не как Control, ведь это же шейп

2) в One_step
тут у тебя должен быть входной параметр (см. подсказку Кости)

3) в eddcontrol
см. п. 1

...

Рейтинг:

0 / 0

29.01.2015, 15:40

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866839

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

eddcontrol

переименуй в AddShape, а то глаз режет

...

Рейтинг:

0 / 0

29.01.2015, 15:42

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866856

vdekameron

Гость

Немного прояснилось, но честно сказать все-равно не понимаю до конца. Уже тупым себя начинаю чувствовать.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.

Dim colShapes As New Collection
Dim k As Integer

Private Sub Form_Load()
Show
  eddcontrol
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim figure As Shape
 For Each figure In colShapes
 One_step figure
 Next figure
End Sub

Private Sub One_step(ByRef mama As Shape)
With mama
    .Left = .Left + 200
    .Top = .Top + 300
    k = k + 1
    If k = 3 Then eddcontrol
    End With
End Sub

Private Sub eddcontrol()
Dim check As Shape
  k = 0
  Set check = Me.Controls.Add("VB.Shape", "sh" & colShapes.Count)
  check.Visible = 1
  check.Shape = 3
  colShapes.Add check
End Sub

...

Рейтинг:

0 / 0

29.01.2015, 15:57

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866869

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Вот теперь все ок.
Спрашивай, что не понимаешь.

Что касается счетчика шагов.
Смотри, каждый тик таймера сначала двигает только один шейп (и прибавляет счетчик на единицу)
Потом начинает двигать сразу два шейпа (и счетчик меняется на две единицы за один тик)
Потом начинает двигать сразу три шейпа (и счетчик меняется на три единицы за один тик)
поэтому каждый следующий шейп у тебя появляется все быстрее и быстрее.

Чтобы счетчик считал один раз за один тик таймера, его надо поместить.... куда??? )

...

Рейтинг:

0 / 0

29.01.2015, 16:07

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866900

vdekameron

Гость

Shocker.Proкуда??? )

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

Private Sub Timer1_Timer()
Dim figure As Shape
 k = k + 1
    For Each figure In colShapes
 One_step figure
 Next figure
   If k = 20 Then eddcontrol
End Sub

...

Рейтинг:

0 / 0

29.01.2015, 16:23

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866920

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Верно, но зачем eddcontrol чего-то вообще знать о счетчике? Это - не ее предметная область

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub Timer1_Timer()
  Dim figure As Shape
  For Each figure In colShapes
    One_step figure
  Next figure
  k = k + 1
  If k = 20 Then
    eddcontrol
    k = 0
  End If
End Sub

...

Рейтинг:

0 / 0

29.01.2015, 16:35

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866924

vdekameron

Гость

Shocker.Pro,

Проверил, все работает. Как теперь быть со step? чтобы каждый шар летел в своем направлении а не все в линеечку) Я так понимаю только после этого можно будет задать условие, что делать новый шар после удара об край.

...

Рейтинг:

0 / 0

29.01.2015, 16:38

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866925

vdekameron

Гость

Shocker.ProВерно, но зачем eddcontrol чего-то вообще знать о счетчике? Это - не ее предметная область
тогда получается что и k можно объявить только в этой процедуре

...

Рейтинг:

0 / 0

29.01.2015, 16:40

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866926

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

- сделать типизованную коллекцию на основе своего класса
- в этом классе реализовать нужные методы
- вызывать методы с требуемыми параметрами для каждого элемента коллекции

...

Рейтинг:

0 / 0

29.01.2015, 16:40

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866928

vdekameron

Гость

vdekameronтогда получается что и k можно объявить только в этой процедуре

беру слова назад.

...

Рейтинг:

0 / 0

29.01.2015, 16:42

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866932

vdekameron

Гость

Konst_One- сделать типизованную коллекцию на основе своего класса
- в этом классе реализовать нужные методы
- вызывать методы с требуемыми параметрами для каждого элемента коллекции

А поподробнее можно?))

...

Рейтинг:

0 / 0

29.01.2015, 16:45

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866934

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

делается через визард коллекций в студии , дальше уже сам ручками модифицируй

...

Рейтинг:

0 / 0

29.01.2015, 16:47

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866939

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

vdekameronтогда получается что и k можно объявить только в этой процедуреда, только ее придется объявить как Static, чтобы значение не обнулялось между вызовами. А можно оставить и так.

По уже сделанному коду все понятно или есть неясности?

Что касается отскоков, давай думать.
Для того, чтобы организовать отскок, нам нужно знать, в какую сторону летит конкретный шейп. Тут одной переменной не обойдешься, ведь у каждого шейпа своя траектория.

Есть два варианта:
1) Хранить нужные данные в имеющейся коллекции шейпов. Только теперь там придется хранить не сам шейп, а некоторую структуру, которую надо организовать. Структура будет включать в себя ссылку на сам шейп, а также его StepX и StepY. Почти такой вариант предложил Костя.

2) Хранить нужные данные в самом шейпе. Для этого у каждого контрола есть специальное свойство. Но оно - текстовое, а нам надо хранить два значения (или, как вариант, шифр направления движения, типа СВ - северо-восток). Тогда при каждом шаге нужно будет его расшифровывать и проверять.

Каким путем ты хочешь пойти?

...

Рейтинг:

0 / 0

29.01.2015, 16:49

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866941

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Konst_Oneделается через визард коллекций в студии , дальше уже сам ручками модифицируйсовсем необязательно, можно тупо хранить в коллекции структуру, объявленную тут же

...

Рейтинг:

0 / 0

29.01.2015, 16:50

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866942

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

можно, но со своей коллекцией удобней и гибче, опять же можно глобальные методы сделать, общие для всех элементов и тд и тп

...

Рейтинг:

0 / 0

29.01.2015, 16:51

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866945

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Konst_Oneможно, но со своей коллекцией удобней и гибче, опять же можно глобальные методы сделать, общие для всех элементов и тд и тпто понятно, но рано еще ))

...

Рейтинг:

0 / 0

29.01.2015, 16:54

| Ответить | Цитировать | Написать

Создание объекта shape программно

#38866949

Konst_One

Участник

Сообщения: 12 099

Рейтинг: 0 / 0

вот тут погляди
http://rusproject.narod.ru/games/ball_suspend.zip

...

Рейтинг:

0 / 0

29.01.2015, 16:54

| Ответить | Цитировать | Написать

25 сообщений из 181, страница 2 из 8

все

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Создание объекта shape программно

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=38866856&tid=2156049]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	43ms
get topic data:	9ms
get forum data:	2ms
get page messages:	55ms
get tp. blocked users:	1ms
others:	11ms

total:	147ms