Информатика: Подскажите как мне нарисовать паука в паутине в qbasic.

neondragooffi

28.12.2022 06:38

Информатика

Есть ответ 👍

Подскажите как мне нарисовать паука в паутине в qbasic.

211

249

Посмотреть ответы 2

Ответы на вопрос:

kmurtazalieva72

Информатика

4,5(43 оценок)

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

public class form1 dim x, y as integer sub pau(byval gr as graphics, byval x as integer, byval y as integer) dim i, w, h as integer gr.clear(color.white) w = clientrectangle.width / 2 h = clientrectangle.height / 2 for i = 0 to 2 gr.drawline(pens.burlywood, new point(w * i, 0), new point(x, y)) gr.drawline(pens.burlywood, new point(w * i, h * 2), new point(x, y))

next gr.drawline(pens.burlywood, new point(0, h), new point(x, y)) gr.drawline(pens.burlywood, new point(w * 2, h), new point(x, y)) end sub private sub form1_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs) handles me.mouseup dim gr as graphics = me.creategraphics

x = e.x y = e.y pau(gr, x, y) end sub

private sub form1_paint(byval sender as object, byval e as system.windows.forms.painteventargs) handles me.paint dim gr as graphics = e.graphics pau(gr, x, y) end sub

private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load x = 100 y = 230 end subend class

JumpyWizzard

Информатика

4,4(71 оценок)

Наполнили 5 отлили 2 и вылели в котел с 5 перелили в 4 наполнили 5 отлили 2 и вылели в котел итого по 3 в 4, 5 и котле

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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