AntiGuide: Pl2303Mdl

gravure "baite"

(2.09 €) http://www.ebay.fr/itm/new-PL2303-USB-RS232-TTL-Converter-Adapter-Module-cable-/170721866221?pt=LH_DefaultDomain_0&hash=item27bfd0f1ed
commandé le 20120808, reçu avant le 20120823, (j'étais au far-west)
vient avec un cordon 4 fils de 20 cm (sans doute convenable pour ajouter un contrôle)
(20120920: le 4ème fil (jaune) supprimé, utilisée pour starp sur usb2rs232c vert pl2300 ou autre ?
le circuit imprimé porte l'adresse http://www.betemcu.cn, mais le site est en chinois!
les deux pins sont des alims +5 et +3.3v, PAS DE DTR), pas de trous pour les autres signaux.

dépeçage du mien:
une inscription PL2303MDL
un quartz et un composant anonyme à une quarantaine des pattes
google conduit à : http://www.datasheetarchive.com/pl%202303%20MDL-datasheet.html

manque juste un boitier!
dispose de deux pins VCC et 3.3 V (pour alimenter un montage ?)

branché à vostro en Knoppix 7.0; dmesg dit bien PL 2303 attached to /dev/ttyUSB0

GAFFE: à la différence du cordon vendu par Olimex, celui-ci ne force pas les signaux de handshake hardware, il faut donc régler l'émulateur de terminal en conséquence:
pour minicom (linux) dans le menu setup accessible par minicom -s
pour Windows & putty ????
pour Windows & Hyperterminal ????

---

20160208
tension sur le fil TX: 3.33 V alors que V3.3 est à 3.43

essayé de mettre en "break"

---

envoi texte:
sub com

Set MSComm1=CreateObject?("MSCOMMLib.MSComm")
MSComm1.Settings = "300,n,8,1"
MSComm1.CommPort? = 8
MSComm1.InBufferCount? = 0
MSComm1.PortOpen? = True

If Err Then

MsgBox? "COM" & MSComm1.CommPort? & ": not opened, Sorry!"
exit sub

End If

MSComm1.Output="PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP" & CHR(13)
WScript.Sleep(1000)
MSComm1.Output="~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & CHR(13)
WScript.Sleep(1000)
MSComm1.PortOpen? = False
Set MSComm1 = Nothing

end sub
com
msgbox "done"

ion voit la diode verte s'allumer
tout sur mscomm: https://msdn.microsoft.com/en-us/library/aa259401%28v=vs.60%29.aspx
Tx clignote:
sub com

Set MSComm1=CreateObject?("MSCOMMLib.MSComm")
MSComm1.Settings = "300,n,8,1"
MSComm1.CommPort? = 8
MSComm1.InBufferCount? = 0
MSComm1.PortOpen? = True

If Err Then

MsgBox? "COM" & MSComm1.CommPort? & ": not opened, Sorry!"
exit sub

End If

for i=1 to 4

MsComm1?.break=true
WScript.Sleep(1000)
MsComm1?.break=false
WScript.Sleep(1000)

next

MSComm1.PortOpen? = False
Set MSComm1 = Nothing

end sub
com
msgbox "done"

---

dtrenable gère automatiquement dtr, pas vu de possibilitémanuelle

sub com (port)

Set MSComm1=CreateObject?("MSCOMMLib.MSComm")
MSComm1.Settings = "300,n,8,1" 'any speed, nodata
MSComm1.CommPort? = port
MSComm1.InBufferCount? = 0
MSComm1.PortOpen? = True

If Err Then

MsgBox? "COM" & MSComm1.CommPort? & ": not opened, Sorry!"
exit sub

End If

MsComm1?.break=true
msgbox "press enter when upload is finished"
MsComm1?.break=false

WScript.Sleep(1000)
MSComm1.PortOpen? = False
Set MSComm1 = Nothing

end sub
com 8
msgbox "done"

---