RPGツクール5で関数を使う方法を知りたいです| OKWAVE

N88-日本語 BASIC ASCII ファイル

N88-日本語 BASIC ASCII ファイルにするのにはどうしたら、宜しいのでしょうか。・MS-DOS 6.20 に付属されている、「Fileconv」を使ってみました。 MS-DOS → N88BASIC ドライブ名は、「C」ですが、Cと打つと、弾かれてしまって、入力が不可能です。・因みに、MS-DOSのファイル形式になっている、現在は、以下の記述名です。 ----- 10 width 80,20 　　　　　　　　　　　　　　　　　　　　　　　　'10～96行まで初期設定 20 cls:beep 30 print "ＫＥＹ操作１左２右３ミサイル発射" 40 print "自機＜Ｔ＞を操り敵＝を撃つゲーム" 50 for i=0 to 40 60 locate i,5:print "-" 70 next 80 locate 19,5:print "-<T>-" 90 x=19: m=0:mx=0:my=0　　　　　　　　　　　　　　'x、y 自機の座標　　mx、my ミサイル座標 95 randomize(val(right$(time$,2)))　　　　　　　　　'ex,ey 敵座標　 96 ey=int(rnd(1)*10)+6:ex=5 100 gosub 200　　　　　　　　　　　　　　　　　　　　'100～130 メインルーチン 110 if m=1 then gosub 300　　'm=0 ミサイル未発射。この時は300行（ミサイル移動ルーチン　　　　　　　　　　　　　　　　　　　 'にはいかない m=1 ミサイル発射中は300行へ　　 120 gosub 400 130 goto 100 200 b$=""　　　　　　　　　　　　　　　　　　　　　　　'自機の移動、ミサイル発射 202 a$=inkey$ 205 if a$<>"" then b$=a$:goto 202 210 if b$="1" and x>1 then x=x-1 215 if b$="2" and x<37 then x=x+1 220 if b$="3" and m=0 then mx=x+2:my=5:m=1:beep 230 locate x,5 :print"-<T>-" 240 return 300 locate mx,my:print " "　　　　　　　　　　　　　　'ミサイル移動ルーチン 310 my=my+1 320 if mx=ex and my=ey then gosub 600: end　　 '当たり判定　 330 if my>15 then mx=0:my=0:m=0:return　　　　　'下までいったらミサイル終了。m=0に戻す 340 locate mx,my:print "V":return 400 locate ex,ey:print " "　　　　　　　　　　　　　　　'敵移動ルーチン　　　　　　　　　 410 ex=ex+1 420 if ex=mx and ey=my then gosub 600 :end　　　'当たり判定 430 if ex>39 then ex=0: ey=int(rnd(1)*10)+6　　　 '端までいったら新座標 440 locate ex,ey:print"=" 450 return 600 beep　　　　　　　　　　　　　　　　　　　　　　　　　　'当たりの時の処理 610 locate mx,my:color 4:print "*" 620 print "大当たりＴＨＥＥＮＤ": color 7 630 print "HIT ANY KEY" 640 a$=input$(1):return

RPGツクールに必要なプログラミングスキルとは？

RPGツクールをいじってて思ったことです。自分のゲームプログラミングスキルが分からないと感じる時があります。特定のことをやると急に理解が追いつかない、しかしそれ以外のことはとても冗長に感じる、ということがあるからです。例えば、スクリプトやプラグイン作成という話が出てくると、そっから全く理解できなくなってしまいます。しかしそれ以前の物がやけに冗長に感じたり、もっと高度なことがしたいと思ったりすることが多いです。 RPGツクールをいじってて冗長である、もっと高度なことがしたいと思った物がこんな所です。 1)スイッチと変数が分かれていることに意味を感じられない。変数だけでいいと思う。 2)スイッチや変数にスコープが無く、すべてが広域変数なので使いづらい。局所変数が欲しい。 3)変数を二進数として扱う機能が欲しい。更には変数に対して論理演算子をオペランドとして使用したい(NOT、OR、AND、XORの四つは実装して欲しい)。できたら論理演算子は条件分岐やイベントページ条件としても使用できるとより良い。つかこれが存在すれば先述述べていたスイッチが完全に不必要な要素になる。 4)初期パーティ設定機能、マップへのBGM割付機能は不要。イベント命令で作った方が楽に感じる。例えば条件でBGMが違うマップなんかが実装しやすいから。初期パーティは手動で組み替えて必要が生じてからマップの特定位置に落とした方が楽。オープニングを作ったり性別選択できるゲームを作るならどうせ要らない機能。 5)GOSUB〜RETURN命令がイベントコマンドに欲しい。GOTO(ジャンプ)多用で作るのは正直不便。という感じです。僕が冗長と感じていたりする点や、欠如していると感じる点は、プログラミングに詳しく無い人がつまずかないように、一見不便や無駄を感じてもあえて冗長にできているのだと思いますし、論理演算子とかもかなり難度の高い話なので避けられていると思うのです。変数のスコープが全て広域変数であるのも、昔のBASIC言語がそうであったように、そういう理由でしょう。そう考えるとそういったスキルでは自分のプログラミングスキルは上回っていると思います。けどスクリプトやプラグイン作成の話が出るとなぜか急に理解できなくなるので、そこよりは下なんだろうと思います。よってRPGツクールに求められるプログラミングスキルって、どこなのでしょう？

