185コメント42KB

ＢＡＳＩＣの事を聞きたいのですが・・・。

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

NGNG

どうしたら本格的な物が作れますか？
少し古いですが・・・。

0002デフォルトの名無しさん

NGNG

終了

0003デフォルトの名無しさん

NGNG

終了ってわざわざ書くなボケ　お前が終了

0004デフォルトの名無しさん

NGNG

ｵﾏｴﾓﾅｰﾍﾞﾀﾀﾞﾅｗ

0005デフォルトの名無しさん

NGNG

なにベーシック？

0006デフォルトの名無しさん

NGNG

終了ってわざわざ書くなボケ、ってわざわざ書くなボケお前が終了

0007デフォルトの名無しさん

NGNG

ファミリーベーシック

0008デフォルトの名無しさん

NGNG

MSX-BASICならなんとか

0009デフォルトの名無しさん

NGNG

Ｎ８８・・・です（汗）

0010デフォルトの名無しさん

NGNG

基本は

PRINT
INPUT
IF　～　THEN　～　ELSE
GOTO
GOSUB ～　RETURN
FOR　～　NEXT

くらい。かな？

0011デフォルトの名無しさん

NGNG

N88-BASIC互換で本格的なBASICの処理系を作りたい、と、こういうわけですね？

0012デフォルトの名無しさん

NGNG

LOCATEとかは良いんですか？
RND,INTとかも・・・。

10 PRINT "test" '簡単な計算をします
20 INPUT "1+1=";A '１＋１の答えは？
30 IF A=2 THEN PRINT "ok" ELSE PRINT "no good" '答えが２なら当たり、違ったら外れ。
40 END '終了。

0013デフォルトの名無しさん

NGNG

>>11　はい。

0014デフォルトの名無しさん

NGNG

昔はBASICだったからね。
結構なこと出来ると思うよ。

0015デフォルトの名無しさん

NGNG

例えばどんなことですか？>>14
私は>>12位の事しかできないんですが。

0016デフォルトの名無しさん

NGNG

あ、CLSが入ってなかったです。>>12

0017デフォルトの名無しさん

NGNG

>>15
え゛・・・
ゲームなんかも作ってたよ。
処理速度を要求されるモノは、一部にマシン語使ってたりしてたけど。

0018デフォルトの名無しさん

NGNG

数当てぐらいなら作れるんですが・・・。

0019デフォルトの名無しさん

NGNG

BASICインタープリタは何をお使いで？

0020デフォルトの名無しさん

NGNG

アマチュアプログラマがBASICでプログラムしたゲームを
ソフトハウスに持ち込んで市販されたって話は昔はよくあったな。

0021デフォルトの名無しさん

NGNG

Windows95 以上で動作する N88BASIC互換のBASICインタプリタです。
N88BASIC 上で蓄積したプログラム資産を、Windows 上で走らせることが可能です（当然、ＤＯＳ／Ｖマシンでも動く！）。
、と書いてありました。

0022デフォルトの名無しさん

NGNG

>>21
フリーソフトならダウンロードしてみるけど。

線を描きたいなら、
LINE(SX,SY)-(EX,EY),COLOR　（SX,SYは開始位置、EX,EYは終了位置）

円を描きたいなら、
CIRCLE(PX,PY),R,COLOR　（PX,PYは円の中心、Rは半径）

とかも出来る。（チト書式は間違ってるかも。）

0023デフォルトの名無しさん

NGNG

www.vector.co.jp/soft/win95/prog/se055956.html
です。>>22　さん

0024デフォルトの名無しさん

NGNG

N88系だったら PUT でビットマップ表示して ROLL でスクロール。
INP でキー入力を取ればゲームは作れるんじゃない？
あと、PLAY で音楽が鳴るんだっけ。

0025デフォルトの名無しさん

NGNG

PLAY、なりませんよ？

0026デフォルトの名無しさん

NGNG

>>23
うおー、動いたよ。
懐かしくて感動。

>>24
そうそう。
キー入力はINPじゃないと、リアルタイムに取れないんだよね。

0027デフォルトの名無しさん

NGNG

画面の色的に悪趣味だけど・・・

100 CLS
110 '
120 FOR X=0 TO 639 STEP 8
130 LINE(X,0)-(X,399),INT(RND(1)*8)
140 NEXT X
150 '
160 FOR Y=0 TO 399 STEP 8
170 LINE(0,Y)-(639,Y),INT(RND(1)*8)
180 NEXT Y
190 '
200 FOR R = 0 TO 639 STEP 8
210 CIRCLE(320,200),R,INT(RND(1)*8)
220 NEXT R
230 '
240 END

0028デフォルトの名無しさん

NGNG

ポケコンならまだBASICは現役だ。ROM に標準で搭載されていて切り離すことができない。
ポケコンのＯＳをBASICで作った人もいるぐらいだ。Powers CEな。
ところが、パソコンだと正直BASICは終わっている。
昔のBASICプログラムを最小限の努力で動かしたい場合以外はパソコンでBASICを使うべきでない。
新規でBASICを使っていたら私はバカですと自分で言っているようなものだ。
もうBASICの時代は終わったんだ。残りの人生、無駄なことに使うな。
最近じゃ、ポケコンでさえC言語搭載しているぞ。
携帯電話でJavaが動く時代だ。そろそろ504iでるし。
どうしてもBASICやりたいのなら
http://www.sharp.co.jp/corporate/news/pcg850v.html
を買って、OSを作って会社を作れ。
そして非営利でOSのインストールサービスをしろ。
わかったな。

0029デフォルトの名無しさん

NGNG

100 CLS
110 '
120 FOR X=0 TO 639 STEP 8
130 LINE(X,0)-(X,399),INT(RND(1)*8)
140 NEXT X
150 '
160 FOR Y=0 TO 399 STEP 8
170 LINE(0,Y)-(639,Y),INT(RND(1)*8)
180 NEXT Y
190 '
200 FOR R = 0 TO 639 STEP 8
210 CIRCLE(320,200),R,INT(RND(1)*8)
220 NEXT R
230 '
240 END

ちょっと気持ち悪くなります。
サンプルとして付いてきました。

0030デフォルトの名無しさん

NGNG

0031デフォルトの名無しさん

NGNG

違いました。>>29-30

0032デフォルトの名無しさん

NGNG

>>28
わしはCASIO派だ。

テキストベースだったら、
BASICの方が簡単じゃない？
Winになって、画面のレイアウトが面倒になった。

0033デフォルトの名無しさん

NGNG

100 CLS 3
110 X0=320:Y0=200
120 FOR I=0 TO 9.5 STEP 0.02
130 X1=INT(COS(I*3.14)*I*16)+X0:Y1=INT(SIN(I*3.14)*I*10)+Y0
140 X2=INT(SIN(I*3.14)*I*10)+X0:Y2=INT(COS(I*3.14)*I*16)+Y0
150 R=INT(I*5)+1
160 CIRCLE (X1,Y1),R,2
170 CIRCLE (X2,Y2),R,7
180 NEXT I
190 END

0034デフォルトの名無しさん

NGNG

>>28さん、でも、簡単ですし・・・、

0035デフォルトの名無しさん

NGNG

0036デフォルトの名無しさん

NGNG

こんなにBASICスレ立ってたんだ・・・

まぁ、あとは何を作りたいかだよね。

BASIC知ってる人は多いと思うから、
つまずいた時にでも質問投げとけば、
誰かしらレスしてくれると思うよ。

00371

NGNG

そうですね。
精進します。
有り難う御座いました。

00381

NGNG

10 cls : b=-1
20 a=int(rnd(1)*101):d=0
30 while a<>b
40 input "数当てゲーム！！　１から１００までの数を入力して下さい。",b
50 if a>b then print "その数より大きいです"
60 if a<b then print "その数より小さいです"
65 d=d+1
70 wend
80 cls
90 print d;"回目に当たりました"
100 if d<5 then print ""
110 if d<10 then print ""
120 if d<12 then print ""
130 if d<16 then print ""
140 if d<20 then print ""
150 print "もう一回やりますか？1か2で答えて下さい"
160 input "1=yes 2=no",c
170 if c=1 goto 10
180 if c=2 then end

今作ってみたんですが・・・どうでしょうか？

00391

NGNG

100～140行目の""はコメント（評価部分９です。

0040デフォルトの名無しさん

NGNG

sageで書いた方が宜しそうです。

0041デフォルトの名無しさん

NGNG

むしろ削除依頼出したほうが宜しそうです。

0042デフォルトの名無しさん

NGNG

a=int(rnd(1)*101) は、これだと0から100の値になるから、
a=int(rnd(1)*100)+1 だね。

b=-1 は、
b=0 かな。（上の記述で、aは0にならないから。このままでも良いけど。）

最後、1でも2でもない時は、もう一回聞く様に、
190 goto 150
か、
180 if c<>2 then 150
190 end

0043デフォルトの名無しさん

NGNG

>>41
立て逃げしないなら削除しなくてもいいと思うけどね。
向上心がある人を追い出すのはよろしくない。

0044デフォルトの名無しさん

NGNG

>>42さん、どうもありがとう御座いました。
修正しました。

0045デフォルトの名無しさん

NGNG

数当てゲームか、懐かしいな。
小学生のとき町の電気屋の日立ベーシックマスターレベルIIで
入力して遊んだよ。

0046デフォルトの名無しさん

NGNG

BASICってまだあるの？

0047デフォルトの名無しさん

NGNG

envelop basic language
http://pages.cthome.net/xx/e.htm

0048ぼく名無しさん

NGNG

昔はBASICで作ったBASICコンパイラなんてものもあったなあ。
Hudsonだっけか。SHARP の MZ シリーズ向けでね。

0049デフォルトの名無しさん

NGNG

MZ-1Z BASIC使ってましたが、何か？

0050デフォルトの名無しさん

NGNG

MZ系は、テープでのOS（BASIC）のロードに時間がかかるんだよね。
HU-BASICだったかな。

0051デフォルトの名無しさん

NGNG

MZ-1500はQuickDisk

0052デフォルトの名無しさん

NGNG

>>1の
>どうしたら本格的な物が作れますか？
って、本格的なBASICを作る事じゃなかったんだ…

0053デフォルトの名無しさん

NGNG

Hu-BASICは何でも出来ちゃうBASICだったな。
残念なのはサイズが約40KBもあったことだ。
64KBのRAMをもってしても残りは20KBぐらいしかない。
読み込むのに4分半かかったし。

0054デフォルトの名無しさん

NGNG

誰だっけ。
BASIC使って、模擬3D格闘ゲーム作ってた職人さん。
半年くらい前に噂になってた人。

0055デフォルトの名無しさん ◆Pc9801rE

NGNG

去年N88BASICを買いましたが何か？

0056デフォルトの名無しさん

NGNG

>>55
あんたｻｲｺｰｰｰ!

0057デフォルトの名無しさん

NGNG

>>55ｻｲｺｰ祭り開催。

0058デフォルトの名無しさん

NGNG

高橋はるみちゃんage

0059デフォルトの名無しさん

NGNG

Ｎ８８ＢＡＳＩＣで、プログラム作ってるけど
他に変えろって言われてます。

ＶＢか、Ｃあたりが候補なんですが、
どっちがよいのでしょう？

教えてください。

0060デフォルトの名無しさん

NGNG

>>59
娘に「パパ、N88-BASICはもうやめて」って言われたのけ？

0061デフォルトの名無しさん

NGNG

プログラムによる

0062デフォルトの名無しさん

NGNG

＞６０

いえいえ、会社で上司に・・・。

006359

NGNG

＞61

測定器を動作させています。

0064デフォルトの名無しさん

NGNG

BASICからCはキビシイ気が…
VB覚えればEXCELでも使えますよ。

006559

NGNG

print @1:"rst"
などと、print文で測定器番号を指定して
使ってます。

006659

NGNG

＞６４
じゃ、とりあえずＶＢ買ってやってみます。

今期はプログラム変更のために約1千万円ほど
予算を組んでます。
（測定器環境やら、イロイロ変更あると思って）

0067デフォルトの名無しさん

NGNG

VBつーてもVB6だともう「終わってる」開発環境なんですけど・・・

006859

NGNG

＞67
ちょっと詳しく教えてください。

0069デフォルトの名無しさん

NGNG

.netってこと？
.netの構想はよく知らないけど。

007059

NGNG

＞６７

単に測定器を動作させて、データをエクセルに取り込むだけで
いいんですが

0071デフォルトの名無しさん

NGNG

>>70
EXCEL持ってるのであれば、VBを購入しなくても
EXCELのマクロ(VB)で作れるかも知れませんよ。

007259

NGNG

ありがとうございます。

本買って勉強してみます。

現在ＧＰＩＢ制御（Ｎ８８ＢＡＳＩＣ）ですが
ＶＢでもＧＰＩＢ使えるのですか？
それともイーサーネットに変えなければならないのですか？

0073デフォルトの名無しさん

NGNG

GPのAPIってあったけ？・・・
ActiveX(ソフトの部品)を別に買わないといないかも。
TCP-IPならVBで制御できるけど。

0074デフォルトの名無しさん

NGNG

>>59
GPIB制御なら、ＶＢ云々よりも、使用するボードと、それに
対応する制御用ライブラリが、どういった言語に対応してい
るか、でしょう。最近の製品なら、ボードを買えば、ＶＢ用
の ActiveX が付いてくる（ないしはオプションで別売されて
いる）のではないかと思います。既存のボードを使う場合は、
そのメーカに、ＶＢその他、アクセス用のライブラリの有無
を確認する方が早いでしょう。
例えば､コンテック製品などでは、下記のようなライブラリが
提供されています。勿論、コンテックのボード専用ですので、
59さんの環境には摘要できないでしょうが、ボード毎買い替える
のなら、検討しても良いのでは。
http://www.contec.co.jp/apipac/
勿論、他社の製品も多数有りますよ。検索エンジンなどで、
GPIB ActiveX などとして検索してみてください。

0075デフォルトの名無しさん

NGNG

VisualBasicとBASICはまったくの別物だからスレ違いだろ。

007659

NGNG

ありがとうございます。

コンテックはI/Oボードだけしか使ってませんでした。
探してみます。
別にGPIB制御にこだわる必要はないです。
そのために予算取りましたから。

とりあえずは、ActiveＸってのを調べてみます。

007759

NGNG

＞７５

そうなんですか？？
同じＢＡＳＩＣ仲間かと思ってた。＜ＱＢＡＳＩＣも仲間だと思ってた。

007874

NGNG

>>75
厳密に言えばそうかも。まあ、WindowsでBASICといえばVBなので。
N88BASICなどのMS-BASIC系の後継であることに違いはないだろうし。
（VBのTypeなんて、N88BASICのFIELDかよ！なんてとこあるし。）

0079デフォルトの名無しさん

NGNG

う～ん深いですね・・・

0080デフォルトの名無しさん

NGNG

確かにN88BASICもQBasicもMSだけど、
個人的にはN88のいやらしいインターフェイスが好きだ。
OSの代わりに載せられていた趣を感じるね。

0081デフォルトの名無しさん

NGNG

>>79ﾜﾗﾀ

0082デフォルトの名無しさん

NGNG

BASICなつい！
Ｘ６８ｋで昔色々作ったなぁ。。

0083デフォルトの名無しさん

NGNG

BASICじゃ本格的なモノはつくれません

0084デフォルトの名無しさん

NGNG

>>83
取りあえず１０年前のベーマガでも読んでみれば？

0085デフォルトの名無しさん

NGNG

99BASICマンセー

0086デフォルトの名無しさん

NGNG

>>85
フリーになったしな

0087デフォルトの名無しさん

NGNG

＞＞８５
なにそれ？

0088デフォルトの名無しさん

NGNG

うぉぉぉぉ！！　このスレ！
BASICなつかしいいいいっ！小学校の時カナリやったな～
今じゃプログラムの世界なんか全く無縁だし、PCも最近買ったぐらいだが・・
それでもうっすら覚えているぞ・・・
10　A=RND 10
20 IF A<5 THEN 50
30 IF A>5 THEN 60
40 CURSOR 1,5:PRINT``daikiti``
45 GOTO 70
50 CURSOR 1,5:PRINT``syoukiti``
55 GOTO 70
60 CURSOR 1,5:PRINT``tyuukiti``
70 CURSOR 0,2:PRINT``re-try!``
80 GOTO 10

・・確かこんな感じだったよな・・
なんつったっけなー？PB-100だったっけなー？最初買ったポケコン。
非常に私的なレスでｽﾏｿ。

0089デフォルトの名無しさん

NGNG

>>83
OS だって作れるさ...。
Uni+ 懐かしいなぁ...。

0090デフォルトの名無しさん

NGNG

BASICからマシン語呼ぶのはBASICの範疇なんだろうか・・

0091デフォルトの名無しさん

NGNG

>>90
インラインアセンブラみたいなもんじゃない？

0092デフォルトの名無しさん

NGNG

>>90
呼ぶとこまでは範疇だけど、その先は範疇外だろ。

0093デフォルトの名無しさん

NGNG

ＢＡＳＩＣってやはり深いですね・・・。

0094デフォルトの名無しさん

NGNG

>>88
そのプログラム終了しないからRunするとウザイことになるぞ

0095デフォルトの名無しさん

NGNG

基本を学ぶのは良いことだ。

0096デフォルトの名無しさん

NGNG

test

0097デフォルトの名無しさん

NGNG

test

0098デフォルトの名無しさん

NGNG

どこかでも言ったけど、99BASICがフリーになったから、
N88BASICから乗り換えてもいいと思う。

0099デフォルトの名無しさん

NGNG

無限ループ

0100デフォルトの名無しさん

NGNG

99BASIC、(N88+MSX)/2 っていうのがヤです。

0101デフォルトの名無しさん

NGNG

>>100
良いところを取ったんだろ。

■ このスレッドは過去ログ倉庫に格納されています