Oto TOWN Kodu

public sub town()
Dim pBytes() As Byte
Dim pStr As String
pStr = Trim$("4800")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
end sub