サブルーチン

下は身長の平均を求めるプログラムですけど、身長の高い順、低い順に並び替えしたいんですがどうしたらいいかわからないので、よかったら誰か教えていただけませんか　　　　　　　　　　　　　　　　　　　REM プログラム　　　　　10　　　　　　　　　　　　DIM A(12) 20 PRINT "メニュー” 30 PRINT "身長入力...1" 40 PRINT "身長出力...2" 50 PRINT "終了" 60 PRINT "どれにしますか" 70 INPUT B 80 IF B=1 THEN GOSUB300 ELSE 110 90 GOTO 30 100 IF B=2 THEN GOSUB500 ELSE 130 110 GOTO 30 120 IF B=3 THEN GOSUB700 ELSE 30 130 END 140 A(11)=B 300 FOR I=1 TO 10 310 PRINT i;: PRINT "人目" 315 INPUT C 320 A(I)=C 330 PRINT "これでいいですか?" 340 PRINT "1.YES 2.NO" 345 INPUT D 350 IF D=1 THEN 380 ELSE 370 360 IF D=2 THEN 315 ELSE 340 370 A(11)=A(11)+A(I) 380 NEXT I 390 RETURN 400 IF C=1 THEN 520 500 PRINT "先に入力してください" 510 GOTO 30 515 FOR I=1 TO 12 520 PRINT A(I) 530 NEXT I 540 RETURN 550 PRINT "これで身長の平均を求めるのを終わります"700 RETURN 710 　

十進BASICについて

!**************** メインルーチン **************** 110 call format　　!formatを呼び出し 210 do until right=1 220 　mouse poll mx,my,left,right　!マウス位置を取得 230 　if left=1 then 240 　　print mx,my　!クリックされた座標を表示 289 　end if 299 loop 999 end 220 　mouse poll mx,my,left,right　でsyntax errorがでます原因が分かる方よろしくお願いします。

ＦＢＡＳＩＣで作成したコードをｖｉｓｕａｌＢＡＳＩＣに変換したい

以前に富士通のＦＢＡＳＩＣで作成したプログラムをＶＢ６．０で作り直したいのですが、よくわかりません。ソースコードは下記の通りです。 'ＲＳ－２３２Ｃポート受信準備 baud 0,1200 open"COM0:(s8n1n8)" as #1 on com(0) gosub *RECEVECHK com(0) on *LOOP GOTO *LOOP '------------------------------------------------------------------------- 'データ送信コードのチェック *RECEVECHK RCV$=input$(1,#1) if RCV$=ENQ$ then gosub *TRANACK : return if RCV$=STX$ then gosub *RECEVEDATA :return goto *MSG1 return '------------------------------------------------------------------------- 'データの受信 *RECEVEDATA RCV$=input$(1,#1) if RCV$=ETX$ then *RSTRCVDAT STKDATA$=STKDATA$+RCV$ goto *RECEVEDATA '------------------------------------------------------------------------- 'データ読み込み終了 *RSTRCVDAT gosub *TRANACK:'ＡＣＫコード返信へ gosub *TRANEOT:'ＥＯＴコード受信へ gosub *KIROKU:'データ書き込みへ return ' '-------------------------------------------------------------------------- *MSG1 'print"受信開始要求のコードではありません．" 'print return' ' '------------------------------------------------------------------------- 'ＡＣＫコードの返信 *TRANACK print #1,ACK$ return '------------------------------------------------------------------------

パックマンゲーム敵の動きについて c言語

