ab.com コミュニティ

konisi

＃ソースを打ち込んでコンパイルし、実行するくらいは出来るという前提で話を進めます。＃これが分からない場合はその事を明記して、もう一度質問してくださいな。どんなデジタル時計が作りたいんですか？簡単な描画なら#N88BASICと1行目に書けば、Line、Circle、Print、Cls、PSet等で行えます。 #N88BASIC Do 'DoからLoopの間に書かれた事は何度でも繰り返し実行されます。 Sleep(10) '少しの時間が経過する間待つ。単位は0.001秒(1ミリ秒)。つまり10だと0.01秒。 Locate 0,0 '書き出す位置を調整 Print Time$() '現在時刻...

konisi

動かしてみてないので何とも言えないけど、
もしかしたら、キーを放した瞬間にはまだキャプチャが済んでないのかもしれない。
Sleepを挟んでみたらどうだろう。

#今度からここではなくプログラミング質問板の方に投稿しましょう。

konisi

コード: 全て選択

#N88BASIC
Dim a As Byte
Dim b As Long
Dim c As Long

a = 240
b = 50
c = a As Long+b
Print c

とでもしてあげてください。

konisi

QueryCloseかDestroyで処理すれば、わざわざ×ボタンを消す必要はありません。

＃ウインドウ左上のアイコンをダブルクリックしたりAlt+F4を押したりした場合にも、特殊な処理を組んでいない限りはウインドウが閉じられます。

konisi

まだ実行してみてないのですが、読み込むほうだけ見てて怪しいなと思ったところが2点。

コード: 全て選択

'テキストファイルを出力
Dim TextFileSize As Long
TextFileSize=Val(Str$(buf))/1024
free(buf)

の部分、bufはBytePtr型なので、こいつをStr$に渡してもbuf自体が格納しているアドレスをString型にして返すだけです。
MakeStr関数を使ってみてください。

もう1つは、その直前のReadFile関数の第3引数が初期化されていない点。グローバル変数なので今の実装では0で初期化されてる筈。
つまり1バイトも読み込めていません。

konisi

ちょっと思ったんですけど、そのコマンドラインオプションはAB3用ですよね。 WebArchiveのログによると、 BasicCompiler.exeの正式コマンドラインというページが最初に確認されたのが2004年の4月14日、最後に確認されたのが2005年の5月7日なんですよね。ところで Discoversoft の方を見ると、AB4.0が正式に発表されたのが2005年5月9日と、どうも時期的に被ってきます。詳しい事は山本さんに聞くべきですけど、そのコマンドラインオプションはAB4のコンパイラは対応していないんじゃないかなと。＃でなけりゃAB4登場とほぼ同時にそのページが消される理由が...

konisi

BasicCompiler.exeをダブルクリックするなりして起動した後にデバッグコンパイルをする方法は知りません。
リリースコンパイルの場合はただ単に.abpファイルや.sbpファイルを選べば(プロジェクトの場合はidxファイル)コンパイルできます。

どういうわけかエディタが起動できないというのなら仕方ないんですが、もっと標準的な方法を推奨します。

konisi

AlphaBlend関数が使えるようです。 Const AC_SRC_OVER=0 Const AC_SRC_ALPHA=1 Type BLENDFUNCTION BlendOp As Byte'ブレンド操作(常にAC_SRC_OVER) BlendFlags As Byte'常に0 SourceConstantAlpha As Byte'コピー元のビットマップ全体に適用するアルファ値 AlphaFormat As Byte'コピー元のビットマップがアルファ値を持つときAC_SRC_ALPHA End Type TypeDef _BLENDFUNCTION=DWord 'AB423でコンパイル...

konisi

標準関数を使ったプログラムのデバッグ時に出て来る事があるfunction.sbpやstring.sbpの事を言ってるのだと思いますが、それぞれ、ABがインストールされてるフォルダの ./Include/basic/function.sbpと./Include/system/string.sbpそのものです(色々弄ってる場合は異なる事がありますが)。標準関数の定義ファイルとも呼べる物で、コンパイル時に自動的かつ強制的にインクルードされる./Include/basic.sbpが取り込んでいます。まぁ書き換えて保存したりしたら元のファイルも書き換わりますわな。再インストールと言う名の上書きを...

konisi

コンパイルは通るんですか？

konisi

EM_GETSELを送れば現在のカーソル位置を取得できたような。

konisi

MSDNのSendInputに関する記事によると、

cbSize
INPUT 構造体のサイズを指定します。cbSize パラメータの値が INPUT 構造体のサイズと等しくない場合、関数は失敗します。

と書いてあります。つまりこれはWindowsのAPIの仕様です。
同じ関数でマウスやキーボードやハードウェアを同期式に割り込み無しに順番に操作する為に、構造体のサイズを揃えたかったのでしょう。
揃える意味があんまないような気もするけど。

＃大学から投稿してみる。

konisi

Sleepを抜いて、サイズを調整したら上手く行きましたよ。差分。 Type KEYBDINPUT wVk As Word wScan As Word dwFlags As DWord time As DWord dwExtraInfo As ULONG_PTR padding[7] As Byte End Type Declare Function SendInput Lib "user32" (cInputs As DWord,pInputs As *INPUT,cbSize As Long) As DWord Sub MainWnd_CommandButton1_Cl...

konisi

「"C:\Documents and Settings\sumi\デスクトップ\ActiveBasic\MyProjects\dhijitarudll\" 出力ファイルの書き込みに失敗しました。実行されている可能性があります」

プロジェクトオプションで、出力ファイル名を指定してみてください。

konisi

Win9x系では、

コード: 全て選択

SendMessage(hEdit,EM_SETOPTIONS,ECOOP_OR,ECO_VERTICAL)

でいけるらしいです。
定数は以下。

コード: 全て選択

Const ECO_VERTICAL=&H400000
Const ECOOP_OR=2

配列など使わずに素直にオーナードローしましょう。

検索結果 793 件