Портирование из С на ВБ

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
ACiD
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 261
Зарегистрирован: 10.12.2005 (Сб) 2:29
Откуда: г. Санкт - Петербург

Портирование из С на ВБ

Сообщение ACiD » 16.08.2007 (Чт) 13:53

Код: Выделить всё
...
..char buffer[25];..
memset(buffer,0,sizeof(buffer));
strcpy(buffer,"Hello LPT ");
DWORD dw;
OVERLAPPED ov;
..for (int x=0;x < 3;x++)..
WriteFile(hLPT,buffer,sizeof(buffer),&dw,&ov);
...
кому не трудно :roll: , спасибо.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 16.08.2007 (Чт) 13:55

А с чем, собственно, проблема?

Это же не один фрагмент кода, а какие-то обрывки.
Изображение

ACiD
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 261
Зарегистрирован: 10.12.2005 (Сб) 2:29
Откуда: г. Санкт - Петербург

Сообщение ACiD » 16.08.2007 (Чт) 14:05

Вообщето один фрагмент, где перед текстом ".." - перевести сам смогу,
а всё остальное сложновато :oops:

keks-n
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2509
Зарегистрирован: 19.09.2005 (Пн) 17:17
Откуда: г. Москва

Сообщение keks-n » 16.08.2007 (Чт) 14:50

Давай весь код - иначе перевод будет неадекватен.
Изображение

ACiD
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 261
Зарегистрирован: 10.12.2005 (Сб) 2:29
Откуда: г. Санкт - Петербург

Сообщение ACiD » 16.08.2007 (Чт) 15:35

http://www.firststeps.ru/mfc/winapi/r.php?12 писал(а):#include "stdafx.h"
#include "windows.h"
#include "iostream.h"
void main()
{
HANDLE hLPT=CreateFile("LPT1",GENERIC_WRITE,0,NULL,
OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
if (hLPT!=INVALID_HANDLE_VALUE)
{
cout << " Ok Open LPT1" << endl;
char buffer[25];
memset(buffer,0,sizeof(buffer));
strcpy(buffer,"Hello LPT ");
DWORD dw;
OVERLAPPED ov;
for (int x=0;x < 3;x++)
WriteFile(hLPT,buffer,sizeof(buffer),&dw,&ov);
CloseHandle(hLPT);
}
else cout << "Error Open" << endl;
}

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 16.08.2007 (Чт) 15:49

Код: Выделить всё
Open "LPT1" For Output As 1
For x = 0 To 2: Print #1, "Hello LPT ";: Next
Close 1
Изображение

ACiD
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 261
Зарегистрирован: 10.12.2005 (Сб) 2:29
Откуда: г. Санкт - Петербург

Сообщение ACiD » 16.08.2007 (Чт) 16:20

Смешно :)
Спасибо tyomitch


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 90

    TopList