Прорисовать СНЕГи БЕГ, переключателями

@Infinity20_5 · 07.06.2016, 23:23. **Показов** 1885. **Ответов** 10

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Помогите, пожалуйста. Возникло чувство досады, неужели, думаю про себя — сам такой тупой!

Есть задача, ниже — посмотрел в Интернете, но примеров не встретил. Образец от SoftIce Как прорисовать? — мне нисколько не помогает, он также пытается скрыть великую российскую тайну обучения.

3. 1. Создайте проект, на котором два переключателя, один прорисовывает слово СНЕГ, а другой БЕГ.

Не по теме:

По мне: если за 3-4 часа поиска ничего путного не встретил в Интернете, то надо сразу проламывать башку преподам — как бессовестным ханыгам и побирушкам, дающим такие задания. Это ведь заведомое вымогательство, а не учёба.

@агерон · 07.06.2016, 23:32

Кхм... ну да ну да препод настолько жестокий что капец... а включить голову и подумать не судьба?

@Infinity20_5 · 07.06.2016, 23:52 **[ТС]**

Почему, если поясняют: Казанский, gaw и др. — то сразу всё понятно? В чём дело?
Например, сразу ясно, что делать Синусоиды на 1 координатной плоскости

Не по теме:

В России условия жизни суровые, не привык церемониться: ни с федеральными судьями, ни с прокурорами, ни с блатными авторитетами. Сразу спрашиваю в лоб: ты почему не по совести поступаешь? Время дорого, пусть в прятки с другими играют.

Shersh · 08.06.2016, 07:16

Infinity20_5, всё что необходимо для решения расписано, причём именно там, где Вы нашли эту чудо-задачу.
А заморачиваться на очевидном - это Ваш принцип, все уже поняли, потому и молчат.

@Infinity20_5 · 08.06.2016, 12:30 **[ТС]**

Сообщение от Shersh

причём именно там, где Вы нашли эту чудо-задачу.

Shersh!
Чтобы мой Visual Basic 6.0 работал без APPCRASH — снёс свои: Антивирусник и Файервол. Проблема APPCRASH исчезла! Сейчас VB6 работает отлично.

