Чтение информации с весов через COM порт

#include "stdafx.h"
#include <iostream>
#define STYLBTN WS_CHILD|BS_DEFPUSHBUTTON|WS_VISIBLE
#define STYLEDT WS_CHILD|WS_VISIBLE|WS_BORDER|WS_TABSTOP 
 
HINSTANCE hInst;
LPCTSTR szTitle = "Оризон-Универсал";
LPCTSTR szWindowClass = "SimpleWinClass";
LPCTSTR CLSBUTN = "BUTTON";
LPCTSTR CPBUT1 = "Open port";
LPCTSTR CPBUT2 = "Close port";
LPCTSTR CPBUT3 = "Read port";
LPCTSTR CPBUT4 = "Write port";
LPCTSTR CLSEDIT = "EDIT";
LPCTSTR CPEDT1;
LPCTSTR CPEDT2;
HWND HWNDBTN1;
HWND HWNDBTN2;
HWND HWNDBTN3;
HWND HWNDBTN4;
HWND HWNDEDT1;
HWND HWNDEDT2;
HMENU ID_BTN1 = (HMENU)101;
HMENU ID_BTN2 = (HMENU)102;
HMENU ID_BTN3 = (HMENU)103;
HMENU ID_BTN4 = (HMENU)104;
 
LPCTSTR  lpCapApp = "App message";
char  lpApp1[40] = "Open port HANDLE:";
LPCTSTR  lpApp2 = "Close port";
LPCTSTR  lpApp3 = "Data read: Ok";
LPCTSTR  lpApp4 = "Data write: Ok";
 
LPCTSTR  lpCapERR = "Error Message";
char lpERR1[40] = { "Open port Error:" };
char lpERR2[40] = { "DCB Structure ERROR:" };
char lpERR3[40] = { "SetComm Function ERROR:" };
char lpERR4[40] = { "Read port ERROR:" };
char lpERR5[40] = { "Write port ERROR:" };
char lpERR6[40] = { "Close port ERROR:" };
DWORD Mem1;
LPCTSTR Par1 = "%lu";
 
HANDLE HWNDCOM;
LPCTSTR lpNumCOM = "COM1:";
LPCTSTR COMSETTING = "Com1: baud=9600 parity=N data=8 stop=1";
char Buf[255];
DWORD LenBuf;
DCB DCB1;
 
 
LRESULT CALLBACK    WndProc(HWND, UINT, WPARAM, LPARAM);
 
void PurgeBuf()
{
    int a;
    for (a = 0; a<255; a++)
    {
        Buf[a] = 0x20;
    }
    return;
}
 
int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
 
    MSG msg;
    WNDCLASSEX wcex;
    HWND hWnd;
    hInst = hInstance;
 
    wcex.cbSize = sizeof(WNDCLASSEX);
    wcex.style = CS_HREDRAW | CS_VREDRAW;
    wcex.lpfnWndProc = (WNDPROC)WndProc;
    wcex.cbClsExtra = 0;
    wcex.cbWndExtra = 0;
    wcex.hInstance = hInstance;
    wcex.hIcon = LoadIcon(NULL, IDI_APPLICATION);
    wcex.hIconSm = 0;
    wcex.hCursor = LoadCursor(NULL, IDC_ARROW);
    wcex.hbrBackground = (HBRUSH)(4);
    wcex.lpszMenuName = 0;
    wcex.lpszClassName = szWindowClass;
    RegisterClassEx(&wcex);
 
    hWnd = CreateWindow(szWindowClass, szTitle, WS_OVERLAPPEDWINDOW, 20, 20, 350, 200, NULL, NULL, hInstance, NULL);
 
    if (!hWnd)
    {
        return FALSE;
    }
 
    ShowWindow(hWnd, SW_SHOWNORMAL);
    UpdateWindow(hWnd);
 
 
 
 
    while (GetMessage(&msg, NULL, 0, 0))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
 
 
 
 
 
    return 0;
}
 
 
LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
 
