Accesso alle Porte Seriali - Cronologia

Vuott il 15:01, 4 dic 2023

2023-12-04T15:01:47Z

← Versione meno recente		Versione delle 09:01, 4 dic 2023
Riga 11:		Riga 11:


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	<FONT color=gray>' ''Se il file non possiede i più ampi permessi...''</font>		<FONT color=gray>' ''Se il file non possiede i più ampi permessi...''</font>
	If Stat("/dev/ttyUSB1").Auth <> "rwsrwxrwx" Then		If Stat("/dev/ttyUSB1").Auth <> "rwsrwxrwx" Then
	<FONT color=gray>' ''...allora modificheremo in quel senso i permessi del file:''</font>		<FONT color=gray>' ''...allora modificheremo in quel senso i permessi del file:''</font>
	Desktop.RunAsRoot("chmod 4777 /dev/ttyUSB1")		Desktop.RunAsRoot("chmod 4777 /dev/ttyUSB1")
	<FONT color=gray>' ''Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:''</font>		<FONT color=gray>' ''Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:''</font>
	Do		Repeat
	Wait 0.01		Wait 0.01
	~~Loop~~ Until Stat("/dev/ttyUSB1").Auth = "rwsrwxrwx"		Until Stat("/dev/ttyUSB1").Auth = "rwsrwxrwx"
	Endif		Endif

	<FONT color=gray>' ''In alternativa all'algoritmo precedente,''		<FONT color=gray>' ''In alternativa all'algoritmo precedente, si potrà utilizzare il seguente codice per impostare il setUID e consentire l'apertura del file protetto:''
	~~' ''~~si potrà utilizzare il seguente codice per impostare il setUID''		'''Exec ["gksu", "chmod 4777", "/dev/ttyUSB1"] Wait'''</font>
	~~' ''~~e consentire l'apertura del file protetto:''
	'''Exec ["gksu", "chmod 4777", "/dev/ttyUSB1"] Wait'''</font>

	<FONT color=gray>' ''...o ancor più facilmente:''		<FONT color=gray>' ''...o ancor più facilmente:''
	'''Shell "echo < ''~~mia_password~~'' > \| sudo -S chmod 4777 '/dev/ttyUSB1'" Wait'''</font>		'''Shell "echo</font> <FONT color=darkgreen>''MIA_PASSWORD''</font> <FONT color=gray>\| sudo -S chmod 4777 '/dev/ttyUSB1'" Wait'''</font>

	<FONT color=gray>' ''Apriamo il file-device aggiungendo la parola chiave "Watch":''</font>		<FONT color=gray>' ''Apriamo il file-device aggiungendo la parola chiave "Watch":''</font>
	fl = Open "/dev/ttyUSB1" For Read Watch		fl = Open "/dev/ttyUSB1" For Read Watch

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub File_Read()		Public Sub File_Read()

	Dim s As String		Dim s As String

	While Not Eof(fl)		While Not Eof(fl)
	<FONT color=gray>' ''Leggiamo i dati provenienti dal file-device...:''</font>		<FONT color=gray>' ''Leggiamo i dati provenienti dal file-device...:''</font>
	Line Input #fl, s		Line Input #fl, s
	<FONT color=gray>' ''...e li mostriamo in console:''</font>		<FONT color=gray>' ''...e li mostriamo in console:''</font>
	Print s		Print s
	Wend		Wend

	~~'''~~End~~'''~~		End


	==Lettura mediante la ~~classe~~ ''SerialPort''==		==Lettura mediante la Classe ''SerialPort''==
	La lettura della ''Porta Seriale'' portà avvenire anche mediante l'uso della Classe "SerialPort" attivando il componente <FONT color=#B22222>gb.net</font>.		La lettura della ''Porta Seriale'' portà avvenire anche mediante l'uso della Classe "SerialPort" attivando il componente <FONT color=#B22222>gb.net</font>.
	Private SerialPort1 As SerialPort		Private SerialPort1 As SerialPort


	~~'''~~Public~~'''~~ Sub Button1_Click()		Public Sub Button1_Click()

	SerialPort1 = New SerialPort As "portaseriale"		SerialPort1 = New SerialPort As "portaseriale"

			<FONT color=gray>' ''Facciamo in modo da poter inserire la password di root per impostare il setUID e consentire l'apertura del file protetto:''</font>
			Shell "echo '<FONT color=darkgreen>''MIA_PASSWORD''</font>' \| sudo -S chmod 4777 '/dev/ttyUSB1'" Wait

	~~<FONT color=gray>' ''Facciamo in modo da poter inserire la password di root''~~		With SerialPort1
	~~' ''per impostare il setUID e consentire l'apertura del file protetto:''</font>~~		.PortName = "/dev/ttyUSB1"
	~~Shell "echo '<FONT color=gray>''mia_password''</font>' \| sudo -S chmod 4777 '/dev/ttyUSB1'" Wait~~		.Speed = 19200
			.Parity = 0
	With SerialPort1		.DataBits = 8
	.PortName = "/dev/ttyUSB1"		.StopBits = 1
	.Speed = 19200		.FlowControl = 0
	.Parity = 0		.Open
	.DataBits = 8		End With
	.StopBits = 1
	.FlowControl = 0
	.Open
	End With

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub portaseriale_Read()		Public Sub portaseriale_Read()

	Dim s As String		Dim s As String

	<FONT color=gray>' ''Legge i dati dalla porta....''</font>		<FONT color=gray>' ''Legge i dati dalla porta....''</font>
	Read #SerialPort1, s, Lof(SerialPort1)		Read #SerialPort1, s, Lof(SerialPort1)

	<FONT color=gray>' ''...e li mostra in console:''</font>		<FONT color=gray>' ''...e li mostra in console:''</font>
	Print s		Print s

	~~'''~~End~~'''~~		End


	~~'''~~Public~~'''~~ Sub Form_Close()		Public Sub Form_Close()

	If SerialPort1.Status = Net.Active Then SerialPort1.Close		If SerialPort1.Status = Net.Active Then SerialPort1.Close

	~~'''~~End~~'''~~		End

	====Altri codici esemplificativi====		====Altri codici esemplificativi====

Vuott il 01:36, 3 dic 2021

2021-12-03T01:36:21Z

← Versione meno recente		Versione delle 19:36, 2 dic 2021
Riga 98:		Riga 98:

	====Altri codici esemplificativi====		====Altri codici esemplificativi====
	~~E' possibile~~ scaricare anche altri due programmi ben più complessi:		Gli utenti iscritti al Forum [https://www.gambas-it.org/smf/ www.gambas-it.org] possono scaricare anche altri due programmi ben più complessi:
	* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5570 <SUP>[[[#Note\|nota 3]]]</sup>		* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5570 <SUP>[[[#Note\|nota 3]]]</sup>
	* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5575 <SUP>[[[#Note\|nota 4]]]</sup>		* https://www.gambas-it.org/smf/index.php?action=dlattach;topic=8863.0;attach=5575 <SUP>[[[#Note\|nota 4]]]</sup>
Riga 109:		Riga 109:
	[2] In tali altri casi il file-device creato può essere: "/dev/<FONT Color=#B22222>ttyACM0</font>"		[2] In tali altri casi il file-device creato può essere: "/dev/<FONT Color=#B22222>ttyACM0</font>"

	[3] Il codice è stato realizzato ~~dal~~ utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=1089 kicco]'' "		[3] Il codice è stato realizzato dall'utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=1089 kicco]'' "

	[4] Il codice è stato realizzato ~~dal~~ utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=576 astragalo]'' ".		[4] Il codice è stato realizzato dall'utente "''[https://www.gambas-it.org/smf/index.php?action=profile;u=576 astragalo]'' ".

Vuott il 01:34, 3 dic 2021

2021-12-03T01:34:01Z

Mostra modifiche

Vuott il 01:10, 3 dic 2021

2021-12-03T01:10:50Z

Mostra modifiche

Vuott il 05:35, 15 nov 2021

2021-11-15T05:35:48Z

← Versione meno recente		Versione delle 23:35, 14 nov 2021
Riga 1:		Riga 1:
	Possiamo accedere alle ''Porte Seriali'' <SUP>[[[#Note\|nota 1]]]</sup>aprendo e leggendo direttamentre i dati provenienti dai relativi file-device.		Possiamo accedere alle ''Porte Seriali'' <SUP>[[[#Note\|nota 1]]]</sup> aprendo e leggendo direttamentre i dati provenienti dai relativi file-device.

	Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: "''/dev/ttyUSB0'' " e "''/dev/ttyUSB1'' " <SUP>[[[#Note\|nota 2]]]</sup>.		Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: "''/dev/ttyUSB0'' " e "''/dev/ttyUSB1'' " <SUP>[[[#Note\|nota 2]]]</sup>.

Vuott il 00:22, 31 ott 2021

2021-10-31T00:22:29Z

← Versione meno recente		Versione delle 18:22, 30 ott 2021
Riga 1:		Riga 1:
	Possiamo accedere alle ''Porte Seriali'' aprendo e leggendo direttamentre i dati provenienti dai relativi file-device.		Possiamo accedere alle ''Porte Seriali'' <SUP>[[[#Note\|nota 1]]]</sup>aprendo e leggendo direttamentre i dati provenienti dai relativi file-device.

	Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: "''/dev/ttyUSB0'' " e "''/dev/ttyUSB1'' ". Possiamo leggere i dati provenienti dalla porta mediante due modalità:		Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: "''/dev/ttyUSB0'' " e "''/dev/ttyUSB1'' " <SUP>[[[#Note\|nota 2]]]</sup>.
			<BR>Possiamo leggere i dati provenienti dalla porta mediante due modalità:
	* direttamente dal relativo file-device, ad esempio, "''/dev/ttyUSB1'' ";		* direttamente dal relativo file-device, ad esempio, "''/dev/ttyUSB1'' ";
	* mediante l'apposita classe "''SerialPort''".		* mediante l'apposita classe "''SerialPort''".
Riga 48:		Riga 49:

	'''End'''		'''End'''


	==Lettura mediante la classe ''SerialPort''==		==Lettura mediante la classe ''SerialPort''==
Riga 97:		Riga 99:


	-~~---~~		=Note=
			[1] Vedere anche questa pagina: [[Approfondimento_sull'accesso_alle_porte_USB\|Approfondimento sull'accesso alle porte USB]]

			[2] In tali altri casi il file-device creato può essere: "/dev/<FONT Color=#B22222>ttyACM0</font>"



	=Approfondimenti in internet=		=Approfondimenti in internet=
	* http://www.cmrr.umn.edu/~strupp/serial.html		* http://www.cmrr.umn.edu/~strupp/serial.html
	* http://www.tldp.org/HOWTO/Serial-HOWTO.html		* http://www.tldp.org/HOWTO/Serial-HOWTO.html

Vuott il 00:17, 31 ott 2021

2021-10-31T00:17:52Z

← Versione meno recente		Versione delle 18:17, 30 ott 2021
Riga 1:		Riga 1:
	Possiamo accedere alle ''Porte Seriali'' aprendo e leggendo direttamentre i dati provenienti dai relativi file-device.		Possiamo accedere alle ''Porte Seriali'' aprendo e leggendo direttamentre i dati provenienti dai relativi file-device.

			Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: "''/dev/ttyUSB0'' " e "''/dev/ttyUSB1'' ". Possiamo leggere i dati provenienti dalla porta mediante due modalità:
	Poniamo l'esempio di avere una penna USB per la connessione ad Internet, e che alla sua connessione il sistema operativo abbia generato due relativi file-device: ''/dev/ttyUSB0'' e ''/dev/ttyUSB1''. Possiamo leggere i dati provenienti dalla porta mediante due modalità:		* direttamente dal relativo file-device, ad esempio, "''/dev/ttyUSB1'' ";
	* direttamente dal relativo file-device, ad esempio, ''/dev/ttyUSB1'';
	* mediante l'apposita classe "''SerialPort''".		* mediante l'apposita classe "''SerialPort''".



	==Mediante lettura diretta dal corrispondente file-device==		==Mediante lettura diretta dal corrispondente file-device==
	Per il seguente esempio è necessario attivare anche il componente ''gb.desktop'', ed aver installato il programma ''x-term'':		Per il seguente esempio è necessario attivare anche il componente "gb.desktop", ed aver installato il programma "x-term":
	Private fl As File		Private fl As File

Riga 51:		Riga 48:

	'''End'''		'''End'''



	==Lettura mediante la classe ''SerialPort''==		==Lettura mediante la classe ''SerialPort''==
	La lettura della ''Porta Seriale'' portà avvenire anche mediante l'uso della Classe ''SerialPort'' attivando il componente <FONT color=#B22222>gb.net</font>.		La lettura della ''Porta Seriale'' portà avvenire anche mediante l'uso della Classe "SerialPort" attivando il componente <FONT color=#B22222>gb.net</font>.
	Private SerialPort1 As SerialPort		Private SerialPort1 As SerialPort

Riga 102:		Riga 97:


			----
	=Approfondimenti in internet=		=Approfondimenti in internet=
	* http://www.cmrr.umn.edu/~strupp/serial.html		* http://www.cmrr.umn.edu/~strupp/serial.html
	* http://www.tldp.org/HOWTO/Serial-HOWTO.html		* http://www.tldp.org/HOWTO/Serial-HOWTO.html

Vuott il 14:32, 20 nov 2015

2015-11-20T14:32:19Z

← Versione meno recente		Versione delle 08:32, 20 nov 2015
Riga 10:		Riga 10:
	==Mediante lettura diretta dal corrispondente file-device==		==Mediante lettura diretta dal corrispondente file-device==
	Per il seguente esempio è necessario attivare anche il componente ''gb.desktop'', ed aver installato il programma ''x-term'':		Per il seguente esempio è necessario attivare anche il componente ''gb.desktop'', ed aver installato il programma ''x-term'':
	~~'''~~Private~~'''~~ fl As File		Private fl As File


Riga 56:		Riga 56:
	==Lettura mediante la classe ''SerialPort''==		==Lettura mediante la classe ''SerialPort''==
	La lettura della ''Porta Seriale'' portà avvenire anche mediante l'uso della Classe ''SerialPort'' attivando il componente <FONT color=#B22222>gb.net</font>.		La lettura della ''Porta Seriale'' portà avvenire anche mediante l'uso della Classe ''SerialPort'' attivando il componente <FONT color=#B22222>gb.net</font>.
	~~'''~~Private~~'''~~ SerialPort1 As SerialPort		Private SerialPort1 As SerialPort

Vuott il 14:31, 20 nov 2015

2015-11-20T14:31:50Z

← Versione meno recente		Versione delle 08:31, 20 nov 2015
Riga 91:		Riga 91:
	Print s		Print s

			'''End'''


			'''Public''' Sub Form_Close()

			If SerialPort1.Status = Net.Active Then SerialPort1.Close

	'''End'''		'''End'''



	==Approfondimenti in internet==
			=Approfondimenti in internet=
	* http://www.cmrr.umn.edu/~strupp/serial.html		* http://www.cmrr.umn.edu/~strupp/serial.html
	* http://www.tldp.org/HOWTO/Serial-HOWTO.html		* http://www.tldp.org/HOWTO/Serial-HOWTO.html

Vuott il 16:34, 27 apr 2015

2015-04-27T16:34:21Z

← Versione meno recente		Versione delle 10:34, 27 apr 2015
Riga 15:		Riga 15:
	'''Public''' Sub Button1_Click()		'''Public''' Sub Button1_Click()

	<FONT color=~~#006400~~>' ''Se il file non possiede i più ampi permessi...''</font>		<FONT color=gray>' ''Se il file non possiede i più ampi permessi...''</font>
	If Stat("/dev/ttyUSB1").Auth <> "rwsrwxrwx" Then		If Stat("/dev/ttyUSB1").Auth <> "rwsrwxrwx" Then
	<FONT color=~~#006400~~>' ''...allora modificheremo in quel senso i permessi del file:''</font>		<FONT color=gray>' ''...allora modificheremo in quel senso i permessi del file:''</font>
	Desktop.RunAsRoot("chmod 4777 /dev/ttyUSB1")		Desktop.RunAsRoot("chmod 4777 /dev/ttyUSB1")
	<FONT color=~~#006400~~>' ''Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:''</font>		<FONT color=gray>' ''Restiamo in attesa fino a che i permessi non vengono modificati, come desiderato:''</font>
	Do		Do
	Wait 0.01		Wait 0.01
Riga 25:		Riga 25:
	Endif		Endif

	<FONT color=~~#006400~~>' ''In alternativa all'algoritmo precedente,''		<FONT color=gray>' ''In alternativa all'algoritmo precedente,''
	' ''si potrà utilizzare il seguente codice per impostare il setUID''		' ''si potrà utilizzare il seguente codice per impostare il setUID''
	' ''e consentire l'apertura del file protetto:''		' ''e consentire l'apertura del file protetto:''
	'''Exec ["gksu", "chmod 4777", "/dev/ttyUSB1"] Wait'''</font>		'''Exec ["gksu", "chmod 4777", "/dev/ttyUSB1"] Wait'''</font>

	<FONT color=~~#006400~~>' ''Apriamo il file-device aggiungendo la parola chiave "Watch":''</font>		<FONT color=gray>' ''...o ancor più facilmente:''
			'''Shell "echo < ''mia_password'' > \| sudo -S chmod 4777 '/dev/ttyUSB1'" Wait'''</font>

			<FONT color=gray>' ''Apriamo il file-device aggiungendo la parola chiave "Watch":''</font>
	fl = Open "/dev/ttyUSB1" For Read Watch		fl = Open "/dev/ttyUSB1" For Read Watch

Riga 41:		Riga 44:

	While Not Eof(fl)		While Not Eof(fl)
	<FONT color=~~#006400~~>' ''Leggiamo i dati provenienti dal file-device...:''</font>		<FONT color=gray>' ''Leggiamo i dati provenienti dal file-device...:''</font>
	Line Input #fl, s		Line Input #fl, s
	<FONT color=~~#006400~~>' ''...e li mostriamo in console:''</font>		<FONT color=gray>' ''...e li mostriamo in console:''</font>
	Print s		Print s
	Wend		Wend
Riga 61:		Riga 64:


	<FONT color=~~#006400~~>' ''Facciamo in modo da poter inserire la password di root''		<FONT color=gray>' ''Facciamo in modo da poter inserire la password di root''
	' ''per impostare il setUID e consentire l'apertura del file protetto:''</font>		' ''per impostare il setUID e consentire l'apertura del file protetto:''</font>
	~~Exec ["gksu",~~ "chmod 4777~~", "~~/dev/ttyUSB1"] Wait		Shell "echo '<FONT color=gray>''mia_password''</font>' \| sudo -S chmod 4777 '/dev/ttyUSB1'" Wait

	With SerialPort1		With SerialPort1
	.PortName = "/dev/ttyUSB1"		.PortName = "/dev/ttyUSB1"
Riga 82:		Riga 85:
	Dim s As String		Dim s As String

	<FONT color=~~#006400~~>' ''Legge i dati dalla porta....''</font>		<FONT color=gray>' ''Legge i dati dalla porta....''</font>
	Read #SerialPort1, s, Lof(SerialPort1)		Read #SerialPort1, s, Lof(SerialPort1)

	<FONT color=~~#006400~~>' ''...e li mostra in console:''</font>		<FONT color=gray>' ''...e li mostra in console:''</font>
	Print s		Print s