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 |
Intermediate
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
Intermediate
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") |
Intermediate
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)