Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
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)