| |
| Autore |
Messaggio |
opzioni |
  Opmal
postato il:
05.09.2017, alle ore 13:39 |
Protocollo firmata
Salve
Sto utilizzando il protocollo firmata e dovrei contare quante capsule un lettore a infrarossi riesce a contare.
Sono arrivato in v.b.a
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick
cacao = FirmataVB1.DigitalRead(7)
Inserisco nella variabile cacao la lettura del pin in input (7) del contatore a infrarossi.
Non riesco ad inserire pero\' un codice che mi permetta di portare su una textbox il conteggio.
Se qualcuno mi aiuta a farlo lo ringrazio. |
|
 rcc.roberto
[pagine pubblicate]
postato il:
05.09.2017, alle ore 14:05 |
Ma il v.b.a. con cosa lo stai utilizzando? Con Excel?
In ogni caso, basta che crei una casella di testo e poi scrivi l'istruzione:
TextBox1.Value = cacao
ricordati che la variabile deve essere pubblica e dichiarata all'inizio del programma. |
|
Opmal
postato il:
05.09.2017, alle ore 18:27 |
Ciao e grazie della risposta.
Sto utilizzando arduino che con il protocollo firmata permette a v.b di assumere il "comando".
Ho provato come dici ma e' un'istruzione non riconosciuta da v.b.
Per il momento ho cercato di risolvere creando un'altra textbox2 e utilizzando la variazione del testo della textbox1 ho scritto:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If cacao = 1 Then
TextBox2.Text = Val(TextBox2.Text) + cacao
End If
E leggo il conteggio che volevo iniziando pero' da 1 scritto nella textbox2 al posto dello zero.
Ne convieni che e' un metodo "empirico" per cui forse esiste un sistema piu' appropriato.
Ti saluto |
|
MB54
postato il:
05.09.2017, alle ore 18:34 |
non ho capito se usi VB come dici nell secondo posto o VBA come dici nel primo |
|
rcc.roberto
[pagine pubblicate]
postato il:
05.09.2017, alle ore 20:41 |
mi ha preceduto MB54: usi VB o VBA?
Sono simili, ma molti comandi differiscono.
Specifica bene cosa e dove usi.... poi proseguiamo.
|
|
rcc.roberto
[pagine pubblicate]
postato il:
05.09.2017, alle ore 20:43 |
 Opmal:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If cacao = 1 Then
TextBox2.Text = Val(TextBox2.Text) + cacao
End If
Se ti va bene così, basta che scrivi:
TextBox2.Text = Val(TextBox2.Text) + cacao - 1
e inizi da zero. |
|
Opmal
postato il:
06.09.2017, alle ore 08:26 |
Salve
Utilizzo Microsoft Visual Basic 2010 Express
Avevo gia' provato come suggerisce rcc.roberto nel suo ultimo post ma senza successo,probabilmente perche' registrando uno zero nel cambio textbox si sarebbe sommato con lo zero stesso non procedendo nella conta.
Anche qui ho dovuto mettere una "pezza" inserendo un button che mi azzerasse la textbox.Visual Basic per fortuna offre molte opzioni.
Certo non e' la strada giusta e non riesco a trovare quel"ciclo" in v.b che mi bypasserebbe il tutto.
Saluti |
|
rcc.roberto
[pagine pubblicate]
postato il:
06.09.2017, alle ore 09:40 |
Hai ragione, avevo erroneamente pensato che cacao fosse già un conteggio che riportavi in textbox.
Invece cacao è solo 0 o 1.
In questo caso è giusto che textbox ti parta da 1, perchè si attiva solo quando cacao è già a 1.
Per vedere lo 0, metti all'inizio del programmal'istruzione
TextBox.Text = 0
|
|
Kaput
postato il:
06.09.2017, alle ore 12:11 |
Pubblic conteggio as integer ' se il conteggio eccede usare long
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick
cacao = FirmataVB1.DigitalRead(7)
If cacao = 1 then
conteggio= contreggio + 1
TextBox.Text = conteggio
end if
Prova così. |
|
Opmal
postato il:
06.09.2017, alle ore 14:34 |
Ho provato ma anche cosi' il conteggio non parte.
Per procedere bisogna per forza introdurre un button che "premuto" porti lo zero nella textbox.
Per ora devo dire che mi accontento cosi'....
Se ti venissero in mente altre soluzioni le leggero' volentieri.
Saluti
|
|
| |
