☆ これからはＱｂａｓｉｃの時代！

さてたててやったぞ。

基本的に英語版ＱｕｉｃｋＢＡＳＩＣｖｅｒ４．５（標準）を中心に話題を進める。
機能的には９９％同等のＷｉｎＣＤ付録（Ｑｂａｓｉｃ ｖｅｒ１．１）を最大限に活用。

英文情報はインフォシーク翻訳サービスで和訳。
http://www.infoseek.co.jp/Honyaku?pg=honyaku_top.html&svx=100302&svp=SEEK

【関連スレ】 QBasicについて語ろう『MS-DOS』
http://pc2.2ch.net/test/read.cgi/tech/1047132281/l50

Ｑｂａｓｉｃの最終バージョンは？

>>3
７.１まで出てんぞ。４．５との違いは構造化部分だけ。
リンクファイル作成が複雑だからオレはパス。４．５でも見た目は同じだ。

これだけハードが進化してる時代に何故にＱＢ？
ＶＢでもいいじゃん。

>>4
＞構造化部分だけ。

死ぬほど大事な気がするんですが。

>>5
カカカ、そこが厨房なテメーの青二才の発想なんだよバアカ。
ＱＢはリアルモードでしか動かねえわけで、しかも使える画面
モードも一見ショボそーに見えるワーケ。しかしよ、1画面６４
ＫＢの画面ってのはプログラムしようによっちゃトンデモねえ
スピード出るワケヨ。３ＧＨｚマシンでＱｂａｓｉｃ走らせてミロヨ、
天にも昇る気分だろうよ（大藁

>>7
＞1画面６４ＫＢ

640x480x4?

>>8
ＳＣＲＥＥＮ１３のことだよ。

ホレサンプルだ↓

SCREEN 13: DEFINT A-Z 'interpreter=11sec. / compied=10sec. speedrate=1.1
FOR J = 0 TO 63: PALETTE J, J + J * 256 + J * 65536: NEXT J

T1$ = TIME$
FOR J = 0 TO 199: FOR K = 0 TO 319
PSET (K, J), RND * 63
NEXT K, J
FOR L = 0 TO 9
FOR J = 0 TO 198: FOR K = 0 TO 318
PSET (K, J), INT((POINT(K, J) + POINT(K + 1, J) + POINT(K, J + 1) + POINT(K + 1, J + 1)) / 4)
NEXT K, J
NEXT L
T2$ = TIME$

LOCATE 1, 1: COLOR 63
PRINT T1$: PRINT T2$
PRINT "Anata wa EXCULTer's sama wo shinjimasuka?"
A$ = INPUT$(1)

オレ様のメインマシンスペックは…ＭＭＸ２００ＭＨｚだ。
まだまだこれで逝くからな（爆

>>9
よりによってまた原始的なプログラムだな・・・。

しかし、ある意味アセンブラと同じスタイルのコーディング方法。
プログラムという物を純粋に学ぶには非常に良い素材だな。

>>11
あ、オレ職業プログラマじゃねえからよ。
ちょっくら外に買出し逝ってくるぜ。またあとでな。

誰か７．１のコンパイル方法書いとけ。翻訳うぜー

>>9
>PRINT "Anata wa EXCULTer's sama wo shinjimasuka?"

ワラタ！

ザコキャラ丸出しな奴だな。

さてパッドの入力テストでもやってみっか。

SCREEN 13 'Ore wa tensai
DO
FOR J = 0 TO 3: PRINT STICK(J); : NEXT J
FOR J = 0 TO 7: PRINT STRIG(J); : NEXT J: PRINT
LOOP

>>15
雑魚で悪かったなあ（大藁

↓１５の言い訳

実はべーちっくすらできないんですぅ〜（泣ー

QBasicって何のCDにあるんだっけ

QBasicソースを　SCREEN 17 'wahahahahahahahahaha!!'

おっ、食いつきいいな（藁

今、オレ様はゴキゲンなティータイムなんだよ。
ま、テメーらはこっちでも行って楽しんでろって。
大体英語だがドイツ語やらスウェーデン語やら
混じってっからマジに翻訳しねえ様にな。画面と
専門用語のインスピレーション、そう、直感って
ヤツで察してくれよな。

QｕｉｃｋＢＡＳＩＣ　ＣＡＦＥ（ENGLISHを選択）
http://www.qbcafe.net/portal/index.shtml

>>19
おっ、これまたいい質問だね〜（藁
海外系サイトなら７．１まで転がってんぞ（ゲラ

＃ただ利用価値ねえけどよ。

ゴキゲンすぎ

What's new ?
February/03/2003
This is the first update in 2003 - happy new year, guys (and dolls, of course)!
5 new Files:
Games/Action: 4 new
Games/Strategy: 1 new
http://www.qbcafe.net/english/home/news.html

…だとよ。逝ってみ。

http://www.qbcafe.net/cgi-bin/downloads/download.pl?games/action=pickman.zip
" pickman " だってさ。全部テキストの手抜きだが意外と
遊べるぞ。

