IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Перевод кода
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской

Репутация: -  0  +


Помогите, пожалуйста, перевести код 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%")
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Куда это все печатается? Консоль? Окно?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

Репутация: -  159  +


Может, вот это сгодится?
Расчет биоритмов

Добавлено через 1 мин.
Упс, сорри. Не досмотрел про С++


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 48
Пол: Мужской

Репутация: -  0  +


В общем, одну проблему решил, теперь возникла вторая: при открытии не работает график при нажатии кнопки "Расчёт" и не вводится дата рождения mad.gif

Помогите, пожалуйста, исправить ошибку. Файл прилагается.


Прикрепленные файлы
Прикрепленный файл  Projects.zip ( 15.67 килобайт ) Кол-во скачиваний: 116
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.10.2020 12:39
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name