Beginner
Date of registration: Feb 25th 2009
Location: Beverungen / Weser
Occupation: Softwareentwicklung

Beginner
Date of registration: Feb 22nd 2011
Location: Adelaide, Australia
Occupation: Medical practitioner
|
|
Source code |
1 2 3 4 5 6 7 |
Option Explicit Import javax#comm Public Sub Command1_Click() Dim cpi As CommPortIdentifier |
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Feb 22nd 2011
Location: Adelaide, Australia
Occupation: Medical practitioner
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 |
Option Explicit
Import javax#comm
Public Sub Command1_Click()
Dim cpi As CommPortIdentifier
Dim ty As Integer
Dim s As String = ""
MsgBox("start")
Dim en As java#util#Enumeration = CommPortIdentifier.getPortIdentifiers() ' this gives an error
|
Quoted
java.lang.UnsatisfiedLinkError: no rxtxSerial in java.library.path
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Feb 22nd 2011
Location: Adelaide, Australia
Occupation: Medical practitioner
|
|
Source code |
1 2 |
Option Explicit Import javax#comm |
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Option Explicit
'Import javax#comm
Import gnu#io
Public Sub Command1_Click()
Dim cpi As CommPortIdentifier
Dim ty As Integer
Dim s As String = ""
Dim en As java#util#Enumeration
MsgBox("test1")
' = CommPortIdentifier.getPortIdentifiers()
en = Cast(CommPortIdentifier.getPortIdentifiers(), CommPortEnumerator)
MsgBox("test2")
|
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Feb 22nd 2011
Location: Adelaide, Australia
Occupation: Medical practitioner
|
|
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Option Explicit Import gnu#io Public Sub Command1_Click() Dim cpi As CommPortIdentifier Dim ty As Integer Dim s As String = "" Dim en As java#util#Enumeration = CommPortIdentifier.getPortIdentifiers() Do While en.hasMoreElements() cpi = Cast(en.nextElement(), CommPortIdentifier) ty = cpi.getPortType() If ty = CommPortIdentifier.PORT_PARALLEL Then s = s & "parallel port: " Elseif ty = CommPortIdentifier.PORT_SERIAL Then s = s & "serial port: " Else s = s & "??? port: " End If s = s & cpi.getName() & vbCrLf Loop If s = "" Then s = "no port found!" End If MsgBox s End Sub |
This post has been edited 1 times, last edit by "Dr_Acula" (Feb 24th 2011, 4:44am)