- 締切済み
N88互換BASICで変換したが使えません。その３
400 LOCATE 0, 0 :PRINT DATE$; 410 LOCATE 25, 0 :PRINT TR$(TR.NO); 420 LOCATE 70, 0 :PRINT TIME$; 430 TM$=" " 440 WHILE TM$<>"00" AND TM$<>"30" 450 LOCATE 70, 0 :PRINT TIME$; 460 MID$(TM$,1,2)=MID$(TIME$,7,2) 470 XXX!=FRE(0) ' 480 WEND 490 LOCATE 0, 0 :PRINT DATE$; 500 LOCATE 25, 0 :PRINT TR$(TR.NO); 510 LOCATE 70, 0 :PRINT TIME$; 520 GOSUB *DISK.OUT 530 GOTO *TIME.30 540 ' 550 'Writting data to floppy 560 *DISK.OUT 570 PRINT:TR.NO=1 580 ON TR.NO GOSUB *TR.1,*TR.2 590 XXX!=FRE(0) ' 600 RETURN 610 ' 620 ' 630 *TR.1 640 KO.J=0 :PV$="" 650 CLS 660 LOCATE 0, 2 :PRINT "***Getting data***" 670 OPEN "COM:E8N" AS #1 680 PRINT #1,"TS0" 690 PRINT #1,CHR$(&H1B)+"T" 700 PRINT #1,"FM0,01,30" 710 LINE INPUT #1,DM$ 720 WHILE MID$(DM$,2,1)<>"E" :LINE INPUT #1,DM$ :WEND 730 PRINT #1,"FM0,01,30" 740 LINE INPUT #1,DM$
- tochitan
- お礼率19% (23/119)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- OKWebAdmin
- ベストアンサー率0% (0/5)
管理者より： 続きの質問があるのでそちらをご参照下さい
関連するQ&A
- 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
- 締切済み
- その他（プログラミング・開発）
- N88互換BASICで変換したが使えません。その４
750 LINE INPUT #1,PV$(0) 760 WHILE MID$(PV$,2,1)<>"E" 770 LINE INPUT #1,PV$ 780 KO.J=KO.J+1 :PV$(KO.J)=PV$ 790 WEND 800 CLOSE 810 OPEN FFF$ FOR APPEND AS #1 820 PRINT #1,Q$+FNF3$(PV$(0),5)+Q$+R$; 830 PRINT FNF4$(FNF3$(PV$(0),5)) 840 FOR J=1 TO KO.J 850 IF MID$(PV$(J),1,1)="S" THEN 920 860 PRINT #1,Q$+FNF2$(PV$(J),21,24)+Q$+R$; 870 XY=0 :JJ=J 880 IF J>10 AND J<21 THEN XY=1 :JJ=J-10 890 IF J>20 THEN XY=2 :JJ=J-20 900 LOCATE 3+XY*24,5+JJ 910 PRINT USING "(##)###.####";FNF5!(PV$(J),21);FNF5!(PV$(J),24); 920 NEXT 930 CLOSE 940 LOCATE 0, 2 :PRINT " 950 XX!=FRE(0) 960 RETURN 970 CLOSE :END 980 CLOSE 990 ' これで最後です。 関連URL： http://oshiete1.goo.ne.jp/kotaeru.php3?q=324875 http://oshiete1.goo.ne.jp/kotaeru.php3?q=324879 http://oshiete1.goo.ne.jp/kotaeru.php3?q=324882
- ベストアンサー
- その他（プログラミング・開発）
- N88互換BASICで変換したが使えません。その１
昔、NECのPC98でN88BASICを使ってプログラムを起動していましたが、N88互換BASIC for windowsにて変換し、WINDOWSパソコンで使用しようと思い、実行してみたら行番号330のファイルが見つかりませんとエラーが出て困っています。 パソコンと温度計をRS232Cケーブルで接続し、温度データを30秒ごとにパソコンに取り込むというソフトなのですが。昔、会社にいた人が作ったそうです。 プログラムは以下のとおりです。私はBASICのことは全くわかりません。 文字数の都合上、分割して表示します。 1 ' save "B:\BAS\VS_RS232.BAS" 2 ' Program Name:VS_RS232.BAS 30 WIDTH 80,25 :CONSOLE 0,25,0,1 40 DEFINT A-Z:TR.NO=1 50 DIM PV$(30) 60 O$ =":" ' : SET 70 P$ ="." ' . SET 80 Q$ =CHR$(&H22) ' " SET 90 R$ ="," ' , SET 100 SP$ =CHR$(&H20) ' SPACE SET 110 DEF FNF1$(X$,Y$) =MID$(X$,4,2)+MID$(X$,7,2)+MID$(Y$,1,2)+MID$(Y$,4,2)+".DAT" 120 DEF FNF2$(X$,Y,Z) =MID$(X$,Y,2)+STR$(VAL(MID$(X$,Z))) 130 DEF FNF3$(X$,X) =MID$(X$,X,6)
- 締切済み
- その他（プログラミング・開発）
- 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
- ベストアンサー
- その他（プログラミング・開発）
- うまく変数を当てられない?
フォーム部分を作成中です。 画像が設定されたフォルダにあり、それを選択すると言うことをしたいと思っています。また、以下は修正画面です。 ディレクトリ内のファイルを読み込みoptionに設定ですよね。で、以下のようにやってみました。 foreach $line (@data) { ($nt1,$nc1,$nt2,～～) = split(/<>/,$line); chomp; $e_nt1 = $nt1; $e_nc1 = $nc1; ～～ } #繰り返し用ナンバー設定 $no = 0; #以下を6回繰り返し while($no<6){ $no++; print "<TR>\n"; print "<TD rowspan=\"3\" bgcolor=\"#999999\"></TD>\n"; print "<TD>\n"; #select開始 print "<SELECT size=\"1\" name=\"nt$no\">\n"; #ディレクトリオープン opendir(DIR , $celdir); while($view = readdir(DIR)){ # $viewの内容と過去データが一緒なら「selected」をつける if($view eq ${"nt$no"}){$sel = selected;} print "<OPTION value=\"$view\" $sel>$view</OPTION>\n"; } print "</SELECT></TD></TR>\n"; print "<TR>\n"; print "<TD><IMG src=\"../../image/menu/${\"e_nt$no\"}\"></TD>\n"; print "</TR>\n"; print "<TR>\n"; print "<TD><INPUT type=\"text\" name=\"nc$no\" size=\"60\" value=\"${\"e_nc$no\"}\"></TD>\n"; print "</TR>\n"; print "<TR>\n"; print "<TD></TD>\n"; print "<TD><BR>\n"; print "</TD>\n"; print "</TR>\n"; } これで、以前選んだ画像名には「selected」が付くと思ったのですが、ファイルが無い「..」と「.」と言うものに「selected」が付いています。 これはどう修正したらいいでしょうか?
- 締切済み
- Perl
- 検索結果の表示形式を表形式にしてだしたいのですが・・・
ＣＧＩ初心者です。データベース検索のＣＧＩをフリーからカスタマイズをかけて利用を試みています。今の状態では、検索結果が、 print "<LI><a href=\"$script?mode=view&no=$no\">$sub</a>\n"; 状態で表示されます。 が、これをメンテするときの一覧状態にしたいのです。 メンテ時の表示プログラムは、 # 管理画面を表示 &header; $count = @lines; print "<center>\n"; print "<form action=\"$script\" method=\"$method\">\n"; print "<input type=hidden name=pass value=\"$in{'pass'}\">\n"; print "<input type=hidden name=mode value=\"admin\">\n"; print "<input type=hidden name=action value=\"delete\">\n"; print "<table border=1 cellspacing=1><tr>\n"; print "<th>削除<th>料理名<th>食種<th>食材<th>調理法<th>コメント</tr>\n"; foreach $line (@lines) { local($no,$sub,$com,$p1,$p2,$p3) = split(/<>/, $line); $com =~ s/<br>/ /g; $com =~ s/</</g; $com =~ s/>/>/g; if (length($com) > 60) { $com = substr($com,0,58); $com = "$com" . '..'; } print "<tr><th><input type=checkbox name=del value=\"$no\"></th>"; print "<td><b><a href=\"$script?mode=mente&no=$no\">$sub</a></b></td>"; print "<td>$part1[$p1]</td><td>$part2[$p2]</td><td>$part3[$p3]</td>"; print "<td><small>$com</small></td></tr>\n"; } print "</table><P>\n"; です。どうしたら、メンテ時のような一覧の表形式で表示できるのでしょうか？ あと、あまりに言語がわからないので、なにか良い参考書及びＨＰがあれば教えてください。
- 締切済み
- CGI
- ＦＢＡＳＩＣで作成したコードをｖｉｓｕａｌＢＡＳＩＣに変換したい
以前に富士通のＦＢＡＳＩＣで作成したプログラムをＶＢ６．０で作り直したいのですが、よくわかりません。 ソースコードは下記の通りです。 'ＲＳ－２３２Ｃポート受信準備 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 '------------------------------------------------------------------------
- 締切済み
- オフィス系ソフト
- 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
- 締切済み
- その他(ソフトウェア)
- 「option」をソートしたい！
お世話になります。 調べてもわからないので、丸投げです。ごめんなさい。 このCGIのアイコン選択の「option」をソートで名前順にしたいのですが、 お分かりになるでしょうか？ どうぞ、宜しくお願いします。 print "<tr><td><b>アイコン</b></td><td>\n"; if ($UZa_icn) { push(@icn_img,"$myicon"); push(@icn_nam,"管理者専用"); } print "<select name=gicon>\n"; foreach(0 .. $#icn_img) { if ($gicon eq "$icn_img[$_]") { print "<option value=\"$icn_img[$_]\" selected>$icn_nam[$_]\n"; } else { print "<option value=\"$icn_img[$_]\">$icn_nam[$_]\n"; } } print "</select>$ic_tog</td></tr>\n"; } else {print"<input type=hidden name=gicon value=\"$gicon\">";} print <<"EOM"; <tr><td><b>URL</b></td><td><input type=text name=ul size="$ltx_wth" value="http://$gurl" class="text"> </td></tr> <tr><td> </td><td> <input type=hidden name=ps value="$F{'ps'}"> <input type=hidden name=no value="$F{'no'}"> <input type=hidden name=dl value="$F{'dl'}"> <input type=hidden name=mode value="kakikae"> <input type=submit value="修正する" class="button"> </form></td></tr> </table></td></tr></table></div><br><br>
- ベストアンサー
- CGI
- サブルーチン
下は身長の平均を求めるプログラムですけど、身長の高い順、低い順に並び替えしたいんですがどうしたらいいかわからないので、よかったら誰か教えていただけませんか 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
- ベストアンサー
- Visual Basic
