Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/30: Рейтинг темы: голосов - 30, средняя оценка - 4.83
Rim230115
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 22
1

Нарисовать весы с чашами

10.05.2012, 10:59. Просмотров 5854. Ответов 4
Метки нет (Все метки)

Помогите написать весы с чашами на Visual Basic
0
Изображения
 
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 10:59
Ответы с готовыми решениями:

Протокол обмена устройства (весы)
народ не подскажете как по протоколу обмена устройства (весы) написать драйвер или как с этим...

Нарисовать весы с чашами
помогите зделать работу проболел половину пришёл на пары и ничего не понимаю... -_- Нужно сделать...

Нарисовать весы
помогите нарисовать! вообще не умею и не понимаю как это делать( рисунок не идеальный но...

Весы
Напишите класс Balance для описания весов с двумя чашами. На левую и правую чашу объекта будут...

Электронные весы
Неплохие задачи по С++! Подзабыл его( выручайте, буду очень благодарен 4. Ваша задача - грамотно...

4
Rim230115
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 22
10.05.2012, 12:50  [ТС] 2
весы я сделал а вот анимацию не могу. помогите плиз((((


Visual Basic
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
Option Explicit
Private Sub Form_Load()
Dim R As Integer, X As Integer, Y As Integer, C As Integer, H As Integer
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    DrawWidth = 5
    Line (150, 30)-(150, 300), vbBlack
       FillStyle = 0
    Circle (150, 30), 7, vbBlack
       FillStyle = 0
    Circle (150, 200), 7, vbBlack
       FillStyle = 0
    Circle (150, 300), 7, vbRed
    Line (35, 70)-(270, 140), vbBlack
     FillStyle = 0
    Circle (35, 70), 7, vbBlack
    FillStyle = 0
    Circle (270, 140), 7, vbBlack
    Line (60, 307)-(240, 310), vbBlack, BF
    Line (40, 315)-(260, 330), vbBlack, BF
     DrawWidth = 2
    Line (35, 70)-(35, 150), vbBlack
    Line (35, 70)-(20, 150), vbBlack
    Line (35, 70)-(50, 150), vbBlack
    Line (270, 140)-(270, 220), vbBlack
    Line (270, 140)-(255, 220), vbBlack
     Line (270, 140)-(285, 220), vbBlack
     Line (230, 220)-(310, 225), vbBlack, BF
     Line (235, 227)-(305, 232), vbBlack, BF
     Line (2, 150)-(70, 155), vbBlack, BF
     Line (7, 156)-(65, 161), vbBlack, BF
End Sub
0
dev.Free
Заблокирован
10.05.2012, 13:57 3
А что если все в обратном положении и через таймер с указанием времени ?
1
PAnT0P
1029 / 553 / 106
Регистрация: 26.03.2012
Сообщений: 993
10.05.2012, 14:24 4
Лучший ответ Сообщение было отмечено как решение

Решение

На форму добавить кнопку
Visual Basic
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Option Explicit
 
Private Animate As Boolean, Up As Boolean
Private YL As Integer, YR As Integer
 
Private Sub Form_Load()
    Dim R As Integer, X As Integer, Y As Integer, C As Integer, H As Integer
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    DrawWidth = 5
    Line (150, 30)-(150, 300), vbBlack
    FillStyle = 0
    Circle (150, 30), 7, vbBlack
    FillStyle = 0
    Circle (150, 250), 7, vbBlack
    FillStyle = 0
    Circle (150, 300), 7, vbRed
    Line (60, 307)-(240, 310), vbBlack, BF
    Line (40, 315)-(260, 330), vbBlack, BF
    'Êîðîìûñëî
    Line (35, 70)-(270, 140), vbBlack
    FillStyle = 0
    Circle (35, 70), 5, vbBlack
    FillStyle = 0
    Circle (270, 140), 5, vbBlack
    DrawWidth = 2
    'Ëåâàÿ ÷àøêà
    Line (35, 70)-(35, 150), vbBlack
    Line (35, 70)-(20, 150), vbBlack
    Line (35, 70)-(50, 150), vbBlack
    Line (2, 150)-(70, 155), vbBlack, BF
    Line (7, 156)-(65, 161), vbBlack, BF
    'Ïðàâàÿ ÷àøêà
    Line (270, 140)-(270, 220), vbBlack
    Line (270, 140)-(255, 220), vbBlack
    Line (270, 140)-(285, 220), vbBlack
    Line (230, 220)-(310, 225), vbBlack, BF
    Line (235, 227)-(305, 232), vbBlack, BF
    YL = 70
    YR = 140
End Sub
 
Private Sub Command1_Click()
    Dim Color As Long
    Color = Me.Point(5, 5)
    Animate = Not Animate
    Do While Animate
        If Up Then
            YL = YL - 1
            YR = YR + 1
        Else
            YL = YL + 1
            YR = YR - 1
        End If
        If YL = 70 Or YR = 70 Then
            Up = Not Up
        End If
        Me.Line (0, 64)-(147, 232), Color, BF
        Me.Line (154, 64)-(310, 232), Color, BF
        'Êîðîìûñëî
        Line (35, YL)-(270, YR), vbBlack
        FillStyle = 0
        Circle (35, YL), 5, vbBlack
        FillStyle = 0
        Circle (270, YR), 5, vbBlack
        DrawWidth = 2
        'Ëåâàÿ ÷àøêà
        Line (35, YL)-(35, YL + 80), vbBlack
        Line (35, YL)-(20, YL + 80), vbBlack
        Line (35, YL)-(50, YL + 80), vbBlack
        Line (2, YL + 80)-(70, YL + 85), vbBlack, BF
        Line (7, YL + 86)-(65, YL + 91), vbBlack, BF
        'Ïðàâàÿ ÷àøêà
        Line (270, YR)-(270, YR + 80), vbBlack
        Line (270, YR)-(255, YR + 80), vbBlack
        Line (270, YR)-(285, YR + 80), vbBlack
        Line (230, YR + 80)-(310, YR + 85), vbBlack, BF
        Line (235, YR + 86)-(305, YR + 91), vbBlack, BF
        DoEvents
    Loop
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Animate = False
    DoEvents
    End
End Sub
3
Вложения
Тип файла: zip Project1.zip (3.5 Кб, 22 просмотров)
SoftIce
es geht mir gut
11189 / 4613 / 1161
Регистрация: 27.07.2011
Сообщений: 11,317
Завершенные тесты: 1
10.05.2012, 15:01 5
Я тоже выложу свой вариант
2
Вложения
Тип файла: rar Весы.rar (1.5 Кб, 64 просмотров)
10.05.2012, 15:01
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 15:01

Изобразить анимированные весы
Нужно сделать программу анимированные весы. Помогите плиз))) заранее благодарен)

Графика. Анимированные весы
При выполнении программы возникают дефекты по ходу движения фигур. Конкретно, чашечки весов...

Весы с печатью этикеток
Добрый день. Конфигурация Управление нашей фирмой 1.6. Какие весы с печатью этикеток посоветуете...


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

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

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