🚀 go-pugleaf

$B;0Bp$H$$$$$^$9!#(J

> $B$*@$OC$K$J$C$F$^$9!#F#0f$H$$$$$^$9!#(J
> $B$3$NEY(J VB5.0 $B$G%W%m%0%i%`$7$F$$$k$N$G$9$,!"(J
> 
> $BJ8;zNs(J - 0123456789 $B$r%U%!%$%k$K=q$-9~$_%@%s%W$r8+$k$H(J
> 
> 30 31 32 33 34 35 36 37 38 39
> 
> $B$H$J$j$^$9!#(J
> $B$7$+$7!">e5-$N$h$&$J=q9~$G$O$J$/$F(J
> 
> 01 23 45 67 89
> 
> $B$H8@$&$h$&$K=q$-9~$_$?$$$N$G$9$,!"$I$&$7$?$i$h$$$N$+$o$+$j$^$;$s!#(J
> $B$I$J$?$+Bg;j5^65$($F$$$?$@$1$^$;$s$+!)(J
> $BK\Ev$KBg;j5^I,MW$J$N$G$_$J$5$s$*CN7C$rB_$7$F$/$@$5$$!#(J
> $B$h$m$7$/$*$M$,$$$$$?$7$^$9!#(J

$BIaDL$K%U%!%$%k$K=q$-9~$`$H!"3N$+$K(J 30 31 32 ... $B$H$J$j$^$9$M!#(J
$B$3$l$O#1#6?J?t$GI=$5$l$?(J 0$B!A(J9 $B$N3FJ8;z$NJ8;z%3!<%I$G$9!#(J

$BF#0f$5$s$N<ALd$N0UL#$r!"#1#6?J?t$G8+$?$H$-$K(J

  01 23 45 67 89

$B$H$J$k$h$&$K$7$?$$$b$N$H2r<a$7$F@bL@$7$^$9!#(J

$B$^$:J8;zNs$r!"#2J8;z$:$D$KJ,3d$7$^$9!#(J
$B<!$K!"<!$N$h$&$J7W;;$r9T$$$^$9!#(J

  $B:8$NJ8;z!v#1#6!\1&$NJ8;z(J

$B$D$^$j!"J,3d$7$F<h$j=P$7$?#2J8;z$,(J 45 $B$N$H$-$O(J

  4 * 16 + 5 = 69

$B$H$J$j$^$9!#$D$^$j$3$N>l9g$O#1#6?J?t$KJQ49$9$k$H(J 45 $B$K$J$k?t$r(J
$B5a$a$F$$$k$o$1$G$9!#(J

$B$"$H$O$3$l$KBP1~$9$kJ8;z%3!<%I!J$3$N>l9g(J 69 $B$@$+$i(J E $B$G$7$g$&$+!K$r(J
$B=q$-9~$a$P$$$$$o$1$G$9!#(J
$B#V#B$N4X?t$OCN$j$^$;$s$,!"(JN88BASIC$B$G$$$&(J CHR$() $B$N$h$&$J(J
$B$b$N$O$"$k$G$7$g$&!#(J

$B@bL@$,J,$+$j$K$/$+$C$?$i$9$_$^$;$s!#(J

Mail Address:
etsu@niji.or.jp

$B4%$G$9!#(B

<5vvgfr$t8b@tegtan.interlink.or.jp>$B$N5-;v$K$*$$$F(B
t-fujii@interlink.or.jp$B$5$s$O=q$-$^$7$?!#(B
>> $B$*@$OC$K$J$C$F$^$9!#F#0f$H$$$$$^$9!#(B
>> $B$3$NEY(B VB5.0 $B$G%W%m%0%i%`$7$F$$$k$N$G$9$,!"(B
>>
>> $BJ8;zNs(B - 0123456789 $B$r%U%!%$%k$K=q$-9~$_%@%s%W$r8+$k$H(B
>> 
>> 30 31 32 33 34 35 36 37 38 39
>> 
>> $B$H$J$j$^$9!#(B
>> $B$7$+$7!">e5-$N$h$&$J=q9~$G$O$J$/$F(B
>> 
>> 01 23 45 67 89
>> 

$BC1=c$K!"$=$NJ8;zNs$r=q$-9~$`%U%!%$%k$r3+$/;~$N!V#O#p#e#n!W%9%F!<%H$N(B
$B%b!<%I$r!X(BBinary$B!Y%b!<%I$G3+$$$F=q$-9~$a$P$$$$$s$8$c$J$$$G$7$g$&$+!)(B
$B!t$J$K$b(BBinary$B%b!<%I$r;XDj$7$J$$;~$O!"DL>o%F%-%9%H%b!<%I$G$7$g$&!#(B

$B0J>e(B

$B$b$&2r7h$5$l$F$$$k$H;W$$$^$9$,!D(B
--
 ($B3t(B)$B>>2<%=%U%H%j%5!<%A(B $B3+H/It(B 
			$BBh8^3+H/%0%k!<%W(B $BBh;03+H/%A!<%`(B  $B4%(B  $B??Lo(B   
 E-Mail: ($B2q<R(B) inui@msr.mei.co.jp  
         ($B<+Bp(B) dotechin@osk3.threewebnet.or.jp

$B;01:$H8@$$$^$9!#(J

T.FUJII <t-fujii@interlink.or.jp> wrote in article
<5vvgfr$t8b@tegtan.interlink.or.jp>...
> $B$*@$OC$K$J$C$F$^$9!#F#0f$H$$$$$^$9!#(J
> $B$3$NEY(J VB5.0 $B$G%W%m%0%i%`$7$F$$$k$N$G$9$,!"(J
> 
> $BJ8;zNs(J - 0123456789 $B$r%U%!%$%k$K=q$-9~$_%@%s%W$r8+$k$H(J
> 
> 30 31 32 33 34 35 36 37 38 39
> 
> $B$H$J$j$^$9!#(J
> $B$7$+$7!">e5-$N$h$&$J=q9~$G$O$J$/$F(J
> 
> 01 23 45 67 89
> 
> $B$H8@$&$h$&$K=q$-9~$_$?$$$N$G$9$,!"$I$&$7$?$i$h$$$N$+$o$+$j$^$;$s!#(J

$BK\Ev$K!"$3$N$h$&$J=q$-9~$_$r9T$$$?$$$N$G$7$g$&$+!)(J
$B%@%s%W$NI=<($N0UL#$r<h$j0c$($F$$$k$N$G$O$J$$$G$9$+!#(J
$BK\Ev$K$3$N$h$&$J$3$H$r$7$?$$$N$G$7$?$i!"BgJQ<:Ni$7$^$7$?!#(J

> $B$I$J$?$+Bg;j5^65$($F$$$?$@$1$^$;$s$+!)(J
> $BK\Ev$KBg;j5^I,MW$J$N$G$_$J$5$s$*CN7C$rB_$7$F$/$@$5$$!#(J
> $B$h$m$7$/$*$M$,$$$$$?$7$^$9!#(J
> 
> --------
> $BF#0f!!!J(Jt-fujii@interlink.or.jp)

-- 
$B;01:(J $B@5G7(J(masayuki.miura@sii.co.jp)

 $B$I$&$b!"<ALd<g$NF#0f$G$9!#(B

|> $B$*@$OC$K$J$C$F$^$9!#F#0f$H$$$$$^$9!#(B
|> $B$3$NEY(B VB5.0 $B$G%W%m%0%i%`$7$F$$$k$N$G$9$,!"(B
|>
|> $BJ8;zNs(B - 0123456789 $B$r%U%!%$%k$K=q$-9~$_%@%s%W$r8+$k$H(B
|>
|> 30 31 32 33 34 35 36 37 38 39
|>
|> $B$H$J$j$^$9!#(B
|> $B$7$+$7!">e5-$N$h$&$J=q9~$G$O$J$/$F(B
|>
|> 01 23 45 67 89
|>
|> $B$H8@$&$h$&$K=q$-9~$_$?$$$N$G$9$,!"$I$&$7$?$i$h$$$N$+$o$+$j$^$;$s!#(B
|
|$BK\Ev$K!"$3$N$h$&$J=q$-9~$_$r9T$$$?$$$N$G$7$g$&$+!)(B
|$B%@%s%W$NI=<($N0UL#$r<h$j0c$($F$$$k$N$G$O$J$$$G$9$+!#(B
|$BK\Ev$K$3$N$h$&$J$3$H$r$7$?$$$N$G$7$?$i!"BgJQ<:Ni$7$^$7$?!#(B
|
|> $B$I$J$?$+Bg;j5^65$($F$$$?$@$1$^$;$s$+!)(B
|> $BK\Ev$KBg;j5^I,MW$J$N$G$_$J$5$s$*CN7C$rB_$7$F$/$@$5$$!#(B
|> $B$h$m$7$/$*$M$,$$$$$?$7$^$9!#(B

$BK\Ev$K!"(B $B%@%s%W%j%9%HI=<(;~$K!"!!(B01 12 34 56$B!!$H$J$k$h$&$K=q$-9~$`;EMM$J$N$G(B
$B$9!#(B
$B<+J,$G$bJQ$J;EMM$@$J$H;W$&$N$G$9$,!"(B

$B#C8@8l$G8@$&!"(B BCD $B%3!<%I$H8_49@-$r$b$F$k$h$&$K$9$k$h$&Mj$^$l$F$$$^$9!#(B

$B:#$N;~E@!"<!$N$h$&$J=q9~$,9M$($l$F$$$^$9!#(B

Dim A, B, C As Byte

A = &H01
B = &H23
C = &H45

$B%U%!%$%k$K!!(BA,B,C$B!!$N=g$K=q$-9~$s$G$$$/!#(B

$B>e5-$NJ}K!$G3N$+$K%@%s%W%j%9%H$r$_$k$H!"!!(B01 23 45 $B$H5-O?$5$l$F$$$^$7$?!#(B

$BB>$NJ}K!$b8!F$Cf$G$9$,!":#$N$H$3$m$3$NJ}K!$G$7$+!"$o$+$j$^$;$s!#(B
$B$5$i$K!">pJs$r$*BT$A$7$F$*$j$^$9!#!&!&!&$J$$$+$b$7$l$^$;$s$,!"!#(B

---------------
  t-fujii@interlink.or.jp

$B#1%P%$%H$NJQ?t$,$"$k$J$i!";0Bp$5$s$N%R%s%H$r4p$K(B
$B2r7h$G$-$^$;$s$+(B?

$B$d$jJ}$J$s$F$$$/$i$G$b$"$k$s$G$9$1$I$M!#(B

$BNc$($P#1#07e$N#1#0?J?t$r#1#0J8;z$NJ8;zNs$KJQ49$7$F(B
$B!JA0#0$O%5%W%l%9$7$J$$$h$&$K$7$F!#(BMBASIC $B$J$i(B print
using $B$H$+;H$C$F$^$7$?$C$1!#!K!"A0#2J8;z$:$D(B
$B<h$j=P$7$F!"(B val('&H'+$B<h$j=P$7$?#2J8;z(B) $B$r#1%P%$%H(B
$BJQ?t$KF~$l$F=PNO$9$k$s$G$b$$$$$G$7$g$&!#(B
MBASIC $B$N(B val() $B$KAjEv$9$k4X?t$,$"$l$P$$$$$s$G$9$1(B
$B$I$M(B($BJ8;zNs$r?tCM$H$7$FI>2A$7$?CM$rJV$94X?t$G$9!#(B
$BNc$($P(B'&ha'$B$J$i#1#0?J?t$N(B 10 $B$rJV$7$^$9!##1#6?J?t(B
$B$G$"$i$o$;$P(B 0a $B$G$9(B)$B!#(B

$B$3$l$i$N%R%s%H$GJ,$+$i$J$$$h$&$G$7$?$i!"#1#0?J?t!"(B
$B#1#6?J?t$K$D$$$F$b$&>/$7JY6/$9$k$+!"0l=o$K3+H/$r(B
$B$7$F$$$k?M$K$3$l$i$N5-;v$r8+$F$b$i$&$+!"8e$O$d$5(B
$B$7$$(B VB $B8/$$$N?M$K6qBNE*$J%5%s%W%k$r=P$7$F$b$i$&(B
$B$N$rBT$D$+!#(B

$B!t;C$/(B C $B$b$d$C$F$J$$$1$I!"(BBCD $B7A<0$b$"$C$?$N$M!#(B

-- 
Eiichi Ozawa
mailto:bub@aa.uno.ne.jp

$B$$$m$$$m$I$&$b!#F#0f$G$9!#(B
$B$5$F!"7k6I0J2<$N%U%!%s%/%7%g%s$G$9$k$3$H$K$7$^$7$?!#(B

Function MyHex(ByVal A, B As String) As Byte

    '$B$3$N%U%!%s%/%7%g%s$OJ8;zNs(B A,B $B$r(B $B%@%s%WMQ$K(B16$B?J?t$KJQ49$9$k$b$N(B
    '$BLa$jCM$O(B Byte$B7?(B
    '$B$b$7(B B $B$NJ8;zNs$,(B ""$B!!$J$i(B F $B$H$9$k!#(B

    MyHex = &H0

    If B = "" Then B = "F"

    If Not Len(A) = 1 Or Not Len(B) = 1 Then
        MsgBox "MyHEX Function String Length Err For A or B"
        Exit Function
    End If

    MyHex = Val("&H" & A & B)        $B!G"+:#2s$N4N?4$J$H$3$m(B

End Function

$B$GLa$jCM!J%P%$%H7?!K$r!"%U%!%$%k$K=q$-9~$`$H$$$&J}K!!#(B
$B$I$&$d$i!"(BVal$B!!$H!!(B&H $B$G#1#6?J?t$K$J$*$7!"%P%$%H7?$NJQ?t$G=q$-9~$`$H8@$&J}K!(B
$B$,<j$C<h$jAa$$$h$&$G$7$?!#(B

$B$5$F!">e0L$NEj9F$K4X$7$F!#(B

|$B#1%P%$%H$NJQ?t$,$"$k$J$i!";0Bp$5$s$N%R%s%H$r4p$K(B
|$B2r7h$G$-$^$;$s$+(B?
$BBgJQ;29M$K$J$j$^$7$?!#(B

|$B$d$jJ}$J$s$F$$$/$i$G$b$"$k$s$G$9$1$I$M!#(B
WindwosAPI$B$G>e0L#4%S%C%H2<0L#4%S%C%H$r$=$l$>$lJL8D$KFI$_=q$-$G$-$k4X?t$,$"$k(B
$B$+4|BT$7$F$$$?$N$G$9$,$M!#(B
$B7k6I#1#6?J?t$K$7$F!"#1%P%$%H$:$D5-O?$9$k$H$$$&J}K!$7$+$J$$$h$&$G$9$M!#(B

|$BNc$($P#1#07e$N#1#0?J?t$r#1#0J8;z$NJ8;zNs$KJQ49$7$F(B
|$B!JA0#0$O%5%W%l%9$7$J$$$h$&$K$7$F!#(BMBASIC $B$J$i(B print
|using $B$H$+;H$C$F$^$7$?$C$1!#!K!"A0#2J8;z$:$D(B
|$B<h$j=P$7$F!"(B val('&H'+$B<h$j=P$7$?#2J8;z(B) $B$r#1%P%$%H(B
|$BJQ?t$KF~$l$F=PNO$9$k$s$G$b$$$$$G$7$g$&!#(B
$B:#$N$H$3$m!J$?$V$s:#8e$b!K$=$NJ}K!$G$9$M!#(B

$BJ#?t$N%G%#%9%/$r0l5$$K8!:w$9$k%=%U%H(B
$B$^$$!!$[!<$`$Z!<$8!!!'!!(B http://home.interlink.or.jp/~t-fujii/
$B$^$$(B  $B$a!<$k$"$I$l$9(B $B!'(B  t-fujii@interlink.or.jp

T.FUJII <t-fujii@interlink.or.jp> wrote in article
<60s92p$991@tegtan.interlink.or.jp>...

$B$I$&$b!"(BMedia io $B$N!!(BMasaya Hirano $B$G$9!#(B
$BD>@\!"<ALdEy$K4X78$N$J$$Ej9F$G?=$7Lu$J$$$N$G$9$,!"(B

> Function MyHex(ByVal A, B As String) As Byte
> 

$B$N$H$3$m$,!"5$$K$J$j$^$7$F!&!&!&!#(B
$B$b$7$+$9$k$H!"F#0f$5$s$O!"#V#B$N0z?t@k8@$r#C8@8lE*$K(B
$B9M$($F$*$i$l$k$N$G$O!&!&!&!&!#(B
$B>e5-$N@k8@$@$H!"(B"ByVal"$B$O!"(B"A" $B$@$1$K!"(B"AS String"
$B$O(B "B" $B$@$1$KM-8z$G$9!#(B

$B>e5-@k8@$G$O!"(BMyHex(Null, "5")$B$J$s$F>l9g$,DL$C$F(B
$B$7$^$$$^$9!#(B
$B!J(BNot Len(Null) = 1 $B$NO@M}<0$NCM$O>o$K(B Null$B!"$D$^$j(B
$B!!(BTrue$B$K$O$J$j$^$;$s!#!K(B

$B;d$N>!<j$J2r<a$G$O!"(B
Function MyHex(ByVal A As String, ByVal B As String) As Byte
$B$G$O!"$J$$$+$H!&!&!&!#(B

$B>e5-(B Function $B$,!"!I#1J8;zL\$O(B Variant$B7?(B $B$G!"#2J8;zL\(B
$B$@$1(B ByRef $B$G;2>H$9$k!I$H$$$&;EMM$G$"$k$J$i$P!"$3$N(B
$BEj9F$OL5;k$7$F!"2<$5$$!#(B

--------------------------------------------------------------------
Media io _ Masaya Hirano
mailto:masayah@mbox.kyoto-inet.or.jp
http://web.kyoto-inet.or.jp/people/masayah/
$B$*OM$S!'#H#P7G:\$N!G(BLa_Vessel$B!G$K$O#V#B%i%s%?%$%`$NB>$K(BMfc42d.dll$B$r(B
$B!!!!!!!!I,MW$H$9$k$3$H$N5-:\$,$b$l$F$*$j$^$7$?!#$;$C$+$/%@%&%s%m!<%I(B
$B!!!!!!!!$7$FD:$$$?$N$K!"F0$+$J$+$C$?J}!"K\Ev$K?=$7Lu8f:B$$$^$;$s$G$7$?!#(B
--------------------------------------------------------------------


$B!!(B 

$B%A%'%C%/$"$j$,$H$&$4$6$$$^$9!#(B

> Function MyHex(ByVal A, B As String) As Byte
|>
|
|$B$N$H$3$m$,!"5$$K$J$j$^$7$F!&!&!&!#(B
|$B$b$7$+$9$k$H!"F#0f$5$s$O!"#V#B$N0z?t@k8@$r#C8@8lE*$K(B
|$B9M$($F$*$i$l$k$N$G$O!&!&!&!&!#(B
|$B>e5-$N@k8@$@$H!"(B"ByVal"$B$O!"(B"A" $B$@$1$K!"(B"AS String"
|$B$O(B "B" $B$@$1$KM-8z$G$9!#(B
|
|$B;d$N>!<j$J2r<a$G$O!"(B
|Function MyHex(ByVal A As String, ByVal B As String) As Byte
|$B$G$O!"$J$$$+$H!&!&!&!#(B
|

$B$&$C$+$j$7$F$^$7$?!#$D$$$D$$%+%s%^$G6h@Z$C$?$@$1$GK:$l$A$c$&$s$G$9$h$M!#(B
$B=u$+$j$^$7$?!#(B

$BJ#?t$N%G%#%9%/$r0l5$$K8!:w$9$k%=%U%H(B
$B$^$$!!$[!<$`$Z!<$8!!!'!!(B http://home.interlink.or.jp/~t-fujii/
$B$^$$(B  $B$a!<$k$"$I$l$9(B $B!'(B  t-fujii@interlink.or.jp|