comport,hex-tal og hardware-flow control

Start med at finde ud af om porten er sat rigtigt op.

Standarden er :
9600 Baud
No parity
8 bit

Hvis du har to Com-porte
kan du bruge Hyperterminal
til at skrive noget til dit program.

Er 0xAA = Hex AA = Decimal 170..??

jo det er sat rigtigt : 9600,n,8,1

og jo det skulle være 170 i decimal ,men hvad gør "ox" ved det ??

der er desværre kun 1 com-port

0x betyder bare Hex...
Jeg vender tilbage med nogle program eksempler.

mange tak .

jeg glæder mig allerede ;-)

Her kommer et eksempel på et modtage-program :


Formular :


Private Sub oComPort_OnComm()
   
    Select Case oComPort.CommEvent
        Case "2"
          Receive
        Case Else
           
    End Select
   
End Sub

Private Sub Form_Activate()
    txtTransmit.SetFocus
End Sub

Private Sub Form_Load()
    oComPort.CommPort = 1
    oComPort.Settings = "9600,N,8,1"
    oComPort.RThreshold = 1
    oComPort.InputLen = 0
    oComPort.InBufferSize = 1024
    oComPort.OutBufferSize = 512
    oComPort.Handshaking = 0
    oComPort.PortOpen = True
    cmdTransmit.Default = True
    tmrComOut.Interval = 500
    tmrCmdOut.Interval = 1000
End Sub



Modul:

Option Explicit

Public vBuffer As Variant
Public vResponse As Variant


Public Sub Receive()
   
    fRouterComMain.tmrComOut.Enabled = True
    Do
        Parse fRouterComMain.oComPort.Input
        DoEvents
    Loop Until fRouterComMain.oComPort.InBufferCount = 0 And tmrComOut.Enabled = False
   
End Sub

Public Sub Parse(ByVal vTmpBuffer As Variant)
   
    Dim vWritBuffer As Variant
    Dim iChCnt As Integer
    Dim sCh As String
       
    vBuffer = vBuffer & vTmpBuffer
   
    For iChCnt = 1 To Len(vBuffer)
        sCh = Mid(vBuffer, iChCnt, 1)
        vWritBuffer = vWritBuffer & sCh
       
        If sCh = Chr(10) Then
           
            fRouterComMain.lsComReceive.AddItem vWritBuffer
           
            Save vWritBuffer  'Her får du outputtet
           
        If fRouterComMain.tmrCmdOut.Enabled Then
                vResponse = vResponse & vWritBuffer & "|"
                fRouterComMain.tmrCmdOut.Enabled = True
            End If
            vWritBuffer = ""
            ScrollDown
           
        End If
       
    Next
   
        vBuffer = vWritBuffer
   
   
End Sub

jeg har nu prøvet at køre dit eksempel
jeg må så indrømme at jeg har ikke anelse hvad der foregår ;-)
så meget styr har jeg ikke på det ;-)
hvad mere skal der bruges for at få det til at virke ??



den fejler ved ;

Private Sub Form_Load()  <-  <-  <-  <-  <-  <-  <-
    oComPort.CommPort = 1
    oComPort.Settings = "9600,N,8,1"
    oComPort.RThreshold = 1
    oComPort.InputLen = 0
    oComPort.InBufferSize = 1024
    oComPort.OutBufferSize = 512
    oComPort.Handshaking = 0
    oComPort.PortOpen = True
    cmdTransmit.Default = True
    tmrComOut.Interval = 500
    tmrCmdOut.Interval = 1000
End Sub

VH
Flemming

jeg er lidt interesseret i at hvid hvordan man sender 2 bytes til en port(0xAA 0xAA)
skal man bare sende "170 170" i en byte-dim ??

AA i hex er lig med 170
fordi :
A (hex) = 10 (dec)
altså 10 * 16^0 + 10 * 16^1
= 16 * 10 + 1 * 10
= 160 + 10
= 170

Hvis du skal sende AA i een byte
kan du feks. sende chr$(170).

Mht fejlen : Du HAR trukket en Comm Comtrol
ind i dein form Ikk'.
Hvilken fejl får du ??