　　　　　" Ａ "
　　　　　　↑
" ＜ " ←　　→ " ＞ "
　　　　　　↓
　　　　　" Ｚ "

http://www.qbcafe.net/english/dl_pages/games/action.html

まあつーことで、Qbasicのバージョンの種類ってこれでよかったっけな？

ＱｕｉｃｋＢＡＳＩＣ　４．０
ＱｕｉｃｋＢＡＳＩＣ　４．５
ＱｕｉｃｋＢＡＳＩＣ　７．１

>>26
日本だと出てない気がするが…７．１とかは初耳。

>>27
いや〜よー、それがあるんだよ（藁
海外の検索エンジンで調べてみろよ。危ねえヤツまで
出てくるからよ。中にはＢＡＳＩＣのソースをアセンブラの
ソースに置き換えてくれるヤツまであるぞ（ま、けど所詮
２８６レベルだもんな）

でもやっぱり、いまさら３ＤもできないＱｂａｓｉｃなんて魅力ないよね。

>>29
>でもやっぱり、いまさら３ＤもできないＱｂａｓｉｃなんて魅力ないよね。

テメーみてえな下衆野郎がいるからオレは楽しいんだよ（爆

まあな、３Ｄなんてのはよ、ゲーム機でﾁｸﾁｸ動いてるセコいキャラだろ。
あんなモン作って動かすまでが大変だよ。それに１人で作ってるわけじゃ
ねえんだから物量作戦・人海戦術のゲーム業界に見栄切ろうったってそ
うはいかねえよな。人件費圧迫でどんどん製品サイクルが長くなってる
現状がそれを物語ってんな。あんなの誰が買うかよ（ﾌﾟｯ

あのなあ、本当の面白味ってのはよ、作ってる本人じゃねえとわかんねえ
ワーケ。そうだろ、テメーで楽しめねえモノを誰が楽しめるってえのかよ。

∴つことで技術面でのハンディはねえってコトヨ。

キーボードの同時入力もこれ１つ↓で片が付きそうだな♪

http://www.basicmagazine.net/bmnet/9901/rensai.htm
BASIC PROGRAM GET＆RUN

QBasic用の，複数キーを同時に検出するプログラムを掲載しています。
プログラムをQBasicで実行すると，配列IN()の内容一覧を画面に表示し
ます。色々なキーを押して，表示結果が変化するのを確かめてください。
プログラムの終了はスペースキーです。

QBasic用 Download[gnr_9901.lzh] 1kバイト
http://www.basicmagazine.net/bmnet/9901/programing/gnr9901.lzh

そういやオレの０．２ＧＨｚマシンじゃこの程度の数字しか
出ねえわけだがテメーらはどうよ？

CLS 'qb7.1 - interpreter=37sec.
'qb4.5 - interpreter=39sec. / compiled=14sec. speedrate=2.7
DEFLNG A-Z
PRINT TIME$
FOR J = 0 TO 100000000: NEXT J
PRINT TIME$

つーことでオレ様はお出掛けだ。
宿題ちゃんとやっとけよ（藁

いたたまれなくて逃げ出したかw

重複スレ。わざわざスレ立てるほどの話題じゃない。

QBasicについて語ろう『MS-DOS』
http://pc2.2ch.net/test/read.cgi/tech/1047132281/

>>34
無視されてんのを勘違いしてんじゃねえのバーカ（ﾌﾟｯ

>>35
重複スレの割にはそのスレ勢いまるでねえな。だからオレ様が>>2で紹介
してやってんのによ。テメーは親心ってえのを知らねえな。ガキはこれだか
らムカつきやがんだよ。オレ様に喧嘩売るのは１００億万年はえーんだよ。
まずオレ様に対する感謝ってヤツを捧げる態度を示すんだな。話はそれか
らだ。わかったら逝ってよし。

まあそらそれでいいや。ま、それよりよ、オマエはプログラムできるのか？
オレ様はＣ＃だのC++だのなんて知らねえぞ。ＢＡＳＩＣ、マシン語一筋だか
ら怖いものナシってヤツでよ、時代の変化に惑わされねえ不惑不動のグラ
ディエータってワケヨ。最新命令？３Ｄカード？知らねえよ、オレにとっちゃ
ＳＴＯＳＤとＡＤＤで画面書き換えできるワケヨ。ま、オマエにとっちゃＢＰ＝
石油会社程度のオツムだろうから始めっから期待しちゃいねえんだけどよ。

つことでマタ〜リ再開だな♪

>>36
氏ね

>>36
>STOSDとADD

SCREEN13（256色モード）ならそれでも問題ないよね。
変形・ズームさせても速そうだね。

＞QBasicでの動作速度の一定化

＞時々、雑誌などに掲載されるQBasicのプログラムは、動かすマシンに
＞よって動作速度が違うんですよねぇ…そこで、なるべく動作速度を一定
＞にしようと、VSYNCを使ってみました次のサブルーチンを作ります
http://ichigo.sakura.ne.jp/~horizon/xy/qblab/qgijutu.html#3
↑
要するにVSYNCステータスの同期待ちやって画面をスムースに動かそ
うってワケ。参考になるぞ。
＞vs = INP(&H3DA): IF (vs AND &H8) = 0 THEN GOTO vsyncloop

