ab.com コミュニティ https://www.activebasic.com/forum/ |
|
4.24 N88BASIC https://www.activebasic.com/forum/viewtopic.php?t=4593 |
ページ 1 / 1 |
作成者: | TISAproject [ 2016年9月28日(水) 17:56 ] |
記事の件名: | 4.24 N88BASIC |
コード: Dim Leng As Long Dim alls As Long 'ウインドウ設定 #N88BASIC SetWindowText(_PromptSys_hWnd, "File_Deleter") Dim A As String '本プログラム do Color 7 ,-1 Print " 削除するファイルのパスを入力してください。 " Print " 何も入力しない状態でENTERすると、終了します。" Input " パスを入力 = < ",A Print " 入力されたパス = < ";A;" >" alls = DeleteFile ( A & "" ) print " ~削除中" If A = "" Then END End If If alls <> 0 Then Color 1 ,7 print " 成功しました。" Else Color 2 ,7 print " 失敗しました。" End If print "" loop上記のプログラムで、 削除処理をしたら最初に戻る の繰り返しが行われます。 そのためwindowの最低まで到達すると、文字の上に文字と、上書きされてしまいます。 上書きさせないためにはどうすればいいでしょうか? |
作成者: | たかせ [ 2016年9月29日(木) 00:54 ] |
記事の件名: | Re: 4.24 N88BASIC |
N88BASICモードではDOSプロンプト画面と挙動が異なり上書きされます。 データをPRINT文で表示した回数をカウントして適当な値でCLS命令で画面を一旦クリアする方法があります。 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |