5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

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

BASIC言語講座@家庭用ゲーム板。

1 :なまえをいれてください:2001/03/05(月) 03:02
アレに備えて。

print "Hello!"
↑画面に文字列(この場合は Hello )を表示する


2 :なまえをいれてください:2001/03/05(月) 03:03
おいおいナンバー振れよ

3 :なまえをいれてください:2001/03/05(月) 03:04
10  print"あひゃひゃひゃ"
20 goto 10

’荒氏の内部’

4 :なまえをいれてください:2001/03/05(月) 03:06
>>2
直接打てば行番号無しでも実行出来る。
あと、最近の構造化BASICでは行番号自体が廃止されてるのもあるね。

5 :なまえをいれてください:2001/03/05(月) 03:07
#include <stdio.h>

int main(void)
{
 for(;;)
  puts("あひゃひゃひゃ");
 return 0;
}



6 :2:2001/03/05(月) 03:08
>4
そりゃ失礼。俺も古い人間だな。

7 :なまえをいれてください:2001/03/05(月) 03:10
10 width 80@`25:console 0@`25@`0@`1:color 7@`0@`1:print chr$(12);
20 print "あ";
30 R=int(rnd(1)*20)
40 for i=0 to R
50 print "ひゃ";
60 next
70 goto 20

8 :なまえをいれてください:2001/03/05(月) 03:15
>>7
芸コマだな(藁

9 :なまえをいれてください:2001/03/05(月) 03:27
千里の道も1コマンドから。

10 :なまえをいれてください:2001/03/05(月) 03:31
unit Unit1;
interface
uses
Windows@` Messages@` SysUtils@` Classes@` Graphics@` Controls@` Forms@` Dialogs@`
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.caption := '逝ってよし';
end;
end.


11 :なまえをいれてください:2001/03/05(月) 03:32
>>7
PC-8001ユーザー発見(w

12 :なまえをいれてください:2001/03/05(月) 03:32
>>10
インデントしろよ・・・

13 :なまえをいれてください:2001/03/05(月) 03:33
すごくためにならないスレだ。


14 :なまえをいれてください:2001/03/05(月) 03:36
今、勉強してるので数当ての作り方おしえろ


15 :なまえをいれてください:2001/03/05(月) 03:36
>>13
>>7は乱数の使い方としてはイイ例なんでないかい?(藁

16 :なまえをいれてください:2001/03/05(月) 03:37
>>1
あれってなに?

俺これ見たとき、ファミリーベーシックのネタかと思った。
うわ、年がばれる……。

17 :なまえをいれてください:2001/03/05(月) 03:38
>>14

10 R=int(rnd(1)*10)+1:L=0
20 L=L+1
30 input "Number=";N
40 if R<N then "Too Big!":goto 20
50 if R>N then "Too Small...":goto 20
60 if R=N then "Hit!! Count=";L
70 input "Again?[Y/N]";I$
80 if I$<>"N" and I$<>"n" then goto 10
90 print "Bye!!"
100 end

18 :なまえをいれてください:2001/03/05(月) 03:39
>>16
おそらくコレの事だと思われ。
「BASIC STUDIO パワフルゲーム工房」
http://cocoa.2ch.net/test/read.cgi?bbs=famicom&key=980823154&ls=50

19 :14:2001/03/05(月) 03:39
>>17
ありがとうございます


20 :なまえをいれてください:2001/03/05(月) 03:40
ためになるスレの予感


21 :なまえをいれてください:2001/03/05(月) 03:49
>>17
60行で比較する必要は無いんじゃないかな?
そこに来たときは必ずR=Nでしょ。
これ↓だけでいいと思う。
60 print "Hit!! Count=";L

22 :なまえをいれてください:2001/03/05(月) 03:50
てゆーか40から60までSyntax errorだし。
print抜けてるよ・・・

23 :なまえをいれてください:2001/03/05(月) 03:51
>>21
はぁ?

24 :17:2001/03/05(月) 03:53
>>21-22
ヅガン。
確かにその通りだ。

スレ2本に渡って恥ぶっこいてたのか俺って奴ァ・・・(T_T)

25 :なまえをいれてください:2001/03/08(木) 02:54
print "age"

26 :なまえをいれてください:2001/03/08(木) 03:19
randomize
r=int((50000-1+1)*rnd+1)
if "ゴルァ"=right(s@`3) then
me.caption="あ"
for i=0 to r
me.caption=me.caption & "ひゃ"
next i
else
me.caption="ギコハニャ"
for i=0 to r
me.caption=me.caption & "ー"
next i
me.caption=me.caption+"ン"
end if

27 :なまえをいれてください:2001/03/08(木) 05:07
アレはMS系のBASICではなくFullBASICがベースとなってるそうだ。
http://hp.vector.co.jp/authors/VA008683/FullBASIC.html

ベースという言い方なので準拠してるかはナゾ。
http://www.basicmagazine.net/bm/news/basicstudio/index.html

FullBASICの予習はココがおすすめ
http://hp.vector.co.jp/authors/VA008683/


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

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)