ポート＄３ＤＡのビット３に入ってるらしい。ここまで書かなくてもまだ簡単
な方法もある。

ＰＡＬＥＴＴＥ　０，０

まあPALETTE命令はＶＳＹＮＣ同期待ちやってるからそれを利用するの
も便利だよな。

さて、暇つぶしだ。

DECLARE SUB ELIMINATION (TC!)
DECLARE SUB BOUNDBLOCK (BX!, BY!, BAX!, BAY!)
DECLARE SUB CROSS (X, Y)
DEFSNG A-Z: SCREEN 13: X = 63: Y = 63: BX = 160: BY = 100: BAX = 1: BAY = 1
PALETTE 1, 31 * 256 + 63 * 65536

DO
LOCATE 10, 15: COLOR 1: PRINT ">>34=>>35"
LINE ((15 - 1) * 8, (11 - 1) * 8)-STEP(4 * 8, 0), 1: LINE ((20 - 1) * 8, (11 - 1) * 8)-STEP(4 * 8, 0), 1
CALL BOUNDBLOCK(BX, BY, BAX, BAY): CALL CROSS(X, Y): CALL ELIMINATION(TC)
DO: LOOP WHILE (INP(&H3DA) AND 8) = 0
LOOP

SUB BOUNDBLOCK (BX, BY, BAX, BAY)
BX = BX + BAX: BY = BY + BAY
IF BX < 0 THEN BX = 0: BAX = 1
IF BX > 320 - 16 THEN BX = 320 - 16: BAX = -1
IF BY < 0 THEN BY = 0: BAY = 1
IF BY > 200 - 16 THEN BY = 200 - 16: BAY = -1
LINE (BX, BY)-STEP(15, 15), 2, BF
END SUB

SUB CROSS (X, Y)
AX = STICK(0) - 63: AY = STICK(1) - 63: X = X + (AX / 20): Y = Y + (AY / 20)
LINE (X - 10, Y)-STEP(20, 0), 15, BF: LINE (X, Y - 10)-STEP(0, 20), 15, BF
END SUB

SUB ELIMINATION (TC)
TC = (TC + 1) MOD 16: FOR J = TC TO 319 STEP 16: LINE (J, 0)-STEP(0, 199), 0: NEXT J
END SUB

おっ、オレ様の天才ぶりに手も足も出ねえ様だな（せせら笑い
今から２時間くらいここにいるからな♪

アンケートに協力して！

http://multianq3.uic.to/mesganq.cgi?room=yasuhito

毎月アンケートの内容が変わるよ。

>>1
　　　　　　　　 し!　　　　　_　　-──　‐- 　　､　 , -─-､　-‐─_ﾉ
　　小 童　　　 /／￣＞ ´ ￣　　　￣　　｀ヽ　 Y　 ,　 ´　　　　　） 　 童　え
　　学 貞　　　 L_　／　　　　　　　　　　　　　 　 ／　　　　　　　 ヽ　 貞　 |
　　生 が　　　　/ '　　　　　　　　　　　　　　　　'　　　　　　　　　　 i　 !?　マ
　　ま 許　　　 /　　　　　　　　　　　　　　　　 /　　　　　　　　　　 く　　　 ジ
　　で さ　　　 l　　　　　　　　　　 ,ｨ/!　　　　/　　 　/l/!,l　　 　 ／厶,
　　だ れ　　 i 　 ,.lrH‐|'|　　　　 /‐!-Lﾊ_　　l　　　 /-!'|/l 　 ／｀'ﾒ､_iヽ
　　よ る　　　l　 | |_|_|_|/|　　　 / /__!__ |/!ﾄi　　　i/-- ､ ﾚ!/ 　 /　,-- ﾚ､⌒Y⌒ヽ
　　ね の　 　_ゝ|/'/⌒ヽ ヽﾄ､|/　'/￣｀ヾ 、ヽﾄ､Ｎ'/⌒ヾ　　　　　 ,ｲ￣｀ヾ,ﾉ!
　　 l　は　　「　　l ′ 「1　　　　　　 /てヽ′|　|　|　 「L!　　　　　' i'ひ}　　　ﾘ
　　　　　　　 ヽ　 | ヽ__Ｕ,　　　　　 ､ヽ シノ ﾉ!　!　|ヽ_､ｿ,　　　　　 ヾシ _ノ　_ﾉ
-┐　　　　,√　　 !　　　　　　　　　　 ￣　　 ﾘ l 　 !　￣　　　　　　　￣　　 ７/
　 ﾚ'⌒ヽ/　!　　　 |　　　〈　　　　　　　_人__人ﾉ_　 i　　く　　　　　　　 　 　 //!
人_,､ノL_,iノ!　　/! ヽ　　 r─‐- ､　　 「　　　　　 Ｌ_ヽ　　 r─‐- ､　　 u　　ノ/
　　　　　　/　 /　lﾄ､ ＼　ヽ, -‐┤　 ﾉ　　キ　　　 了＼　 ヽ, -‐┤　　　　　/／
ハ　キ　　{　 /　　　ヽ,ﾄ､ヽ/!｀ｈﾉ　　）　　モ　　　　|/!　「ヽ, `ｰ ／）　　 _　‐'
ハ　ャ　　 ヽ/　　 r-､‐'　// / |-‐ く　　　 |　　　　 ＞ / / ｀'／／-‐､　　　　／
ハ　ハ　　　 ＞ ／＼＼// / /ヽ_　 !　　 イ　　　 （　 / / ／／　　/　`ｧ-‐ '
ハ　ハ　　　/　/!　　 ヽ　　　 レ'/　ﾉ　　　　　　　　＞　 ' ∠ 　-‐　￣ノヽ　　　/
　　　　　　 {　 i　l　　　 !　　　　/　 フ　　　　　　　/　　　　　-‐　/￣/〉 〈 ＼ /!

QuickBASICって懐かしいなぁ。これでプログラム始めたからね。

VB同様、ランタイムが必要で、C言語使いに馬鹿にされたもんだ。
遅い、でかい、ってね。でも、独自のウィンドウルーチンなんか作ってさ
結構がんばったな。いやー懐かしいなぁ。

>>44
>QuickBASICって懐かしいなぁ。これでプログラム始めたからね。
オマエはＰＣ−９８０１版だろ。よくあんなカスマシンでプログラムなんか
作れんな。変態かよ（大藁

>VB同様、ランタイムが必要で、C言語使いに馬鹿にされたもんだ。
どこが必要なんだよ。コピペのクセに間違えてんじゃねえよ。
EXEファイル（リアルモード）作れるぞ。つーか９８版で作るなって（爆

>遅い、でかい、ってね。でも、独自のウィンドウルーチンなんか作ってさ
>結構がんばったな。いやー懐かしいなぁ。
つーこたテメーは作れなかったクチだな。その言動でレベル知れてるよ。
「ウィンドウ」だってさ、路上でバカにされてんのも知らねえクセによっ（ﾌﾟｯ
-------------------------------------------------------------
まあそういうワケでよ、できねえクセにできるフリ丸出しアフォ野郎が多い
のもパソ使いの中にゃ多いワケヨ。ダセーカッペみてーなモンだな（ﾌﾟｯﾌﾟｯ

- PAGE 1 -

DEFSNG A-Z: SCREEN 13
DIM CLS16%(20), CLS32%(20)

DEF SEG = VARSEG(CLS16%(0)): AD = 0
RESTORE M16ADR
DO
READ J$: IF J$ = "*" THEN EXIT DO
POKE VARPTR(CLS16%(0)) + AD, VAL("&H" + J$): AD = AD + 1
LOOP

- PAGE 2 -

DEF SEG = VARSEG(CLS32%(0)): AD = 0
RESTORE M32ADR
DO
READ J$: IF J$ = "*" THEN EXIT DO
POKE VARPTR(CLS32%(0)) + AD, VAL("&H" + J$): AD = AD + 1
LOOP

M16ADR:
DATA B8,00,A0,8E,C0,B9,00,7D
DATA BF,00,00,B8,00,00,FC,F3
DATA AB,CB,*

- PAGE 3 -

'00000 B8 A000 MOV AX,0A000H
'00003 8E C0 MOV ES,AX
'00005 B9 7D00 MOV CX,(320*200)/2
'00008 BF 0000 MOV DI,0
'0000B B8 0000 MOV AX,0
'0000E FC CLD
'0000F F3 AB REP STOSW
'00011 CB RETF

- PAGE 4 -

M32ADR:
DATA B8,00,A0,8E,C0,B9,80,3E
DATA BF,00,00,66,B8,00,00,00
DATA 00,FC,F3,66,AB,CB,*

- PAGE 5 -

'00000 B8 A000 MOV AX,0A000H
'00003 8E C0 MOV ES,AX
'00005 B9 3E80 MOV CX,(320*200)/4
'00008 BF 0000 MOV DI,0
'0000B 66 B8 00000000 MOV EAX,0
'00011 FC CLD
'00012 F3 66 AB REP STOSD
'00015 CB RETF

- PAGE 6 -

T1$ = TIME$
FOR J = 0 TO 10000: CLS : NEXT J
T2$ = TIME$

T3$ = TIME$
FOR J = 0 TO 10000: LINE (0, 0)-STEP(319, 199), 0, BF: NEXT J
T4$ = TIME$

QBasicは実用では何に使われてるんだ？

>>52
ガキがナマ言ってんじゃねえよ（大藁

- PAGE 7 -

T5$ = TIME$
DEF SEG = VARSEG(CLS16%(0))
FOR J = 0 TO 10000: CALL ABSOLUTE(VARPTR(CLS16%(0))): NEXT J
T6$ = TIME$

T7$ = TIME$
DEF SEG = VARSEG(CLS32%(0))
FOR J = 0 TO 10000: CALL ABSOLUTE(VARPTR(CLS32%(0))): NEXT J
T8$ = TIME$

- PAGE 8 -

PRINT "CLS - "; T2$; " - "; T1$ '107sec. Speedrate=1
PRINT "LINE - "; T4$; " - "; T3$ ' 67sec. =1.597
PRINT "CLS16 - "; T6$; " - "; T5$ ' 34sec. =3.147
PRINT "CLS32 - "; T8$; " - "; T7$ ' 27sec. =3.962

DEF SEG

>>53
QBASICそんなに有名？

まあつーワケでよ、ＣＬＳ文のノロさを証明してやったまでだな。
画面関係はＣＡＬＬ呼出しでマシン語ルーチン書いた方がフツー
に速いな。ＰＵＴ文なんかもな。

>>52
ま、参考までに教えてやるがオレの実用ってのはな、純粋に
” 遊び ” だ。それ以外にパソコンが役に立つこたねえな（ゲラ

>>56
中身のねえ質問はそれくらいにしと毛。
オマエそのものだな（大藁

Ｃ＃の時代にＱべーしっくぅ〜？（ワラ

まあな、投資額を考えてみろよってんだよな。
ＱｂａｓｉｃなんざＷｉｎの付録だしロースペックでもじゅうぶん。
” 遊び ” に無駄金使うのは ” この程度 ” で ” じゅうぶん ” だよな。

＃誰だ？パソでメシ食ってる惨めな香具師は（せせら笑い

>>59
C#の時代？
お前も頭悪いな。
どうせVB上がりだろ

今はUMLの時代なんだよｳﾞｫｹ

>>61
いいからプログラム作れよ口だけ厨房め（カカカ

こりゃどうもいけねえなあ。口だけ野郎相手にしてるとこっちまで
無能が移っちまいそうでよ、できりゃ相手にしたかねえってもんだ
な。つことで泣き言はそのへんに並べと毛。

↓” Ｃのできるフリ ” の無能野郎の泣き言（ケケケ

>>62
オブジェクト指向ならば作る。

>>63
C言語はオブジェクト指向でないからｲﾗﾈ

>>64-65
あのよー、オレぁーなー、オブジェクトだの何打のつって何にも
しねえ口だけ野郎が気にいらねえワーケ。型だけできる拳法
ヲタみてえなモンでよ、実際にゃオレにヒックリコカされる運命
にあるワーケ。

＃で、何ができるんだ？（ＷＷＷ

しかしよ、メーカーの飼い犬は路上でバカにされてんのも知らずに
ＣだのＪＡＶＡだの言ってんだろうなあ。もう誰も相手にしてねーっつ
ー声も聞こえねえくらいに脳味噌が ” バカ ” になってんだよなあ（ﾌﾟｯ

＃え？嫌味じゃねえよ。良薬口に苦しってえだろ。

QBASIC、QuickBasicは素人でも作る楽しみが味わえるいい言語だと思うな
昔はパソコン＝プログラム開発だった
どんなマシンでも電源を入れたらプログラム言語が使えるのが当然だったし
だからPC286にDiskBasic付属するのもあたりまえのことだと思ってた
でもPCDOSやWin3.1にはプログラム言語がまったく入ってなかったのは
とても残念だった
そういう点で、Win95にQBasicが入ってるのはマイクロソフトの最後の良心のような
気がする。ま、そんな大げさな話じゃないけどさ。

保守プログラム作ってみた。。。age

保守プログラム作ってみた。。。age

保守プログラム作ってみた。。。age

保守プログラム作ってみた。。。age

保守プログラム作ってみた。。。age

保守プログラム作ってみた。。。age

保守プログラム作ってみた。。。age

保守プログラム作ってみた。。。age

>>68
まあ、日本とそれ以外の世界（米国）の差を考えるんだな。
１００倍違いヒット数の違いを。

http://websearch.yahoo.co.jp/bin/query?p=qbasic&hc=0&hs=0
qbasicで検索した結果　約1610件のページが見つかりました。
　　　　　　　　　　　　　　~~~~~~~~~~
http://search.yahoo.com/bin/search?p=qbasic
Web Matches 1 - 20 of 126,000
　　　　　　　　　　　　　　　~~~~~~~~
>>69-76
プログラムのできねえ香具師のせめてもの抵抗のつもりか？（せせら笑い

==========================終了============================


ageウザいよ＞ＡＬＬ　ＱＢＡＳＩＣはとっくに遅れてるんだＹＯ

とにかく終了　ってか重複スレで話題を出すなゴミ共が。>>2も読めないカスは逝ってよし

age

重複ったって向こうのスレの方がショボいじゃん。
明らかにこっちの方が言語の話題になってるし。
遅れてる遅れてないはこの際関係ないし。
１の煽り口調が嫌なだけで終われって言うなら、明らかにそっちのほうがおかしい。

>>78
>ageウザいよ＞ＡＬＬ
　　　　　　　　　 ~~~~~
　　　　　　　　　　↑これいいよな、依存症（ヒス野郎めｗ）丸出しでよ。
　　　　　　　　　　　 「みんながついてんだじょ〜」って感じなのか？（藁

>ＱＢＡＳＩＣはとっくに遅れてるんだＹＯ
そうかなあ。４８６マシンでも動いてる現状を考えるとマーケティング的には
こっちが数段上だよな。新たな投資が不要、妙なプライドも不要、そして７８
みてえなカスも不要だよな。文句あんのかバアカ（カカカ

＞>>2も読めないカスは逝ってよし
ヲイ、２はオレだぞ（爆

>>80
>重複ったって向こうのスレの方がショボいじゃん。
いちいち揉めてんじゃねーよ。このスレ消化したらあっちに行くわけ
だからな。つことでもう１個のスレは温存だ♪

>１の煽り口調が嫌なだけで終われって言うなら、明らかにそっちの
>ほうがおかしい。
まあオレ様の正しさがこの１文で証明されたわけだがな。要するに
まったく新しいオレ様の存在ってのは時代の要請ってヤツでよ、必
然的なワケヨ。

大昔を考えりゃカタカナすら出なかったマシンに比べりゃ大きく進歩
してんだぜ。昔はカタカナが出ねえことなんざ問題視しなかったぞ。
問題になってたのはプログラミングに興味を示さないゲーマー級の
粒ぞろいの大バカのことだろ。オレ様もゲーマー上がりの世代だか
らちゃんと見てんだぜこのウスノロ野郎め（ったくやってらんねえなｗ

↓ほら相手してやっから何か書いてみろよｗ

ｼﾈﾖ!!

- PAGE 1 -

DEFSNG A-Z: SCREEN 13
DIM CLS32%(20), VSYNC%(20)

DEF SEG = VARSEG(CLS32%(0)): AD = 0
RESTORE M32ADR
DO
READ J$: IF J$ = "*" THEN EXIT DO
POKE VARPTR(CLS32%(0)) + AD, VAL("&H" + J$): AD = AD + 1
LOOP

DEF SEG = VARSEG(VSYNC%(0)): AD = 0
RESTORE VS.ADR
DO
READ J$: IF J$ = "*" THEN EXIT DO
POKE VARPTR(VSYNC%(0)) + AD, VAL("&H" + J$): AD = AD + 1
LOOP

- PAGE 2 -

M32ADR:
DATA B8,00,A0,8E,C0,B9,80,3E
DATA BF,00,00,66,B8,00,00,00
DATA 00,FC,F3,66,AB,CB,*

'00000 B8 A000 MOV AX,0A000H
'00003 8E C0 MOV ES,AX
'00005 B9 3E80 MOV CX,(320*200)/4
'00008 BF 0000 MOV DI,0
'0000B 66 B8 00000000 MOV EAX,0
'00011 FC CLD
'00012 F3 66 AB REP STOSD
'00015 CB RETF

VS.ADR:
DATA 9C,FA,BA,DA,03,EC,24,08
DATA 75,FB,EC,24,08,74,FB,9D
DATA CB,*

- PAGE 3 -

'00000 9C PUSHF
'00001 FA CLI
'00002 BA 03DA MOV DX,3DAH
'00005 LP1 :
'00005 EC IN AL,DX
'00006 24 08 AND AL,8
'00008 75 FB JNZ short LP1
'0000A LP0 :
'0000A EC IN AL,DX
'0000B 24 08 AND AL,8
'0000D 74 FB JZ short LP0
'0000F 9D POPF
'00010 CB RETF

XP = 0
DO
LINE (XP, 0)-STEP(0, 199), 15, BF: XP = (XP + 1) MOD 320
DEF SEG = VARSEG(VSYNC%(0)): CALL ABSOLUTE(VARPTR(VSYNC%(0)))
DEF SEG = VARSEG(CLS32%(0)): CALL ABSOLUTE(VARPTR(CLS32%(0)))
LOOP

DEF SEG

ＶＳＹＮＣ待ちのサンプルだ。

オレ様の０．２ＧＨｚマシンでも秒間６０フレーム逝ってるぞ（藁

さて、なんか面白いルーチン拾ってきたぞ。
どうやらサウンドカード認識ルーチンみてえだがオレ様はこんなモンが
あることすら知らなかったぞ。イミディエイトモードでENVIRON$って関数
に "BLASTER" って引数を入れてPRINTしてみな。↓のルーチンはポ
ートアドレスやら何やら設定してるぞ。

SUB GetBLASTER (DMA%, BasePort%, IRQ%)
' This subroutine parses the BLASTER environment string and returns settings.
IF LEN(ENVIRON$("BLASTER")) = 0 THEN PRINT "BLASTER environment variable not set.": EXIT SUB
FOR Length% = 1 TO LEN(ENVIRON$("BLASTER"))
SELECT CASE MID$(ENVIRON$("BLASTER"), Length%, 1)
CASE "A"
BasePort% = VAL("&H" + MID$(ENVIRON$("BLASTER"), Length% + 1, 3))
CASE "I"
IRQ% = VAL(MID$(ENVIRON$("BLASTER"), Length% + 1, 1))
CASE "D"
DMA% = VAL(MID$(ENVIRON$("BLASTER"), Length% + 1, 1))
END SELECT
NEXT

ここは「ここだけ時代が10年間ずれているスレ」です。

というのはさておき……

> >ＱＢＡＳＩＣはとっくに遅れてるんだＹＯ
> そうかなあ。４８６マシンでも動いてる現状を考えるとマーケティング的には
> こっちが数段上だよな。新たな投資が不要、妙なプライドも不要、そして７８
> みてえなカスも不要だよな。文句あんのかバアカ（カカカ
４８６マシンがまだマーケティングにあると思っているの？

>> 89
> ENVIRON$って関数に "BLASTER" って引数を入れてPRINTしてみな

このプログラムは環境引数解釈してるだけだろ？実際に存在するかどうかなんて処理してない。
というかポートを「設定」しているというよりかは「情報を取得してる」が正しいかと。

まあ、見ただけでそれが判断できないうちは出直して来い、としか言えないよ………
かわいそうに…、ﾊｯ!それとも釣られたのかしら（笑）

１ってダセェ。
Basic言語なのにコードが全部大文字だしさ。QCOBOL？

頑固に486マシン使ってるとこあるけどうちではもう保守してない
ペンティアム積んだDOSマシンも嫌だけど

人工衛星は8086

WSHでも呆れたがこりゃひどいスレですね

QuickBasic+GUI+α=VisualBasic

>>96
QuickBasic+GUI+α-α=VisualBasicだろ
VBが中間コードコンパイラに退化したことを忘れては行けない。

ActiveBasicはひそかにネイティブコンパイラへと進化中

(・∀・)ﾆﾔﾆﾔ

aaaaaaaaaaaaaaaaaaaaaaaaaaaaa

>>90-100
オレ様のための保全作業ご苦労だった。
何が言いたいかって？まだ続けてろってこった（ゲラ

＃あ、うんこ逝ってくるぅ〜（爆

　　 　 ∧＿∧∩　／￣￣￣￣￣￣￣￣￣￣￣
　　　 （　´∀｀）/＜先生！こんなのがありました！
　＿ / /　　 /　　　＼＿＿＿＿＿＿＿＿＿＿＿
＼⊂ノ￣￣￣￣＼
　||＼　　　　　　　　＼
　||＼||￣￣￣￣￣||
　||　 ||￣￣￣￣￣||
http://saitama.gasuki.com/saitama/

（　´∀｀）/＜ 先生！！こんなのを見つけました。
http://muryou.gasuki.com/moe/jaz04.html
http://muryou.gasuki.com/moe/jaz03.html
http://muryou.gasuki.com/moe/jaz02.html
http://muryou.gasuki.com/moe/jaz01.html
http://muryou.gasuki.com/moe/jaz06.html
http://muryou.gasuki.com/moe/jaz05.html
http://muryou.gasuki.com/moe/jaz08.html
http://muryou.gasuki.com/moe/jaz07.html
http://muryou.gasuki.com/moe/jaz10.html
http://muryou.gasuki.com/moe/jaz09.html

　 　 　 　　　　┌┬┬┬┐
　　　　―――┴┴┴┴┴―――――、
.　　. / ￣￣￣//.￣￣| ||￣￣￣|||￣ |｜　　　 ＿＿＿＿＿＿＿＿＿＿
　　./　 　　∧// ∧ ∧| || 　 　 　||| 　 |｜　　／
　[/＿＿__(ﾟ_//[ ].ﾟДﾟ,,) ||＿＿＿||| 　 |｜ ＜ 　こんなのが有りますた
.　||_.　*　 ＿|_|￣￣ ∪|.|. 　 　 　 |ヽ.__|｜　　＼＿＿＿＿＿＿＿＿＿＿
.　lO|o―o|O゜.|二二 |.|　　　 救済病院 ||
　.| ∈口∋￣_l＿＿ｌ⌒ｌ_|＿＿＿|_ｌ⌒ｌ._||
　　￣￣`ー'￣ 　　`ー'　 `ー'　 　`ー'
http://saitama.gasuki.com/koumuin/

asdf

VBってネイティブコードにコンパイルできるだろ？

（＾＾）

http://hage072.infoseek.ne.jp/

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

↓氏ね

WSHでも呆れたがこりゃひどいスレですね

（＾＾）

test

tesst

age

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

良スレの予感

QBASIC？HSPより糞

age

age

HP作りました！　是非見てください!!!
http://bass01.fc2web.com　だよ！

1はいつまでトイレに行ってんだ？

そういやVBのDOS版ってあったよな。

3ヶ月定期age

ttp://muratelic.sitemynet.com/qbasic/qb13.htm

QBasicユーザは、数が多いわりにどこかの厨と違って、なかなか表に出てこないのかな？
でもこのスレ、中心はQuickBASIC4.5だったんだね。まいったまいった。

時代はVB.NETだぞ。おっさんども

偉そうなクチを叩くでないわ、この小童めが

_

(-.-;

>>126
しかも”英語版”・・・WinCD付録・・・が基軸だし。
これじゃPC98版QuickはおろかMS-BASICも無理だ罠。

ほな、さいなら。

QBASIC ≠ QUICK BASIC

Qbasic.exeとQbasic2.exeとQbasic.comの違いって何？
Qbasic2.exeって日本独自のもの？

これからはQCの時代でつ

QBASICでも実行ファイル作れます。

>>133
hoge.com hoge.exe hoge2.exeの3つがあるときは大抵このパターン。
command.comでただ単にhogeって打つと、hoge.com hoge.exe hoge.batの順に探すことを利用していて、
hoge.comがやっていることは日本語か英語かを判別して、
日本語ならhoge.exe 英語ならhoge2.exeをオプション丸投げで呼び出すだけ。
hoge.exeとhoge2.exeの中は実際のプログラム本体。もちろんhoge.exeが日本語、hoge2.exeが英語。

ところでQbasic.exeはヘルプビューアとしてしか使えなかったような……。

10 BEEP:GOTO 10

wait &h3da,&h8

wait &h3da,&h8,&h8

hoshu

hoshu

9Basicｽﾚ保守

a

ﾎｯｼｭﾎｯｼｭ

保守

保守ばかりのスレなんか要らなくないか？

>>146
たまに来る誰かのために、今高らかに宣言する！







　　　　　　　　　　　　　保　　　守　　　　！！

そして　捕手　....

報酬

基地外

補修

きゅーばしく

qbasic懐かしいぜ！FDに入れて持ち歩けるなんて最高だよな。高校時代はよく演習室で立ち上げていたものだよ。

Qbasicって、当時turbo pascalの好敵手だったそうだけど、ほんとですか？

VBもQBASICだが何か？

155 名前：デフォルトの名無しさん ：04/09/12 17:45:08
VBもQBASICだが何か？

文法だけだろ
しかもQuickBASIC

ヲッ♪

あ、>>1はヲ・ヲォ〜レ様だからよっ♪（ヲッ☆

>>122
いつまでもバカ犬みてーに待ってんじゃねーよ、カスｗ

---------------

４ＧＨｚ超の時代も目前。Qbasicの手軽さがますます求められる時代へ。

何だこの偽者は。

>>160（ヲッ♪

ほんたまと同一人物にしか見えないのですが、気のせいでしょうか。

>>162
無職ヒキヲタのヲマヱｗのせい（爆笑）

>>163
トリップの一部の「ock」を縦にすると立ちションしてるように見える

>>164
ワロタｗ
ついでに変えといてやったよ（ゲラ

そろそろテコ入れが必要な時期かな。

関連スレ

【Ｎ８８？】 ９９ＢＡＳＩＣ 【ＭＳＸ？】
http://pc5.2ch.net/test/read.cgi/tech/1099847305/l50

ｑｂａｓｉｃ．ｃｏｍ
http://www.qbasic.com/

Mallard's QBasic Manual
http://www.qbasic.com/tutorial.shtml

ヲッ♪

簡単なソースならVBの標準モジュールに書けばそのまま動くのな

さすがにグラフィックとか無理だけど

>>97
今更だが、実行プログラムにランタイムライブラリが必須になったんだっけ。
MS-BASICとかはスタンダロンだったのに。

>>135が気になって仕方がないsage

保守

age

Qbasicを使ってわかったこと・・・

俺には言語云々以前に数学力がないということが分かりました

orz

やっぱQBASICの統合環境は最高です。8bitPCのBASICを知っているものにとって。
Winについていけないから…。

よさげリンク
ttp://www.yamagame.com/MyWeb/QBASIC/QBasGame.html


＃JISとかISOで標準化されたBASICが普及する日はこないのかなあ。

>>175
実は俺がQBASICと出会ったきっかけがそのサイトだったりする

そんなお前らに…。

これだ。
ttp://www.freebasic.net/

freeBasic Compiler

QuickBasicとコードコンパチ、厨向けに
ゲームライブラリ(SDL,Allegroやら)も標準添付。
WindowsとLinuxにも対応しててマルチプラットフォーム。

さらにオープンソースと来たもんだ。

さぁお前ら、ダウンロードしてはじめなさい。
そして懐かしがるかなんじゃこりゃと思うかどちらかしなさい。

ちなみに、統合開発環境として
FBIdeってのもあるぞ。

ttp://fbide.sourceforge.net/

QuickBasicはいつでもどこでも参照できる詳細なヘルプがよかったなあ
PC/AT用の日本語版ってないのかな

>>179

QuickBasic

>>179
どうした？

WIN2Kで使おうとしたら、もっさりしてた

なかなか面白いな。freeBASIC
昔、QuickBASICで開発したものが動くぞ。

【QBASIC互換!?】FreeBasic【GPL】
http://pc8.2ch.net/test/read.cgi/tech/1139379786/

そんな際物使わなくてもVBの標準モジュールに書けばほとんど動くが

XPで動かすと処理が遅すぎて話にならない…なんで？

ふあひｇかｃｃ

>>186

Pentium4は16ビットコードが遅い