Труба наискосок — код vb.net

Решение задачи номер 41 по книге Лукина С.Н. «Понятно о Visual Basic.NET»

Условие задачи:

Нарисуйте «трубу» наискосок. Получилось? Теперь попробуйте вместе с координа-тами x и у менять также и диаметр окружности. Если вы будете понемножку его увеличи-вать, начиная с 0, то получите «трубопровод», уходящий в бесконечность.

Читать далее

Рубрика: Решение заданий vb.net | Оставить комментарий

Две очереди трассирующими ночью

Решение задачи номер 40 по книге Лукина С.Н. «Понятно о Visual Basic.NET»

Условие задачи:

«Две очереди трассирующими ночью». Мы «перечеркнули» форму окружностями наискосок из левого верхнего угла приблизительно в правый нижний. Пусть теперь это будут очень маленькие кружочки на черной форме. Получилась «очередь трассирующи-ми». Вслед за этим перечеркните форму очередью также и из левого нижнего угла, чтобы на экране получились две пересекающиеся очереди.

Читать далее

Рубрика: Решение заданий vb.net | Оставить комментарий

Реструктуризация в блоге

Приветствую тех, кто меня постоянно читает ,и пробует вместе со мной разобраться с заданиями и решениями вопросов по vb.net

Сегодня, после нескольких месяцев создания моего блога, решил произвести небольшую реструктуризацию своего ресурса.

  1. Добавил новую рубрику «Решение задач по vb.net» . По идее сейчас я прохожу только Лукина , и рубрику следовало бы назвать соответственно, но … в дальнейшем думаю буду решать более глобальные задачи и по другим учебникам, поэтому название для рубрики выбрано общее: » Решение задач по vb.net»
  2. Все предыдущие решения добавил также в эту рубрику.
  3. В дальнейшем для заданий не буду делать отдельные программы. Да и зачем они нужны ? Каждый может самостоятельно сделать то, что ему надо в visualstudio, так как код буду размещать в записи.
  4. P.S программы в принципе не особо и нужны пользователям, тем более их надо скачивать, запускать, а тут довольно всё рискованно. Гораздо проще зайти на какой — либо сайт и проделать всё это в онлайн режиме ). В дальнейшем так и буду делать .. но .. до этого я ещё не дошёл и все познания в области создания интерактивного собственного сайта впереди.
Рубрика: Мой дневник | Оставить комментарий

Игра Напёрстки

90-е года прошли, однако до сих пор помню игру , с помощью которой разводили людей. Называлась она Напёрстки. Суть игры наверное все помнят. На столе три напёрстка, под одним шарик ( у меня монетка), тот кто угадает под каким напёрстком шарик, тот получает выигрыш.  Как на самом деле в реале разводили людей, без понятия, но в моей программе появление шарика реализовано с помощью функции RND — генератора случайных чисел.

Читать далее

Рубрика: Мои программы | Оставить комментарий

Рисуем стог сена

Одно из интересных заданий. Впоследствии код можно использовать в функции и рисовать стог сена на какой — либо картинке, либо в игре. Условие задания

«Стог сена». Множество случайных разноцветных отрезков прямых преимуще-ственно желтоватых оттенков, причем одна точка любого отрезка находится в случайной точке левой трети стога, другая – в случайной точке правой. Размер стога – 600 на 600.

Читать далее

Рубрика: Мои программы, Решение заданий vb.net | Оставить комментарий

Рисуем: Сноп света в глаза

Решение задачи номер 37  Условие:

«Сноп света в глаза». То есть пучок лучей, выходящих из одной точки. Реализуется множеством случайных разноцветных отрезков прямых, причем одна точка всех отрезков не случайна, а находится в центре формы. Хорошо смотрится на черном фоне.

Читать далее

Рубрика: Мои программы, Решение заданий vb.net | Оставить комментарий

Рисуем Мыльные пузыри

По заданию 36 из книги Лукина «Понятно о Visual Basic.net » нам нужно нарисовать мыльные пузыри различных диаметров и различных оттенков.

Не совсем понимаю, как это сделать, так как до цветов и оттенков в цифровом варианте ещё не доходили, а прошли только в свойствах, но по любому придется делать, так как задание решить надо.

Читать далее

Рубрика: Мои программы, Мой дневник, Решение заданий vb.net | Оставить комментарий

Рисуем — Дождь в луже

Очередное решение задачи номер 35 по книге Лукина. Условия задачи:

“Дождь в луже”. Поместите на форму PictureBox. Покрасьте его в цвет воды. Сделай-те ему рамочку. Все это в режиме проектирования. Это наша лужа или, скорее, бассейн. Нарисуйте на нем в случайных местах штук 20 эллипсов, сжатых по вертикали раза в два.

Когда рисовал в прошлый раз, получилось очень даже симпотично. Задание очень простое. И так, решение задачи:

Читать далее

Рубрика: Мои программы, Решение заданий vb.net | Оставить комментарий

Рисуем — Бросок камня

По условию задачи «Полёт камня»

«Полет камня». Это непростое задание разделим на два этапа:
Вычислительная часть. Если камень бросить горизонтально со 100-метровой башни со скоростью v=20м/с, то его расстояние от башни по горизонтали s будет выражаться формулой s=vt, где t – время полета камня в секундах. Высота над землей h будет выра-жаться формулой h=100-9.81t2/2. Требуется вычислять и печатать t, s и h для значений t = 0, 0.2, 0.4, 0.6 и так далее до тех пор, пока камень не упадет на землю.
Графическая часть (выполнять только в том случае, если получилась вычислитель-ная). Нарисовать землю, башню и траекторию камня (Рис. 8.1). Указание: Траектория – серия кружочков. За одну итерацию цикла рисуется один кружочек. Высота башни – 100 пикселей. И в остальном тоже выберем масштаб – 1 метр – 1 пиксель, что удобно. Гори-зонтальная координата кружка на форме – это s с небольшим сдвигом вправо, так как бросаем не от левого края формы. Вертикальная координата кружка на форме – это 100-h с небольшим сдвигом вниз, так как бросаем не от верхнего края формы. Переменная h взята со знаком минус потому, что вертикальная ось в компьютерной системе координат направлена вниз.

Читать далее

Рубрика: Мои программы, Решение заданий vb.net | Оставить комментарий

Разговор с компьютером

Решение задачи номер 31

Пусть компьютер перед распечаткой каждого слова ставит его порядковый номер. И еще: если слово длинней 10 букв, компьютер должен добавить – «Тяжелая жизнь.».

 

Решение:

Public Class Form1
    Dim slovo As String
    Dim a As Integer = 0


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do
            slovo = InputBox("Введите слово") ' пользователь вводит слово
            a += 1 'цикл счётчик попыток
            If Len(slovo) > 10 Then 'счёт количества символов
                Debug.WriteLine(a & " " & slovo & " Тяжёлая жизнь")
            Else
                Debug.WriteLine(a & " " & slovo & "!")
            End If

        Loop Until slovo = "Хватит" 'выход из цикла


        Debug.WriteLine("Хватит так хватит")


    End Sub

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

Рубрика: Мой дневник, Решение заданий vb.net | Оставить комментарий