Private Sub Command12_Click()
Dim pBytes() As Byte
Dim pStr As String
pStr = Trim$("563100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Command ekleyin 1 tane . Ve o verdiğim kodları içine yapıştırın . Command 12 yi kendi commandınızın şeyine göre ayarlayın ..
Amacı :
Ft doluda olsa girebiliyor ..
Dim pBytes() As Byte
Dim pStr As String
pStr = Trim$("563100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Command ekleyin 1 tane . Ve o verdiğim kodları içine yapıştırın . Command 12 yi kendi commandınızın şeyine göre ayarlayın ..
Amacı :
Ft doluda olsa girebiliyor ..