ab.com コミュニティ

プログラミング質問板 :: AB4.24.00で構造体の可変長配列を使いたい

Anonymous — Wed, 10 Mar 2010 22:44:16 GMT

投稿者: みけCAT
件名: AB4.24.00で構造体の可変長配列を使いたい
時間: 2010年03月11日(木) 07:44 (GMT 9)

AB4.24.00で構造体の可変長配列を使いたいのですが、いくつかの方法を試して失敗しました。
どうすればいいか教えてください。
ちなみに固定長配列は成功しました。

プログラミング質問板 :: RE: 困っています。

Anonymous — Wed, 10 Mar 2010 11:02:04 GMT

投稿者: ぼん
時間: 2010年03月10日(水) 20:02 (GMT 9)

konisiさん、ありがとうございます。
ええと僕がつくりたいのはそういうんじゃなくタイトルバー（？）が無くて
数字は０～10の画像を貼りたいんです。
右クリックで時間になったらアラームとかの設定ができたりするのがいいです。

バグ報告 :: RE: 代入演算子に関するバグとQWord型の表示に関するバグ

Anonymous — Wed, 10 Mar 2010 07:09:52 GMT

投稿者: ﾋｨｰ(((ﾟДﾟ)))
時間: 2010年03月10日(水) 16:09 (GMT 9)

AB4.24.00
OS:WinXPPro SP3 32bit
CPU:Core2Duo 3GHz
MEM:3.25GiB認識

バイナリとコードをアップ。
http://77c.org/d.php?f=nk13160.zip

バグ報告 :: RE: 代入演算子に関するバグとQWord型の表示に関するバグ

konisi — Wed, 10 Mar 2010 06:23:00 GMT

投稿者: konisi
時間: 2010年03月10日(水) 15:23 (GMT 9)

ﾋｨｰ(((ﾟДﾟ))) wrote:

一つ目は6になりますが。

今手元のマシンにあるAB4.23で試したところやはり4になりました。
そちらの環境を教えてくださいな。

OS:WinXPPro SP3 32bit
CPU:Core2Duo 2GHz
MEM:1.72GiB認識
_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

プログラミング質問板 :: RE: 困っています。

konisi — Wed, 10 Mar 2010 06:09:02 GMT

投稿者: konisi
時間: 2010年03月10日(水) 15:09 (GMT 9)

＃ソースを打ち込んでコンパイルし、実行するくらいは出来るという前提で話を進めます。
＃これが分からない場合はその事を明記して、もう一度質問してくださいな。

どんなデジタル時計が作りたいんですか？

簡単な描画なら#N88BASICと1行目に書けば、Line、Circle、Print、Cls、PSet等で行えます。

Code:

#N88BASIC
Do 'DoからLoopの間に書かれた事は何度でも繰り返し実行されます。
Sleep(10) '少しの時間が経過する間待つ。単位は0.001秒(1ミリ秒)。つまり10だと0.01秒。
Locate 0,0 '書き出す位置を調整
Print Time$() '現在時刻を表示
Loop

Lineでは線や四角形、Circleでは円や扇形、PSetでは点が書けます。
そしてClsでは画面の消去が出来ます。
ヘルプを見つつやってみてください。
_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

プログラミング質問板 :: エディタの終了を待つ

Anonymous — Sun, 07 Mar 2010 01:37:54 GMT

投稿者: Ko
件名: エディタの終了を待つ
時間: 2010年03月07日(日) 10:37 (GMT 9)

お世話になります。
プログラム中でエディタを起動し、その終了を待って次の処理をする。
ということがしたいのですが、下記のコードで、家のデスクトップ（Vista Home SP2）
や会社のノート（XP Home SP）では、期待通りに動作するのですが、会社の別の
ノート（Vista Home SP2）ではエディタの終了を待たずに次の処理に移ってしまい
ます。

Code:

    Dim sei As SHELLEXECUTEINFO
    sei.cbSize = SizeOf( SHELLEXECUTEINFO)
    sei.fMask = SEE_MASK_NOCLOSEPROCESS
    sei.hwnd = hMainWnd
    sei.lpVerb = "Open"
    sei.lpFile = pFileName
    sei.lpParameters = ""
    sei.lpDirectory = ""
    sei.nShow = SW_SHOWNORMAL
    ShellExeWait= ShellExecuteEx( sei)
    ’WaitForInputIdle( sei.hProcess, 5000)    '起動待ち※いれても効果無し
    While WaitForSingleObject( sei.hProcess, 1000)= WAIT_TIMEOUT    '終了待ち
    Wend

