{"id":79,"date":"2009-12-01T00:00:29","date_gmt":"2009-11-30T15:00:29","guid":{"rendered":"http:\/\/www.kuroneko-square.net\/articles\/?p=79"},"modified":"2009-11-30T18:11:04","modified_gmt":"2009-11-30T09:11:04","slug":"20091201","status":"publish","type":"post","link":"https:\/\/www.kuroneko-square.net\/articles\/20091201","title":{"rendered":"BASIC\u3067\u30d1\u30b9\u30ef\u30fc\u30c9\u8a8d\u8a3c"},"content":{"rendered":"

Basic\u8a8d\u8a3c\u306b\u95a2\u3059\u308b\u8a71\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u306e\u3067\u60aa\u3057\u304b\u3089\u305a\u3002<\/p>\r\n

\u304b\u3064\u3066\u306eBASIC\u306f\u9ad8\u6c34\u6e96\u8a00\u8a9e\u3068\u3057\u3066\u62bd\u8c61\u5316\u3055\u308c\u3066\u3044\u3066\u6271\u3044\u3084\u3059\u3044\u306e\u3067\u3059\u304c\u3001\u62bd\u8c61\u5316\u3055\u308c\u3066\u3044\u306a\u3044\u51e6\u7406\u306b\u3064\u3044\u3066\u306f\u5f53\u305f\u308a\u524d\u306a\u304c\u3089\u5177\u4f53\u7684\u306a\u624b\u7d9a\u304d\u3092\u66f8\u304f\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u306fQuickBASIC\u3067\u306e\u4f8b\u3067\u3001\u5165\u529b\u3055\u308c\u305f\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u30a2\u30b9\u30bf\u30ea\u30b9\u30af\uff08*\uff09\u3067\u8868\u793a\u3059\u308b\u305f\u3081\u306b\u884c\u3063\u3066\u3044\u305f\u51e6\u7406\u3067\u3059\u3002<\/p>\n\n

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
<\/div><\/td>
'\/for QuickBASIC<\/span>
\n'$lang: "qb"<\/span>
\n
\n'------- GUI \u30d1\u30b9\u30ef\u30fc\u30c9\u5165\u529b\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0<\/span>
\n
\n'------\u8a2d\u5b9a<\/span>
\nCLS<\/span> 0<\/span>: WIDTH<\/span> 80<\/span>,<\/span> 25<\/span>
\nCOLOR 1<\/span>
\n
\npass$ =<\/span> "abc"<\/span> '\u30d1\u30b9\u30ef\u30fc\u30c9<\/span>
\nword$ =<\/span> ""<\/span> '\u5165\u529b\u3055\u308c\u305f\u30d1\u30b9\u30ef\u30fc\u30c9<\/span>
\ninword$ =<\/span> ""<\/span> '\u5165\u529b\u9014\u4e2d\u306e\u30d1\u30b9\u30ef\u30fc\u30c9<\/span>
\n
\n'------\u5909\u6570\u306e\u5ba3\u8a00<\/span>
\nx =<\/span> 21<\/span>'x\u5ea7\u6a19<\/span>
\ny =<\/span> 11<\/span> 'y\u5ea7\u6a19<\/span>
\nr =<\/span> 0<\/span> '\u4e00\u3064\u3065\u3065 "*" \u3092\u63cf\u304f\u305f\u3081\u306e\u5ea7\u6a19<\/span>
\n
\n'------\u8868\u793a<\/span>
\nCLS<\/span> 0<\/span>
\nLINE<\/span> (<\/span>140<\/span>,<\/span> 140<\/span>)<\/span>-<\/span>(<\/span>500<\/span>,<\/span> 195<\/span>)<\/span>,<\/span> 7<\/span>,<\/span> BF,<\/span> 15<\/span>
\nLINE<\/span> (<\/span>140<\/span> +<\/span> 5<\/span>,<\/span> 140<\/span> +<\/span> 5<\/span>)<\/span>-<\/span>(<\/span>500<\/span> -<\/span> 5<\/span>,<\/span> 195<\/span> -<\/span> 5<\/span>)<\/span>,<\/span> 1<\/span>,<\/span> B
\n
\nstart:
\nLOCATE<\/span> y,<\/span> x,<\/span> 1<\/span>'\u6587\u5b57\u306e\u5ea7\u6a19\u3078\u79fb\u52d5<\/span>
\nPRINT<\/span> "ENTER PASSWORD :"<\/span> '\u5165\u529b\u5f85\u3061<\/span>
\n
\n'------\u30d1\u30b9\u30ef\u30fc\u30c9\u5165\u529b<\/span>
\nin:
\nLOCATE<\/span> y,<\/span> x +<\/span> 17<\/span> +<\/span> r: inword$ =<\/span> INPUT$<\/span>(<\/span>1<\/span>)<\/span>
\n
\nIF<\/span> inword$ =<\/span> CHR$<\/span>(<\/span>8<\/span>)<\/span> THEN<\/span> GOTO<\/span> backspace 'BackSpace \u3092\u62bc\u3057\u305f\u3068\u304d<\/span>
\nIF<\/span> inword$ =<\/span> CHR$<\/span>(<\/span>13<\/span>)<\/span> THEN<\/span> GOTO<\/span> yorn 'Enter \u3092\u62bc\u3057\u305f\u3068\u304d<\/span>
\nIF<\/span> r <=<\/span> 22<\/span> THEN<\/span> PRINT<\/span> "*"<\/span>: r =<\/span> r +<\/span> 1<\/span>  '"*" \u3092\u63cf\u304f<\/span>
\n
\n'------\u5165\u529b\u3057\u305f\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u5408\u6210<\/span>
\nword$ =<\/span> word$ +<\/span> inword$
\n
\n'------\u30d1\u30b9\u30ef\u30fc\u30c9\u5165\u529b\u306b\u623b\u308b<\/span>
\nback:
\ninword$ =<\/span> ""<\/span>
\nGOTO<\/span> in
\n
\n'------\u30d0\u30c3\u30af\u30b9\u30da\u30fc\u30b9<\/span>
\nbackspace:
\nIF<\/span> r >=<\/span> 1<\/span> THEN<\/span> r =<\/span> r -<\/span> 1<\/span> ELSE<\/span> GOTO<\/span> yorn
\nLOCATE<\/span> y,<\/span> x +<\/span> 17<\/span> +<\/span> r
\nPRINT<\/span> " "<\/span>
\nGOTO<\/span> in
\n
\n'------\u30d1\u30b9\u30ef\u30fc\u30c9\u306e\u6bd4\u8f03\u30fb\u78ba\u8a8d<\/span>
\nyorn:
\nIF<\/span> word$ =<\/span> pass$ THEN<\/span> GOTO<\/span> exeexit
\n
\n'------\u5165\u529b\u3055\u308c\u305f\u60c5\u5831\u306e\u524a\u9664<\/span>
\nword$ =<\/span> ""<\/span>
\ninword$ =<\/span> ""<\/span>
\nr =<\/span> 0<\/span>
\nCLS<\/span> 2<\/span>
\nGOTO<\/span> start '\u3084\u308a\u306a\u304a\u3057<\/span>
\n
\n'------\u7d42\u4e86<\/span>
\nexeexit:
\nCLS<\/span> 0<\/span>
\nEND<\/span><\/div><\/td><\/tr><\/tbody><\/table><\/div>\n\n

\u3042\u308b\u7a0b\u5ea6\u69cb\u9020\u5316\u3057\u3066\u3042\u308b\u306e\u3067\u5224\u308a\u3084\u3059\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002\u3053\u306e\u3088\u3046\u306a\u51e6\u7406\u306f\u5229\u7528\u6a5f\u4f1a\u3082\u591a\u3044\u306e\u3067\u30af\u30e9\u30b9\u3068\u3057\u3066\u62bd\u8c61\u5316\u3057\u3066\u3057\u307e\u3048\u3070\u518d\u5229\u7528\u3057\u3084\u3059\u3044\u306e\u3067\u3059\u304c\u3001\u5f80\u5e74\u306eQuickBASIC\u306b\u306f\u305d\u306e\u3088\u3046\u306a\u4ed5\u7d44\u307f\u304c\u306a\u304f\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u3054\u3068\u306b\u624b\u76f4\u3057\u3059\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3057\u305f\u3002\u6628\u4eca\u306eBASIC\u306f\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u6307\u5411\u3092\u5ff5\u982d\u306b\u8a2d\u8a08\u3055\u308c\u3066\u3044\u308b\u3082\u306e\u304c\u591a\u3044\u306e\u3067\u3001\u521d\u671f\u306eBASIC\u306b\u6bd4\u3079\u308c\u3070\u683c\u6bb5\u306b\u6271\u3044\u3084\u3059\u304f\u306a\u3063\u3066\u3044\u307e\u3059\u3002\u3082\u3063\u3068\u3082\u3001FreeBASIC\u3067\u306f\u30af\u30e9\u30b9\u306e\u7d99\u627f\u306f\u300c\u307e\u3060\u300d\u5b9f\u88c5\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u304c\u2026<\/p>\r\n

\u305d\u308c\u306b\u3057\u3066\u3082\u3001\u300c\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u5165\u529b\u3059\u308b\u300d\u3068\u3044\u3046UI\u81ea\u4f53\u306f10\u5e74\u7d4c\u3063\u3066\u308220\u5e74\u7d4c\u3063\u3066\u3082\u3001\u305d\u308c\u307b\u3069\u5909\u308f\u3089\u306a\u3044\u3067\u3059\u306d\u3002<\/p>\r\n","protected":false},"excerpt":{"rendered":"\u304b\u3064\u3066\u306eBASIC\u306f\u9ad8\u6c34\u6e96\u8a00\u8a9e\u3068\u3057\u3066\u62bd\u8c61\u5316\u3055\u308c\u3066\u3044\u3066\u6271\u3044\u3084\u3059\u3044\u53cd\u9762\u3001\u62bd\u8c61\u5316\u3055\u308c\u3066\u3044\u306a\u3044\u5177\u4f53\u7684\u306a\u51e6\u7406\u306f\u82e6\u624b\u3068\u3044\u3046\u5370\u8c61\u3067\u3057\u305f\u3002\u4ee5\u4e0b\u306e\u30b3\u30fc\u30c9\u306fQuickBASIC\u3067\u306e\u4f8b\u3067\u3001\u5165\u529b\u3055\u308c\u305f\u30d1\u30b9\u30ef\u30fc\u30c9\u3092\u30a2\u30b9\u30bf\u30ea\u30b9\u30af\uff08*\uff09\u306b\u3059\u308b\u305f\u3081\u306b\u884c\u3063\u3066\u3044\u305f\u51e6\u7406\u3067\u3059\u3002","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[53,55,56],"class_list":["post-79","post","type-post","status-publish","format-standard","hentry","category-blog","tag-basic","tag-freebasic","tag-56"],"_links":{"self":[{"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/posts\/79","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/comments?post=79"}],"version-history":[{"count":0,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/posts\/79\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/media?parent=79"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/categories?post=79"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.kuroneko-square.net\/articles\/wp-json\/wp\/v2\/tags?post=79"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}