{
    int wmId, wmEvent;
    int Retval;
    switch (message)
 
    {
    case WM_COMMAND:
        wmId = LOWORD(wParam);
        wmEvent = HIWORD(wParam);
        switch (wmId)
        {
        case 101:
            HWNDCOM = CreateFile(lpNumCOM, GENERIC_READ | GENERIC_WRITE, NULL, NULL, OPEN_EXISTING, NULL, NULL);
 
            if (HWNDCOM == INVALID_HANDLE_VALUE)
            {
                Mem1 = GetLastError();
                wsprintf(&lpERR1[16], Par1, Mem1);
                MessageBox(0, lpERR1, lpCapERR, 0);
            }
            else
            {
                wsprintf(&lpApp1[17], Par1, HWNDCOM);
                MessageBoxA(0, lpApp1, lpCapApp, 0);
                Retval = BuildCommDCB(COMSETTING, &DCB1);
                if (Retval == 0)
                {
                    Mem1 = GetLastError();
                    wsprintf(&lpERR2[20], Par1, Mem1);
                    MessageBox(0, lpERR2, lpCapERR, 0);
                }
                Retval = SetCommState(HWNDCOM, &DCB1);
                if (Retval == 0)
                {
                    Mem1 = GetLastError();
                    wsprintf(&lpERR3[23], Par1, Mem1);
                    MessageBox(0, lpERR3, lpCapERR, 0);
                }
 
 
            }
            break;
 
        case 102:
            Retval = CloseHandle(HWNDCOM);
            if (Retval == 0)
            {
                Mem1 = GetLastError();
                wsprintf(&lpERR6[17], Par1, Mem1);
                MessageBox(0, lpERR6, lpCapERR, 0);
            }
            else
            {
                MessageBox(0, lpApp2, lpCapApp, 0);
            }
            break;
 
        case 103:
            PurgeBuf();
            Retval = ReadFile(HWNDCOM, &Buf, 255, &LenBuf, NULL);
            if (Retval == 0) 
            {
                Mem1 = GetLastError();
                wsprintf(&lpERR4[16], Par1, Mem1);
                MessageBox(0, lpERR4, lpCapERR, 0);
            }
            else
            {
                SendMessageA(HWNDEDT1, WM_SETTEXT, sizeof Buf, (LPARAM)Buf);
                MessageBox(0, lpApp3, lpCapApp, 0);
            }
 
            break;
        case 104:
            PurgeBuf();
            SendMessage(HWNDEDT2, WM_GETTEXT, sizeof Buf, (LPARAM)Buf);
            Retval = WriteFile(HWNDCOM, &Buf, sizeof Buf, &LenBuf, NULL);
            if (Retval == 0)
            {
                Mem1 = GetLastError();
                wsprintf(&lpERR5[17], Par1, Mem1);
                MessageBox(0, lpERR5, lpCapERR, 0);
            }
            else
            {
                MessageBox(0, lpApp4, lpCapApp, 0);
            }
            break;
        default:
        {
            return DefWindowProc(hWnd, message, wParam, lParam);
        }
        }
        break;
    case WM_CREATE:
        HWNDBTN1 = CreateWindowEx(0, CLSBUTN, CPBUT1, STYLBTN, 10, 10, 100, 20, hWnd, ID_BTN1, hInst, 0);
        HWNDBTN2 = CreateWindowEx(0, CLSBUTN, CPBUT2, STYLBTN, 225, 10, 100, 20, hWnd, ID_BTN2, hInst, 0);
        HWNDBTN3 = CreateWindowEx(0, CLSBUTN, CPBUT3, STYLBTN, 115, 40, 100, 20, hWnd, ID_BTN3, hInst, 0);
        HWNDBTN4 = CreateWindowEx(0, CLSBUTN, CPBUT4, STYLBTN, 115, 100, 100, 20, hWnd, ID_BTN4, hInst, 0);
        HWNDEDT1 = CreateWindowEx(0, CLSEDIT, CPEDT1, STYLEDT, 55, 70, 220, 20, hWnd, 0, hInst, 0);
        HWNDEDT2 = CreateWindowEx(0, CLSEDIT, CPEDT2, STYLEDT, 55, 130, 220, 20, hWnd, 0, hInst, 0);
 
        break;
    case WM_DESTROY:
        PostQuitMessage(0);
        break;
    default:
        return DefWindowProc(hWnd, message, wParam, lParam);
    }
    return 0;
}

ReadTotalTimeoutConstant
ReadTotalTimeoutMultiplier
ReadTotalTimeoutConstant

#include <stdio.h>
#include <dos.h>
#include <conio.h>
#include <ctype.h>
#include <string.h>
#include <time.h>
#include <stdlib.h>
 
    
 
        int comand(void)
    {
    if (system (NULL))
   {
   printf ("Командный процессор доступен\n");
    system ("mem.exe");
 
   }
  else exit(1);
 
    }
 
        int main(void)
{
   unsigned char result;
   int port = 0x3F8;   int i=0;
   int anc=0;
   int flag=0;
   int flag1=0;
   int flag2=0; /*flag2=1 при ошибке синтаксиса*/
   int flag3=100; /*flag3<5 кол букв от 1й до 4х*/
 
   FILE *mf;  /*текстовый файл*/
 
 
   long int time1;
   long int time2;
 
   char strk[100];  /*строка команд через порт*/
   char mtxt[20];   /*текущая строка из текст файла*/
   char estr='';
   char *istr;   /*отдельная команда*/
   char net='';
   char merr[256];
   int ierr=0; /*индекс записи ошибки*/
   int terr=0; /*индекс чтения ошибки*/
  char midn[20]="01234567890123456789";
  char err2[9]=",NO ERROR";
 
 
                outportb(port+3,0x80); /*set dlab on*/
        outportb(port+1,0x00); /*starschiy bait scorosti*/
        outportb(port+0,0x01); /*0C scorosti mlads bait 9600*/
        outportb(port+3,0x03);/* set dlab off,8bit,no perity,1 stop bit */
        outportb(port+1,0x01);  /*preryvanie na priem*/
           inportb(port+3); /*zadergka ignorirovan*/
        outportb(port+2,0xC7); /*FIFO registr C7*/
        outportb(port+4,0x0b);  /*DTR,RTS,OUT2*/
        inportb(port);  /*obnulenie bufera*/
 
  
 
  
 
  for (i=0;i<256;i++) merr[i]='0';
   while (flag1==0)
 {
 anc=0;
   result='';
   time1=NULL;
   istr=NULL;
   for (i=0;i<100;i++) strk[i]='';
   
   while (flag==0)
 {
   
   if (inportb(port+2) & 0x04)
   {
     result=inportb(port);
...