Text Box e MSCOMM

[md76]

Private Sub Text2_KeyPress(KeyAscii As Integer)
MSComm1.Output = Chr$(KeyAscii)
End Sub

Praticamente io scrivo un cod. ascii nel Text2 e la mia periferica
collegata in seriale esegue una determinata operazione. E fini a qui
nessun problema anzi funziona perfettamente. Quello che vi chiedo e': ma se io volessi che la stessa operazione la facesse premendo un Bottone piuttosto che scrivere la stringa nel text2 come posso fare ? Grazie 1000

[afrappe]

Originariamente inviato da md76
Private Sub Text2_KeyPress(KeyAscii As Integer)
MSComm1.Output = Chr$(KeyAscii)
End Sub

Praticamente io scrivo un cod. ascii nel Text2 e la mia periferica
collegata in seriale esegue una determinata operazione. E fini a qui
nessun problema anzi funziona perfettamente. Quello che vi chiedo e': ma se io volessi che la stessa operazione la facesse premendo un Bottone piuttosto che scrivere la stringa nel text2 come posso fare ? Grazie 1000

Private Sub Command1_Click()
    MSComm1.Output = Chr$(text2.text)

End Sub

[md76]

mi dispiace mi ritorna sempre il msgbox: Errore 13, Tipo non corrispondente".

Volevo dirti che io attualmente dopo aver scritto il carattere ascii nella textbox premo invio.

Se puoi darmi una mano te ne sarei molto grato.

ciao ciao

[afrappe]

dai un occhiata a questo esempio, viene indicato come eseguire comunicazioni seriali elementari utilizzando un modem:

prova a passargli all'output una semplice stringa

Private Sub Form_Load ()
   ' Buffer in cui viene memorizzata la stringa di
   ' input
   Dim Instring As String
   ' Utilizza COM1.
   MSComm1.CommPort = 1
   ' Velocità 9600, nessuna parità, 8 bit di dati e 
   ' 1 bit di stop.
   MSComm1.Settings = "9600,N,8,1"
   ' Comunica al controllo di leggere l'intero buffer 
   ' quando viene utilizzata la proprietà Input.
   MSComm1.InputLen = 0
   ' Apre la porta.
   MSComm1.PortOpen = True
   ' Invia al modem il comando di attivazione.
   MSComm1.Output = "ATV1Q0" & Chr$(13) ' Verifica che il
   ' modem risponda con "OK".
   ' Attende il ritorno di dati attraverso la porta 
   ' seriale.
   Do
      DoEvents
   Buffer$ = Buffer$ & MSComm1.Input
   Loop Until InStr(Buffer$, "OK" & vbCRLF)
   ' Legge il dato di risposta "OK" sulla porta
   ' seriale.
   ' Chiude la porta seriale.
   MSComm1.PortOpen = False
End Sub

[md76]

Grazie ho risolto, prendendo spunto dalla riga:

MSComm1.Output = "ATV1Q0" & Chr$(13)

Sei stato troppo gentile alla prossima.

grazie

[afrappe]

figurati

[g.scardigno]

Prova a guardare qui :
http://www.it-lang-vb.net/Documentaz...i/MSCOMM.htm#8

Ci sono delle buone descrizioni, forse ti saranno d'aiuto