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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.80
Akronis
Сообщений: n/a
#1

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

21.06.2008, 10:16. Просмотров 1259. Ответов 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:.Вопросы,если что -то непонятно можете задавать.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.06.2008, 10:16
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Помогите переписать с Бейсика на С/С++ (C++):

Помогите переписать - C++
Я плохо разбираюсь в cout и endl, помогите разработать функцию, которая удаляет из строки заданное количество символов, начиная с заданной...

Помогите переписать - C++
Есть пример на Delphi: data:='строка'; IdHTTP1.Get('Ссылка'+data); А как будет выглядеть на c++? Можно с WinAPI.

помогите переписать на C++ формулу - C++
помогите переписать на C++ формулу ((

Помогите переписать из Паскаля на С++ - C++
Помогите переписать из Паскаля на С++ var j,i:integer; N:integer; Max:real; a,b:real; Mas: array of real; begin ...

Помогите переписать прогу - C++
Пож помогите переписать кодик из C++Builder в Visual С++!!! Ее кодик находится в документе KursovayaUnit.txt!!!

Помогите переписать программу с С на С++ (Система счисления) - C++
#include <stdio.h> #include <math.h> void dvoich(int x1) { int i, b; long c = 0; for(i=0;x1 >...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Akronis
Сообщений: n/a
23.06.2008, 11:40 #2
Всем спасибо.Жаль,что никто не заметил неправильное обнуление масива (strGps). Проблема решена, тема может быть закрыта.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2008, 11:40
Привет! Вот еще темы с ответами:

Помогите найти ошибку или переписать программу! - C++
Здравствуйте! Никак не могу справиться с одной задачей. Я и несколько одногруппников "прокрутили в голове" саму задачу и все говорят, что...

Помогите переписать программу без использования индексации - C++
Всем добрый вечер. помогите записать программу без: #include <iostream> #include <string> using std::cout; using std::cin; ...

Помогите плс переписать программу "Фигура из символов" - C++
Условие: 2. Написать программу, которая выводит на экран прямоугольник или квадрат. Ширина и высота фигуры задаются пользователем с...

Помогите переписать программу "система счисления" - C++
Помогите, пожалуйста, переписать программу, мне нужна программа без звездочки перед buff, только что бы она работала. Условие: Написать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru