RS232c VB6 yardım

Question

Hey, ben VB6 comm32 kullanarak bir RS232 komutu ile bir A/V Reciever açmaya çalışıyorum.

Command code Parameter code CR Code set example 
PW   ON    <CR> PWON<CR> 

Ve bu reciever açar asla

MSComm.CommPort = 2 
MSComm.Settings = "9600,n,8,1" 
MSComm.PortOpen = True 

If Not MSComm.PortOpen Then 
    MsgBox "not opened" 
Else 
    MSComm.Output = "PWON" & Chr(13) 

    Do While MSComm.InBufferCount > 0 
     Text1.Text = Text1.Text & MSComm.Input 
    Loop 
End If 

i anda çalışmıyor gibi görünüyor o doesnt kullanıyorum benim VB6 kodu ...: bunun açmak için kullanmak söylüyor. Ne yanlış yapabilirdim? Com portunun 2 olduğundan emin olmak için kontrol ettim.

David

Answer 1

sadece karakterleri gönderiyor <CR> ziyade gerçek bir satır başı (ASCII kodu 13) daha. Seri çevre birimleri için dokümantasyon genellikle kontrol karakterlerinin isimlerini parantez içine koyar (bkz. a list of them için Wikipedia). hiçbir şey okuyacak, aynı zamanda verileri henüz seri bağlantı noktasının tamponu içinde ulaşmadı çünkü eğer seri port veri okumak için aşağıdaki kodu değişmesi gerektiğini görünüyor

MSComm.Output = "PWON" & Chr(13) 

: Çizgiyi gerekir. Nasıl yapılacağı konusunda Microsoft's example'a bir göz atın. Belirli bir alt küme sayısı okunduktan sonra (Len işlevi), vs.