Seriel kommunikation

Har du registreret kontrollen foerst?

Jeg formoder det er en Windows-standard ocx... eller er det mig, der er gået galt i byen?

Altså burde den allerede være registreret !

Ja, men det er ikke sikkert at den som default er registreret i dit access projekt.

Jamen, du skal jo heller ikke registrere f.eks. "Scripting.FileSystemObject", når du bruger funktionen CreateObject().

Ved ikke hvordan man registerer den i Access.. kan du evt. forklare det?

Jeg bruger access 97:

Tools -> ActiveXcontrols -> Lsite over kontroller og registrering

Ja, komponenten er registeret... men det virker stadig ikke... ved ikk om du selv har prøvet med denne komponent?

hmm nej har ikke meget erfaring med seriel komm. Beklager :-(

set tmp = createobject(MSCommLib.MSComm)

You should be able to add a communications control from the Toolbox.

Its called Microsoft Communications Control, version .....

You add a control to a form and if you then look under Tools+references menu you will see the control is now referenced.

Example of using the control named mscomm1 which you added to the form

Private Sub Form_Load ()
  ' Buffer to hold input string
  Dim Instring As String
  ' Use COM1.
  MSComm1.CommPort = 1
  ' 9600 baud, no parity, 8 data, and 1 stop bit.
  MSComm1.Settings = "9600,N,8,1"
  ' Tell the control to read entire buffer when Input
  ' is used.
  MSComm1.InputLen = 0
  ' Open the port.
  MSComm1.PortOpen = True
  ' Send the attention command to the modem.
  MSComm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that
  ' the modem responds with "OK".
  ' Wait for data to come back to the serial port.
  Do
      DoEvents
  Buffer$ = Buffer$ & MSComm1.Input
  Loop Until InStr(Buffer$, "OK" & vbCRLF)
  ' Read the "OK" response data in the serial port.
  ' Close the serial port.
  MSComm1.PortOpen = False
End Sub

TAKEN FROM HELP!

without the control this works


Private Sub Command1_Click()
Dim mscomm1 As MSComm

Set mscomm1 = New MSComm

Dim Instring As String
  ' Use COM1.
  mscomm1.CommPort = 1
  ' 9600 baud, no parity, 8 data, and 1 stop bit.
  mscomm1.Settings = "9600,N,8,1"
  ' Tell the control to read entire buffer when Input
  ' is used.
  mscomm1.InputLen = 0
  ' Open the port.
  mscomm1.PortOpen = True
  ' Send the attention command to the modem.
  mscomm1.Output = "ATV1Q0" & Chr$(13) ' Ensure that
  ' the modem responds with "OK".
  ' Wait for data to come back to the serial port.
  Do
      DoEvents
  Buffer$ = Buffer$ & mscomm1.Input
  Loop Until InStr(Buffer$, "OK" & vbCrLf)
  ' Read the "OK" response data in the serial port.
  ' Close the serial port.
  mscomm1.PortOpen = False


End Sub

Hvad skal der sendes og modtages til/fra det nævnte display?

hello.....

Hej terry
Har forsøgt det du har vist, men kan stadig ikke få det til at virke... :-(
Jeg får en licens-fejl når jeg forsøger at indsætte MSComm-komponentet i en Access-formular.

I suspect that it isnt registered, and if it isnt you more than likley dont have a license for it! I think it is included with VB 6.0 NOT Access.