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

Решение задачи номер 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 | Оставить комментарий

Игра — Попади в цель

Решение задачи 19 по книге Лукина «Понятно о Visual Basic.net»

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

Усложним нашу задачу про ПОПАЛ – НЕ ПОПАЛ: Целей для нашего выстрела две. Одна находится в диапазоне дальности 28-30, другая – в диапазоне 65-70. Человек вводит в компьютер число – дальность выстрела. Если снаряд попал в цель, то есть число находится в интервале от 28 до 30 или от 65 до 70, то нужно выдать сообщение ПОПАЛ. Если снаряд упал на расстоянии ближе 10 к любой из целей, то нужно выдать сообщение БЛИЗКО. Кроме этого предусмотрите варианты ПЕРЕЛЕТ, НЕДОЛЕТ, МЕЖДУ ЦЕЛЯМИ и НЕ БЕЙ ПО СВОИМ. Нарисуйте схему выстрела (Рис. 7.3). Горизонтальная линия – земля. Два синих прямоугольника в заданном месте и заданных размеров – это цели. Черный квадратик слева – пушка. Вся картина должна появляться на форме до ввода дальности выстрела, после ввода должен появляться красный. кружочек – место попадания снаряда. Перед рисованием вам придется выбрать масштаб: скажем, 1 к 10. Это значит, что, например, первая цель будет прямоугольником, занимающим пространство на расстоянии от 280 до 300 пикселей от пушки.

Читать далее

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

Два треугольника

Пишем программу по заданию 16 учебника Лукина «Понятно о Visual.Net»

Условие задания:

В компьютер вводятся длины трех отрезков. Компьютер должен ответить на вопрос, можно или нельзя из этих отрезков обра-зовать треугольник.

Решение: В условии задачи мы должны ввести длины отрезков, но давайте усложним, вычислим длину отрезков по координатам, и если нельзя из этих отрезков построить треугольник, выведем об этом сообщение.

Читать далее

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

Игра — Угадай число

Продолжаем творить и решать задачки, которые заданы в учебники Лукина. На этот раз пишем игру — Угадай число.

«Угадай число» или «Экстрасенс ли вы». Это ваша первая простейшая игра с компьютером. Компьютер загадывает число – 0 или 1. Ваше дело – отгадать. А дело компьютера – сказать «Угадал» или «Не угадал». Некоторые экстрасенсы утверждают, что бла-годаря сверхчувственному контакту с компьютером они могут из 100 раз угадать 80.

Решение задачи :

Читать далее

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

Игра — Поймай кузнечика

Решаем задачу с книги Лукина «Понятно о Visual Basic.Net»

«Ловля кузнечика или измеритель шустрости». Создайте проект с большой формой и одной очень маленькой кнопкой. При нажатии на кнопку она должна прыгать в случайное место формы. Вы щелкнули по кнопке – она прыгнула, вы снова поскорее щелк-нули – она снова прыгнула, и так далее. Старайтесь щелкать как можно чаще. Можете засечь, сколько раз вам удалось щелкнуть за 1 минуту. Побеждает тот, у кого за 1 минуту кнопка прыгнет наибольшее число раз.

Примечание: Время засекается с помощью внешних источников, так как в Visual Basic данный элемент ещё не пройдён

Решение:

Читать далее

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

Звёздное небо

Ответ на задачу в учебнике Лукина.

Условие: Создайте проект «Звездное небо в окне»

Решение:

Читать далее

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