|
ｿｽ@ｿｽｿｽｿｽVｿｽｿｽｿｽAｿｽｿｽｿｽﾊ信ｿｽﾌ会ｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
Taru 2004/06/23(ｿｽｿｽ) 11:48:33
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ、VBｿｽｿｽｿｽSｿｽﾒでゑｿｽ
RS-232CｿｽﾅテｿｽXｿｽ^ｿｽｿｽｿｽｿｽdｿｽｿｽｿｽlｿｽｿｽﾆりこｿｽﾝゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽeｿｽXｿｽ^ｿｽｿｽｿｽｿｽｿｽ
ｿｽfｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽ齬ｬｿｽｿｽｿｽｿｽﾔでゑｿｽｿｽB
ｿｽｿｽｿｽﾌ托ｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽiｿｽｿｽﾜとまゑｿｽﾌデｿｽ[ｿｽ^ｿｽjｿｽﾍ１ｿｽPｿｽﾂのパｿｽbｿｽPｿｽ[ｿｽWｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽAｿｽPｿｽﾂのパｿｽbｿｽPｿｽ[ｿｽWｿｽｿｽ
ｿｽEｿｽXｿｽ^ｿｽ[ｿｽgｿｽrｿｽbｿｽg(1bit)
ｿｽEｿｽfｿｽ[ｿｽ^ｿｽrｿｽbｿｽg(7bit)
ｿｽEｿｽpｿｽｿｽｿｽeｿｽBｿｽ`ｿｽFｿｽbｿｽNｿｽrｿｽbｿｽg(1bit)
ｿｽEｿｽXｿｽgｿｽbｿｽvｿｽrｿｽbｿｽg(1bit)
ｿｽﾅ構ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽﾜとまゑｿｽﾌデｿｽ[ｿｽ^ｿｽﾍ最鯉ｿｽﾌ難ｿｽﾂ（ｿｽPｿｽOｿｽCｿｽPｿｽPｿｽﾔ目のパｿｽbｿｽPｿｽ[ｿｽWｿｽjｿｽｿｽ
ｿｽECR
ｿｽECF
ｿｽﾈのでゑｿｽｿｽｿｽｿｽｿｽｿｽﾛにデｿｽ[ｿｽ^ｿｽｿｽｿｽ闕橸ｿｽﾞゑｿｽ
ｿｽｿｽｿｽsｿｽRｿｽ[ｿｽhｿｽﾍテｿｽLｿｽXｿｽgｿｽﾆゑｿｽｿｽﾄは趣ｿｽ闕橸ｿｽﾟゑｿｽ
ｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽﾈので、ｿｽfｿｽ[ｿｽ^ｿｽﾌ終ｿｽｿｽ閧ｪｿｽｿｽｿｽfｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽｿｽ
ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾜでゑｿｽｿｽｿｽﾜとまゑｿｽﾌデｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽCR,CFｿｽｿｽeｿｽLｿｽXｿｽgｿｽﾆゑｿｽｿｽﾄ趣ｿｽ闕橸ｿｽﾞゑｿｽｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽA
ｿｽﾜゑｿｽｿｽﾍ、ｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽﾎ御教ｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
if MSComm1.InputMode = 0 Then
Value = MSComm1.Input
Text1.Text = Text1.Text + Value
Value3 = Value3 + Value
ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@Endｿｽ@If
MM 2004/06/23(ｿｽｿｽ) 12:34:53
CFｿｽｿｽｿｽﾄ会ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽH
LFｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽﾜゑｿｽCRｿｽｿｽLFｿｽﾆゑｿｽｿｽｿｽｿｽﾌはどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌと思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽﾌ辺の暦ｿｽｿｽｿｽxｿｽﾉゑｿｽｿｽｿｽﾄ回答ゑｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽﾌで。
Taru 2004/06/23(ｿｽｿｽ) 13:06:02
ｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽ
LFｿｽﾌ間違いｿｽﾅゑｿｽｿｽB
ｿｽeｿｽXｿｽ^ｿｽﾌプｿｽｿｽｿｽgｿｽRｿｽｿｽｿｽﾉゑｿｽ
CR:Transmission code"0001101"
LF:Transmission code"0001010"
ｿｽﾆ記ｿｽqｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽLｿｽﾌ記ｿｽqｿｽiｿｽeｿｽLｿｽXｿｽgｿｽﾆゑｿｽｿｽﾄ趣ｿｽ闕橸ｿｽﾞ場合ｿｽｿｽｿｽ轤ｩｿｽﾌ記ｿｽqｿｽｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽ
ｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽj
ｿｽﾍテｿｽLｿｽXｿｽgｿｽﾆゑｿｽｿｽﾄ返ゑｿｽﾈゑｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽIｿｽﾉ会ｿｽｿｽsｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ{ｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽﾍゑｿｽｿｽﾌようｿｽﾈゑｿｽﾌゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽCR,LFｿｽ文趣ｿｽｿｽｿｽﾆゑｿｽｿｽﾄ、ｿｽｿｽ闕橸ｿｽﾟなゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽ
ｿｽｿｽｿｽﾉ考ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽc
MM 2004/06/23(ｿｽｿｽ) 13:30:35
Text1.Text = Text1.Text + Value
ｿｽﾌ鯉ｿｽﾉ以会ｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽﾇ記ｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽCR(0x0D)LF(0x0A)ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄるこｿｽﾆゑｿｽｿｽmｿｽFｿｽﾅゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
Dim i as Integer
For i=1 To Len(Text1.Text)
Debug.Print Hex$(Asc(Mid$(Text1.Text,i,1)))
Next
ｿｽｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽｿｽｿｽﾎ趣ｿｽｿｽRｿｽﾉ包ｿｽｿｽｿｽｿｽﾉ置ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾋ。
Taru 2004/06/23(ｿｽｿｽ) 13:44:07
MMｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽI
ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽﾄ、ｿｽgｿｽｿｽﾅみまゑｿｽｿｽB
