Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.825 RSS
←   Август 2019   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.825 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

solowey
Статус: Практикант
Рейтинг: 241
∙ повысить рейтинг » 		Megaloman
Статус: Советник
Рейтинг: 86
∙ повысить рейтинг » 		Sergey V. Gornostaev
Статус: Специалист
Рейтинг: 44
∙ повысить рейтинг »

∙ Basic

Номер выпуска:1137
Дата выхода:21.08.2019, 05:45
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:15 / 14
Вопросов / ответов:3 / 7

Консультация # 13653: Привет мальчики!Извените, что побеспокоила, но у меня опять не получается с задачами, а училка требует! Помогите пожалуйста! Вот задачи: 1)Треугольник задан длинами своих сторон. Опредеоить его тип: является ли он тупоугольным, остроугольным, прямоугольным? 2)Составте программу по которой по запросу номера месяца выдает количество месяца. ...
Консультация # 100516: Здравствуйте! Хотел спросить, как на языке Visual Basic (6 версия) можно запрограммировать мышь ? Например, такая программа: Нужно нарисовать круг, линию, точку, что угодно и управлять ей мышью, т.е. водишь мышью, и он бегает по экрану. Вопрос: как мне это сделать ? Если Вам, конечно, не сложно, пожалуйста, приведите пример тако...
Консультация # 95226: Доброго времени суток! Уважаемые Эксперты, подскажите пожалуйста, откуда можно найти материалные статьи Павела Сурменика? Помню, архив называлось vbbook.zip....

Консультация # 13653:

Привет мальчики!Извените, что побеспокоила, но у меня опять не получается с задачами, а училка требует! Помогите пожалуйста!
Вот задачи:
1)Треугольник задан длинами своих сторон. Опредеоить его тип: является ли он тупоугольным, остроугольным, прямоугольным?
2)Составте программу по которой по запросу номера месяца выдает количество месяца. учесть при этом высокостный год или нет?

Дата отправки: 01.01.2004, 00:01
Вопрос задал: Элла
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Puma:

Доброе время суток, Элла!

Консультировал: Puma
Дата отправки: 01.01.2004, 00:01
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Licvidator:

Приветствую Вас, Элла!
Почему мне кажется, что Вы даже не пытались решать? И как это все относится к яваскрипту? Одна геометрия за 9 класс... За основу берите теорему косинусов c²=a²+b²-2*a*b*cos(y), где a,b,c - стороны треугольника, y - угол, лежащий напротив стороны c, с - наибольшая сторона треугольника. Надеюсь, принципы, по которым тот или иной треугольник относят к тупоугольному, остроугольному и т.д. Вы помните (написано в любом справочнике по геометрии).

"по запросу номера месяца выдает количество месяца" - совершенно несуразная фраза. Если нужно кол-во дней в определенном месяце, используйте массивы. Определение високосного года - из следующего правила (цитирую):

Год високосный, если он делится на четыре без остатка, но если он делится на 100 без остатка, это не високосный год. Однако, если он делится без остатка на 400, это високосный год. Таким образом, 2000 г. является о собым високосным годом, который бывает лишь раз в 400 лет.

Удачи!

Консультировал: Licvidator
Дата отправки: 01.01.2004, 00:01
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 100516:

Здравствуйте!
Хотел спросить, как на языке Visual Basic (6 версия) можно запрограммировать мышь ?
Например, такая программа:
Нужно нарисовать круг, линию, точку, что угодно и управлять ей мышью, т.е. водишь мышью, и он бегает по экрану.
Вопрос: как мне это сделать ?
Если Вам, конечно, не сложно, пожалуйста, приведите пример такой программы (программы в виде кода), только, если можно, поподробнее, а то я это в первый раз делаю.
Буду очень длагодарен за помощь!

Дата отправки: 02.09.2007, 10:09
Вопрос задал: Красильников И.П.
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Черников Игорь Владимирович:

Здравствуйте, Красильников И.П.!
Создайте новый проект с простой формой и вставьте туда этот код. Рисовать правой кнопкой, перемещать нарисованное - левой. Подробности по почте или по майлагенту. Удачи!

Dim ПрвКнНажата As Boolean
Dim ЛевКнНажата As Boolean
Dim minX As Double
Dim maxX As Double
Dim minY As Double
Dim maxY As Double
Dim записьX As String
Dim записьY As String
Dim МоментНажатияX As Double
Dim МоментНажатияY As Double
Dim МоментОтпусканияX As Double
Dim МоментОтпусканияY As Double

Private Sub Form_Load()\'Событие происходит при запуске формы
AutoRedraw = -1 \'Разрешем рисвать на форме
DrawWidth = 10 \'Устанавливаем толщину точек рисования (можно менять)
ПрвКнНажата = False
ЛевКнНажата = False
minX = Форма1.Width
minY = Форма1.Height
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) \'При нажатии кнопки мышки

If Button = vbRightButton Then \'Если правая кнопка
ПрвКнНажата = True
End If