現在簡単なパックマンゲームを作成しています。以下のプログラムだと、・敵が壁にあたると全く動かなくなるという問題点があります。なので、例えば、「動ける(壁でない)方向のうち、移動後の距離が一番自機に近い方向に移動する」というアルゴリズムにしようと思ったのですが、全くコードが思い浮かべません。どんなコードをかけばいいでしょうか。できればコードを具体的に教えていただきたいです。お願いいたします。 #pragma warning(disable:4996) #include <stdio.h> #include <stdlib.h> // system() #include <windows.h> // Sleep() #include <conio.h> // kbhit() #define SIZE 15 // 一辺の長さ #define EMPTY 0 // 何もない場所は0 #define WALL 1 // 壁 #define FOOD 2 // えさ（ドット） #define POWER_FOOD 4 //パワーエサ #define PACMAN 3// 主人公 #define SIZE 15 // 一辺の長さ #define EMPTY 0 // 何もない場所は0 #define WALL 1 // 壁 #define FOOD 2 // えさ（ドット） #define PACMAN 3// 主人公 int main() { int wait_time = 300; int x, y; int food_count = 0;//エサの個数 int cx, cy;//パックマン int ex, ey;//敵 int key; int point = 0; int kx, ky;//自機の座標を保存 int mx, my;//敵機の座標を保存 int life = 3; // 壁１、えさ 2、空白 0 // field[y][x]となる int field[SIZE][SIZE] = { { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 }, ・・・・・・・・・ { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 }, }; cx = 7, cy = 7; //パックマンの初期位置 ex = 1, ey = 1;//敵の初期位置 //エサの個数を数える for (y = 0; y < SIZE; y++) { for (x = 0; x < SIZE; x++) { if (field[y][x] == FOOD) food_count++; } } while (1) { // まずはPACMANの動き if (kbhit()) { key = getch();// kx = cx, ky = cy;//自機の座標を保存する switch (key) { case '4': cx--; break; case '6': cx++; break; case '2': cy++; break; case '8': cy--; break; } cx = (cx + SIZE) % SIZE; //ワープ switch (field[cy][cx]) { case WALL://壁 cx = kx, cy = ky; //動けないので cx, cy を元に戻す break; case FOOD: field[cy][cx] = 0;//餌を食べると餌が消える point += 10; //得点加算 food_count--; //餌の数を減らしていく break; } if (cx == ex && cy == ey) life--; } // 敵機の動き mx = ex; my = ey;//敵機の座標を保存する if (ex > cx) ex--; else if (ex < cx) ex++; else if (ey > cy) ey--; else if (ey < cy) ey++; if (field[ey][ex] == WALL) //もし敵機が壁に当たったらもとの座標に戻す。 { ex = mx; ey = my; } ex = (ex + SIZE) % SIZE; //ワープ if (cx == ex && cy == ey) { life--; ex = 7, ey = 7; Sleep(wait_time); } //画面表示 for (y = 0; y < SIZE; y++) { for (x = 0; x < SIZE; x++) { if (x == cx && y == cy) printf("C "); else if (x == ex && y == ey) printf("◇"); else if (field[y][x] == FOOD) printf(". "); else if (field[y][x] == WALL) printf("■"); else printf(" "); } printf("\n"); } printf("\n"); printf(" (cx,cy) = (%d, %d)\n", cx, cy); printf(" point: %d\n", point); printf(" LIFE: %d\n", life); if (life == 0) { printf("game over\n"); Sleep(wait_time); break; } if (food_count == 0) { printf("game crer\n"); Sleep(wait_time); break; } Sleep(wait_time);//

javascript関数の戻り値でphpの条件分岐

こんばんは。またまたプログラミングで詰まってしまいました・・・。 <?php 　　　echo "<script> funcJS(); </script>"; //javascriptの関数。戻り値true/false 　　　if(funcJS()の戻り値がtrueかどうか){ 　　　　　　＜～phpの処理～＞　　　 } ?> のようなプログラムがあったとして、funcJS()の戻り値の値によって、『phpの処理』を行うかどうかを決定したいのですがそのアルゴリズムが思いつきません。色々と試行錯誤はやってみて、 (1)phpの変数にfuncJS()の戻り値を格納して、if文で条件分岐　$value = "<script> funcJS(); </script>";　　しかし、これは$valueに戻り値を入れることができませんでした。 (2)javascript変数に戻り値を格納して、javascript内のif文で条件分岐 <?php 　　　echo "<script> var value=funcJS(); </script>"; //javascriptの関数。戻り値true/false 　　　echo "<script> if(value == 'true'){ </script>"; 　　　　　　＜～phpの処理～＞　　　echo "<script> } </script>"; ?> 　これも"}"がないと怒られてしまいました。自分で思いつく限りは試してみたのですが、他に方法が思い浮かばず頭を抱えている状態です。何か良い方法を知っている方、思いついた方、よろしくお願いします。

文法　ファイル分岐とif分

shシェルのスクリプトで該当ファイルがあるか無いかで分岐させたいのですが、構文はどうすればよいのでしょうか？以下、したいことです。 if then ファイルが無い場合　スクリプト終了 end if

「IsError(var)」と「 VarType(var) = vbE

「IsError(var)」と「 VarType(var) = vbError」の使い分け。 If IsError(var) then 　　MsgBox "変数varはエラーです。" End If If VarType(var) = vbError then 　　MsgBox "変数varはエラーです。" End If 両者に大きな違いはありますでしょうか？また、他に同様の条件分岐の方法があれば教えて下さい。こういった、「エラーであるかどうかによる条件分岐」を書く場合、どのように書いたらよいでしょうか。どなたか教えて下さい、宜しくお願いします。

N88 basicプログラムの質問(ノルム計算)1

N88 basicプログラムにおいて鉱物のノルム計算ができるようにしたいのですが、プログラムを打ち込んだのですが、うまく動きません。どなたかわかる方がいればご教授頂きたく願います。かなり長くなりますが、ぜひともお願い致します。下記、打ち込んだプログラムとなります。長いので、質問を分けて入力します。 10 ' 20 '***** normative calculation program for clay minerals ***** by T,Igarashi,1983 30 ' 40 OPTION BASE 1 50 CONSOLE 0,25,0,1 60 WIDTH 40,25 70 ' 80 ' 90 DIM A$(22),DMY$(22),AA$(22),B1$(31),M$(8),L$(8) 100 DIM A(8,22),A1(22),A2(22),B(31),B0(8,31),C9(31),TOTAL(2,8) 110 GOSUB *INIT.1 120 ON ERROR GOTO 5000 130 GOSUB *ENTER 140 FOR QQ=1 TO NN 150 GOSUB *INIT.2 160 IF KORF=1 THEN GOSUB *FILE ELSE GOSUB *KEYBOARD 170 GOSUB *STORE 180 GOSUB *CALC 190 GOSUB *OUTPUT 200 NEXT QQ 210 GOSUB *PRINTOUT 220 GOTO 130 230 ' 240 ' 250 ' 260 *INIT.1 270 RESTORE 290 280 FOR I=1 TO 22 : READ AA$(I) : READ A2(I) : NEXT 290 DATA SIO2,60.085,TiO2,79.899,Al2O3,101.961,Fe2O3,159.692,FeO,71.846,MnO,70.937,MgO,40.304,CaO,56.079,Na2O,61.979,K2O,94.195 300 DATA P2O5,141.943,Cl,35.453,SO3,80.57,S,32.6,Cr2O3,151.989,ZrO2,123.218,F,18.99,CO2,44.9,H2O+,18,H2O-,1,Ig.LOSS,1,Others,1 310 RESTORE 330 320 FOR I=1 TO 31 : READ B1$(I) : NEXT 330 DATA Q,C,ad,mi,ab,an,ka,se,ch,gi,mo,pp,dp,al,Z,hl,th,cc,mg,sd,li,mt,he,cm,pr,il,ru,ap,fr,en,ot 340 C9(1)=A2(1) : C9(2)=A2(3) : C9(3)=A2(1)+A2(3) : C9(4)=A2(10)+A2(3)+A2(1)*6 : C9(5)=A2(9)+A2(3)+A2(1)*6 : C9(6)=A2(8)+A2(3)+A2(1)*2 : C9(7)=A2(3)+A2(1)*2+A2(19)*2 350 C9(8)=A2(10)+A2(3)*3+A2(1)*6+A2(19)*2 : C9(9)=A2(7)*5+A2(3)+A2(1)*3+A2(19)*4 : C9(10)=A2(3)+A2(19)*3 : C9(11)=A2(9)*33+A2(3)+A2(7)+A2(1)*4+A2(19)*4 : C9(12)=A2(3)+A2(1)*4+A2(19) 360 C9(13)=A2(3)+A2(19) : C9(14)=A2(10)+A2(3)*3+A2(13)*4+A2(19)*6 : C9(15)=A2(1)+A2(16) : C9(16)=(A2(9)-16)/2+A2(12) : C9(17)=A2(9)+A2(13) : C9(18)=A2(8)+A2(18) : C9(19)=A2(7)+A2(18) : C9(20)=A2(5)+A2(18) 370 C9(21)=A2(4)+A2(19) : C9(22)=A2(4)+A2(5) : C9(23)=A2(4) : C9(24)=A2(5)+A2(15) : C9(25)=A2(5)-16+A2(14)*2 : C9(26)=A2(2)+A2(5) : C9(27)=A2(2) : C9(28)=A2(8)*10+A2(11)*3+A2(19) 380 C9(29)=A2(8)-A2(17)*2 : C9(30)=A2(1)+A2(7) : C9(31)=1 : DD=0 390 FOR I=1 TO 31 : B(I)=0 : NEXT 400 RETURN 410 ' 420 ' 430 ' 440 *ENTER 450 C=0 : KORF=0 : SCREEN 3,3 : CLS 3 : SCREEN 3,0 : LINE(0,0)-(639,199),6,BF : COLOR 2 460 LOCATE 0,5 : PRINT "How many samples (Max 8 samples)";: INPUT NN 470 IF NN>8 THEN CLS 1 : GOTO 460 480 IF NN=0 THEN GOTO *PROEND 490 COLOR 2 : LOCATE 0,8 : PRINT "Input data from Keyboard or File or End : K/F/E" 500 Y$=INKEY$ 510 IF Y$="" THEN 490 520 IF Y$="e" OR Y$="E" THEN GOTO *PROEND 530 IF Y$="k" OR Y$="K" THEN KORF=0 : RETURN 540 IF Y$<>"f" AND Y$<>"F" THEN 490 550 KORF=1 560 RETURN 570 ' 580 ' 590 ' 600 *INIT.2 610 CLS 1 620 FOR I=1 TO 22 : A(QQ,I)=0 : NEXT I 630 FOR I=1 TO 31 : B(I)=0 : B0(QQ,I)=0 : NEXT I 640 RETURN 650 ' 660 ' 670 ' 680 *FILE 690 OPEN "data.1" AS #1 700 FIELD #1,40 AS MINERAL$,40 AS L1$ 710 FOR I=1 TO 22 : FIELD #1,(I-1)*4+80 AS DMY$(I),4 AS A$(I) : NEXT 720 MAX=LOF(1) : IF MAX=0 THEN RETURN 440 730 LOCATE 1,2 : PRINT MAX;"records are filing." 740 IF DD=1 THEN 800 750 LOCATE 2,5 : PRINT "You need list (Y/N)?": Y$=INKEY$ 760 IF Y$"" THEN 750 770 IF Y$="N" OR Y$="n" OR Y$="ミ" THEN 800 780 IF Y$="Y" OR Y$="y" OR Y$="ン" THEN GOSUB *NAME.LIST : GOTO 800 790 GOTO 750 800 LOCATE 2,10 : INPUT "Record No.";N 810 IF N>MAX THEN CLS 1 : GOTO 730 820 GET #1,N 830 M$=MINERAL$ : L$=L1$ 840 FOR I=1 TO 11 : A(QQ,I)=CVS(A$(I)) : A(QQ,I+11)=CVS(A$(I+11)) : NEXT 850 CLOSE #1 : DD=1 860 LOCATE 2,15 : PRINT "Correct data : Y/N"; : Y$=INKEY$ 870 IF Y$="" THEN 860 880 IF Y$="Y" OR Y$="y" THEN C=1 : GOTO 1120 890 IF Y$="N" OR Y$="n" THEN RETURN 180 900 GOTO 860 910 ' 920 ' 930 ' 940 *NAME.LIST 950 LPRINT 960 LPRINT CHR$(27) ; "V0960" ;CHR$(&H8) 970 LPRINT "Sample Name" ; TAB(40); "Locality" 980 LPRINT CHR$(27);"V0960";CHR$(&H8) 990 FOR II=1 TO MAX 1000 GET #1, II 1010 M$=MINERAL$ : L$=L1$ 1020 LPRINT M$; TAB(40); L$ 1030 NEXT 1040 LPRINT CHR$(27) ; "V0960";CHR$(&H8) 1050 LPRINT CHR$(12) 1060 RETURN 1070 ' 1080 ' 1090 ' 1100 *KEYBOARD 1110 M$="" : L$="" : FOR I=1 TO 22 : A(QQ,I)=0 : NEXT I

空の配列を示す方法

Flash8を使用して、ActionScript2を書いています。 if文を用いて、「変数my_array(配列)が空の配列でない場合は～」という条件分岐を書きたいのですが、空の配列を示す方法がわかりません。 var my_array:Array = new Array(); とした上で、 if (my_array == null) { trace("null"); } else { trace("違う"); } と書いて調べてみたのですが、 nullでもundefinedでも""でも[]でも「違う」と表示されてしまいます。「空の配列でない場合」という条件を書く方法はあるでしょうか？

VBA　一致するセル同士を線で結ぶ

ある列について（ここでは8列目）、あるセルを検索元セルとして、検索先のセルと一致したら検索元セルと検索先で一致したセルとを線（オートシェイプ）でつなぐようなVBAコードを書いています。しかし何度やっても上手くセルの内容が一致するセル同士に線が引かれません。どこが悪いでしょうか？　ちょっとせっぱつまっていて分かりづらい質問になっていますが、助けてください。お願いします。 Sub tameshi() Dim i, j As Integer For i = 1 To 100 If Cells(i, 8) = "" Then Else For j = i + 1 To 99 If Cells(i, 8).Text = Cells(j, 8).Text Then ' 横棒を引くための設定 ' 横線の終点はさらにその隣のセルを指定。 sx = Cells(i, 9).Left sy = Cells(i, 9).Top + 6 ex = Cells(i, 10).Left ' sx2に指定する座標 ey = Cells(i, 10).Top + 6 ' sy2に指定する座標 ' 縦棒を引くための設定 sx2 = Cells(i, 10).Left ' ここには上のexで指定した座標を指定 sy2 = Cells(i, 10).Top + 6 ' ここには上のeyで指定した座標を指定 ex2 = Cells(i + j, 10).Left ' 下のex3で指定した座標を指定 ey2 = Cells(i + j, 10).Top + 6 ' 下のey3で指定した座標を指定 ' 横棒を引くための設定 ' 実際にはつながれる先のセル番号（一致するIDの隣のセル）をexとeyに指定。 ' 横線の終点はさらにその隣のセルを指定。 sx3 = Cells(i + j, 9).Left sy3 = Cells(i + j, 9).Top + 6 ex3 = Cells(i + j, 10).Left ' ex2に指定する座標 ey3 = Cells(i + j, 10).Top + 6 ' ey2に指定する座標 ActiveSheet.Shapes.AddConnector(msoConnectorStraight, sx, sy, ex, ey).Select ActiveSheet.Shapes.AddConnector(msoConnectorStraight, sx2, sy2, ex2, ey2).Select ActiveSheet.Shapes.AddConnector(msoConnectorStraight, sx3, sy3, ex3, ey3).Select Else End If Next j End If Next i End Sub

シェルスクリプトで、サーバー監視

まだまだスクリプト初心者なので、教えていただきたいのですが、条件分岐させるifがあると思うのですが、「サーバーのロードアベレージが1から2の時にトップを保存して、　2を超える時はサーバーを再起動させる。1以下の場合はログ保存する。」というスクリプトを書きたいのです。 #!/bin/sh AVERAGE=` awk '{gsub(/[.]/,""); print $1}' /proc/loadavg` if [ $AVERAGE > 100 && $AVERAGE < 200 ] ;then top -b -n1 >> ./top if [ $AVERAGE -gt 200 ] ;then shutdown -r now end uptime >> ./top.log 上記のままだとerror: unexpected end of fileとエラーが出てしまいます。ifが2つ入ってるので正しい記述が必要だと思うのですが、どうしたらよいでしょうか

n88basicのプログラムを十進ベーシックに翻訳してください。

n88basicの次のプログラムを十1進ベーシックではどうなるのか教えてください。 10 cls 20 p=1000 30 for n=1 to 1000:next n 40 p=p-1 50 if p=-1 then end 60 locate 10,10:print p 70 goto 30

マクロで分岐をさせる方法

下記の記録マクロでWith→End With　間にIFで分岐を試みたのですがエラーになります。どうすれば出来るのか伝授をお願いします。マクロは初心者です。 Dim hensuh(2) As Integer Dim dekiru As Long Dim kinek As Long Dim uineu As Long Dim myTime As Date Dim flg As Boolean Sub OnTimeSamp1() Application.OnTime EarliestTime:=TimeValue("09:00:00"), Procedure:="Ontime_Set" '記録開始 Application.OnTime EarliestTime:=TimeValue("11:00:00"), Procedure:="Ontime_Reset" '記録終了 End Sub Sub Ontime_Set() 'トグルになっている If flg = False Then flg = True myTime = Now + TimeSerial(0, 0, 1) ElseIf flg = True Then flg = False Else Exit Sub End If If Range("A1").Value = "" Then Range("A1").Value = Format(Now, "hh:mm:ss") '時間記録（スタート) End If Application.OnTime EarliestTime:=myTime, _ Procedure:="my_Procedure", Schedule:=flg If flg = False Then myTime = 0 End If End Sub Sub my_Procedure() Worksheets("kirokuyou").Activate 'ワークシートをアクティブにする。（記録中別のワークシートを開けた場合そこに記録されてしまうのを防ぐ） With Range("A65536").End(xlUp).Offset(1) .Value = Format(Now, "yyyy:mm:dd:hh:mm:ss") '時間記録 .Offset(, 1).Value = Range("S3").Value 'S3 の値 .Offset(, 2).Value = Range("T3").Value 'T3 の値 .Offset(, 3).Value = Range("U3").Value 'U3 の値 .Offset(, 4).Value = Range("V3").Value 'V3 の値 dekiru = Range("V3").Value Range("V6").Value = dekiru kinek = Range("T22").Value Range("T18").Value = kinek uineu = Range("U22").Value Range("U18").Value = uineu 'IF S17 >= 120 Then 'hensuh(0) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'Elseif S17 >= 110 Then 'hensuh(1) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'Elseif S17 >= 100 Then 'hensuh(2) = Range("S17").Value ←変数に代入後、分岐させたいのですがエラーになる 'End If flg = False myTime = 0 End With Call Ontime_Set End Sub Sub Ontime_Reset() 'タイマーリセット On Error Resume Next Application.OnTime EarliestTime:=myTime, _ Procedure:="my_Procedure", Schedule:=False If Err.Number > 0 Then MsgBox "OnTime設定はされていません。", 64 Err.Clear flg = False Else MsgBox myTime & "の設定は解除されました。", 64 flg = False myTime = Empty End If End Sub

N88互換BASICで変換したが使えません。その２

140 DEF FNF4$(X$) =MID$(X$,1,2)+":"+MID$(X$,3,2)+":"+MID$(X$,5,2) 150 DEF FNF5!(X$,X) =VAL(MID$(X$,X)) 160 CLS 170 LOCATE 20,10 :PRINT "3)How many sensors will you use?" 180 LOCATE 20+40,10 :PRINT " " 190 LOCATE 20+40,10 :LINE INPUT KO.TR$ 200 KO.TR=VAL(KO.TR$) 210 IF KO.TR<1 OR KO.TR>30 THEN BEEP :GOTO 180 220 LOCATE 25,10 :PRINT "Ready to send data?" 230 LINE INPUT AA$ 240 IF AA$<>"" AND AA$<>"Y" AND AA$<>"y" THEN *END. 250 *MAIN.START 260 CLS 270 LOCATE 25,10 :PRINT "****Start*****" 280 LOCATE 70, 0 :PRINT TIME$; 290 ' 300 'Writting data to floppy 310 *DISK.SET 320 FFF$="B:"+FNF1$(DATE$,TIME$) 330 OPEN FFF$ FOR OUTPUT AS #1 340 PRINT #1,Q$+DATE$+Q$+R$+Q$+STR$(KO.TR)+Q$+R$ 'DATE$,SENSORS 350 CLOSE 360 ' 370 'Sampling data every 30 seconds 380 *TIME.30 390 CONSOLE 0,25

VBAで配列のNULL判定

VBAで下記のように配列に設定したNULL値を判定しようとしました。 Dim str() ReDim Preserve str(2) str(0) = "aaa" str(1) = Null str(2) = "bbb" 以下(1)、(2)の分岐処理ではNullと判定されませんでした。どのように判定すれば良いでしょうか？ (1) If str(1) = Null Then Debug.Print "Null値です" End If (2) If str(1) = "" Then Debug.Print "Null値です" End If

phpでの局所変数

phpで、perlでいうlocalやmyのような宣言はできないのでしょうか？ function a() { 　if(1){ 　　$a=2; 　　print "$a<br>"; 　} 　print "$a<br>"; } としても2が２つ表示されてしまいます。ある関数内で場所を問わず宣言したグローバル変数でない変数のスコープは、宣言場所がどこであれ、「関数内」となるのでしょうか？

サブルーチンの処理

すみませんが教えてください。往年のＦ－ＢＡＳＩＣやＮ８８などでは 10 INPUT A 20 IF A=1 then gosub 100 ELSE PRINT "Aは1ではありません！" 30 END 100 PRINT A 110 RETURN こんなふうだったかサブルーチンが使えたかと思います。これをVB.NETでかくと Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim A As Integer A = TextBox1.Text If A = 1 Then　ここにどういれたらいいでしょう Else MsgBox("Aは１ではありません") End If End Sub End Class になるとおもうのですが、Thenのあとサブルーチンへ飛ばせるのでしょうか？それとも根本的に考え方が違うのでしょうか？初歩的な質問ですみませんが、Timer1.Enable = Trueを使った処理以外入門書に載っていないので、どなたかお教えいただけませんでしょうか。

条件文について

ＰＨＰのサンプルを勉強していると簡単な構文でも「if」などの条件文が必要以上に使われ故意に複雑にしているように見えます。 -------------------------------------- if(!empty($name) || !empty($naiyou)){ $keijiban = "keijiban.txt"; $fp = fopen($keijiban, "a"); if($fp){ if (flock($fp, LOCK_EX)){ if (fwrite($fp, $data) === FALSE){ print "ファイル書き込みに失敗しました"; } flock($fp, LOCK_UN); }else{ print "ファイルロックに失敗しました"; } } fclose($fp); } ----------------------------------------- 上記は正しいサンプル構文になるようで、流れは大体理解できるのですがそんなところまで条件分岐をしなくてはいけないのかな？と思ってしまいます。初学者の私が上のサンプルと同じ内容の構文を書くとしたら以下のように条件分岐をできるだけ少なくして考えてしまいます。 ----------------------------------------- if(!empty($name) || !empty($naiyou)){ $fp = fopen("keijiban.txt", "a"); flock($fp, LOCK_EX); fwrite($fp, $data); flock($fp, LOCK_UN); fclose($fp); }else{ print "エラー"; } ----------------------------------------- 条件分岐をできるだけ多く使うことは必要なのでしょうか？条件分岐で詳細に分けるのはどのような利点が具体的にあるのでしょうか？よろしくお願いいたします。

RPGツクール5で関数を使う方法を知りたいです

みんなの回答

関連するQ&A

N88-日本語 BASIC ASCII ファイル

RPGツクールに必要なプログラミングスキルとは？

サブルーチン

十進BASICについて

ＦＢＡＳＩＣで作成したコードをｖｉｓｕａｌＢＡＳＩＣに変換したい

パックマンゲーム敵の動きについて c言語

javascript関数の戻り値でphpの条件分岐

文法　ファイル分岐とif分

「IsError(var)」と「 VarType(var) = vbE

N88 basicプログラムの質問(ノルム計算)1

空の配列を示す方法

VBA　一致するセル同士を線で結ぶ

シェルスクリプトで、サーバー監視

n88basicのプログラムを十進ベーシックに翻訳してください。

マクロで分岐をさせる方法

N88互換BASICで変換したが使えません。その２

VBAで配列のNULL判定

phpでの局所変数

サブルーチンの処理

条件文について

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

RPGツクール5で関数を使う方法を知りたいです

みんなの回答

関連するQ&A

N88-日本語 BASIC ASCII ファイル

RPGツクールに必要なプログラミングスキルとは？

サブルーチン

十進BASICについて

ＦＢＡＳＩＣで作成したコードをｖｉｓｕａｌＢＡＳＩＣに変換したい

パックマンゲーム 敵の動きについて c言語

javascript関数の戻り値でphpの条件分岐

文法 ファイル分岐とif分

「IsError(var)」と「 VarType(var) = vbE

N88 basicプログラムの質問(ノルム計算)1

空の配列を示す方法

VBA 一致するセル同士を線で結ぶ

シェルスクリプトで、サーバー監視

n88basicのプログラムを十進ベーシックに翻訳してください。

マクロで分岐をさせる方法

N88互換BASICで変換したが使えません。その２

VBAで配列のNULL判定

phpでの局所変数

サブルーチンの処理

条件文について

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

パックマンゲーム敵の動きについて c言語

文法　ファイル分岐とif分

VBA　一致するセル同士を線で結ぶ