Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/12: Рейтинг темы: голосов - 12, средняя оценка - 4.50
samvel00077
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 61
1

Анимация: как сделать что бы шарик двигался снизу вверх, а не сверху вниз

21.01.2012, 19:18. Просмотров 2142. Ответов 12
Метки нет (Все метки)

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ublic Class Form1
    Dim x, y, h, w As Integer
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim Graph As Graphics
        Graph = Me.CreateGraphics
        Graph.DrawEllipse(Pens.LightGray, 200, x, 40, 40)
        x = x + 1
        Graph.FillEllipse(Brushes.Beige, 200, x, 40, 40)
        If (x = h - 40) Or (y = w - 40) Then Timer1.Stop()
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
             Me.BackColor = Color.LightGray
    End Sub
End Class
как сделать что бы шарик двигался снизу вверх..а не сверху вниз?? помогите плиз
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2012, 19:18
Ответы с готовыми решениями:

Как добавить текст в Richbox снизу вверх
Как добавить текст в Richbox снизу вверх?Это мне нужно для чата. У меня есть...

Парсинг снизу вверх
Не могу разобраться, как заставить парсер, парсить не сверху вниз ,а снизу...

Вывести сообщения в чате не снизу вверх, а сверху вниз
Делаю чат ,так вот мне нужно вивести 20 последних сообщений но мне нужно...

Первый столбец матрицы записать сверху вниз, второй снизу вверх
program matrix12 real a(100,100) print *, 'Введите кол-во строк' read *, m...

Заполнение матрицы змейкой: первый столбец - снизу вверх, второй - сверху вниз
задать матрицу типа: 8 9 24 7 10 23 6 11 22 5 12 21 4 ...

12
Eugene22
_
2351 / 1224 / 78
Регистрация: 28.10.2009
Сообщений: 4,331
21.01.2012, 23:06 2
samvel00077,
vb.net
1
x = x - 1
, ну и в конце проверку.
И хорошо подумайте, над тем нужно ли вам проверять значение y в процедуре таймера
0
samvel00077
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 61
21.01.2012, 23:11  [ТС] 3
я уже пробовал
x = x - 1
шарик движется с верхнего экрана верх и его не видно а мне нужно что бы он с нижнего экрана или хотя бы с середины экрана..... а у меня не получается..((((
0
Eugene22
_
2351 / 1224 / 78
Регистрация: 28.10.2009
Сообщений: 4,331
21.01.2012, 23:15 4
samvel00077,
vb.net
1
x=400
- а так?
0
samvel00077
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 61
21.01.2012, 23:17  [ТС] 5
и так пробовал он стоит на месте и не гуда не двигается(((((
0
Eugene22
_
2351 / 1224 / 78
Регистрация: 28.10.2009
Сообщений: 4,331
21.01.2012, 23:18 6
Цитата Сообщение от samvel00077 Посмотреть сообщение
и так пробовал он стоит на месте и не гуда не двигается(((((
ты жжешь. Даю подсказку - нам надо одновременно использовать оба выражения и
vb.net
1
x=400
и
vb.net
1
x = x - 1
1
samvel00077
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 61
21.01.2012, 23:22  [ТС] 7
ну у меня так и стоит.....я уже просто не знаю что делать..((((
0
Eugene22
_
2351 / 1224 / 78
Регистрация: 28.10.2009
Сообщений: 4,331
21.01.2012, 23:25 8
samvel00077, так - это как?
0
samvel00077
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 61
21.01.2012, 23:25  [ТС] 9
почему хрен знает я уже с утра голову ломаю........(((

Добавлено через 39 секунд
Dim x, y, h, w As Integer
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Dim Graph As Graphics
Graph = Me.CreateGraphics
Graph.DrawEllipse(Pens.LightGray, 200, x, 40, 40)
x = 250
x = x - 1
Graph.FillEllipse(Brushes.Beige, 200, x, 40, 40)
If (x = h - 40) Then Timer1.Stop()
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.LightGray
End Sub
End Class
0
Eugene22
_
2351 / 1224 / 78
Регистрация: 28.10.2009
Сообщений: 4,331
21.01.2012, 23:32 10
vb.net
1
2
3
4
5
6
7
8
9
10
Dim x=250 As Integer
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Dim Graph As Graphics
Graph = Me.CreateGraphics
Graph.DrawEllipse(Pens.LightGray, 200, x, 40, 40)
 
x = x - 1
Graph.FillEllipse(Brushes.Beige, 200, x, 40, 40)
If (x =  40) Then Timer1.Stop()
End Sub
0
samvel00077
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 61
21.01.2012, 23:37  [ТС] 11
Dim x=250 As Integer так нельзя писать выдает ошибку...(((((
0
Eugene22
_
2351 / 1224 / 78
Регистрация: 28.10.2009
Сообщений: 4,331
21.01.2012, 23:39 12
а так
vb.net
1
Dim x As Integer = 250
0
samvel00077
0 / 0 / 0
Регистрация: 10.04.2011
Сообщений: 61
21.01.2012, 23:43  [ТС] 13
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
    Dim x As Integer = 250
    Dim h As Integer
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim Graph As Graphics
 
        Graph = Me.CreateGraphics
        Graph.DrawEllipse(Pens.LightGray, 200, x, 40, 40)
        x = x - 1
        Graph.FillEllipse(Brushes.Beige, 200, x, 40, 40)
        If (x = h - 40) Then Timer1.Stop()
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.LightGray
    End Sub
End Class
Вот так работает....СПС за помощь...
0
21.01.2012, 23:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2012, 23:43

Вывести элементы матрицы в следующем порядке: первый столбец сверху вниз, второй столбец снизу вверх...
program Matrix12; var a:array of integer; M, N, i, j:Integer; begin...

Как сделать так что бы текст в коде был сверху, а отображалось снизу
Как сделать так что бы текст в коде был сверху, а отображалось снизу? допустим...

Шарик по лесенке прыгает снизу вверх
Нам в колледже задали на дом написать программу в модуле graphabc, типо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru