Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Помогите переписать с Бейсика на С/С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Помогите написать прогу с орграфами на СИ!!! в долгу не останусь!!! http://www.cyberforum.ru/cpp-beginners/thread9314.html
Задан орграф с циклами. Проверить, можно ли удалить одну вершину так, чтобы в полученном орграфе не было циклов!!!!!!!! Если че пишите в Асю:374309405 Сроки: дней 5
C++ Вывести строки матрицы, в которых модуль суммы отрицательных чисел больше модуля суммы положительных Друзья,помогите пожалуйста, если можете! Нужно создать матрицу M на N и заполнить её действительными числами, определить и вывести на экран строки, в которых модуль суммы отрицательных чисел будет... http://www.cyberforum.ru/cpp-beginners/thread9307.html
C++ Найти минимальный элемент в каждой строке и из ний найти максимальный элемент
надо найти минимальный элемент в каждой строке и из ний найти максимальный элемент вот мой код #include<conio.h> #include<iostream.h> #include<iomanip.h> #include<stdlib.h> void main() {...
помогите с преобразованием массива C++
надо преобразовать так чтоб сперва распологались все элементы равные нулю а потом все остальные вот мой код #include<iostream.h> #include<conio.h> #include<stdlib.h> void main() { int...
C++ Помогите с олимпиадной задачкой ( http://www.cyberforum.ru/cpp-beginners/thread9285.html
Дали мне на написание отчета олимпиадную задачку.. Решение на пару строк.. Пару раз уже код переписывал ниче не получаетсо.. Максимум выводит одно правильное число .. Вот условие : Инверсия....
C++ Передача указателей на файлы в функцию?О_о Добрый день! Возникла проблема при написании программы на структуры. Допустим у нас есть массив структур. Заполняем его и тд.. записываем в файл(бинарно). Допустим нужна функция поиска по файлу поля... подробнее

Показать сообщение отдельно
Akronis
Сообщений: n/a

Помогите переписать с Бейсика на С/С++ - C++

21.06.2008, 10:16. Просмотров 1271. Ответов 1
Метки (Все метки)

CLS
DO
cl1 = 0 /* + */
cl2 = 0 /* + */
datPort$ = "" /* ?*/
strGps$ = "" /* ?*/
dat$ = "" /* ?*/
tim$ = "" /* ?*/
cor1$ = "" /* ?*/
cor2$ = "" /* ?*/
spid$ = "" /* ?*/

OPEN "COM1:4800,N,8,1" FOR INPUT AS #1 /*+ Как проинициализировать порт я знаю*/
DO
WAIT &H3FD, 1 /*while ((iportb(0x3f8) & 1)==0)проверяем готов ли байт для чтения */
datPort$ = CHR$(INP(&H3F8))
IF datPort$ = "$" THEN cl1 = 1
IF cl1 = 1 THEN
strGps$ = strGps$ + datPort$
IF strGps$ = "$GPRMC" THEN cl2 = 1
IF cl2 = 1 THEN
IF datPort$ = "*" THEN EXIT DO
END IF
IF LEN(strGps$) = 6 AND cl2 = 0 THEN strGps$ = "": cl1 = 0
END IF
CLOSE #1
LOOP

dat$ = MID$(strGps$, LEN(strGps$) - 8, 2) + ":" + MID$(strGps$, LEN(strGps$) - 6, 2) + ":" + MID$(strGps$, LEN(strGps$) - 4, 2)
tim$ = MID$(strGps$, 8, 2) + ":" + MID$(strGps$, 10, 2) + ":" + MID$(strGps$, 12, 2)
cor1$ = MID$(strGps$, 21, 2) + "^" + MID$(strGps$, 23, 2) + "'" + MID$(strGps$, 31, 1)
cor2$ = MID$(strGps$, 33, 3) + "^" + MID$(strGps$, 36, 2) + "'" + MID$(strGps$, 44, 1)
spid$ = MID$(strGps$, 46, 4)
LOCATE 10, 10: PRINT "Date - " + dat$ + " " + "Time - " + tim$
LOCATE 11, 10: PRINT "Coor - " + cor1$ + " " + cor2$
LOCATE 12, 10: PRINT "Spid - " + spid$

LOOP WHILE INKEY$ = ""

Программа на Бейсике рабочая на С++ не выходит

вот часть того что я делаю.

....

void main(void)
{
int с1,cl1,cl2;
unsigned char *datport,*resalt,strGps[10];
/*Инициализация порта на скорость 4800,N,8,1
outportb(0x3fb,0x80);
while((inportb(0x3fd)&0x20)==0);
outportb(2f9,0);
while((inportb(0x3fd)&0x20)==0);
outportb(0x3f8,0x18);
while((inportb(0x3fd)&0x20)==0);
outportb(0x3fb,3);
while((inportb(0x3fd)&0x20)==0);

for( ;; )
{
cl1=0;
cl2=0;
c1=0;
*strGps="";
*datport="";

do{

while ((iportb(0x3f8) & 1)==0);
*datPort=inportb(0x3f8); /*Принимаем байт*/

if (*buff=='$')
cl1=1;
if (cl1==1)
result=strcat(strGps,datPort);//пытаюсь собрать строку
if (result=="$GPRMC") //нужное мне начало строки
сl2=1;
if (cl2==1 && (*datPort=='*') //$-начало посылки, *- конец посылки
с1=1;
c=strlen(strGps); //Длина строки
if (c==6 && cl2==0){
cl1=0;
*strGps=""; }
}while(c1=0) ;
if (kbhit()!=0{getch(); return;} //выход из цикла
}
}

Добавлено через 15 часов 47 минут
Вносите предложения по синтаксису,компиляцию я беру на себя и буду отписываться прошел вариант или нет.Мне главное первый цикл разобрать и переписать на С++(v1.01/3.0).Неужели нет знатаков Бейсика?:fool:.Вопросы,если что -то непонятно можете задавать.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru