☆ これからはQbasicの時代!
■ このスレッドは過去ログ倉庫に格納されています
0001EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG0002EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG機能的には99%同等のWinCD付録(Qbasic ver1.1)を最大限に活用。
英文情報はインフォシーク翻訳サービスで和訳。
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
0003デフォルトの名無しさん
NGNG0004EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG7.1まで出てんぞ。4.5との違いは構造化部分だけ。
リンクファイル作成が複雑だからオレはパス。4.5でも見た目は同じだ。
0005デフォルトの名無しさん
NGNGVBでもいいじゃん。
0006デフォルトの名無しさん
NGNG>構造化部分だけ。
死ぬほど大事な気がするんですが。
0007EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGカカカ、そこが厨房なテメーの青二才の発想なんだよバアカ。
QBはリアルモードでしか動かねえわけで、しかも使える画面
モードも一見ショボそーに見えるワーケ。しかしよ、1画面64
KBの画面ってのはプログラムしようによっちゃトンデモねえ
スピード出るワケヨ。3GHzマシンでQbasic走らせてミロヨ、
天にも昇る気分だろうよ(大藁
0008デフォルトの名無しさん
NGNG>1画面64KB
640x480x4?
0009EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGSCREEN13のことだよ。
ホレサンプルだ↓
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)
0010EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGまだまだこれで逝くからな(爆
0011デフォルトの名無しさん
NGNGよりによってまた原始的なプログラムだな・・・。
しかし、ある意味アセンブラと同じスタイルのコーディング方法。
プログラムという物を純粋に学ぶには非常に良い素材だな。
0012EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGあ、オレ職業プログラマじゃねえからよ。
ちょっくら外に買出し逝ってくるぜ。またあとでな。
0013EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG0014こいつバカだよw
NGNG>PRINT "Anata wa EXCULTer's sama wo shinjimasuka?"
ワラタ!
0015デフォルトの名無しさん
NGNG0016EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGSCREEN 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
0017EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG雑魚で悪かったなあ(大藁
↓15の言い訳
001815
NGNG0020デフォルトの名無しさん
NGNG0021EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG今、オレ様はゴキゲンなティータイムなんだよ。
ま、テメーらはこっちでも行って楽しんでろって。
大体英語だがドイツ語やらスウェーデン語やら
混じってっからマジに翻訳しねえ様にな。画面と
専門用語のインスピレーション、そう、直感って
ヤツで察してくれよな。
QuickBASIC CAFE(ENGLISHを選択)
http://www.qbcafe.net/portal/index.shtml
0022EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNGおっ、これまたいい質問だね〜(藁
海外系サイトなら7.1まで転がってんぞ(ゲラ
#ただ利用価値ねえけどよ。
0023デフォルトの名無しさん
NGNG0024EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNGFebruary/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
…だとよ。逝ってみ。
0025EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG" pickman " だってさ。全部テキストの手抜きだが意外と
遊べるぞ。
" A "
↑
" < " ← → " > "
↓
" Z "
http://www.qbcafe.net/english/dl_pages/games/action.html
0026EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNGQuickBASIC 4.0
QuickBASIC 4.5
QuickBASIC 7.1
0027デフォルトの名無しさん
NGNG日本だと出てない気がするが…7.1とかは初耳。
0028EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNGいや〜よー、それがあるんだよ(藁
海外の検索エンジンで調べてみろよ。危ねえヤツまで
出てくるからよ。中にはBASICのソースをアセンブラの
ソースに置き換えてくれるヤツまであるぞ(ま、けど所詮
286レベルだもんな)
0029デフォルトの名無しさん
NGNG0030EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG>でもやっぱり、いまさら3DもできないQbasicなんて魅力ないよね。
テメーみてえな下衆野郎がいるからオレは楽しいんだよ(爆
まあな、3Dなんてのはよ、ゲーム機でチクチク動いてるセコいキャラだろ。
あんなモン作って動かすまでが大変だよ。それに1人で作ってるわけじゃ
ねえんだから物量作戦・人海戦術のゲーム業界に見栄切ろうったってそ
うはいかねえよな。人件費圧迫でどんどん製品サイクルが長くなってる
現状がそれを物語ってんな。あんなの誰が買うかよ(プッ
あのなあ、本当の面白味ってのはよ、作ってる本人じゃねえとわかんねえ
ワーケ。そうだろ、テメーで楽しめねえモノを誰が楽しめるってえのかよ。
∴つことで技術面でのハンディはねえってコトヨ。
0031EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNGhttp://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
0032EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG出ねえわけだがテメーらはどうよ?
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$
0033EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG宿題ちゃんとやっとけよ(藁
0034デフォルトの名無しさん
NGNG0035デフォルトの名無しさん
NGNGQBasicについて語ろう『MS-DOS』
http://pc2.2ch.net/test/read.cgi/tech/1047132281/
0036EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG無視されてんのを勘違いしてんじゃねえのバーカ(プッ
>>35
重複スレの割にはそのスレ勢いまるでねえな。だからオレ様が>>2で紹介
してやってんのによ。テメーは親心ってえのを知らねえな。ガキはこれだか
らムカつきやがんだよ。オレ様に喧嘩売るのは100億万年はえーんだよ。
まずオレ様に対する感謝ってヤツを捧げる態度を示すんだな。話はそれか
らだ。わかったら逝ってよし。
まあそらそれでいいや。ま、それよりよ、オマエはプログラムできるのか?
オレ様はC#だのC++だのなんて知らねえぞ。BASIC、マシン語一筋だか
ら怖いものナシってヤツでよ、時代の変化に惑わされねえ不惑不動のグラ
ディエータってワケヨ。最新命令?3Dカード?知らねえよ、オレにとっちゃ
STOSDとADDで画面書き換えできるワケヨ。ま、オマエにとっちゃBP=
石油会社程度のオツムだろうから始めっから期待しちゃいねえんだけどよ。
つことでマタ〜リ再開だな♪
0037デフォルトの名無しさん
NGNG氏ね
0038デフォルトの名無しさん
NGNG>STOSDとADD
SCREEN13(256色モード)ならそれでも問題ないよね。
変形・ズームさせても速そうだね。
0039EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG>時々、雑誌などに掲載される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
ポート$3DAのビット3に入ってるらしい。ここまで書かなくてもまだ簡単
な方法もある。
PALETTE 0,0
まあPALETTE命令はVSYNC同期待ちやってるからそれを利用するの
も便利だよな。
0040EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNGDECLARE 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
0041EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG今から2時間くらいここにいるからな♪
0042デフォルトの名無しさん
NGNGhttp://multianq3.uic.to/mesganq.cgi?room=yasuhito
毎月アンケートの内容が変わるよ。
0043デフォルトの名無しさん
NGNGし! _ -── ‐- 、 , -─-、 -‐─_ノ
小 童 // ̄> ´  ̄  ̄ `ヽ Y , ´ ) 童 え
学 貞 L_ / / ヽ 貞 |
生 が / ' ' i !? マ
ま 許 / / く ジ
で さ l ,ィ/! / /l/!,l /厶,
だ れ i ,.lrH‐|'| /‐!-Lハ_ l /-!'|/l /`'メ、_iヽ
よ る l | |_|_|_|/| / /__!__ |/!トi i/-- 、 レ!/ / ,-- レ、⌒Y⌒ヽ
ね の _ゝ|/'/⌒ヽ ヽト、|/ '/ ̄`ヾ 、ヽト、N'/⌒ヾ ,イ ̄`ヾ,ノ!
l は 「 l ′ 「1 /てヽ′| | | 「L! ' i'ひ} リ
ヽ | ヽ__U, 、ヽ シノ ノ! ! |ヽ_、ソ, ヾシ _ノ _ノ
-┐ ,√ !  ̄ リ l !  ̄  ̄ 7/
レ'⌒ヽ/ ! | 〈 _人__人ノ_ i く //!
人_,、ノL_,iノ! /! ヽ r─‐- 、 「 L_ヽ r─‐- 、 u ノ/
/ / lト、 \ ヽ, -‐┤ ノ キ 了\ ヽ, -‐┤ //
ハ キ { / ヽ,ト、ヽ/!`hノ ) モ |/! 「ヽ, `ー /) _ ‐'
ハ ャ ヽ/ r-、‐' // / |-‐ く | > / / `'//-‐、 /
ハ ハ > /\\// / /ヽ_ ! イ ( / / // / `ァ-‐ '
ハ ハ / /! ヽ レ'/ ノ > ' ∠ -‐  ̄ノヽ /
{ i l ! / フ / -‐ / ̄/〉 〈 \ /!
0044デフォルトの名無しさん
NGNGVB同様、ランタイムが必要で、C言語使いに馬鹿にされたもんだ。
遅い、でかい、ってね。でも、独自のウィンドウルーチンなんか作ってさ
結構がんばったな。いやー懐かしいなぁ。
0045EXCULTer’s / 良心の鏡 ◆hNf3SfdvXk
NGNG>QuickBASICって懐かしいなぁ。これでプログラム始めたからね。
オマエはPC−9801版だろ。よくあんなカスマシンでプログラムなんか
作れんな。変態かよ(大藁
>VB同様、ランタイムが必要で、C言語使いに馬鹿にされたもんだ。
どこが必要なんだよ。コピペのクセに間違えてんじゃねえよ。
EXEファイル(リアルモード)作れるぞ。つーか98版で作るなって(爆
>遅い、でかい、ってね。でも、独自のウィンドウルーチンなんか作ってさ
>結構がんばったな。いやー懐かしいなぁ。
つーこたテメーは作れなかったクチだな。その言動でレベル知れてるよ。
「ウィンドウ」だってさ、路上でバカにされてんのも知らねえクセによっ(プッ
-------------------------------------------------------------
まあそういうワケでよ、できねえクセにできるフリ丸出しアフォ野郎が多い
のもパソ使いの中にゃ多いワケヨ。ダセーカッペみてーなモンだな(プップッ
0046EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGDEFSNG 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
0047EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGDEF 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,*
0048EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG'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
0049EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGM32ADR:
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,*
0050EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG'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
0051EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGT1$ = 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$
0052デフォルトの名無しさん
NGNG0053EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGガキがナマ言ってんじゃねえよ(大藁
0054EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGT5$ = 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$
0055EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGPRINT "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
0056デフォルトの名無しさん
NGNGQBASICそんなに有名?
0057EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG画面関係はCALL呼出しでマシン語ルーチン書いた方がフツー
に速いな。PUT文なんかもな。
>>52
ま、参考までに教えてやるがオレの実用ってのはな、純粋に
” 遊び ” だ。それ以外にパソコンが役に立つこたねえな(ゲラ
0058EXCULTer's / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG中身のねえ質問はそれくらいにしと毛。
オマエそのものだな(大藁
0059デフォルトの名無しさん
NGNG0060EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGQbasicなんざWinの付録だしロースペックでもじゅうぶん。
” 遊び ” に無駄金使うのは ” この程度 ” で ” じゅうぶん ” だよな。
#誰だ?パソでメシ食ってる惨めな香具師は(せせら笑い
0061デフォルトの名無しさん
NGNGC#の時代?
お前も頭悪いな。
どうせVB上がりだろ
今はUMLの時代なんだよヴォケ
0062EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGいいからプログラム作れよ口だけ厨房め(カカカ
0063EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNG無能が移っちまいそうでよ、できりゃ相手にしたかねえってもんだ
な。つことで泣き言はそのへんに並べと毛。
↓” Cのできるフリ ” の無能野郎の泣き言(ケケケ
0064デフォルトの名無しさん
NGNGオブジェクト指向ならば作る。
0065デフォルトの名無しさん
NGNGC言語はオブジェクト指向でないからイラネ
0066EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGあのよー、オレぁーなー、オブジェクトだの何打のつって何にも
しねえ口だけ野郎が気にいらねえワーケ。型だけできる拳法
ヲタみてえなモンでよ、実際にゃオレにヒックリコカされる運命
にあるワーケ。
#で、何ができるんだ?(WWW
0067EXCULTer’s / 頭脳明晰♪ ◆hNf3SfdvXk
NGNGCだのJAVAだの言ってんだろうなあ。もう誰も相手にしてねーっつ
ー声も聞こえねえくらいに脳味噌が ” バカ ” になってんだよなあ(プッ
#え?嫌味じゃねえよ。良薬口に苦しってえだろ。
0068デフォルトの名無しさん
NGNG昔はパソコン=プログラム開発だった
どんなマシンでも電源を入れたらプログラム言語が使えるのが当然だったし
だからPC286にDiskBasic付属するのもあたりまえのことだと思ってた
でもPCDOSやWin3.1にはプログラム言語がまったく入ってなかったのは
とても残念だった
そういう点で、Win95にQBasicが入ってるのはマイクロソフトの最後の良心のような
気がする。ま、そんな大げさな話じゃないけどさ。
0069デフォルトの名無しさん
NGNG0070デフォルトの名無しさん
NGNG0071デフォルトの名無しさん
NGNG0072デフォルトの名無しさん
NGNG0073デフォルトの名無しさん
NGNG0074デフォルトの名無しさん
NGNG0075デフォルトの名無しさん
NGNG0076デフォルトの名無しさん
NGNG0077EXCULTer’s / おはよう ◆hNf3SfdvXk
NGNGまあ、日本とそれ以外の世界(米国)の差を考えるんだな。
100倍違いヒット数の違いを。
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
プログラムのできねえ香具師のせめてもの抵抗のつもりか?(せせら笑い
0078デフォルトの名無しさん
NGNGageウザいよ>ALL QBASICはとっくに遅れてるんだYO
とにかく終了 ってか重複スレで話題を出すなゴミ共が。>>2も読めないカスは逝ってよし
0079デフォルトの名無しさん
NGNG0080デフォルトの名無しさん
NGNG明らかにこっちの方が言語の話題になってるし。
遅れてる遅れてないはこの際関係ないし。
1の煽り口調が嫌なだけで終われって言うなら、明らかにそっちのほうがおかしい。
0081EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG>ageウザいよ>ALL
~~~~~
↑これいいよな、依存症(ヒス野郎めw)丸出しでよ。
「みんながついてんだじょ〜」って感じなのか?(藁
>QBASICはとっくに遅れてるんだYO
そうかなあ。486マシンでも動いてる現状を考えるとマーケティング的には
こっちが数段上だよな。新たな投資が不要、妙なプライドも不要、そして78
みてえなカスも不要だよな。文句あんのかバアカ(カカカ
>>>2も読めないカスは逝ってよし
ヲイ、2はオレだぞ(爆
>>80
>重複ったって向こうのスレの方がショボいじゃん。
いちいち揉めてんじゃねーよ。このスレ消化したらあっちに行くわけ
だからな。つことでもう1個のスレは温存だ♪
>1の煽り口調が嫌なだけで終われって言うなら、明らかにそっちの
>ほうがおかしい。
まあオレ様の正しさがこの1文で証明されたわけだがな。要するに
まったく新しいオレ様の存在ってのは時代の要請ってヤツでよ、必
然的なワケヨ。
大昔を考えりゃカタカナすら出なかったマシンに比べりゃ大きく進歩
してんだぜ。昔はカタカナが出ねえことなんざ問題視しなかったぞ。
問題になってたのはプログラミングに興味を示さないゲーマー級の
粒ぞろいの大バカのことだろ。オレ様もゲーマー上がりの世代だか
らちゃんと見てんだぜこのウスノロ野郎め(ったくやってらんねえなw
0082EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG0083デフォルトの名無しさん
NGNG0084EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNGDEFSNG 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
0085EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNGM32ADR:
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,*
0086EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG'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
0087EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG0088EXCULTer’s / ティータイム♪ ◆hNf3SfdvXk
NGNG0089EXCULTer’s / おはよう ◆hNf3SfdvXk
NGNGどうやらサウンドカード認識ルーチンみてえだがオレ様はこんなモンが
あることすら知らなかったぞ。イミディエイトモードで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
0090デフォルトの名無しさん
NGNGというのはさておき……
> >QBASICはとっくに遅れてるんだYO
> そうかなあ。486マシンでも動いてる現状を考えるとマーケティング的には
> こっちが数段上だよな。新たな投資が不要、妙なプライドも不要、そして78
> みてえなカスも不要だよな。文句あんのかバアカ(カカカ
486マシンがまだマーケティングにあると思っているの?
0091デフォルトの名無しさん
NGNG> ENVIRON$って関数に "BLASTER" って引数を入れてPRINTしてみな
このプログラムは環境引数解釈してるだけだろ?実際に存在するかどうかなんて処理してない。
というかポートを「設定」しているというよりかは「情報を取得してる」が正しいかと。
まあ、見ただけでそれが判断できないうちは出直して来い、としか言えないよ………
かわいそうに…、ハッ!それとも釣られたのかしら(笑)
0092デフォルトの名無しさん
NGNGBasic言語なのにコードが全部大文字だしさ。QCOBOL?
0093デフォルトの名無しさん
NGNGペンティアム積んだDOSマシンも嫌だけど
0094デフォルトの名無しさん
NGNG0095デフォルトの名無しさん
NGNG0096デフォルトの名無しさん
NGNG0097デフォルトの名無しさん
NGNGQuickBasic+GUI+α-α=VisualBasicだろ
VBが中間コードコンパイラに退化したことを忘れては行けない。
0098デフォルトの名無しさん
NGNG0099にやこう ◆Es3JBt9s5c
NGNG0100デフォルトの名無しさん
NGNG0101EXCULTer’s / おはよう ◆hNf3SfdvXk
NGNGオレ様のための保全作業ご苦労だった。
何が言いたいかって?まだ続けてろってこった(ゲラ
#あ、うんこ逝ってくるぅ〜(爆
0102あぼーん
NGNG( ´∀`)/<先生!こんなのがありました!
_ / / / \___________
\⊂ノ ̄ ̄ ̄ ̄\
||\ \
||\|| ̄ ̄ ̄ ̄ ̄||
|| || ̄ ̄ ̄ ̄ ̄||
http://saitama.gasuki.com/saitama/
0103あぼーん
NGNGhttp://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
0104あぼーん
NGNG―――┴┴┴┴┴―――――、
. . /  ̄ ̄ ̄//. ̄ ̄| || ̄ ̄ ̄||| ̄ || __________
./ ∧// ∧ ∧| || ||| || /
[/____(゚_//[ ].゚Д゚,,) ||___||| || < こんなのが有りますた
. ||_. * _|_| ̄ ̄ ∪|.|. |ヽ.__|| \__________
. lO|o―o|O゜.|二二 |.| 救済病院 ||
.| ∈口∋ ̄_l__l⌒l_|___|_l⌒l._||
 ̄ ̄`ー' ̄ `ー' `ー' `ー'
http://saitama.gasuki.com/koumuin/
0105デフォルトの名無しさん
NGNG0106デフォルトの名無しさん
NGNG0107山崎渉
NGNG0109山崎渉
NGNGピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。
=〔~∪ ̄ ̄〕
= ◎――◎ 山崎渉
0110デフォルトの名無しさん
NGNG0111デフォルトの名無しさん
NGNG0112山崎 渉
NGNG0113デフォルトの名無しさん
NGNG0114デフォルトの名無しさん
NGNG0115デフォルトの名無しさん
NGNG0116山崎 渉
NGNG│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン
0117デフォルトの名無しさん
NGNG0118デフォルトの名無しさん
NGNG0119デフォルトの名無しさん
NGNG0120デフォルトの名無しさん
NGNG0121デフォルトの名無しさん
NGNGhttp://bass01.fc2web.com だよ!
0122デフォルトの名無しさん
NGNG0123デフォルトの名無しさん
NGNG0124デフォルトの名無しさん
NGNG0125デフォルトの名無しさん
NGNG0126デフォルトの名無しさん
NGNGでもこのスレ、中心はQuickBASIC4.5だったんだね。まいったまいった。
0127デフォルトの名無しさん
NGNG0128デフォルトの名無しさん
NGNG0129デフォルトの名無しさん
NGNG0130デフォルトの名無しさん
NGNG0131デフォルトの名無しさん
NGNGしかも”英語版”・・・WinCD付録・・・が基軸だし。
これじゃPC98版QuickはおろかMS-BASICも無理だ罠。
ほな、さいなら。
0132デフォルトの名無しさん
NGNG0133デフォルトの名無しさん
NGNGQbasic2.exeって日本独自のもの?
0134M
NGNG0135デフォルトの名無しさん
NGNG0136デフォルトの名無しさん
NGNGhoge.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はヘルプビューアとしてしか使えなかったような……。
0137デフォルトの名無しさん
NGNG0138デフォルトの名無しさん
NGNG0139デフォルトの名無しさん
NGNG0140デフォルトの名無しさん
NGNG0141デフォルトの名無しさん
NGNG0142デフォルトの名無しさん
NGNG0143デフォルトの名無しさん
NGNG0144デフォルトの名無しさん
NGNG0145デフォルトの名無しさん
NGNG0146デフォルトの名無しさん
NGNG0147デフォルトの名無しさん
NGNGたまに来る誰かのために、今高らかに宣言する!
保 守 !!
0148デフォルトの名無しさん
NGNG0149デフォルトの名無しさん
NGNG0151デフォルトの名無しさん
NGNG0152デフォルトの名無しさん
NGNG0153デフォルトの名無しさん
NGNG0154デフォルトの名無しさん
NGNG0155デフォルトの名無しさん
NGNG0156(ノ∀`)アチャー
NGNGVBもQBASICだが何か?
0157デフォルトの名無しさん
NGNGしかもQuickBASIC
0158EXCULTer's / Active PC ◆CF/ockjcoQ
NGNG0159EXCULTer's / Active PC ◆CF/ockjcoQ
NGNG>>122
いつまでもバカ犬みてーに待ってんじゃねーよ、カスw
---------------
4GHz超の時代も目前。Qbasicの手軽さがますます求められる時代へ。
0160デフォルトの名無しさん
NGNG0161EXCULTer's / Active PC ◆CF/ockjcoQ
NGNG0162デフォルトの名無しさん
NGNG0163EXCULTer's / Active PC ◆CF/ockjcoQ
NGNG無職ヒキヲタのヲマヱwのせい(爆笑)
0164デフォルトの名無しさん
NGNGトリップの一部の「ock」を縦にすると立ちションしてるように見える
0165EXCULTer's / Active PC ◆xCyLv.Cgwg
NGNGワロタw
ついでに変えといてやったよ(ゲラ
0166EXCULTer's / Active PC ◆xCyLv.Cgwg
NGNG0167EXCULTer's / Active PC ◆xCyLv.Cgwg
NGNG【N88?】 99BASIC 【MSX?】
http://pc5.2ch.net/test/read.cgi/tech/1099847305/l50
0168EXCULTer's / Active PC ◆xCyLv.Cgwg
NGNGhttp://www.qbasic.com/
Mallard's QBasic Manual
http://www.qbasic.com/tutorial.shtml
ヲッ♪
0169デフォルトの名無しさん
NGNGさすがにグラフィックとか無理だけど
0170デフォルトの名無しさん
NGNG今更だが、実行プログラムにランタイムライブラリが必須になったんだっけ。
MS-BASICとかはスタンダロンだったのに。
0171デフォルトの名無しさん
NGNG0172デフォルトの名無しさん
05/02/12 06:57:480173デフォルトの名無しさん
2005/04/07(木) 22:48:350174デフォルトの名無しさん
2005/04/10(日) 06:26:54俺には言語云々以前に数学力がないということが分かりました
orz
0175びる
2005/05/02(月) 20:11:08Winについていけないから…。
よさげリンク
ttp://www.yamagame.com/MyWeb/QBASIC/QBasGame.html
#JISとかISOで標準化されたBASICが普及する日はこないのかなあ。
0176デフォルトの名無しさん
2005/05/15(日) 09:27:47実は俺がQBASICと出会ったきっかけがそのサイトだったりする
01771
2005/07/24(日) 19:44:06これだ。
ttp://www.freebasic.net/
freeBasic Compiler
QuickBasicとコードコンパチ、厨向けに
ゲームライブラリ(SDL,Allegroやら)も標準添付。
WindowsとLinuxにも対応しててマルチプラットフォーム。
さらにオープンソースと来たもんだ。
さぁお前ら、ダウンロードしてはじめなさい。
そして懐かしがるかなんじゃこりゃと思うかどちらかしなさい。
ちなみに、統合開発環境として
FBIdeってのもあるぞ。
ttp://fbide.sourceforge.net/
0178デフォルトの名無しさん
2005/08/08(月) 00:23:37PC/AT用の日本語版ってないのかな
0179デフォルトの名無しさん
2005/10/11(火) 17:25:22QuickBasic
0180デフォルトの名無しさん
2005/12/23(金) 18:05:01どうした?
0181デフォルトの名無しさん
2006/01/09(月) 13:22:150182デフォルトの名無しさん
2006/02/04(土) 17:49:41昔、QuickBASICで開発したものが動くぞ。
0183デフォルトの名無しさん
2006/02/09(木) 22:43:06http://pc8.2ch.net/test/read.cgi/tech/1139379786/
0184デフォルトの名無しさん
2006/02/12(日) 09:16:590185デフォルトの名無しさん
2006/03/21(火) 09:06:060186sage
2006/03/21(火) 14:03:340187デフォルトの名無しさん
2006/03/21(火) 22:56:40Pentium4は16ビットコードが遅い
■ このスレッドは過去ログ倉庫に格納されています