Автор: mitz 28.05.2009 19:43
Помогите, пожалуйста, перевести код Visual Basic в формат Visual C++ 6:
Задача: Разработать программу, осуществляющую оценку физического, эмоционального и интеллектуального состояния человека на основании гипотезы о биоритме. Считать, что начиная со дня рождения, состояние человека изменяется по синусоидальному закону с периодом, соответственно, 23 дня, 28 дней и 33 дня. Процедура должна осуществлять рас-чет синусоидальной функции для заданной текущей календарной даты, даты рождения и для каждого из значений периодов.
Не могу перевести данный код:
Код
ForeColor = RGB(255, 0, 0)
PSet (0, 95)
Print "Физический: " & Format(Sin(2 * 3.14159265358979 * (DateDiff("d", Date0, Date) + (Hour(Time) * 1 / 24) +
(Minute(Time) * 1 / 60) / 100 + (Second(Time) * 1 / 60) / 10000) / 23.688437), "0.000 000%")
ForeColor = RGB(0, 205, 0)
PSet (0, 90)
Print "Эмоциональный: " & Format(Sin(2 * 3.14159265358979 * (DateDiff("d", Date0, Date) + (Hour(Time) * 1 / 24) +
(Minute(Time) * 1 / 60) / 100 + (Second(Time) * 1 / 60) / 10000) / 28.426125), "0.000 000%")
ForeColor = RGB(0, 0, 255)
PSet (0, 85)
Print "Интеллектуальный: " & Format(Sin(2 * 3.14159265358979 * (DateDiff("d", Date0, Date) + (Hour(Time) * 1 / 24) +
(Minute(Time) * 1 / 60) / 100 + (Second(Time) * 1 / 60) / 10000) / 33.163812), "0.000 000%")
ForeColor = RGB(255, 225, 0)
PSet (0, 80)
Print "Интуитивный: " & Format(Sin(2 * 3.14159265358979 * (DateDiff("d", Date0, Date) + (Hour(Time) * 1 / 24) +
(Minute(Time) * 1 / 60) / 100 + (Second(Time) * 1 / 60) / 10000) / 37.901499), "0.000 000%")
Автор: volvo 28.05.2009 19:51
Куда это все печатается? Консоль? Окно?
Автор: Lapp 28.05.2009 20:08
Может, вот это сгодится?
http://forum.pascal.net.ru/index.php?showtopic=20691
Добавлено через 1 мин.
Упс, сорри. Не досмотрел про С++
Автор: mitz 28.05.2009 20:18
В общем, одну проблему решил, теперь возникла вторая: при открытии не работает график при нажатии кнопки "Расчёт" и не вводится дата рождения
Помогите, пожалуйста, исправить ошибку. Файл прилагается.
Прикрепленные файлы
Projects.zip ( 15.67 килобайт )
Кол-во скачиваний: 197