can't opening comm

[hendryawan]

Thankyou Eros,
I am sure that my communication port is COMM1.
About the ERR code seem no effect, the value always 0. I check with opening program in the same time with accesing comm1, the thin basic return ERR number still 0.
Would you like give me the sample of program?
The spec of program only read data (count = xxx + lfcr) that I send from my device, no need command request.
thank you verymuch

regard

hendryawan

[Michael Clease]

I think you need to open the port before setting the parameters

try this it will loop and print any data received until you press a key.

Uses "COMM"
Uses "CONSOLE"
Dim hcomm As Long
Dim sBuffer   As String
Dim nBytes    As Long
Dim errnumbr  As Long

'---Get Comms file number and assign 
  hcomm = COMM_FreeFile

'---Open the port
  COMM_Open( "COM1", hcomm )
  If Err <> 0 Then 
    PrintL "Open Comms error: " + Err
  Else
'---Set up all comms parameters 
    COMM_Set( hcomm, %COMM_BAUD, 4800 )
    COMM_Set( hcomm, %COMM_BYTE, 8 )
    COMM_Set( hcomm, %COMM_NULL, FALSE )
    COMM_Set( hcomm, %COMM_PARITY, FALSE )
    COMM_Set( hcomm, %COMM_PARITYTYPE, 0 )
    COMM_Set( hcomm, %COMM_STOP, 0 )
    COMM_Set( hcomm, %COMM_RXBUFFER, 64 )

    Do
      If COMM_Get( hcomm, %COMM_RXQUE ) <> 0 Then ' Get size of incoming data
        NBytes = COMM_Get(hComm, %COMM_RXQUE)
        COMM_Recv(hComm, NBytes, sBuffer)
        Console_WriteLine(sBuffer)
      End If
    Loop While Console_WaitKey = ""   ' Anykey to quit
    
  End If

'closing comm
  COMM_Close( hcomm )
  Console_WriteLine("end testing")
  Sleep (3000)

[hendryawan]

Thankyou Mike,
I has been test your script, but the result is only blank console windows.
I also check with my first action that running the other application with communication, the result is still same. I check with my first program working normaly.
regard

hendryawan

[hendryawan]

Dear all,
It's long time to followup my project.
Now I found ubnormality with thinbasic. Normaly I run the application using comm port. In thinbasic after I run the application (still can't work) then after I close the program, I try to use dos command mode com1
capt1.JPG

The baudrate still in 1200 eventhought I set baudrate in thinbasic application is 4800. For the other application (not thinbasic) the baudrate in 'dos cmd mode com1' is same as I set in the application.
Please help me.
best regards

hendryawan

[Michael Clease]

I am not sure if I understand correctly but are you asking if the baudrate for com1 should stay at 4800 after you have closed the TB script? If that is your question I would expect it to return to the default setting for that com port not what you set in your program.

[hendryawan]

Thank for reply,
I just try the communication program with COM1 like hyperterminal or everything application with com. I has been try to change value of baudrate then open and close the program and check with command "mode com1" in dos, the result is the last value that I set. Not like in thinbasic eventhought I change the value of baudrate its no effect in mode com1 command.
Any suggestion?
Thank and best regards

Hendryawan