31
Programmazione / Re: Gambas3 + Arduino e plot dei dati..
« il: 24 Ottobre 2013, 19:08:05 »
lo credevo più facile...
Gambas-it
News:
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
32
Programmazione / Re: Gambas3 + Arduino e plot dei dati..
« il: 24 Ottobre 2013, 12:18:24 »
ok!
Questo funziona! ho difficoltà però a capire come..
Questo funziona! ho difficoltà però a capire come..
33
OpenBar / Re: Arduino
« il: 24 Ottobre 2013, 12:04:43 »
il mio livello di programmazione è abbastanza scarso e limitato al Vb..
Sto migrando a gambas perchè non voglio più avere a che fare co Micro$oft
e da tre anni uso Mint.. 
Se potessi avere quel file che esegui nel filmato e il relativo .ino penso riuscirei studiandoli a comprendere come funziona ed imparare..
Sto migrando a gambas perchè non voglio più avere a che fare co Micro$oft
e da tre anni uso Mint.. Se potessi avere quel file che esegui nel filmato e il relativo .ino penso riuscirei studiandoli a comprendere come funziona ed imparare..
34
OpenBar / Re: Arduino
« il: 23 Ottobre 2013, 21:08:38 »
ok!
ho copiato il codice dello sketch e passato ad arduino
ho copiato il codice per gambas e l ho incollato nell' evento click di un button nel codice serial port degli esempi
volendo accendere il led 8 ho aggiunto : Dim l8 As Boolean e modificato tra gli apici
ma se clicco non accendo alcun led..
ho copiato il codice dello sketch e passato ad arduino
ho copiato il codice per gambas e l ho incollato nell' evento click di un button nel codice serial port degli esempi
volendo accendere il led 8 ho aggiunto : Dim l8 As Boolean e modificato tra gli apici
Codice: [Seleziona]
Dim l8 As Boolean
If l8 Then
Print #Sport, "o8"; Chr$(13); Chr$(10); 'comando accensione
l8 = False
Else
Print #Sport, "i8"; Chr$(13); Chr$(10); 'comando spegnimento
l8 = True
Endif35
Programmazione / Re: Gambas3 + Arduino e plot dei dati..
« il: 23 Ottobre 2013, 19:56:59 »
Comunque, da quello che ho capito bisogna fare uno scketch che contiene tutte le istruzioni che servono poi fare l' upload sull' Arduino e poi interrogare o inviare delle robe
sarebbe bello quindi che sullo sketch ci fossero tutte le istruzioni per
-Leggere i pin analogici
-Leggere i pin digitali
-Scrivere i pin digitali
e poi bisognerebbe capire come gestire il tutto da gambas3 (che a me piace più rispetto ad altri linguaggi
)
Così si potrebbe gestire con delle belle interfacce, con slider, grafici etc
Un pò quello che si riusciva a fare con vbio.dll e la lpt1 e un vecchio adc8004..
Il tempo passa e i mezzi diventano più potenti (ma forse anche più complessi) ma se ci proviamo insieme troveremo il modo..
Ci state?
sarebbe bello quindi che sullo sketch ci fossero tutte le istruzioni per
-Leggere i pin analogici
-Leggere i pin digitali
-Scrivere i pin digitali
e poi bisognerebbe capire come gestire il tutto da gambas3 (che a me piace più rispetto ad altri linguaggi
)Così si potrebbe gestire con delle belle interfacce, con slider, grafici etc
Un pò quello che si riusciva a fare con vbio.dll e la lpt1 e un vecchio adc8004..
Il tempo passa e i mezzi diventano più potenti (ma forse anche più complessi) ma se ci proviamo insieme troveremo il modo..
Ci state?
36
Programmazione / Re: Gambas3 + Arduino e plot dei dati..
« il: 23 Ottobre 2013, 19:44:33 »
Mah.. ho imparato che aprendo con $ sudo gambas3 si possono fare più cose...
funziona, non chiedetemi perchè..
funziona, non chiedetemi perchè..
38
OpenBar / Re: Arduino
« il: 23 Ottobre 2013, 17:24:07 »
che bello! ed interessante hummmm... se ne può avere il codice?
39
Programmazione / Re: Gambas3 + Arduino e plot dei dati..
« il: 23 Ottobre 2013, 16:56:47 »
Bene! e adesso cerchiamo il modo di accendere un pin out con gambas3..
40
Programmazione / Re: Gambas3 + Arduino e plot dei dati..
« il: 23 Ottobre 2013, 15:23:48 »
Ho impostato Drawingarea1 cached = true
e modificato:
ora funziona!
Grazie mille a fsurfing per i files!
e modificato:
Codice: [Seleziona]
Public Sub SPort_Read()
Dim s, $s As String
Dim i As Integer
' Dim incr As Integer
Dim valore As Integer
Read #Sport, s, Lof(Sport)
s = Replace(s, "\r\n", "")
s = Replace(s, "\n", "")
s = Replace(s, "\r", "")
Print s
For i = 1 To Len(s)
$s = Mid(s, i, 1)
If $s = "#" Then
sbuf = ""
Else If $s = "!" Then
textbox1.text = sbuf
analizza(sbuf)
Dial1.Value = (sbuf / 10)
valore = sbuf
Draw.Begin(DrawingArea1)
Draw.Fillcolor = 1000
Draw.point(incr, valore)
Print incr
Draw.End
incr = incr + 1
Else
sbuf &= $s
Endif
Next
Catch
Timer1.Stop
Wait 0.1
connetti
Endora funziona!
Grazie mille a fsurfing per i files!
41
Programmazione / Gambas3 + Arduino e plot dei dati..
« il: 23 Ottobre 2013, 14:37:55 »
Buongiorno amici!
Ho acquistato Arduini Uno e con un pò di delusione ho visto che posso leggere i dati degli ingressi analogici
dal monitor seriale..
cercando qua e la ho trovato varie soluzioni in C++ (ma non ci capisco un H++...)
in Visual Basic che però funziona su xp ma non ne voglio più sapere..
Ho trovato su questo forum
http://www.gambas-it.org/smf/index.php?topic=2485.msg26660;topicseen#msg26660
compersi
* leggi_ingressi-3.0.tar.gz
* lettura_ingressi_analogici.zip
che ho installato e funzionano.
ora vorrei un plot grafico che mi disegni ogni secondo il valore preso dal pin A1
tipo:
dato = valore preso da A1
punto (valore di x , dato)
valore di x = valore di x +1
Sembra facile e in Vb lo saprei fare ma modificando così:
non vedo risultati..
Sono certo che è semplice e col vostro aiuto funzionerà!
Ho acquistato Arduini Uno e con un pò di delusione ho visto che posso leggere i dati degli ingressi analogici
dal monitor seriale..
cercando qua e la ho trovato varie soluzioni in C++ (ma non ci capisco un H++...)
in Visual Basic che però funziona su xp ma non ne voglio più sapere..
Ho trovato su questo forum
http://www.gambas-it.org/smf/index.php?topic=2485.msg26660;topicseen#msg26660
compersi
* leggi_ingressi-3.0.tar.gz
* lettura_ingressi_analogici.zip
che ho installato e funzionano.
ora vorrei un plot grafico che mi disegni ogni secondo il valore preso dal pin A1
tipo:
dato = valore preso da A1
punto (valore di x , dato)
valore di x = valore di x +1
Sembra facile e in Vb lo saprei fare ma modificando così:
Codice: [Seleziona]
Public Sub SPort_Read()
Dim s, $s As String
Dim i As Integer
Dim incr As Integer
Read #Sport, s, Lof(Sport)
s = Replace(s, "\r\n", "")
s = Replace(s, "\n", "")
s = Replace(s, "\r", "")
Print s
For i = 1 To Len(s)
$s = Mid(s, i, 1)
If $s = "#" Then
sbuf = ""
Else If $s = "!" Then
textbox1.text = sbuf
analizza(sbuf)
incr = incr + 1
Else
sbuf &= $s
Endif
Next
Catch
Timer1.Stop
Wait 0.1
connetti
Draw.Begin(DrawingArea1)
Draw.point(100 + incr, 100)
Draw.End
Endnon vedo risultati..
Sono certo che è semplice e col vostro aiuto funzionerà!
42
Programmazione (Gambas 2) / Re: Presentazione..
« il: 23 Ottobre 2013, 07:54:57 »
Grazie a tutti!
43
Programmazione (Gambas 2) / Presentazione..
« il: 05 Ottobre 2013, 14:11:35 »
Buon giorno a tutti! mi sono appena iscritto a questo forum..
Alberto
Alberto