FiveTech Support Forums

#include "FiveWin.ch"

static hBmpKon:= {  "green" , "red" }


function Main()

   DEFINE DIALOG oDlg RESOURCE "Ulaz" 
 
     REDEFINE BTNBMP oBmpRam ID 32 OF oDlg RESOURCE "sRed" ;
                   ACTION (nComRam:=InitRam(), WriteComm(nComRam, "$01"+"6"+chr(13))  ) // Start

      oDlg:bCommNotify = { | nComUlz, nStatus |oCont:SetBmp( hBmpKon[ 1 ] ), BytesAtPort( nComRam, nStatus ),; 
                                      EnableCommNotification( nComRam, oDlg:hWnd, 1, -1) }
   
    REDEFINE BITMAP oCont RESOURCE "Red";
                   ADJUST ID 1022;
                   WINDOW oDlg

    .
    .
    .
    .

   ACTIVATE DIALOG oDlg 


   CloseComm( nComUlz )

return nil

//----------------------------------------------------------------------------//


static function BytesAtPort( nComRam, nStatus )
  
   local cBufRam := Replicate(Chr(255),1024)

    
      ReadComm( nComRam, @cBufRam )  
 
         cBufRam:=StrTran(cBufRam,Chr(255),'')
        
    .
    .
    .
    .


   FlushComm(nComRam,1) 

 WriteComm(nComRam, "$01"+"6"+chr(13)) 

return nil

static function InitRam(mPortRam,oBmpRam,oComUlz,nBitUlz)

   local cDcb, nError, nBytes
   local nCommUlz := OpenComm( "COM"+mPortRam, val(mBtUlz), val(mBrUlz))


        if nCommUlz < 0 
            MsgStop("Error Open COM"+mPortRam) 
        oComUlz:enable()
        return .f.
        endif 

   if ! BuildCommDcb( "COM" + mPortRam + ":"+rtrim(nBitUlz)+",N,8,1", @cDcb )
      MsgStop( "Error BUILD!" )
      oComUlz:enable()
      return .f.
   endif


   if ! SetCommState( cDcb  )
      MsgStop( "Error SETCOMM!" )
      oComUlz:enable()
      return .f.
   endif


   if !ENABLECOMMNOTIFICATION( nCommUlz, oDlgRam:hWnd, 1, -1 ) 
      MsgStop("Error Open COM"+mPortRam)
      oComUlz:enable()
      return .f.
   endif 

   if FlushComm( nCommUlz, 1 ) != 0
         MsgInfo("FlushComm Error")
   endif

   if FlushComm( nCommUlz, 0 ) != 0
         MsgInfo("FlushComm Error")
   endif

          sBmpPet=""
          sBmpBar=""

oBmpRam:SetFile(cOsnDir+"\bitmaps\sgreen.bmp")
oBmpRam:Refresh()

         LogFile( cF, { "Ulaz - Otvoren COM"+mPortRam  } )

return nCommUlz