If Button = vbLeftButton Then \'Если левая кнопка
МоментНажатияX = X \'Запоминаем координаты нажития
МоментНажатияY = Y
End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) \'При отпускании кнопки мыши

If Button = vbRightButton Then \'Если правая кнопка отпущена
ПрвКнНажата = False
End If

If Button = vbLeftButton Then \'Если левая
МоментОтпусканияX = X
МоментОтпусканияY = Y
РазницаX = МоментНажатияX - МоментОтпусканияX
РазницаY = МоментНажатияY - МоментОтпусканияY
minX = minX - РазницаX
minY = minY - РазницаY
maxX = maxX - РазницаX
maxY = maxY - РазницаY
ПереЗаписьX = ""
ПереЗаписьY = ""
ОдинСимвол = " "
символX = 0
символY = 0
Форма1.Cls \'Очищаем форму

Do While ОдинСимвол <> "" \'Цикл пока ОдинСимвол не равен пустой строке
символX = символX + 1
ОдинСимвол = Mid(записьX, символX, 1) \'Читаем из строковой переменной записьX по одному символу. СимволX - порядковый номер символа
If ОдинСимвол = Chr(10) Then \'Если ОдинСимвол равен переносу на другую строку, то
ОдинСимвол = " "
Do While ОдинСимвол <> Chr(10) \'Цикл пока ОдинСимвол не равен переносу
символY = символY + 1
ОдинСимвол = Mid(записьY, символY, 1)
If ОдинСимвол = Chr(10) Then
НовыйX = CDbl(СтарыйX) - РазницаX \'CDbl - преобразует строковую переменную к типу Dooble
НовыйY = CDbl(СтарыйY) - РазницаY
PSet (НовыйX, НовыйY), QBColor(12) \'Рисуем точку с новыми координатами. 12 - цвет, можно менять
ПереЗаписьX = ПереЗаписьX + CStr(НовыйX) + Chr(10) \'Cstr - преобразует переменную НовыйX к типу String, Chr(10) - знак преноса на другую строку
ПереЗаписьY = ПереЗаписьY + CStr(НовыйY) + Chr(10)
СтарыйX = ""
СтарыйY = ""
Else
СтарыйY = СтарыйY + ОдинСимвол \'Добавляем символ к переменной (восстанавливаем координату)
End If
Loop
Else
СтарыйX = СтарыйX + ОдинСимвол
End If
Loop
записьX = ПереЗаписьX \'Копируем все новые координаты всех точек в переменную
записьY = ПереЗаписьY
End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) \'При перемещении мышки. \'X, Y - текущие координаты мышки

If ПрвКнНажата = True Then
PSet (X, Y), QBColor(12) \'Рисуем точку
If X < minX Then minX = X
If X > maxX Then maxX = X
If Y < minY Then minY = Y
If Y > maxY Then maxY = Y
записьX = записьX + CStr(X) + Chr(10)\'Записываем все координаты точек и добавляет перенос
записьY = записьY + CStr(Y) + Chr(10)
End If

If maxX > X And minX < X And maxY > Y And minY < Y Then
MousePointer = 15 \'Меняем курсор в пределах этих координат
Else
MousePointer = 0
End If

End Sub

Консультировал: Черников Игорь Владимирович
Дата отправки: 02.09.2007, 16:18
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Шишкин Максим Алексеевич:

Здравствуйте, Красильников И.П.!
вообще, нужно код привязать к процедуре, передвижение указателя мыши... и в немузнавать координаты мыши, и присваивать их кругу или линии и т.д.
можно по нажатию кнопки мыши сделать...
с кодом программы к сожалению помочь не могу...

Консультировал: Шишкин Максим Алексеевич
Дата отправки: 03.09.2007, 03:21
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 95226:

Доброго времени суток! Уважаемые Эксперты, подскажите пожалуйста, откуда можно найти материалные статьи Павела Сурменика?
Помню, архив называлось vbbook.zip.

Дата отправки: 15.07.2007, 22:12
Вопрос задал: Muhammedov Abdurohman
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Magister:

Здравствуйте, Muhammedov Abdurohman!
Google выдал примерно 153 ссылки:
Link...

[Исправлена длинная ссылка ] [ Климова М. ]

Приложение:

Консультировал: Magister
Дата отправки: 15.07.2007, 22:59
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует KunkTator:

Здравствуйте, Muhammedov Abdurohman! Наверное, Вы имели ввиду Павел СурменОк
Тогда это тоже может пригодиться: Link...

Исправлена длинная ссылка. =Maxim V. Tchirkine=

Консультировал: KunkTator
Дата отправки: 16.07.2007, 04:34
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует AlbusFalco:

Здравствуйте, Muhammedov Abdurohman!
Я думаю можно обратится непосредственно к Павлу на форуме Vbnet.ru

Консультировал: AlbusFalco
Дата отправки: 17.07.2007, 10:09
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное