🚀 go-pugleaf

$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