🚀 go-pugleaf

Prova ad usare questo codice, serve per pilotare il modem seriale ma io l'ho
usato anche per una chat tra due PC colleggati in seriale cross.

Almeno a me funziona.

private sub form_load()
    MSComm1.commport =1
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.RThreshold = 1
    MSComm1.PortOpen = True
end sub

private sub MSComm1_onComm()
    dim ricev as String
    ricev = MSComm1.input
    if len(ricev) then
        text1.text = ricev
  end sub

private sub text2_keypress(keyAscii as Integer)
    MSComm1.output = chr$(KeyAscii)
end sub


Il componete MSComm1 � MSCOMM32.OCX

Fammi sapere, ciao
"Andrea.S" <andrea.santagati@libero.it> ha scritto nel messaggio
news:GH3Xa.222795$lK4.6591201@twister1.libero.it...
> Ciao, vorrei usare la porta seriale comandata dal Visual Basic, vorrei
> trasmettere la lettera "a" e vedere se riesco a ricevere la lettera che ho
> trasmesso. Ho cortocircuitato il pin 2 col pin 3 della seriale del mio PC
> cio� ho collegato il pin di trasmissione col pin di ricezione per fare in
> modo da spedire la lettera "a" e ricevere la lettera "a".
> Qualcosa funziona solo che il carattere che ricevo, qualsiasi sia il
> carattere che trasmetto, � sempre lo stesso ed � un punto di domanda
seguito
> da questo carattere |.
> Il codice che uso �:
>
>
> SERIALE.PortOpen = True
>
>        SERIALE.Outpout = "a"
> If SERIALE.comEvReceive Then
> Num_DATI_RICEVUTI = SERIALE.InBufferCount
>         If Num_DATI_RICEVUTI <> 0 Then
>         DATO_RICEVUTO = SERIALE.Input
>         Text1.text = DATO_RICEVUTO
>         End If
> End If
>
>
> I settaggi sono giusti perch� qualcosa viene fuori ma non � ci� che ho
> trasmesso. Dove sto sbagliando?
> L'evento comEvReceive � True cio� qualcosa riceve ma riceve male!!!
> Grazie Ciao Andrea (hipernik@libero.it)
>
>
>
>
>


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.514 / Virus Database: 312 - Release Date: 28/08/2003