ShellExecuteEx・WaitForSingleObjectの戻り値は正常で、エディタが
起動もしていないのにWaitForSingleObjectのループを抜けてしまいます。
原因が全くわからず行き詰まっています。どなたかアドバイスをお願いします。

AB5.0 CP3
Vista Home SP2[/code]

プログラミング質問板 :: RE: ABでUSBカメラを動作させて映像データを処理したい

イグトランス — Sat, 06 Mar 2010 15:08:29 GMT

投稿者: イグトランス
時間: 2010年03月07日(日) 00:08 (GMT 9)

外部DLLを導入する以外ではDirectShowでも可能だったと思います。自身、USBカメラを所持していないため、詳しいアドバイスができずごめんなさい。

バグ報告 :: RE: 代入演算子に関するバグとQWord型の表示に関するバグ

イグトランス — Sat, 06 Mar 2010 15:06:26 GMT

投稿者: イグトランス
時間: 2010年03月07日(日) 00:06 (GMT 9)

QWordのほうですが、直接の原因はPrintの数値出力がDouble型しか受け付けないことにあります。
さらに、x86 FPUの命令にQWord→Doubleという変換が用意されておらず、ABコンパイラがQWord→Doubleの変換にInt64→Doubleの変換命令を用いていることで、あのような出力となってしまっています。

QWord→Doubleの変換の問題は解消されていなかったと思いますが、Printで期待通りの出力にならないという点は現時点のAB5でも解消済みだったはずです。いつ出せるか分からないという状況で申し訳ありません。

プログラミング質問板 :: 困っています。

Anonymous — Sat, 06 Mar 2010 11:45:54 GMT

投稿者: ぼん
件名: 困っています。
時間: 2010年03月06日(土) 20:45 (GMT 9)

はじめまして。Activebasicでプログラミングでデジタル時計を作りたいです。
初心者なのでどうしたらいいのか全くわかりません。教えてください。
できればプログラムを見せていただけるといいです。
使っているのは最新のABです。OSは2000です。
ご教示よろしくお願いします。

バグ報告 :: RE: 代入演算子に関するバグとQWord型の表示に関するバグ

Anonymous — Sat, 06 Mar 2010 11:32:59 GMT

投稿者: ﾋｨｰ(((ﾟДﾟ)))
時間: 2010年03月06日(土) 20:32 (GMT 9)

Code:

#console
Dim a As Long
a=2
a*=1+2
Print a'6と表示してほしいが、4と表示される

Dim b As QWord
b=12345678901234567890'<2^64=18446744073709551616
Print b'12345678901234567890と表示される筈だが、負の数が表示される

Sleep(-1)

一つ目は6になりますが。

バグ報告 :: RE: 代入演算子に関するバグとQWord型の表示に関するバグ

Anonymous — Fri, 05 Mar 2010 22:17:45 GMT

投稿者: MonkeyTake
件名: 代入演算子に関するバグとQWord型の表示に関するバグ
時間: 2010年03月06日(土) 07:17 (GMT 9)

最近AB4.24を使い始めておかしいな・・・とずっと悩んでいたら
代入演算子のバグですか・・・

AB4.24が出たのは2006/4/8ですが
こんな超基本的な事のバグがずっと放置されてるなんて・・・

プログラミング質問板 :: RE: GetFileSizeの戻り値

Anonymous — Fri, 05 Mar 2010 03:17:47 GMT

投稿者: ベーやん
件名: GetFileSizeの戻り値
時間: 2010年03月05日(金) 12:17 (GMT 9)

ありがとう。

プログラミング質問板 :: RE: GetFileSizeの戻り値

Anonymous — Thu, 04 Mar 2010 15:54:00 GMT

投稿者: HSABP
時間: 2010年03月05日(金) 00:54 (GMT 9)

エラーにはならない。

4GB以上のファイルが無いとのことだが、自分で作るという発想はないの？

Code:

#console
Dim hFile As DWord, buffer As DWord, count As DWord,writen As DWord