Пришлось установить другой Антивирусник (Microsoft Security Essentials) — они все с какой-нибудь придурью и норовом. Вот и этот сегодня начал блокировать Вашу ссылку ((i)http://tfolio.ru/item/dSeE) объявив её вне закона. Рисунок ниже.

Сам архив "Лабораторной работы 26" — смотрите во вложении.

Где именно написано? Пожалуйста, ткните меня носом.

На всякий случай обратился в фирму по выполнению работ для студентов, хочется узнать предварительную оценку стоимости заказа. Любопытство.

SoftIce · 08.06.2016, 16:21

Сообщение от Infinity20_5

Образец от SoftIce Как прорисовать? — мне нисколько не помогает, он также пытается скрыть великую российскую тайну обучения.

Ничего не понимаю. Проблема то в чем? Вот код, вот скрин. Что еще не так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Option1_Click(Index As Integer)
    Draw Index
End Sub
 
Sub Draw(ByVal n As Integer)
    Cls
    Me.AutoRedraw = True: Me.Scale (0, 20)-(60, -20): Me.DrawWidth = 10: Me.ForeColor = vbBlue
 
    Select Case n
       Case 0
          Circle (10, 0), 10, , 1.2, 5, 1.5
          Line (15, -13)-(15, 13): Line (25, -13)-(25, 13): Line (15, 0)-(25, 0)
          Line (30, -13)-(30, 13):   Line (30, 0)-(40, 0):   Line (30, 13)-(40, 13):   Line (30, -13)-(40, -13)
          Line (45, -13)-(45, 13):   Line (45, 13)-(55, 13)
       Case 1
          Circle (18, -4), 7.3, , 4.4, 1.9, 1.1: Line (15, 13)-(25, 13): Line (15, -13)-(15, 13)
          Line (30, -13)-(30, 13):   Line (30, 0)-(40, 0):   Line (30, 13)-(40, 13):   Line (30, -13)-(40, -13)
          Line (45, -13)-(45, 13):   Line (45, 13)-(55, 13)
    End Select
End Sub

@Alex77755 · 09.06.2016, 09:01

Ну так надо ж координаты линий определить и параметры эллипса!
А

великую российскую тайну обучения.

никто не скрывает: ходи на лекции и практические задания! Читай справочники и смотри примеры! Пробуй сам сделать!

@Infinity20_5 · 09.06.2016, 21:27 **[ТС]**

Сообщение от SoftIce

Ничего не понимаю. Проблема то в чем? Вот код, вот скрин. Что еще не так?

SoftIce!
Вы прекрасно понимаете, что нуждаюсь в Форме (frm). Сам придерживаюсь принципа: не оскуднеет рука дающего.

Делаю вложение как архив своей Формы (frm). Что у меня не так? Поставил Index=0 для Option1, Index=1 для Option2.
В результате: СНЕГ у меня появляется без проблем, а на БЕГ переключиться никак не могу. Тупик.

Моя Форма (frm)

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
ERSION 5.00
Begin VB.Form Form13 
   Caption         =   "Form13"
   ClientHeight    =   5550
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   9165
   LinkTopic       =   "Form1"
   ScaleHeight     =   5550
   ScaleWidth      =   9165
   StartUpPosition =   3  'Windows Default
   Begin VB.OptionButton Option2 
      Caption         =   "Option2"
      Height          =   375
      Index           =   1
      Left            =   7680
      TabIndex        =   2
      Top             =   5040
      Width           =   1095
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Option1"
      Height          =   375
      Index           =   0
      Left            =   480
      TabIndex        =   1
      Top             =   5040
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   400
      Left            =   6600
      TabIndex        =   0
      Top             =   120
      Width           =   2295
   End
End
Attribute VB_Name = "Form13"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 
 
Option Explicit
Private Sub Option1_Click(Index As Integer)
    Draw Index
End Sub
 
Sub Draw(ByVal n As Integer)
    Cls
    Me.AutoRedraw = True: Me.Scale (0, 20)-(60, -20): Me.DrawWidth = 10: Me.ForeColor = vbBlue
 
    Select Case n
       Case 0
          Circle (10, 0), 10, , 1.2, 5, 1.5
          Line (15, -13)-(15, 13): Line (25, -13)-(25, 13): Line (15, 0)-(25, 0)
          Line (30, -13)-(30, 13):   Line (30, 0)-(40, 0):   Line (30, 13)-(40, 13):   Line (30, -13)-(40, -13)
          Line (45, -13)-(45, 13):   Line (45, 13)-(55, 13)
       Case 1
          Circle (18, -4), 7.3, , 4.4, 1.9, 1.1: Line (15, 13)-(25, 13): Line (15, -13)-(15, 13)
          Line (30, -13)-(30, 13):   Line (30, 0)-(40, 0):   Line (30, 13)-(40, 13):   Line (30, -13)-(40, -13)
          Line (45, -13)-(45, 13):   Line (45, 13)-(55, 13)
    End Select
End Sub

SoftIce · 09.06.2016, 21:50

Сообщение от Infinity20_5

Поставил Index=0 для Option1, Index=1 для Option2

У Вас должно быть два Option1
У одного Index=0 а у другого Index=1

@Infinity20_5 · 09.06.2016, 22:53 **[ТС]**

Сообщение от SoftIce

У Вас должно быть два Option1

Спасибо, всё получилось. Подсознательно считал подобное святотатством, учитывая скрупулёзность Visual Basic 6.0
Но он себе на уме — прописывает в Properties: Option1(0) и Option1(1).

@агерон · 10.06.2016, 00:47

Infinity20_5, В качестве ответа на вопрос почему я не стал делать его задачку оставлю тестовое задание на Senior Developer C# в T8
Когда TC поймет как это решить тогда и поговорим о том что в ВВУЗЕ дают сложные задачи :-DDDD

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Infinity20_5 Заблокирован

	Прорисовать СНЕГи БЕГ, переключателями 07.06.2016, 23:23. Показов 1885. Ответов 10 Метки нет (Все метки) Здравствуйте! Помогите, пожалуйста. Возникло чувство досады, неужели, думаю про себя — сам такой тупой! Есть задача, ниже — посмотрел в Интернете, но примеров не встретил. Образец от SoftIce Как прорисовать? — мне нисколько не помогает, он также пытается скрыть великую российскую тайну обучения. 3. 1. Создайте проект, на котором два переключателя, один прорисовывает слово СНЕГ, а другой БЕГ. Не по теме: По мне: если за 3-4 часа поиска ничего путного не встретил в Интернете, то надо сразу проламывать башку преподам — как бессовестным ханыгам и побирушкам, дающим такие задания. Это ведь заведомое вымогательство, а не учёба. 0

@агерон 447 / 300 / 65 Регистрация: 12.10.2009 Сообщений: 1,162
	07.06.2016, 23:32
	Кхм... ну да ну да препод настолько жестокий что капец... а включить голову и подумать не судьба? 0

@Infinity20_5 Заблокирован
	07.06.2016, 23:52 [ТС]
	Почему, если поясняют: Казанский, gaw и др. — то сразу всё понятно? В чём дело? Например, сразу ясно, что делать Синусоиды на 1 координатной плоскости Не по теме: В России условия жизни суровые, не привык церемониться: ни с федеральными судьями, ни с прокурорами, ни с блатными авторитетами. Сразу спрашиваю в лоб: ты почему не по совести поступаешь? Время дорого, пусть в прятки с другими играют. 0

Shersh Заблокирован
	08.06.2016, 07:16
	Infinity20_5, всё что необходимо для решения расписано, причём именно там, где Вы нашли эту чудо-задачу. А заморачиваться на очевидном - это Ваш принцип, все уже поняли, потому и молчат. 0

Прорисовать СНЕГи БЕГ, переключателями

Решение