IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Синусоидальное движение объекта Shape, Visual basic 6.0
сообщение
Сообщение #1


Гость






Уважаемые товарищи программисты!!!!
Прошу прощения у вас за мою тему, но я уже какой день не могу реализовать вот что:

Мне надо сделать синусоидальное движение объекта Shape
пожалуйста кому не трудно выложите пожалуйста код реализации этого или же подробнейший алгоритм как написать код(подробнейший потому что я с бейсиком знаком не очень сильно=))))

Заранее благодарен вам, товарищи программисты!!!!
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


вот что у мя получилось сегодня но он поднимается и все я не могу сделать ограничения чтоб если t дошел до единица пошел вниз до нуля опять вверх и тд

помогите исправить пожалуйста
Код

Dim x As Integer, y As Integer
Private Sub Form_Load()
Show
End Sub
Private Sub Form_Initialize()
With Shape1
    .FillColor = vbRed
    .FillStyle = vbSolid
    .BorderStyle = vbBSNone
End With
With Timer1
    .Enabled = True
    .Interval = 50
End With
x = 0
t = 0
End Sub

Private Sub Timer1_Timer()

t_delta = 0.01
t = t + t_delta



With Shape1
    .Move .Left + x, .Top - y
End With
x = x + 1
y = Sin(t) * 900
End Sub


Сообщение отредактировано: CherkaS -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 15.08.2022 11:39
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name