Trainee
Date of registration: Jan 5th 2009
Location: Sesto Fiorentino, Florence (ITALY)
Occupation: design & development (HW, SW & FW)
Hobbies: chess, fly fishing, good wine and beautiful women!
Hi Massimo,
no problems for your english it is great ("del resto anche il mio non eccelle!!!").
I know the java serial libraries (JavaComm). I'm interested in a hardware implementation using PIC or AVR microprocessors using JABACO and I need a RS232 starting point for interfacing Firefox directly with my microcontroller.
Thank you again.
Pier Andrea.
Trainee
Date of registration: Jan 5th 2009
Location: Sesto Fiorentino, Florence (ITALY)
Occupation: design & development (HW, SW & FW)
Hobbies: chess, fly fishing, good wine and beautiful women!
Trainee
Date of registration: Jan 5th 2009
Location: Sesto Fiorentino, Florence (ITALY)
Occupation: design & development (HW, SW & FW)
Hobbies: chess, fly fishing, good wine and beautiful women!
This post has been edited 6 times, last edit by "maXim" (Feb 6th 2009, 3:57pm)
Beginner
Date of registration: Jan 29th 2010
Location: Guayaquil, Ecuador
Occupation: Manager of a software company
Hobbies: Music player
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Jan 29th 2010
Location: Guayaquil, Ecuador
Occupation: Manager of a software company
Hobbies: Music player
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Jan 29th 2010
Location: Guayaquil, Ecuador
Occupation: Manager of a software company
Hobbies: Music player
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
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 26 27 28 29 30 31 32 |
Option Explicit Import javax#comm 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 |
Beginner
Date of registration: Jan 29th 2010
Location: Guayaquil, Ecuador
Occupation: Manager of a software company
Hobbies: Music player
Beginner
Date of registration: Jan 29th 2010
Location: Guayaquil, Ecuador
Occupation: Manager of a software company
Hobbies: Music player
Jabaco Source |
|
1 |
Import javax#comm
|
Jabaco Source |
|
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 26 27 28 29 30 31 32 33 34 35 |
Public Sub Command2_Click() Dim cpi As CommPortIdentifier Dim ty As Integer Dim s As String = "" Dim t 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 lstCommPorts.AddItem "parallel port: " s = s & "parallel port: " ElseIf ty = CommPortIdentifier.PORT_SERIAL Then lstCommPorts.AddItem "serial port: " s = s & "serial port: " Else lstCommPorts.AddItem "??? port: " s = s & "??? port: " End If t=cpi.getName() lstCommPorts.AddItem t s = s & t & vbCrLf Loop If s = "" Then lstCommPorts.AddItem "no port found!" s = "no port found!" End If MsgBox s End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Beginner
Date of registration: Feb 25th 2009
Location: Beverungen / Weser
Occupation: Softwareentwicklung
Jabaco Source |
|
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 26 27 28 29 30 31 32 33 34 35 |
Option Explicit 'Import javax#comm Import gnu#io Public Sub Command1_Click() Dim cpi As gnu#io#CommPortIdentifier Dim ty As Integer Dim s As String = "" Dim en As gnu#io#CommPortEnumerator '= gnu#io#CommPortIdentifier.getPortIdentifiers() en = gnu#io#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 |