|
ｿｽ@ｿｽｿｽVBｿｽQｿｽOｿｽOｿｽTｿｽﾌシｿｽｿｽｿｽAｿｽｿｽｿｽﾊ信ｿｽﾅバｿｽCｿｽiｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽ送ゑｿｽｿｽｿｽ@
|
ｿｽ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
tetsu 2008/03/16(ｿｽｿｽ) 23:21:13
VisualBasic2005ｿｽﾌシｿｽｿｽｿｽAｿｽｿｽｿｽﾊ信ｿｽﾅバｿｽCｿｽiｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽ送信ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽAｿｽｿｽｿｽLｿｽｿｽVisualBasic6.0ｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽLｿｽｿｽVisualBasic2005ｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅはゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽMｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾍ、16ｿｽiｿｽｿｽｿｽｿｽ82ｿｽﾅゑｿｽｿｽB
VisualBasic2005ｿｽﾅは、130ｿｽﾆ托ｿｽｿｽMｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽyVisualBasic6.0ｿｽz
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Dim command(0) As Byte
command(0) = &H82
MSComm1.Output = command
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
ｿｽyVisualBasic2005ｿｽz
Dim command(0) As Byte
If SerialPort1.IsOpen = False Then
Call SerialPort1.Open()
End If
command(0) = &H82
SerialPort1.Write(command(0))
If SerialPort1.IsOpen = True Then
Call SerialPort1.Close()
End If
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽKｿｽb 2008/03/17(ｿｽｿｽ) 02:04:09
ｿｽ謔ｭｿｽ況わかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
130(10ｿｽiｿｽｿｽ)=82(16ｿｽiｿｽｿｽ)
ｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆではなゑｿｽｿｽﾄ？
tetsu 2008/03/17(ｿｽｿｽ) 09:14:52
16ｿｽiｿｽｿｽｿｽｿｽ82ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRS232ｿｽﾅ接托ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽﾉ托ｿｽｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ASCIIｿｽRｿｽ[ｿｽhｿｽHｿｽﾅ托ｿｽｿｽMｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄではなゑｿｽｿｽAｿｽｿｽｿｽlｿｽﾆゑｿｽｿｽﾄシｿｽｿｽｿｽAｿｽｿｽｿｽ|ｿｽ[ｿｽgｿｽｿｽｿｽｿｽoｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽ@ｿｽ側ｿｽﾅは、ｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄ認ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
VisualBasic6.0ｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽﾅは、ｿｽｿｽｿｽlｿｽﾆゑｿｽｿｽﾄ受け趣ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
K.J.K. 2008/03/17(ｿｽｿｽ) 09:26:45
SerialPort1.Write(command(0))
ｿｽﾅはなゑｿｽ
SerialPort1.Write(command)
ｿｽﾅは。
ｿｽoｿｽｿｽｿｽﾄるじｿｽｿｽｿｽH 2008/03/17(ｿｽｿｽ) 19:34:57
&H82ｿｽ送ゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔ｪ130ｿｽi&H82ｿｽjｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆ出ｿｽｿｽｿｽﾄるじｿｽｿｽｿｽB
ｿｽoｿｽCｿｽiｿｽｿｽｿｽｿｽｿｽうｿｽｿｽASCIIｿｽｿｽｿｽうｿｽｿｽ&H82(130)ｿｽｿｽ&H82(130)ｿｽｿｽｿｽｿｽｿｽB
tetsu 2008/03/17(ｿｽｿｽ) 22:31:03
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾆ、
82ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽlｿｽｿｽ1Byteｿｽﾌデｿｽ[ｿｽ^ｿｽﾆゑｿｽｿｽﾄ托ｿｽｿｽMｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽLｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅは、82ｿｽｿｽ2Byteｿｽﾅ托ｿｽｿｽMｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽtｿｽｿｽｿｽ[ｿｽ¥ｿｽtｿｽgｿｽﾌ「RS232CｿｽeｿｽXｿｽgｿｽcｿｽ[ｿｽｿｽｿｽvｿｽｿｽ
ｿｽｿｽｿｽﾊゑｿｽ82ｿｽﾆ出ｿｽﾍゑｿｽｿｽｿｽﾌと、ｿｽｿｽｿｽtｿｽｿｽｿｽｿｽ82ｿｽﾆ出ｿｽﾍゑｿｽｿｽｿｽ痰｢ｿｽﾅゑｿｽｿｽB
ｿｽuRS232CｿｽeｿｽXｿｽgｿｽcｿｽ[ｿｽｿｽｿｽvｿｽﾌ場所
http://www.cablenet.ne.jp/‾miyasita/
ｿｽﾈにとゑｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽ 2008/03/18(ｿｽｿｽ) 00:48:36
VB6ｿｽﾅゑｿｽ&h82ｿｽﾅ１ｿｽoｿｽCｿｽgｿｽﾅ托ｿｽｿｽMｿｽｿｽｿｽMｿｽｿｽｿｽｿｽ驍ｯｿｽｿｽ
2005ｿｽﾅゑｿｽ&h48 &h42(ｿｽQｿｽoｿｽCｿｽg)ASCIIｿｽRｿｽ[ｿｽhｿｽｿｽｿｽﾆ包ｿｽｿｽｿｽｿｽｿｽｿｽ"82"ｿｽｿｽ
ｿｽｿｽｿｽMｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽ?
&h82 &h00(ｿｽQｿｽoｿｽCｿｽg) ｿｽﾅ托ｿｽｿｽMｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽ?
#ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌで「130ｿｽvｿｽﾍ捨ててゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ(16ｿｽiｿｽｿｽｿｽﾅ話ｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､)
#ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽ示ゑｿｽｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽﾅゑｿｽｿｽｿｽ
#ｿｽﾂ具ｿｽｿｽｿｽｿｽpｿｽﾓでゑｿｽｿｽﾈゑｿｽｿｽﾌで趣ｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ
ｿｽﾊゑｿｽｿｽﾄみゑｿｽ 2008/03/18(ｿｽｿｽ) 00:48:53
ｿｽuｿｽWｿｽQｿｽvｿｽｿｽuｿｽｿｽｿｽlｿｽvｿｽﾆゑｿｽｿｽﾄ考ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｩｿｽ轤ｨｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾌでは？
ｿｽｿｽ 2008/03/18(ｿｽｿｽ) 00:51:49
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
&h08 &h02(ｿｽQｿｽoｿｽCｿｽg)ｿｽﾅゑｿｽｿｽｿｽ ?
ｿｽﾊゑｿｽｿｽﾄみゑｿｽ 2008/03/18(ｿｽｿｽ) 06:50:32
ｿｽｿｽｿｽｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆはわかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
VB6ｿｽﾅ擾ｿｽｿｽｿｽｿｽﾈゑｿｽ
command(0) = Val(Mid$("&h82", 3))
ｿｽｿｽｿｽﾄ奇ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽじゑｿｽﾈゑｿｽｿｽH
ｿｽu82ｿｽvｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ
10ｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾐでゑｿｽｿｽ 2008/03/18(ｿｽｿｽ) 08:08:16
InputModeｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉバｿｽCｿｽiｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽﾝ定さｿｽｿｽﾄなゑｿｽ
ｿｽﾈゑｿｽﾄ趣ｿｽｿｽﾍ・ｿｽEｿｽEｿｽEｿｽB
ｿｽ{ｿｽｿｽｿｽﾉ？ 2008/03/18(ｿｽｿｽ) 21:39:00
> ｿｽｿｽｿｽMｿｽｿｽｿｽｿｽｿｽｿｽｿｽoｿｽCｿｽiｿｽｿｽｿｽfｿｽ[ｿｽ^ｿｽﾍ、16ｿｽiｿｽｿｽｿｽｿｽ82ｿｽﾅゑｿｽｿｽB
> VisualBasic2005ｿｽﾅは、130ｿｽﾆ托ｿｽｿｽMｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
2ｿｽoｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ130ｿｽﾈゑｿｽﾄでなゑｿｽｿｽｿｽｿｽうｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽH
tetsu 2008/03/18(ｿｽｿｽ) 22:42:01
ｿｽｿｽｿｽいｿｽ助ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽAｿｽA
ｿｽｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽﾎ、
ｿｽﾈ会ｿｽｿｽｿｽVB6.0ｿｽﾌ包ｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅシｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽMｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽoｿｽCｿｽiｿｽｿｽ16ｿｽiｿｽﾅ「18 E0ｿｽvｿｽﾆ托ｿｽｿｽMｿｽﾅゑｿｽｿｽｿｽﾌに、
ｿｽﾈ会ｿｽｿｽｿｽVB2005ｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅは、
ｿｽoｿｽCｿｽiｿｽｿｽ16ｿｽiｿｽﾅ「06 98 78 06 78 FEｿｽvｿｽﾆ抵ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾈプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾉ鯉ｿｽｿｽｿｽｿｽｿｽﾌに会ｿｽｿｽｿｽｿｽ痰､ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
VB6.0ｿｽﾌようｿｽﾉ托ｿｽｿｽMｿｽｿｽｿｽｿｽﾉは、ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌゑｿｽｿｽAｿｽAｿｽA
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽyVisualBasic6.0ｿｽz
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Dim command(0) As Byte
command(0) = &H82
MSComm1.Output = command
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
ｿｽyVisualBasic2005ｿｽz
Dim command(0) As Byte
If SerialPort1.IsOpen = False Then
Call SerialPort1.Open()
End If
command(0) = &H82
SerialPort1.Write(command(0))
If SerialPort1.IsOpen = True Then
Call SerialPort1.Close()
End If
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
K.J.K. 2008/03/19(ｿｽｿｽ) 00:01:57
ｿｽｿｽｿｽjｿｽﾌ抵ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽ‾ SerialPort1.Write(command(0))
ｿｽﾅはなゑｿｽ
ｿｽｿｽ SerialPort1.Write(command)
ｿｽﾅゑｿｽｿｽB
ｿｽｿｽ1ｿｽｿｽｿｽｿｽｿｽﾉ「Byteｿｽ^ｿｽﾌ配ｿｽｿｽvｿｽﾅはなゑｿｽｿｽuByteｿｽ^ｿｽvｿｽ送ゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽがｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽ 2008/03/19(ｿｽｿｽ) 00:38:29
ｿｽﾐとつゑｿｽｿｽｿｽ
ｿｽ示ゑｿｽｿｽ黷ｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽ(VB6)
ｿｽｿｽｿｽMｿｽｿｽｿｽｿｽ
> command(0) = &H82(ｿｽPｿｽoｿｽCｿｽg)ｿｽﾈのゑｿｽ
ｿｽﾅ趣ｿｽMｿｽｿｽｿｽｿｽ
ｿｽu&h18 &hE0ｿｽv(2ｿｽoｿｽCｿｽg)ｿｽﾍ托ｿｽｿｽMｿｽｿｽｿｽﾆ趣ｿｽMｿｽｿｽｿｽﾅ厄ｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽ?
ｿｽｿｽｿｽ闡､ｿｽﾅなにゑｿｽｿｽｿｽｿｽｿｽﾏ奇ｿｽｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ?
ｿｽｿｽｿｽMｿｽｿｽｿｽﾅ出ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆとゑｿｽｿｽｿｽｿｽﾎ、
vb6ｿｽﾅゑｿｽｿｽｿｽStrCnvｿｽﾖ撰ｿｽｿｽｿｽunicodeｿｽｿｽｿｽｿｽasciiｿｽRｿｽ[ｿｽhｿｽｿｽ
ｿｽﾏ奇ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽ迹暦ｿｽｿｽｿｽﾄみてゑｿｽ?
#ｿｽSｿｽｿｽｿｽｿｽｿｽiｿｽTｿｽCｿｽBｿｽﾏ奇ｿｽｿｽﾌ仕ｿｽｿｽｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽ 2008/03/19(ｿｽｿｽ) 00:45:29
>K.J.K.ｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽﾄなゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾔゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
>tetsu ｿｽｿｽｿｽｿｽ
ｿｽ¥ｿｽzｿｽﾅ擾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで、ｿｽﾅ適ｿｽ答では厄ｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽeｿｽﾍゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
tetsu 2008/03/19(ｿｽｿｽ) 18:54:04
ｿｽﾝなゑｿｽｿｽいろいｿｽｿｽﾆアｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾈ会ｿｽｿｽAｿｽﾏ更ｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ‾SerialPort1.Write(command(0))
ｿｽｿｽSerialPort1.Write(command,0,1)
ｿｽIｿｽtｿｽZｿｽbｿｽgｿｽﾆ擾ｿｽｿｽｿｽｿｽﾝバｿｽCｿｽgｿｽｿｽｿｽｿｽwｿｽ閧ｷｿｽｿｽｿｽOKｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
K.J.KｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
