Ricevere dati da Arduino - Cronologia

Vuott il 22:03, 25 giu 2024

2024-06-25T22:03:27Z

← Versione meno recente		Versione delle 16:03, 25 giu 2024
Riga 27:		Riga 27:


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

	With SerialPort1 = New SerialPort As "portaseriale"		With SerialPort1 = New SerialPort As "portaseriale"
Riga 39:		Riga 39:
	End With		End With

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


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

	Dim b As Byte		Dim b As Byte

	Read #SerialPort1, b		Read #SerialPort1, b
Riga 50:		Riga 50:
	ValueBox1.Value = b		ValueBox1.Value = b

	~~'''~~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


Riga 64:		Riga 64:
	[1] Vedere anche questa esposizione: http://www.gambas-it.org/smf/index.php?topic=2485.msg26661#msg26661		[1] Vedere anche questa esposizione: http://www.gambas-it.org/smf/index.php?topic=2485.msg26661#msg26661

	[2] Vedere anche: [[~~Accesso_alle_Porte_Seriali\|~~Accesso alle Porte Seriali]]		[2] Vedere anche: [[Accesso alle Porte Seriali]]

Vuott il 01:13, 3 dic 2021

2021-12-03T01:13:39Z

← Versione meno recente		Versione delle 19:13, 2 dic 2021
Riga 62:		Riga 62:

	=Note=		=Note=
	[1] ~~Segnaliamo~~ anche questa esposizione: http://www.gambas-it.org/smf/index.php?topic=2485.msg26661#msg26661		[1] Vedere anche questa esposizione: http://www.gambas-it.org/smf/index.php?topic=2485.msg26661#msg26661

			[2] Vedere anche: [[Accesso_alle_Porte_Seriali\|Accesso alle Porte Seriali]]

Vuott il 20:20, 13 ott 2021

2021-10-13T20:20:56Z

← Versione meno recente		Versione delle 14:20, 13 ott 2021
Riga 23:		Riga 23:


	Il codice ~~presente nell~~'applicativo Gambas ~~sarà invece~~ il ~~seguente:~~		Il codice dell'applicativo Gambas comunica con la porta seriale "/dev/ttyUSB0" o potrà essere anche “/dev/ttyACM0” (ovviamente il numero finale può essere anche diverso se sono stati connessi altri dispositivi analoghi.)
	Private SerialPort1 As SerialPort		Private SerialPort1 As SerialPort

Riga 58:		Riga 58:

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

Vuott il 08:29, 13 apr 2018

2018-04-13T08:29:52Z

← Versione meno recente		Versione delle 02:29, 13 apr 2018
Riga 58:		Riga 58:

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




			=Note=
			[1] Segnaliamo anche questa esposizione: http://www.gambas-it.org/smf/index.php?topic=2485.msg26661#msg26661

Vuott il 16:59, 20 nov 2015

2015-11-20T16:59:51Z

← Versione meno recente		Versione delle 10:59, 20 nov 2015
Riga 30:		Riga 30:

	With SerialPort1 = New SerialPort As "portaseriale"		With SerialPort1 = New SerialPort As "portaseriale"
	.PortName = "/dev/ttyUSB0" <FONT Color=gray>' ''Questa porta seriale o quella ~~corretta~~''</font>		.PortName = "/dev/ttyUSB0" <FONT Color=gray>' ''Questa porta seriale o quella disponibile''</font>
	.Speed = 9600		.Speed = 9600
	.Parity = 0		.Parity = 0

Vuott: Creata pagina con "Mostriamo un esempio pratico per ricevere dei dati da Arduino. E' necessario attivare il Componente ''gb.net'' . In particolare Arduino invierà un valore progressivamente in..."

2015-11-20T16:33:55Z

Creata pagina con "Mostriamo un esempio pratico per ricevere dei dati da Arduino. E' necessario attivare il Componente ''gb.net'' . In particolare Arduino invierà un valore progressivamente in..."

Nuova pagina

Mostriamo un esempio pratico per ricevere dei dati da Arduino. E' necessario attivare il Componente ''gb.net'' .

In particolare Arduino invierà un valore progressivamente incrementato con il ciclo previsto dal suo codice, che qui mostriamo:
int val;

void setup() {

Serial.begin(9600);

}

void loop() {

Serial.write(val); // Invia il valore contenuto nella variabile "val"

delay(300); // Resta in attesa per ms 300

++val; // Incrementa il valore contenuto nella variabile "val"

}

Il codice presente nell'applicativo Gambas sarà invece il seguente:
Private SerialPort1 As SerialPort

'''Public''' Sub Button1_Click()

With SerialPort1 = New SerialPort As "portaseriale"
.PortName = "/dev/ttyUSB0" ' ''Questa porta seriale o quella corretta''
.Speed = 9600
.Parity = 0
.DataBits = 8
.StopBits = 1
.FlowControl = 0
.Open
End With

'''End'''

'''Public''' Sub portaseriale_Read()

Dim b As Byte

Read #SerialPort1, b

ValueBox1.Value = b

'''End'''

'''Public''' Sub Form_Close()

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

'''End'''