🚀 go-pugleaf

KOKUBUN shigemi. <kokubun@ffc.co.jp> wrote in article
<345F0906.3606@ffc.co.jp>...


$B$I$&$b!"(JMedia io$B!J%a%G%#%"!&%$%*!K$NJ?Ln(J $B2mLi(J $B$G$9!#(J


> VB4.0$B$r;HMQ$7$F$$$^$9!#(J
> 
> $B%F%9%H$N$?$a$K8=:_(J Debug.Print $B$r$"$A$3$A$G$+$J$j=P$7$F$$$^$9!#(J
> debug$BCf$O$=$l$K$h$C$F<B9TB.EY$,CY$/$J$k$N$bEvA3$G$9$,!"(J
> $B$3$N>uBV$G(J .exe $B$r:n@.$7$?>l9g$K>/$7IT0B$G$9!#(J
> 
> Debug.Print $B$,$"$k$N$H!"L5$$$N$H$G$O!"(J
> $B<B9T;~$N@-G=$d!"%b%8%e!<%k%5%$%:$O0[$J$k$N$G$7$g$&$+!#(J
> 
> $B>!<j$J4uK>$G!"(JDebug $B%*%V%8%'%/%H$O%3%s%Q%$%k;~$KL5;k$5$l$k(J
> $B$H;W$C$F$$$?$N$G$9$,!#(J


$B3N$+$K!"(JDebug.Print $B$O(J $B%3%s%Q%$%k;~$K$O<+F0E*$KL5;k$5$l$^$9!#(J
$B$?$@$7!"!V(JDebug.Print$B!W$O!"$G$9!#(J

$B0UL#$,2r$j$^$;$s$M(J(^^;$B!#$=$3$G<B83!#(J

$B2<5-$N%3!<%I!J(JTYPE A$B!"(JTYPE B$B!"(JTYPE C$B!K$r!"$=$l$>$lJL$NL>A0$G(J
EXE$B$K$7$F;n$7$F$_$F2<$5$$!#(J

$B"(%U%)!<%`>e$K!"%3%^%s%I%\%?%s$H%?%$%^!<$r3F0l$DD%$jIU$1$F(J
$B!!$*$-$^$9!#!J7k2L$O%U%)!<%`>e$KI=<($5$l$k$N$G!"%U%)!<%`$N(J
$B!!:8>e$K$O%\%?%s$rCV$+$J$$$G2<$5$$$M(J(^^;$B!K(J

-------------------------------------------------------------
TYPE A
-------------------------------------------------------------
Private Sub Command1_Click()
    Dim tmpCt As Long
    Timer1.Interval = 1000
    Do Until Timer1.Interval = 0
        tmpCt = tmpCt + 1
        DoEvents
    Loop
    Me.Print tmpCt
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 0
End Sub

-------------------------------------------------------------
TYPE B
-------------------------------------------------------------
Private Sub Command1_Click()
    Dim tmpCt As Long
    Timer1.Interval = 1000
    Do Until Timer1.Interval = 0
        Debug.Print tmpCt
        Debug.Print tmpCt
        Debug.Print tmpCt
        Debug.Print tmpCt
        Debug.Print tmpCt
        Debug.Print tmpCt
        Debug.Print tmpCt
        Debug.Print tmpCt
        Debug.Print tmpCt
        Debug.Print tmpCt
        tmpCt = tmpCt + 1
        DoEvents
    Loop
    Me.Print tmpCt
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 0
End Sub

-------------------------------------------------------------
TYPE C
-------------------------------------------------------------
Private Sub Command1_Click()
    Dim tmpCt As Long
    Timer1.Interval = 1000
    Do Until Timer1.Interval = 0
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        Debug.Print Format$(TmpCt, "#,##0")
        tmpCt = tmpCt + 1
        DoEvents
    Loop
    Me.Print tmpCt
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 0
End Sub

-------------------------------------------------------------

$B$5$F!";d$N4D6-$N7k2L$G$9$,!&!&!&(J

______ SIZE(Byte) __   Count(/Sec) __
TYPE A      9216  __ 16000$B!A(J17000  __
TYPE B      9216  __ 16000$B!A(J17000  __
TYPE C     10240  __   160$B!A(J  175  __

$B$A$g$C$H62$m$7$$7k2L$G$9$M(J(^^;$B!#(J

$B$3$N7k2L$+$iM=A[$5$l$k$N$O!"62$i$/(J

$B!~(JDebug.Print$B<+BN$O%3%s%Q%$%k;~$KL5;k$5$l$F$$$k$,!"$=$N(J
$B!!8e$K4X?t$,$"$k>l9g!"$=$N4X?t$OE83+$5$l$F$$$k(J

$B$b$N$H;W$o$l$^$9!#(J
$B$G$b!"IaDL!"(JDebug.Print$B$NFbMF$C$F8+$d$9$$$h$&$K(JFormat$B$0(J
$B$i$$$+$1$^$9$h$M$'(J(^^;$B!)(J
$B!J0x$_$K(JTime$$B$H$+!"(JTimer$B$bE83+$5$l$F$7$^$$$^$9!#;~4V7WB,(J
$B$r=P$5$l$F$$$kJ}B?$$$N$G$O!)(J)

$B;EJ}$J$$$N$G!"LLE]$G$b;d$O!";d;v$G$O$J$/!";E;v$GAH$`$b$N(J
$B$K$OA4$F!">r7oIU$-%3%s%Q%$%k0z?t$K(J DebugFLG $B$rMQ0U$7!"(J

#If DebugFLG Then
	Debug.Print ????????????
#End If

$B$H$7$F!"(JDebug$B;~$O(J DebugFLG = 1$B!"(JEXE$B:n@.;~$K$N$_!"(J
DebugFLG = 0 $B$H$7$F$$$^$9!#(J

$BK\Ev$K!"LLE]$G$9!#(J
$BC/$+$b$C$H%9%^!<%H$JJ}K!$4B8CN$JJ}$*$i$l$^$;$s$+!)(J

---------------------------------------------------------------
Media io _ Masaya Hirano
mailto:masayah@mbox.kyoto-inet.or.jp
http://web.kyoto-inet.or.jp/people/masayah/
$B!V#V#B$J$s$G$b<ALdH"!W$r@_CV$7$^$7$?!*!*(J
$B=i?4<TBg4?7^$G$9!#(JWindows$BA4HL$N<ALd$b<u$1IU(J$B$1$F$*$j$^$9!#(J
$B@'Hs0lEY!"$*N)$A4s$j2<$5$$!*!*(J
---------------------------------------------------------------