Serial-port communication SOS

[saget 0]

Hi all,

I am working on a project which requires serial communication. i got vb code works:

#####################

Public Function tx_read_frame(data_type As Byte, data1 As Byte, data2 As Byte, data3 As Byte, data4 As Byte)

Static Byteout(0 To 7) As Byte, i As Byte

Dim sum As Integer

Byteout(0) = &H55

Byteout(1) = 1

Byteout(2) = data_type

Byteout(3) = data1

Byteout(4) = data2

Byteout(5) = data3

Byteout(6) = data4

sum = 0

For i = 0 To 6 Step 1

sum = sum + Byteout(i)

Next

Byteout(7) = sum Mod 256

main_form.MSComm1.InBufferCount = 0

main_form.MSComm1.Output = Byteout

End Function

##################

it didn't work when i try transfer to autoit...

##################

Func _RX_READ_FRAME($type, $data1, $data2, $data3, $data4)

Local $i, $sum, $Byteout_Array[8], $JXX_ARRAY[1]

$Byteout_Array[0] = 0x55

$Byteout_Array[1] = Hex(1, 2)

$Byteout_Array[2] = Hex($type, 2)

$Byteout_Array[3] = Hex($data1, 2)

$Byteout_Array[4] = Hex($data2, 2)

$Byteout_Array[5] = Hex($data3, 2)

$Byteout_Array[6] = Hex($data4, 2)

$sum = 0

For $i = 0 To 6 Step 1

$sum = $sum + $Byteout_Array[$i]

Next

$Byteout_Array[7] = Mod($sum , 256)

$Com_Object.Output = "0x55"&$Byteout_Array[1]&$Byteout_Array[2]&$Byteout_Array[3]&$Byteout_Array[4]&$Byteout_Array[5]&$Byteout_Array[6]&$Byteout_Array[7]

EndFunc

##################

any help...? thx a lot!

Edited July 5, 2011 by saget

[smartee 7]

This by martin may be of interest to you.

[martin 69]

This by martin may be of interest to you.

If it is then the function you showed might look like this ( it could also be done in other ways)

Func _RX_READ_FRAME($type, $data1, $data2, $data3, $data4)
    Local $i, $sum, $Byteout_Array[8], $JXX_ARRAY[1]

    $Byteout_Array[0] = 0x55
    $Byteout_Array[1] = 1
    $Byteout_Array[2] = $type
    $Byteout_Array[3] = $data1
    $Byteout_Array[4] = $data2
    $Byteout_Array[5] = $data3
    $Byteout_Array[6] = $data4
    $sum = 0

    For $i = 0 To 6 Step 1
        $sum = $sum + $Byteout_Array[$i]
        _ComSendByte($Byteout_Array[$i], 0)
    Next

    _ComSendByte(Mod($sum,256), 0)

EndFunc   ;==>_RX_READ_FRAME

You would need to set the serial port up first, but that must be done somewhere in the VB script as well.

[saget 0]

This by martin may be of interest to you.

cool !! powerfull man! powerfull autoit! thx

[saget 0]

If it is then the function you showed might look like this ( it could also be done in other ways)

Func _RX_READ_FRAME($type, $data1, $data2, $data3, $data4)
    Local $i, $sum, $Byteout_Array[8], $JXX_ARRAY[1]

    $Byteout_Array[0] = 0x55
    $Byteout_Array[1] = 1
    $Byteout_Array[2] = $type
    $Byteout_Array[3] = $data1
    $Byteout_Array[4] = $data2
    $Byteout_Array[5] = $data3
    $Byteout_Array[6] = $data4
    $sum = 0

    For $i = 0 To 6 Step 1
        $sum = $sum + $Byteout_Array[$i]
        _ComSendByte($Byteout_Array[$i], 0)
    Next

    _ComSendByte(Mod($sum,256), 0)

EndFunc   ;==>_RX_READ_FRAME

You would need to set the serial port up first, but that must be done somewhere in the VB script as well.

It works!!!!!!!!! thanks so much, dear martin! It should be sent 1by1..?! - -!!!

PS: This code is for USB switch turn ON/OFF external device power~~ XD

[martin 69]

It works!!!!!!!!! thanks so much, dear martin! It should be sent 1by1..?! - -!!!

PS: This code is for USB switch turn ON/OFF external device power~~ XD

What do you mean "it should be sent 1by1"? If you mean should the bytes be sent 1 at a time as in the function then I don't think it matters unless you are sending a lot of data and need to send it fast. In that case I would use _ComSendByteArray, but if what you've done works ok then leave it because it is nice and simple.

Can you tell me what the usb controller is you're using?

[saget 0]

What do you mean "it should be sent 1by1"? If you mean should the bytes be sent 1 at a time as in the function then I don't think it matters unless you are sending a lot of data and need to send it fast. In that case I would use _ComSendByteArray, but if what you've done works ok then leave it because it is nice and simple.

Can you tell me what the usb controller is you're using?

y, _ComSendByte already works perfect~~ thanks again!

[martin 69]

y, _ComSendByte already works perfect~~ thanks again!

Thanks for the photo but what is it? I mean do you have a link where I can see the spec etc?