トップページ⇒tech
1001コメント209KB

【躍進?】ActiveBasicその6【Ver5.0】

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん2007/02/08(木) 20:20:22
国産のBasic言語「ActiveBasic」を語るスレッドです。

TheText Proを購入した場合はProjecteEditorをPro版に拡張することが可能ですが、
それ以外の機能は無料で使用することが出来ます。

・公式サイト［activebasic.com］
http://www.activebasic.com/

・前スレ［★☆★ActiveBasic その5★☆★］
http://pc10.2ch.net/test/read.cgi/tech/1158838078/


・過去スレ
4 http://pc8.2ch.net/test/read.cgi/tech/1149674753/
3 http://pc8.2ch.net/test/read.cgi/tech/1134116980/
2 http://pc8.2ch.net/test/read.cgi/tech/1098007892/
1 http://pc5.2ch.net/test/read.cgi/tech/1050134395/
0002デフォルトの名無しさん2007/02/08(木) 20:25:30
ProjecteEditorって？
0003デフォルトの名無しさん2007/02/08(木) 20:28:29
>>2
typoだろう。V5だとabdev（Active Basic DevelopKitの略かな？）だし。
0004デフォルトの名無しさん2007/02/08(木) 20:32:41
その5　をそのままコピペしたらボロが出た・・・
0005デフォルトの名無しさん2007/02/08(木) 20:41:31
前スレ埋まった。
0006デフォルトの名無しさん2007/02/08(木) 20:47:17
ごくろう山本殿
0007デフォルトの名無しさん2007/02/08(木) 21:02:50
>>982
これでいいんだよな？
一応4.24でコンパイルできて動作も出来た
5.00だとファイルサイズもでかくなって落ちる


Function Export PreTranslateMessage(msg As *MSG) As DWord
Dim lpmsg As *MSG
lpmsg = VarPtr(msg)

'ウィンドウ宛てにメッセージが送られてきたら
If g_hWnd And (lpmsg->hwnd = g_hWnd) Then
'TranslateとDispatchでメッセージを処理する
TranslateMessage(ByVal msg)
DispatchMessage(ByVal msg)
0008デフォルトの名無しさん2007/02/08(木) 21:17:46
元のソースがVer4系
0009デフォルトの名無しさん2007/02/08(木) 22:11:58
>>7
よく見たらlpmsgがあったんだね。たぶんそれは必要ない。msgに置き換える。

Function Export PreTranslateMessage(msg As *MSG) As DWord

'ウィンドウ宛てにメッセージが送られてきたら
If g_hWnd And (msg->hwnd = g_hWnd) Then
'TranslateとDispatchでメッセージを処理する
TranslateMessage(ByVal msg)
DispatchMessage(ByVal msg)
PreTranslateMessage = 1'処理したこと表すため1を返す
Exit Function
End If
PreTranslateMessage = 0'処理しなかったので0を返す
End Function

