ab.com コミュニティ

>   Do
>       i=i+1
>       Cls
>       Print i
>       MyRutine()
>   Loop
> 

> お世話になります。
>
> 　実際に実行してみました、確かにメモリ等の環境の違いで回数は違うものの同事象が発生します。
> 　ＣＰＵもかなり負荷がかかっているようです。
>
> 　「buf=0」の行を削除してください。
>
> 　信じられないくらいサクサク動きます。
試させていただきました。
原因に関してよく分かりませんでしたがおかげで解決しました。
自分のコードにはまだまだ甘いところがたくさんあるということを思い知りました。
ありがとうございました。
>
> 追伸：　無限ループと思われますが、脱出はこれからしょうか？
> [code]
> Do
> i=i+1
> Cls
> Print i
> MyRutine()
> Loop
> [/code]
自分のソースをもとに作ったソースですので実際はまったく違ったものになっております。

  Sub MyRutine()
      'buf=0
      Line(2,32)-(2,278),0
      Get@(3,32)-(448,278),buf
      'Sleep 10
      Put@(2,32),buf,PSet
      Line(448,32)-(448,278),0
  End Sub

  Do
      i=i+1
      Cls
      Print i
      MyRutine()
  Loop

お世話になります。

> いまだに旧ABも利用させていただいております。
　(^o^)

> このソースを実行するとDo～Loop文352回目付近でいつも"&h0を参照できません"とエラーが出てしまいます。
> どうしたら期待通りの動作をするでしょうか？
> どなたかお教えください。

　実際に実行してみました、確かにメモリ等の環境の違いで回数は違うものの同事象が発生します。
　ＣＰＵもかなり負荷がかかっているようです。

　「buf=0」の行を削除してください。

　信じられないくらいサクサク動きます。

[code]
Sub MyRutine()
'buf=0
Line(2,32)-(2,278),0
Get@(3,32)-(448,278),buf
'Sleep 10
Put@(2,32),buf,PSet
Line(448,32)-(448,278),0
End Sub
[/code]

追伸：　無限ループと思われますが、脱出はこれからしょうか？
[code]
Do
i=i+1
Cls
Print i
MyRutine()
Loop
[/code]

http://bestdanitykane.info/movies/64849

いまだに旧ABも利用させていただいております。
久しぶりにゲーム(っぽい何か)をつくろうとしましたが
デバッグ中にPut@命令でつまずきました。
このソースを実行するとDo～Loop文352回目付近でいつも"&h0を参照できません"とエラーが出てしまいます。
Put@の直前にPrint buf;をはさんで見たところエラーが起きるときはbuf=0になっています。
このソースは一部を抜き出したものですが
どうしたら期待通りの動作をするでしょうか？
どなたかお教えください。
[hide]
WndPos OwnerWnd(),0,0,464,313
Randomize
Dim buf,i
Sub MyRutine()
buf=0
Line(2,32)-(2,278),0
Get@(3,32)-(448,278),buf
'Sleep 10
Put@(2,32),buf,PSet
Line(448,32)-(448,278),0
End Sub
Cls 3
line (45,34)-Step(473,124),7
Do
i=i+1
Cls
Print i
MyRutine()
Loop
[/hide]