hFile=CreateFile("testfile2", GENERIC_WRITE, 0, ByVal 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
buffer=malloc(1024*1024)
FillMemory(buffer, 1024*1024, Asc("a"))
For count=0 To 5000
Locate 0,0:Print count;"/";5000
WriteFile(hFile,buffer,1024*1024,VarPtr(writen),ByVal 0)
Next
free(buffer)
CloseHandle(hFile)
Print "END"

プログラミング質問板 :: GetFileSizeの戻り値

Anonymous — Thu, 04 Mar 2010 09:11:29 GMT

投稿者: ベーやん
件名: GetFileSizeの戻り値
時間: 2010年03月04日(木) 18:11 (GMT 9)

GetFileSize()関数の第２引数に NULL を指定して4GByte以上のファイルに

アクセスした場合、「戻り値」は、常に-1(&hffffffff)に成りますか？

4GByte以上のファイルが無くテスト出来ないので宜しくお願いします。

プログラミング質問板 :: RE: keybord_eventを使っての画面キャプチャがうまくできません

Anonymous — Mon, 01 Mar 2010 14:59:04 GMT

投稿者: まこちn+-
件名: 解決しました
時間: 2010年03月01日(月) 23:59 (GMT 9)

HSABPさん　ありがとうございました

konisiさんのご指導のあとで　自分なりにタイミングを疑って

その他のコマンドを前後させていたときに　OpenClipBord が

２行になってしまったのが原因でした　ほんとに　ど素人なミスで

反省しております

本当に　ありがとうございました　

プログラミング質問板 :: RE: keybord_eventを使っての画面キャプチャがうまくできません

Anonymous — Mon, 01 Mar 2010 14:30:55 GMT

投稿者: まこちｎ-
件名: とりあえず　コピペでやってみたのですが・・・
時間: 2010年03月01日(月) 23:30 (GMT 9)

ご指導ありがとうございます

なにぶん素人なため　とりあえずコピペでコンパイルしてみましたが

うまくいかず　２回クリックでも読めなくなりました

知らない　コードだらけなので　一つずつ調べてみます

プログラミング質問板 :: RE: ABでUSBカメラを動作させて映像データを処理したい

Anonymous — Mon, 01 Mar 2010 08:27:18 GMT

投稿者: 無言
件名: ＡＢでusbカメラを制御
時間: 2010年03月01日(月) 17:27 (GMT 9)

外部ＤＬＬをプログラム中でインクルードする。
このＤＬＬは、ＡＢ本体ソースをコンパイル時に同フォルダーへ置く必要があります。
外部ＤＬＬは、ＵＳＢコトローラ／カメラ制御ＤＬＬ等、他関連ファイル
後は、ＤＬＬのコマンドでソースを記述する。
と考えますが、他にも方法があるかも？？

プログラミング質問板 :: RE: keybord_eventを使っての画面キャプチャがうまくできません

Anonymous — Sun, 28 Feb 2010 14:09:50 GMT

投稿者: HSABP
時間: 2010年02月28日(日) 23:09 (GMT 9)

keybd_event()を呼んだ後にメッセージを処理させます。

Code:

'ボタンが押された
Sub MainWnd_CommandButton1_Click()
keybd_event(VK_SNAPSHOT, &h79, KEYEVENTF_EXTENDEDKEY, 0)
keybd_event(VK_SNAPSHOT, &h79, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0)
DoEvents()

If IsClipboardFormatAvailable(CF_BITMAP) <> 0 then
MessageBox(hMainWnd,"ok",0,0)
End If
End Sub

Function DoEvents()
Dim m As MSG
While PeekMessage(m,NULL,0,0,PM_REMOVE)
TranslateMessage(m)
DispatchMessage(m)
Wend
DoEvents= TRUE
End Function

プログラミング質問板 :: RE: Settimer 過去ログからコピペしたのですが・・・

Anonymous — Sun, 28 Feb 2010 10:00:27 GMT

投稿者: まこちｎ++
件名: 自己解決
時間: 2010年02月28日(日) 19:00 (GMT 9)

対策方法を探して　マルチスレッド　で過去ログを見たら
同じエラーがcreatethred で取り上げられていました
ポインタを変数に代入する方法で解決しました

プログラミング質問板 :: Settimer 過去ログからコピペしたのですが・・・

Anonymous — Sun, 28 Feb 2010 05:18:44 GMT

投稿者: まこちｎ++
件名: Settimer 過去ログからコピペしたのですが・・・
時間: 2010年02月28日(日) 14:18 (GMT 9)

Settimer を使用してみようと思い　過去ログからコピペしたのですが

Code:

　　　　　　　　　　　：
　　　　　　　　　　　：
SetTimer(hMainWnd,1,3000,AddressOf(times) As DWORD)
　　　　　　　　　　　：
　　　　　　　　　　　：
end sub

sub times()
：

＝＝要求されている関数ポインタのパラメータまたは戻り値が一致しません。

と出てコンパイルできません

AB5.0 を　使っていますが　何がおかしいのでしょうか

立て続けの質問で申し訳ありませんが　どなたかご指南お願いします

プログラミング質問板 :: keybord_eventを使っての画面キャプチャがうまくできません

Anonymous — Sun, 28 Feb 2010 03:33:46 GMT

投稿者: まこちｎ+
件名: keybord_eventを使っての画面キャプチャがうまくできません
時間: 2010年02月28日(日) 12:33 (GMT 9)

コマンドボタンをクリックしたら画面をキャプチャして解析するプログラムを作っていますが　2回押さないと正常に動きません
何がおかしいのかさっぱりわからない状態です
どなたか教えてください

Code:

Sub MainWnd_CommandButton12_Click()
Dim Ret As Long
:
keybd_event(VK_SNAPSHOT,0,0,0)
keybd_event(VK_SNAPSHOT,0,KEYEVENTF_KEYUP,0)
Ret=IsClipboardFormatAvailable(CF_BITMAP)
if Ret = 0 then
return
endif
'クリップボードのデータを格納
　　Ret=OpenClipboard(NULL)
　　hBit=GetClipBordData(CF_BITMAP)

　　

投稿先が違っていたようなので再送
konisiさん　すばやいお返事ありがとうございます
Sleep はすでに試したのですが変化ありませんでした
ＭｓｇＢｏｘでIsClipboardFormatAvailableのRetを表示すると
２回押しでもＢｉｔｍａｐを検出できなくなるので　
もう何処をどう調べればいいか解らなくなってしまいました

どうか　解決策をご指南ください

アナウンス :: RE: keybord_eventを使っての画面キャプチャがうまくできません

konisi — Sat, 27 Feb 2010 10:28:13 GMT

投稿者: konisi
時間: 2010年02月27日(土) 19:28 (GMT 9)

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

#今度からここではなくプログラミング質問板の方に投稿しましょう。
_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

アナウンス :: keybord_eventを使っての画面キャプチャがうまくできません

Anonymous — Sat, 27 Feb 2010 03:55:28 GMT

投稿者: まこちｎ
件名: keybord_eventを使っての画面キャプチャがうまくできません
時間: 2010年02月27日(土) 12:55 (GMT 9)

コマンドボタンをクリックしたら画面をキャプチャして解析するプログラムを作っていますが　2回押さないと正常に動きません
何がおかしいのかさっぱりわからない状態です
どなたか教えてください

Code:

Sub MainWnd_CommandButton12_Click()
Dim Ret As Long
:
    keybd_event(VK_SNAPSHOT,0,0,0)
    keybd_event(VK_SNAPSHOT,0,KEYEVENTF_KEYUP,0)
Ret=IsClipboardFormatAvailable(CF_BITMAP)
    if Ret = 0 then
        return
    endif
'クリップボードのデータを格納
Ret=OpenClipboard(NULL)
　　　　　　　　hBit=GetClipBordData(CF_BITMAP)

　　　　　　　　　　　　　　　　　　　：
　　　　　　　　

プログラミング質問板 :: RE: この事実を決して風化させてはいけない

Anonymous — Fri, 26 Feb 2010 07:54:08 GMT

投稿者: P-32L
時間: 2010年02月26日(金) 16:54 (GMT 9)

自分の勝手な要望としては、ランタイム不要なGUIアプリが手軽に作れるツール。を目指してほしい。
正直、ゲーム開発とか作者も興味無いならやめるべきだし。
DirectXとかは、他の言語やサイトや書籍が充実しているし。

で、GUIアプリが手軽に作れるツールにおいては、
VBや.NETなど、面倒なランタイムのインストールが必要な言語や、
日本語の情報が少ないQt、winでは導入が面倒なwxWidgets、など
まともに使えるだったらこれくらいしかなく。
そこに手軽で扱いやすく、RAD付きで、かつ無料のActiveBasicときたら。しかも日本語。

目指す場所は見えている。