これならどうだろ
0010デフォルトの名無しさん2007/02/09(金) 02:32:10
宣伝［ＦｒｅｅＢａｓｉｃもよろしゅくね。］・・・・・・［いいかげん目覚めなさいと元宝塚女優が］・・・
0011デフォルトの名無しさん2007/02/09(金) 05:08:40
>>9
動作的には同じだけどこっちの方が正しい記述なんだな
thx
0012デフォルトの名無しさん2007/02/09(金) 07:36:25
どっちでも大差ないと思う。
0013デフォルトの名無しさん2007/02/09(金) 10:20:53
Ver5.0は文法ミスがあるとポップアップで表示してくれる機能があるんだな。
しかし言語仕様また覚えるのも馬鹿らしい。
0014デフォルトの名無しさん2007/02/09(金) 15:30:04
>>13
そんなに変わっとんのかい
0015デフォルトの名無しさん2007/02/09(金) 18:39:56
985 ：デフォルトの名無しさん ：2007/02/08(木) 19:52:50
＼＿＿＿＿＿＿＿＿＿＿＿／
　　　　　　　　 ∨
　　　　　　　　 　 ＿＿＿　　　　　　　　　　　　　　　　＿
　　　　　　　／　＿＿＿＿ヽ　　　　　　 　 　　／ ￣　　￣ ＼
　　　　　　　|　 | /, −､, -､ｌ　　　　　　 　 　 /､　　　　　　 　　 ヽ　
　　　　　　　| _|　-|○　|　○||　　　　　　 　 |･ |―-､　　　　　　 |
　　 , ―-､　(6　 ＿ｰ っ-´､}　　　　　　 　 ｑ -´　二 ヽ　　　　　 |
　　 |　-⊂)　＼ ヽ_ ￣￣ﾉﾉ　　　　　　 　　 ﾉ＿　ー　 |　　　　　|
　 　 |￣￣|／ （_ ∪￣ / ､　＼　　　　　　　 ＼.￣｀　 |　 　 　　/
　 　 ヽ　　｀　,.|　 　　￣　　|　　|　　　　　　 　　O＝＝＝＝＝ |
　 　 　 ｀− ´ |　　　　　　　| ＿|　　　　　　　　/　　　　　　 　　 |
これって山本なの？
0016デフォルトの名無しさん2007/02/09(金) 19:38:53
いや、田中。
0017デフォルトの名無しさん2007/02/10(土) 01:04:43
鈴木じゃなかった？
0018デフォルトの名無しさん2007/02/10(土) 05:11:49
剛田だろ
0019デフォルトの名無しさん2007/02/10(土) 06:19:38
ABって、'コメント付いてる時と付いてない時じゃ作成されたアプリのCRC変わるのか。
まさか実行速度にも影響される？
0020デフォルトの名無しさん2007/02/10(土) 10:36:55
>>19
Ver4.24で適当にコメント追加して比較してみたが
PEヘッダのタイムスタンプ以外変わらんかったぞ。
0021デフォルトの名無しさん2007/02/10(土) 10:39:19
>>19
嘘つくなってｗｗｗ





本当だとしたらシャレにならん
0022デフォルトの名無しさん2007/02/10(土) 13:06:27
DLLプロジェクトの先頭に#includeって付くけど、
*.idxファイルに読み込ませたい命令が無ければ消しても問題ない？
0023デフォルトの名無しさん2007/02/10(土) 23:45:41
>>22
自分で確かめろよと（ｒｙ

問題ないはずだが？
0024デフォルトの名無しさん2007/02/11(日) 03:17:34
wikiでThreadHandle クラスが孤立してるんだが

直しとくべき？
0025デフォルトの名無しさん2007/02/11(日) 03:54:38
余計なお世話だ
0026デフォルトの名無しさん2007/02/11(日) 19:14:17
ABのブラウザってあるのか？
0027デフォルトの名無しさん2007/02/11(日) 23:17:47
Tossとか何とか言う（Ry>>26
0028デフォルトの名無しさん2007/02/12(月) 11:39:32
♪　△　♪　
　(ﾟωﾟ)ノ　ActiveBasic〜
~└(　(♪
　 (　ヽ ♪


　　△♪
ヽ(ﾟωﾟ)　ActiveBasic〜
♪）　)┘♪
　ﾉ　>　♪
0029デフォルトの名無しさん2007/02/12(月) 14:10:55
>>28
なんかなごんだ
0030デフォルトの名無しさん2007/02/12(月) 14:12:07
>>29
Nan-カナゴンか。
0031デフォルトの名無しさん2007/02/13(火) 14:28:25
ActiveBasicで作られたソフトで凄いのは？
0032デフォルトの名無しさん2007/02/13(火) 15:40:54
久しぶりに公式見てみたら、何一つ動きがないとはどういうことだ。
本当に5.0の開発やってんのか？
0033デフォルトの名無しさん2007/02/13(火) 17:33:39
CP4まだー？
0034デフォルトの名無しさん2007/02/13(火) 17:43:15
今年中
0035デフォルトの名無しさん2007/02/13(火) 17:45:52
正式リリースは来年
0036デフォルトの名無しさん2007/02/13(火) 17:48:12
>>31
その質問はうざい。
何度も何度も同じ質問しやがって。
ソフト自体あまり作られてない！
0037デフォルトの名無しさん2007/02/13(火) 18:11:17
AB自体はHSP以上なのに何故ソフトウェアが作られないのか
0038デフォルトの名無しさん2007/02/13(火) 18:13:51
あなたは今のABでソフトを作りたいと思うんですか？
0039デフォルトの名無しさん2007/02/13(火) 18:18:25
・名前にBasicと付いてるからその程度の言語と思われてる。
・仕様変更が激しすぎ。
・解説が他人任せ。
0040デフォルトの名無しさん2007/02/13(火) 18:19:11
ＨＳＰ以上って通常は言えない。
ＨＳＰは手軽で簡単という特徴がある。

ＡＢは
機械語翻訳してクラスが搭載されているが
それ以上の特徴がない。
他のもので代用できる。
0041デフォルトの名無しさん2007/02/13(火) 18:20:44
実行速度はHSPよりいいんじゃね？
0042デフォルトの名無しさん2007/02/13(火) 18:24:08
実行速度
ＨＳＰ＜ＡＢ＜ＶＢ＜ＶＣ
0043デフォルトの名無しさん2007/02/13(火) 18:25:02
下手糞が使うと
ＨＳＰ以下の速度になりかねん
0044デフォルトの名無しさん2007/02/13(火) 18:25:48
そもそもそんなに速度がいるなら
ＶＣをつかう
0045デフォルトの名無しさん2007/02/13(火) 18:33:28
正直、こんなにレスが出るほどこのスレ見てる奴がいるって事が驚きだよ
0046デフォルトの名無しさん2007/02/13(火) 18:37:51
ここまで山本さんの自演
0047デフォルトの名無しさん2007/02/13(火) 19:06:28
>>45
たしかに。本家何も更新ないのに勢い増してるな
0048デフォルトの名無しさん2007/02/13(火) 19:11:33
レスは付いても内容は雑談ばかりだがな。
0049デフォルトの名無しさん2007/02/13(火) 19:37:00
そもそも「プログラミング」の話題じゃないもんな。
他の言語のスレでここまで実際のコードが出てこないスレもないんじゃなかろうか。
0050デフォルトの名無しさん2007/02/13(火) 19:54:33
>>49
とりあえずコードはってみた
仕様変更が激しいから昔のコード(Ver.2.3時代)なんか動かない

110 CLS 3
120 INPUT "正方形の描画数=",NUMBER
130 INPUT "大きさ=",SIZE
140 CLS
150 DIM COL(5)
160 FOR I=0 TO 5
170 READ COL(I)
180 NEXT I
190 FOR J=0 TO NUMBER-1
200 A=INT(J/NUMBER*6)
210 LINE (50,50+SIZE/NUMBER*J)-(50+SIZE/NUMBER*J,SIZE+50),COL(A)
220 LINE (50+SIZE/NUMBER*J,SIZE+50)-(SIZE+50,SIZE+50-SIZE/NUMBER*J),COL((A+2) MOD 6)
230 LINE (SIZE+50,SIZE+50-SIZE/NUMBER*J)-(SIZE+50-SIZE/NUMBER*J,50),COL((A+1) MOD 6)
240 LINE (SIZE+50-SIZE/NUMBER*J,50)-(50,50+SIZE/NUMBER*J),COL((A+3) MOD 6)
250 NEXT J
260 END 2
270 DATA 2,6,4,5,1,3
0051デフォルトの名無しさん2007/02/13(火) 19:55:58
>>33
下手したら、4月上旬とかじゃね？
0052デフォルトの名無しさん2007/02/13(火) 20:02:12
>>49
適当に打ち直してみる。
動く保障と、バグが無い保証と、コードが正常に変換されている保障はそれぞれ全く無い。
あと、インデントに全ｽﾍﾟ使ってるのでコピーするとき注意。

#prompt
Dim NUMBER As Long,SIZE As Long,I As Long,J As Long,A As Long
Dim COL(5)=(2,6,4,5,1,3) As Long
Cls 3
Input "正方形の描画数=",NUMBER
Input "大きさ=",SIZE
For J=0 To NUMBER-1
　A=Int(J/NUMBER*6)
　Line (50,50+SIZE/NUMBER*J)-(50+SIZE/NUMBER*J,SIZE+50),COL(A)
　Line (50+SIZE/NUMBER*J,SIZE+50)-(SIZE+50,SIZE+50-SIZE/NUMBER*J),COL((A+2) MOD 6)
　Line (SIZE+50,SIZE+50-SIZE/NUMBER*J)-(SIZE+50-SIZE/NUMBER*J,50),COL((A+1) MOD 6)
　Line (SIZE+50-SIZE/NUMBER*J,50)-(50,50+SIZE/NUMBER*J),COL((A+3) MOD 6)
Next J
Sleep(-1)
0053デフォルトの名無しさん2007/02/13(火) 20:04:15
>>52のコードはどういう流れで処理されているのか、説明キボン。
0054522007/02/13(火) 20:06:17
>>53
俺も知りたい。

それと、ミスの訂正
#prompt
Dim NUMBER As Long,SIZE As Long,I As Long,J As Long,A As Long
Dim COL[5]=[2,6,4,5,1,3] As Long
Cls 3
Input "正方形の描画数=",NUMBER
Input "大きさ=",SIZE
Cls 3
For J=0 To NUMBER-1
　A=Int(J/NUMBER*6)
　Line (50,50+SIZE/NUMBER*J)-(50+SIZE/NUMBER*J,SIZE+50),COL(A)
　Line (50+SIZE/NUMBER*J,SIZE+50)-(SIZE+50,SIZE+50-SIZE/NUMBER*J),COL((A+2) MOD 6)
　Line (SIZE+50,SIZE+50-SIZE/NUMBER*J)-(SIZE+50-SIZE/NUMBER*J,50),COL((A+1) MOD 6)
　Line (SIZE+50-SIZE/NUMBER*J,50)-(50,50+SIZE/NUMBER*J),COL((A+3) MOD 6)
Next J
Sleep(-1)
0055デフォルトの名無しさん2007/02/13(火) 20:45:21
変数の標準データ型って使い分け方がいまいち分からない
教えれ
0056デフォルトの名無しさん2007/02/13(火) 20:49:48
>>55
整数演算しかしないならLong型でおｋ
実数も使いたいならDouble型がいいかな。
実数って言っても、あまり精度高くなくて良いならSingleで十分
掛け算や割り算の時、符号あり(Char,Integer,Long)と符号なし(Byte,Word,DWord)で結果が変わることがある。
文字列を扱いたいなら、String型で十分。ある程度技術者じみてきたらChar型に乗り換えるほうがいいと思う。
IntegerはC言語とかから移植するときくらいにしか使わないなぁ。
Word型なんてまともに使った事無い。
Byte型はChar型に並んで、文字列操作で使う。
0057デフォルトの名無しさん2007/02/13(火) 20:52:55
Singleにしてもどうせ実際の演算はDouble以上の精度で行われる罠。
0058デフォルトの名無しさん2007/02/13(火) 20:54:44
メモリ使用量の問題で、実際にSingle型に書き直したプログラムが存在する。
内部表現上では確かに64bitか80bitのどっちかで計算されたと思う。
0059デフォルトの名無しさん2007/02/13(火) 20:58:28
x86は80bit
x64は64bit
0060デフォルトの名無しさん2007/02/14(水) 16:39:02
CreateWindowExでツールバー作る方法ある？
0061デフォルトの名無しさん2007/02/14(水) 17:17:50
ToolbarWindow32
0062デフォルトの名無しさん2007/02/15(木) 23:51:53
WS_EX_TOOLWINDOW
0063デフォルトの名無しさん2007/02/16(金) 18:42:48
Unicodeなリテラルも使えるようになるっぽいね
0064デフォルトの名無しさん2007/02/16(金) 22:07:42
ぽいというか既に最新のβでは実装されている。
ライブラリがまだ追いついていないが。
0065デフォルトの名無しさん2007/02/16(金) 22:19:48
Unicode使う必要性が無い
0066デフォルトの名無しさん2007/02/16(金) 22:23:59
必要性を持った奴だってきっとどこかにいるさ
0067デフォルトの名無しさん2007/02/16(金) 23:17:05
いまのうちにUnicodeやらないと、後で生き残れないだろう
0068デフォルトの名無しさん2007/02/17(土) 00:06:06
これから先もやってくなら、やれる時にやっておかないと完全にダメな言語になる
0069デフォルトの名無しさん2007/02/17(土) 00:25:33
つまり寿命が少し延びるってこと？
0070デフォルトの名無しさん2007/02/17(土) 00:31:17
リリースが延びるってこと
0071デフォルトの名無しさん2007/02/17(土) 00:41:47
永遠にβ
0072デフォルトの名無しさん2007/02/17(土) 00:43:43
>>64は開発者グループ？
0073 ◆tAo.kQ2STk 2007/02/17(土) 13:49:44
>>72
だろうなー。β12発表が16日午前1時だから。
0074デフォルトの名無しさん2007/02/17(土) 14:26:55
β12って登録しないとDL出来ないのか
0075 ◆tAo.kQ2STk 2007/02/17(土) 14:37:13
>>74
URLが割れればDL出来るかも。基本的に開発者以外はDL出来ない。<<ベータ版
0076デフォルトの名無しさん2007/02/17(土) 16:19:34
フォーラム一覧を見ると、ライブラリ開発の最新記事の欄に雷電という名前が載っていることがある。
つまり開発する意思があるかどうかはあまり関係ないと思う。
0077デフォルトの名無しさん2007/02/17(土) 16:24:56
ｗｗｗｗｗｗｗｗｗｗｗ
0078デフォルトの名無しさん2007/02/17(土) 17:38:28
>>76
β版のテスト要員ってことじゃねーか。
>>64ってこにたんかと思ってた
0079デフォルトの名無しさん2007/02/17(土) 17:45:25
ああ、クラック自慢のこにたんね
0080デフォルトの名無しさん2007/02/17(土) 18:53:48
http://www.activebasic.com/forum/groupcp.php?g=303
0081デフォルトの名無しさん2007/02/17(土) 19:01:36
投稿数: 510
どうみてもニートです
0082デフォルトの名無しさん2007/02/17(土) 21:57:39
AB5ではクラスを名前空間的に使うつもりか。
0083デフォルトの名無しさん2007/02/17(土) 22:00:25
どうだろうな、ライブラリ作れば作るほど絶望的だな
0084デフォルトの名無しさん2007/02/17(土) 22:19:38
一時期山ちゃんはAB6以降と言っていたが、
結局名前空間はもうすぐ導入される。
0085デフォルトの名無しさん2007/02/17(土) 22:33:51
>>84って>>64？
それだったら開発者メンバーの誰かが見てるってことだよな。じゃあここでの要望も届くか
0086デフォルトの名無しさん2007/02/18(日) 01:27:11
要望
言　語　仕　様　変　え　る　な
0087デフォルトの名無しさん2007/02/18(日) 01:38:08
要望
どうせなら言語仕様ごっそり変えて、BASICもどきの文法やめようぜ。
もうBASICらしい特徴もほとんどないんだし。
0088デフォルトの名無しさん2007/02/18(日) 03:38:27
要望
言語仕様は好きにしていいから最小限の修正で済むＲＡＤにして下さい。
0089デフォルトの名無しさん2007/02/18(日) 04:07:53
要望
仕様を先に作れ
0090デフォルトの名無しさん2007/02/18(日) 05:09:50
Includeフォルダのファイルは何か使い道あるの？
0091 ◆tAo.kQ2STk 2007/02/18(日) 08:56:38
>>90
使いみちっつーか、標準でbasic.sbpが読み込まれる事になってる。
そいつからいろんなところ通ってString.sbpやString.ab(CP3以降)が読み込まれて、String型が使えるようになってたはず。
あとは、function.sbpやcommand.sbpとかの旧標準関数・マクロも読み込まれる事になってる。

こいつらが無いと本当に困る。やりたい事がちゃっちゃと出来ない。
文字列扱うにもいちいちHeapAllocから呼び出して使わなきゃいけないし、三角関数使うにもどこかの誰かがマクローリン展開した式を使わなきゃ求められない。
0092デフォルトの名無しさん2007/02/18(日) 19:42:50
こにたん以外に確実にここに書き込んでるユーザー
>>64
>>84

誰よ
0093デフォルトの名無しさん2007/02/18(日) 19:56:32
別に良いじゃん。誰でも。
少しでも要望が開発に反映される可能性があるんだから
0094デフォルトの名無しさん2007/02/18(日) 20:52:11
>>86
もう引き返せない。

>>87
おそらくBASICもどきは永遠に続くだろうが、
現状でも言語に機能がごっそりと追加され続けていると言えると思う。

>>88
AB4のプログラムから最小限の修正に、ということか？
今はRADには全く手が付けられていないし、少なくとも数ヶ月先までその見通し。
だからRADへの要望は今がチャンス。

>>89
俺も山ちゃんに言いたい。
ただ、ライブラリもそうなっているのが現状と。

で、ここで言ったことを実践していくと確実に身元が割れるので、
実践する気になれないというジレンマ。
0095デフォルトの名無しさん2007/02/18(日) 20:55:03
RADをどうこうしようって気は開発陣は誰も持ってないのか
0096デフォルトの名無しさん2007/02/18(日) 21:17:05
RADって個人でも追加できるようにすることは可能なのか？
そうすれば拡張する人が出てくると思うんだけど。
0097 ◆tAo.kQ2STk 2007/02/18(日) 21:35:29
>>95-96
課題として挙がっていた筈。でも、当分先の話になるかと思う。
0098デフォルトの名無しさん2007/02/18(日) 22:01:31
>>89
まあ仕様とまで言えないレベルだけど、一応wikiに今後変更される仕様が書かれてないこともないな
0099デフォルトの名無しさん2007/02/18(日) 22:02:45
>>97なんで先の話なの？
0100 ◆tAo.kQ2STk 2007/02/18(日) 23:02:25
>>99
元が悪ければ十分に拡張機能の能力が発揮されない。これは作る側としてはあまり言い話ではない。

例えば、似たようなツールに似たような拡張をつける。ドライバーにモーターでも取り付けるか。
元になるドライバーがモーターのトルクに十分耐えられればそれはもう全体として便利な道具になる。
でも、元になるドライバーが脆くて、設計上モーターのトルクを本来の半分しか出せないとしたら、これほど勿体無い話は無い。

ま、そんな事より山本さんが言語仕様を作ったり固めたり実装したりで忙しいんだろうけど。
0101デフォルトの名無しさん2007/02/18(日) 23:04:10
工房にも言われてしまう山本さんカワイソスｗｗｗ
■ このスレッドは過去ログ倉庫に格納されています