DimやGetの書き方

メッセージ

斉藤圭佑

MS-DOS上で動くBASICをWindows上で動かせるように編集しています。
プログラムの内容の概要は「バイナリデータをテキストデータに変換する」
です。編集を行ってる際に

・Get #1,○,○ の○の中に何を記述すればよいか
　1090 1790 2390 2990行目

・Dim () As Double のカッコ内に文字を使いたいがどうしたらいいか
　1710 2320 2930行目

の２項目でつまづいてしまいました。
また、エラー表示にはなっていませんが、

Field #1,128 As X$ 1070行目
Field #1,128 As Y$ 1071行目

と同じ#1を２行に分けて表現しているのですが大丈夫でしょうか。
BASIC自体も初心者で非常に初歩的な質問であるとは思いますが
よろしくお願いします。

[ここをクリックすると内容が表示されます]

コード: 全て選択


#N88BASIC
1000 '****************************************************
1010 ' FFTANA.BAS
1020 '*
1030 '************************************************************
1040 DIM D(256) As Double		'型が合っているかどうか		
1041 DIM PNT As Double
1042 DIM X$ As Double
1043 DIM Y$ As Double
1044 DIM N As Double
1045 DIM M As Double
1050 PNT=400				'PNTは何を意味するのか	 point?
1060 OPEN "DAT3-14.FRK" As #1         ' FILE NAME
1070 FIELD #1,128 As X$     ' DATA BUFFER
1071 FIELD #1,128 As Y$			'この辺あってるか不安
1080 '
1090          GET #1		'表現がわからない
1100            FOR N=1 TO 128
1110            M=N
1120            D(M)=Asc(Mid$(X$,N,1))
1130           NEXT
1140           FOR N=1 TO 128
1150             M=N+128
1160             D(M)=Asc(Mid$(Y$,N,1))
1170           NEXT
1180 CLOSE
1190 GOTO 1210
1200 '
1210 '************ ADRESS OF<Gaa> DATA *******************
1211 DIM STBAA As Long
1212 DIM DTBAA As Long
1220 STBAA=D(147)*256+D(148)                ' START BLOCK NO.
1230 DTBAA=(D(150)*256+D(151))*256+D(152)   ' DATA1 BYTE NO.
1231 DIM X1 As Long
1232 DIM X2 As Long
1233 DIM X3 As Long
1234 DIM X4 As Long
1240 X1=D(153)    :X2=D(154)
1250 X3=D(155)    :X4=D(156)
1251 DIM SIGN As Double
1252 DIM EXPO1 As Double
1253 DIM EXPO# As Double
1254 DIM FRAC# As Double
1255 DIM SCL# As Double
1256 DIM RE As Double			
1257 DIM RE# As Double			
1258 DIM SCLAA As Double
1260 SIGN=(-1)^((X1 AND 128)/128)
1270 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1280 EXPO#=2^EXPO1
1290 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
1300 SCL#=SIGN*EXPO#*FRAC#
1310 IF Abs(RE#)<=1E-38 THEN RE=0
1320 SCLAA=SCL#/10^6
1330 GOTO 1350
1340 '
1350 '************* ADRESS OF <Gbb> DATA *****************
1351 DIM STBBB As Double
1352 DIM DTBBB As Double
1353 DIM SCLBB As Double
1360 STBBB=D(163)*256+D(164)                ' START BLOCK NO.
1370 DTBBB=(D(166)*256+D(167))*256+D(168)   ' DATA BYTE NO.
1380 '
1390 X1=D(169)    :X2=D(170)
1400 X3=D(171)    :X4=D(172)
1410 SIGN=(-1)^((X1 AND 128)/128)
1420 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1430 EXPO#=2^EXPO1
1440 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
1450 SCL#=SIGN*EXPO#*FRAC#
1460 IF Abs(RE#)<=1E-38 THEN RE=0			
1470 SCLBB=SCL#/10^6
1480   GOTO 1500
1490 '
1500 ' *********** ADRESS OF <Gbb> DATA ******************
1501 DIM STB As Double
1502 DIM DTB As Double
1503 DIM KK As Long
1504 DIM SCLAB As Double
1510 STB=D(179)*256+D(180)                ' START BLOCK NO.
1520 DTB=(D(182)*256+D(183))*256+D(184)   ' DATA3 BYTE NO.
1530 KK=2
1540 X1=D(185)    :X2=D(186)
1550 X3=D(187)    :X4=D(188)
1560 SIGN=(-1)^((X1 AND 128)/128)
1570 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1580 EXPO#=2^EXPO1
1590 FRAC#=(X2 OR 128)/128*X3/(128*256)+X4/(128*256*256)
1600 SCL#=SIGN*EXPO#*FRAC#
1610 IF Abs(RE#)<=1E-38 THEN RE=0
1620 SCLAB=SCL#/10^6  
1630 GOTO 1650
1640 '
1650 '
1660 D(256)=0
1670 '
1680 '
1690 '
1691 DIM LOOP As Double			'LOOPで定義するのはよくないかも．色が変わってる
1692 DIM DTM As Long
1700 LOOP=Int(DTB/256)+1
1710 DIM DD(DTB+300) As Double			'()内をどう表現するか．文字はまずいらしい
1720 DIM BB(420) As Double
1730 DIM AF(420) As Double
1740 DIM AI(420) As Double
1741 DIM AR(420) As Double
1742 DIM I As Double
1750 OPEN "DAT3-14.FRK" As #1        'FILE NAME
1760 FIELD #1,128 As X$     'DATA BUFFER
1761 FIELD #1,128 As Y$     'DATA BUFFER
1770 FOR I=1 TO LOOP 		'LOOPを他の文字に変えて表現しなくていいのか？
1780 '
1790   GET #1,STB+I
1800     FOR N=1 TO 128
1810       M=256*(I-1)+N
1820       DD(M)=Asc(Mid$(X$,N,1))
1830    NEXT
1840    FOR N=1 TO 128
1850      M=256*(I-1)+N+128
1860      DD(M)=Asc(Mid$(Y$,N,1))
1870    NEXT
1880 NEXT  
1890 CLOSE  #1
1900 '
1910 '
1911 DIM P As Long
1712 DIM W As Long
1713 DIM S As Long
1714 DIM REAB As Double
1920 OPEN "DAT-GAB.DAT" FOR OUTPUT As #2        
1930   P=KK*4
1940   W=0
1950    S=0
1960 FOR N=1 TO DTB STEP P
1970     X1=DD(N)    :X2=DD(N+1)
1980     X3=DD(N+2)  :X4=DD(N+3)
1990 '
2000     SIGN=(-1)^((X1 AND 128)/128)
2010     EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
2020     EXPO#=2^EXPO1
2030     FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
2040     RE#=SIGN*EXPO#*FRAC#
2050     IF Abs(RE#)<=1E-38 THEN RE=0 :GOTO 2090
2060     RE=RE#/10^6
2070     REAB=RE*SCLAB
2080 '
2090 '
2100 '
2101 DIM X5 As Long
2102 DIM X6 As Long
2103 DIM X7 As Long
2104 DIM X8 As Long
2105 DIM IM As Double
2106 DIM IM# As Double
2107 DIM IMAB As Double
2108 DIM R As Double
2109 DIM CISO As Double
2110   X5=DD(N+4)   :X6=DD(N+5)   ' IMAG DATA READ
2120   X7=DD(N+6)   :X8=DD(N+7)
2130   SIGN=(-1)^((X5 AND 128)/128)
2140   EXPO1=((X5 AND 127)*2+(X6 AND 128)/128)-127
2150   EXPO#=2 ^ EXPO1
2160   FRAC#=(X6 OR 128)/128+X7/(128*256)+X8/(128*256*256)
2170   IM#=SIGN*EXPO#*FRAC#
2180   IF Abs(IM#)<=1E-38 THEN IM=0 :GOTO 2240
2190   IM=IM#/10^6
2200   IMAB=IM*SCLAB
2210   R=Sqr(RE*RE+IM*IM)
2220       AI(S)=IM
2221       AR(S)=RE
2230     CISO=IM/RE         
2231     AF(S)=180/3.1415*Atn(CISO)
2232   BB(S)=R
2233  '
2234  '
2235  '
2236  '
2237  '
2240     S=S+1
2250   PRINT #2 ,W,REAB,IMAB
2260    W=W+0.25
2270       NEXT N
2280   CLOSE #2
2290 '
2300 '
2310 LOOP=Int(DTBAA/256)+1
2320 DIM DD#(DTBAA+300) As Double
2330 DIM BB#(420) As Double
2340 ' 
2350 OPEN "DAT3-14.FRK" As #1
2360 FIELD #1,128 As X$
2361 FIELD #1,128 As Y$
2370 FOR I=1 TO LOOP
2380 '
2390  GET #1,STBAA+I
2400  FOR N=1 TO 128
2410  M=256*(I-1)+N
2420  DD#(M)=Asc(Mid$(X$,N,1)) 
2430  NEXT
2440  FOR N=1 TO 128
2450  M=256*(I-1)+N+128
2460  DD#(M)=Asc(Mid$(Y$,N,1))
2470  NEXT
2480  '
2490   NEXT
2500  '
2510  CLOSE #1
2520 OPEN "DAT-GAA.DAT" FOR OUTPUT As #2
2530 '
2540  S=0 
2550  W=0
2560  P=4
2570  FOR N=1 TO  DTBAA STEP P
2580  X1=DD#(N)    :X2=DD#(N+1)
2590  X3=DD#(N+2)  :X4=DD#(N+3)
2600  SIGN=(-1)^((X1 AND 128)/128)
2610  EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
2620  EXPO#=2^EXPO1
2630  FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
2640  RE#=SIGN*EXPO#*FRAC#
2650  IF Abs(RE#)<=1E-38 THEN RE=0 :GOTO 2700
2660  RE=RE#/10^6
2661 DIM GAA As Double
2670  GAA=SCLAA*RE
2680  BB#(S)=1/RE
2690  S=S+1
2700
2710    PRINT #2 ,W,GAA
2720    W=W+0.25
2730    NEXT  N
2740 '
2750 CLOSE #2
2760 '
2761 DIM GAI As Double
2762 DIM GAIN As Double
2763 DIM GAINY As Double
2764 DIM GAINN As Double
2765 DIM GAIN# As Double
2766 DIM FASE As Double
2770 OPEN "GAIN.DAT" FOR OUTPUT AS #2
2780 W=0.25
2790 FOR S=1 TO 400
2800 GAI=BB(S)*BB#(S)
2810  GAIN=Log(GAI)
2820     GAINY=Log(10)
2830     GAINN=GAIN/GAINY
2840 GAIN#=20*GAINN
2841 FASE=AF(S)
2842 IF AR(S)>0 AND AI(S)>0 THEN FASE=FASE
2843 IF AR(S)>0 AND AI(S)<0 THEN FASE=FASE
2844 IF AR(S)<0 AND AI(S)<0 THEN FASE=FASE-180
2845 IF AR(S)<0 AND AI(S)>0 THEN FASE=FASE+180
2850 PRINT #2,W,GAIN#,FASE
2860 W=W+0.25
2870 NEXT S
2880 CLOSE #2
2900 '
2910 '   
2920 LOOP=Int(DTBBB/256)
2930 DIM DDD(DTBBB+300) As Double
2940  '
2950 OPEN "DAT3-14.FRK" As #1
2960 FIELD #1,128 As X$
2961 FIELD #1,128 As Y$
2970 FOR I=1 TO LOOP 
2980 '
2990 GET #1 ,STBBB+I
3000 FOR N=1 TO 128
3010 M=256*(I-1)+N
3020 DDD(M)=Asc(Mid$(X$,N,1))
3030 NEXT
3040 FOR N=1 TO 128
3050 M=256*(I-1)+N+128
3060 DDD(M)=Asc(Mid$(Y$,N,1))
3070 NEXT
3080 '
3090 NEXT
3100 CLOSE #1
3110 '
2930 DIM GBB# As Double
2930 DIM GBB As Double
3111  OPEN "DAT-GBB.DAT" FOR OUTPUT As #2
3112 '
3113 W=0
3120 P=4
3130 FOR N=1 TO DTBBB STEP P
3140 X1=DDD(N)    :X2=DDD(N+1)
3150 X3=DDD(N+2)  :X4=DDD(N+3)
3160 SIGN=(-1)^((X1 and 128)/128)
3170 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
3180 EXPO#=2^EXPO1
3190 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
3200 GBB#=SIGN*EXPO#*FRAC#
3210 IF Abs(GBB#)<=1E-38 THEN GBB=0 :GOTO 3240 
3220 GBB=SCLBB*GBB#/10^6
3230 '
3240 '
3250 PRINT #2 ,W,GBB
3251 W=W+0.25
3260 NEXT N
3270 CLOSE #2
3280 '
3290 END

konisi

ぱっと見なので完全な答えにはなりませんがご了承。

まず、187::2320行目
DTBAAは31::1212行目でLong型として定義されてますが、これがそもそもの間違いです。
Dimのカッコ内に英文字を書くことは出来ますが、その文字が使われるより以前にConstで定義しておく必要があります。
この場合はファイルから読み取って判断しているようなので、旧N88BASICに出てくるような関数だけでは書き換えきれないと思います。
後でプログラムの意味を汲み取ってそこらへんを解決しようかと考えています。
それと、取り敢えず色々なことを踏まえて2ブロック書き換えてみます。
Dim等は省略するので後で書き足して置いてください。

コード: 全て選択

'PNT=400'取り敢えず放っておきます。
Open "DAT3-14.FRK" As #1
Field #1,1
Get #1,1,X$
Get #1,1,Y$
FOR N=1 TO 128
    'M=N'無意味なので書き直します。
    D(N)=Asc(Mid$(X$,N,1))
NEXT
FOR N=1 TO 128
    'M=N+128'無意味なので書き直します。
    D(N+128)=Asc(Mid$(Y$,N,1))
NEXT
Close #1
Goto 1210

1210 '略。
STBAA=D(147)<<8+D(148)'<<記号はシフト演算といって、2のべき乗となる数を掛けるのに都合がいいので書き直しています。ヘルプ参照。
DTBAA=D(150)<<16+D(151)<<8+D(152)
X1=D(153)
X2=D(154)
X3=D(155)
X4=D(156)
SIGN=(-1)^((X1 AND 128)/128)'言い忘れましたが、論理演算をする時は使う変数は整数型(この場合適切なのはByte型)で宣言してください。
'例
'Dim X1 As Byte
EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
EXPO#=2^EXPO1
FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
SCL#=SIGN*EXPO#*FRAC#
IF Abs(RE#)<=1E-38 THEN RE=0' Then RE#=0 だと思います。
SCLAA=SCL#/10^6
GOTO 1350

7 · #3 投稿記事 by 7 » 2006年10月31日(火) 21:21

> ・Dim () As Double のカッコ内に文字を使いたいがどうしたらいいか
> 　1710 2320 2930行目
DIM DD(DTB+300) As Doubleってのはつまり動的に変数を確保したいっていうことですよね？。色々と考える必要が有ってたぶん難しいと思いますが以下のようにすると可能です。

コード: 全て選択

DIM DD As *Double

	' この部分が肝心になります。
	DD=calloc(SizeOf(Double)*(DTB+300))

	' DD[DTB+300]までアクセス可能
	DD[0]=0.1
	DD[1]=0.2

	free(DD)

konisi

元がどう動いていたかはわからないので何ともいえませんが、取り敢えずコンパイルが通る形に書き換えが完了しました。不恰好だけどインデントとか変更したのとコンパイル通るのとが終わっているので、他の人にも難なく手伝えると思います。

[ここをクリックすると内容が表示されます]

コード: 全て選択

#N88BASIC
DIM D(256) As Byte
DIM X$ As String
DIM Y$ As String
DIM N As Long
DIM M As Long
DIM STBAA As Long
DIM DTBAA As Long
DIM X1 As Long
DIM X2 As Long
DIM X3 As Long
DIM X4 As Long
DIM SIGN As Double
DIM EXPO1 As Double
DIM EXPO# As Double
DIM FRAC# As Double
DIM SCL# As Double
DIM RE# As Double            
DIM SCLAA As Double
DIM STBBB As Double
DIM DTBBB As Double
DIM SCLBB As Double
DIM STB As Double
DIM DTB As Double
DIM KK As Long
DIM SCLAB As Double
DIM LOOPe As Double
DIM DTM As Long
DIM DD As BytePtr
DIM BB(420) As Double
DIM AF(420) As Double
DIM AI(420) As Double
DIM AR(420) As Double
DIM I As Double
DIM P As Long
DIM W As Long
DIM S As Long
DIM REAB As Double
DIM X5 As Long
DIM X6 As Long
DIM X7 As Long
DIM X8 As Long
DIM IM# As Long
DIM IMAB As Double
DIM R As Double
DIM CISO As Double
DIM GAA As Double
DIM DD# As BytePtr
DIM BB#(420) As Long
DIM GAI As Double
DIM GAIN As Double
DIM GAINY As Double
DIM GAINN As Double
DIM GAIN# As Double
DIM FASE As Double
DIM DDD As BytePtr
DIM GBB# As Double
OPEN "DAT3-14.FRK" As #1
FIELD #1,256
GET #1,,X$
FOR N=1 TO 256
	D(N)=Asc(Mid$(X$,N,1))
NEXT
CLOSE #1
STBAA=D(147)*256+D(148)
DTBAA=(D(150)*256+D(151))*256+D(152)
X1=D(153)
X2=D(154)
X3=D(155)
X4=D(156)
SIGN=(-1)^((X1 AND 128)/128)
EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
EXPO#=2^EXPO1
FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
SCL#=SIGN*EXPO#*FRAC#
SCLAA=SCL#/10^6
STBBB=D(163)*256+D(164)
DTBBB=(D(166)*256+D(167))*256+D(168)
X1=D(169)
X2=D(170)
X3=D(171)
X4=D(172)
SIGN=(-1)^((X1 AND 128)/128)
EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
EXPO#=2^EXPO1
FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
SCL#=SIGN*EXPO#*FRAC#
SCLBB=SCL#/10^6
STB=D(179)*256+D(180)
DTB=(D(182)*256+D(183))*256+D(184)
KK=2
X1=D(185)
X2=D(186)
X3=D(187)
X4=D(188)
SIGN=(-1)^((X1 AND 128)/128)
EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
EXPO#=2^EXPO1
FRAC#=(X2 OR 128)/128*X3/(128*256)+X4/(128*256*256)
SCL#=SIGN*EXPO#*FRAC#
SCLAB=SCL#/10^6
D(256)=0
LOOPe=Int(DTB/256)+1
DD=calloc(DTB+300)
OPEN "DAT3-14.FRK" As #1
FIELD #1,256
FOR I=1 TO LOOPe
	GET #1,STB+I,X$
	FOR N=1 TO 256
		M=256*(I-1)+N
		DD(M)=Asc(Mid$(X$,N,1))
	NEXT
NEXT  
CLOSE  #1
OPEN "DAT-GAB.DAT" FOR OUTPUT As #2        
P=KK*4
W=0
S=0
FOR N=1 TO DTB STEP P
	X1=DD(N)
	X2=DD(N+1)
	X3=DD(N+2)
	X4=DD(N+3)
	SIGN=(-1)^((X1 AND 128)/128)
	EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
	EXPO#=2^EXPO1
	FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
	RE#=SIGN*EXPO#*FRAC#
	IF Abs(RE#)<=1E-38 THEN RE#=0 :GOTO *A
	RE#=RE#/10^6
	REAB=RE#*SCLAB
	*A
	X5=DD(N+4)
	X6=DD(N+5)
	X7=DD(N+6)
	X8=DD(N+7)
	SIGN=(-1)^((X5 AND 128)/128)
	EXPO1=((X5 AND 127)*2+(X6 AND 128)/128)-127
	EXPO#=2 ^ EXPO1
	FRAC#=(X6 OR 128)/128+X7/(128*256)+X8/(128*256*256)
	IM#=SIGN*EXPO#*FRAC#
	IF Abs(IM#)<=1E-38 THEN
		IM#=0
	Else
		IM#=IM#/10^6
		IMAB=IM#*SCLAB
		R=Sqr(RE#*RE#+IM#*IM#)
		AI(S)=IM#
		AR(S)=RE#
		CISO=IM#/RE#
		AF(S)=180/3.1415*Atn(CISO)
		BB(S)=R
	End If
	S=S+1
	PRINT #2 ,W,REAB,IMAB
	W=W+0.25
NEXT N
CLOSE #2
LOOPe=Int(DTBAA/256)+1
DD#=calloc(DTBAA+300)
OPEN "DAT3-14.FRK" As #1
FIELD #1,256
FOR I=1 TO LOOPe
	GET #1,STBAA+I,X$
	FOR N=1 TO 256
		M=256*(I-1)+N
		DD#(M)=Asc(Mid$(X$,N,1)) 
	NEXT
NEXT
CLOSE #1
OPEN "DAT-GAA.DAT" FOR OUTPUT As #2
S=0 
W=0
P=4
FOR N=1 TO  DTBAA STEP P
	X1=DD#(N)    :X2=DD#(N+1)
	X3=DD#(N+2)  :X4=DD#(N+3)
	SIGN=(-1)^((X1 AND 128)/128)
	EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
	EXPO#=2^EXPO1
	FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
	RE#=SIGN*EXPO#*FRAC#
	IF Abs(RE#)<=1E-38 THEN
		RE#=0
	Else
		RE#=RE#/10^6
		GAA=SCLAA*RE#
		BB#(S)=1/RE#
		S=S+1
	End If
	PRINT #2 ,W,GAA
	W=W+0.25
NEXT  N
CLOSE #2
OPEN "GAIN.DAT" FOR OUTPUT AS #2
W=0.25
FOR S=1 TO 400
	GAI=BB(S)*BB#(S)
	GAIN=Log(GAI)
	GAINY=Log(10)
	GAINN=GAIN/GAINY
	GAIN#=20*GAINN
	FASE=AF(S)
	IF AR(S)<0 AND AI(S)<0 THEN FASE=FASE-180
	IF AR(S)<0 AND AI(S)>0 THEN FASE=FASE+180
	PRINT #2,W,GAIN#,FASE
	W=W+0.25
NEXT S
CLOSE #2
LOOPe=Int(DTBBB/256)
DDD=calloc(DTBBB+300)
OPEN "DAT3-14.FRK" As #1
FIELD #1,256
FOR I=1 TO LOOPe
	GET #1 ,STBBB+I,X$
	FOR N=1 TO 256
		M=256*(I-1)+N
		DDD(M)=Asc(Mid$(X$,N,1))
	NEXT
NEXT
CLOSE #1
OPEN "DAT-GBB.DAT" FOR OUTPUT As #2
W=0
P=4
FOR N=1 TO DTBBB STEP P
	X1=DDD(N)
	X2=DDD(N+1)
	X3=DDD(N+2)
	X4=DDD(N+3)
	SIGN=(-1)^((X1 and 128)/128)
	EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
	EXPO#=2^EXPO1
	FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
	GBB#=SIGN*EXPO#*FRAC#
	IF Abs(GBB#)<=1E-38 THEN
		GBB#=0
	Else
		GBB#=SCLBB*GBB#/10^6
	End If
	PRINT #2 ,W,GBB#
	W=W+0.25
NEXT N
CLOSE #2
free(DD)
free(DD#)
free(DDD)
END

斉藤圭佑

対応策を丁寧にアドバイスしていただき、ありがとうございます。

konisiさんが作成されたプログラムをこちらで編集せずそのまま走らせてみたのですが、実行画面は固まってしまい、ソース画面には
“スレッド(&HF64)でアクセス違反がありました(EPI=&H00402518)”
と表示が出てしまい実行ができませんでした。

また、konisiさんと7さんのアドバイスを元に自分なりにプログラムを作ってみました。
konisiさんと7さんのアドバイスのおかげでコンパイル時のエラーはなんとか消えたのですが、実行を行う際に実行画面が固まってしまいます。プログラムのどこかがおかしいのでしょうか。

具体的にどこがおかしいかも知れないというところが判らないので質問が漠然としてしまい申し訳ありません。

以下にプログラム上でOpenされるファイルと、MS-DOS上で正常に実行された場合に書き出されるデータをアップしています。
http://briefcase.yahoo.co.jp/bc/keisukk ... http%3a//b

自分なりに作成したプログラムソースです。

[ここをクリックすると内容が表示されます]

コード: 全て選択


#N88BASIC
1000 '****************************************************
1010 ' FFTANA.BAS
1020 '*
1030 '************************************************************
1040 DIM D(256) As Byte		'型が合っているかどうか		
'1041 DIM PNT As Double
1042 DIM X$ As String
1043 DIM Y$ As String
1044 DIM N As Long
1045 DIM M As Double
'1050 PNT=400				'PNTは何を意味するのか	 point?
1060 OPEN "DAT3-14.FRK" As #1         ' FILE NAME
1070 FIELD #1,128     ' DATA BUFFER
1080 Get #1,1,X$ 
1090 Get #1,1,Y$ 
1100 FOR N=1 TO 128
1120	D(N)=Asc(Mid$(X$,N,1))
1130 NEXT
1140 FOR N=1 TO 128
1160 	D(N+128)=Asc(Mid$(Y$,N,1))
1170 NEXT
1180 Close #1
1190 GOTO 1210
1200 '
1210 '************ ADRESS OF<Gaa> DATA *******************
1211 DIM STBAA As Long
1212 DIM DTBAA As Long
1220 STBAA=D(147)*256+D(148)                ' START BLOCK NO.
1230 DTBAA=(D(150)*256+D(151))*256+D(152)   ' DATA1 BYTE NO.
1231 DIM X1 As Long
1232 DIM X2 As Long
1233 DIM X3 As Long
1234 DIM X4 As Long
1240 X1=D(153)    
1241 X2=D(154)
1250 X3=D(155)
1251 X4=D(156)
1251 DIM SIGN As Double
1252 DIM EXPO1 As Double
1253 DIM EXPO# As Double
1254 DIM FRAC# As Double
1255 DIM SCL# As Double
1256 DIM RE As Double			'1310行のREとRE#のこと．どちらかなのか両方定義するのかわからん
1257 DIM RE# As Double			'イマのところREとRE#を区別して両方定義している　2060参照　別の意味として扱ってるっぽい
1258 DIM SCLAA As Double
1260 SIGN=(-1)^((X1 AND 128)/128)
1270 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1280 EXPO#=2^EXPO1
1290 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
1300 SCL#=SIGN*EXPO#*FRAC#
'1310 IF Abs(RE#)<=1E-38 THEN RE#=0
1320 SCLAA=SCL#/10^6
1330 GOTO 1350
1340 '
1350 '************* ADRESS OF <Gbb> DATA *****************
1351 DIM STBBB As Double
1352 DIM DTBBB As Double
1353 DIM SCLBB As Double
1360 STBBB=D(163)*256+D(164)                ' START BLOCK NO.
1370 DTBBB=(D(166)*256+D(167))*256+D(168)   ' DATA BYTE NO.
1380 '
1390 X1=D(169)    
1391 X2=D(170)
1400 X3=D(171)    
1401 X4=D(172)
1410 SIGN=(-1)^((X1 AND 128)/128)
1420 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1430 EXPO#=2^EXPO1
1440 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
1450 SCL#=SIGN*EXPO#*FRAC#
'1460 IF Abs(RE#)<=1E-38 THEN RE=0			'上と同様のREとRE#について
1470 SCLBB=SCL#/10^6
1480   GOTO 1500
1490 '
1500 ' *********** ADRESS OF <Gbb> DATA ******************
1501 DIM STB As Double
1502 DIM DTB As Double
1503 DIM KK As Long
1504 DIM SCLAB As Double
1510 STB=D(179)*256+D(180)                ' START BLOCK NO.
1520 DTB=(D(182)*256+D(183))*256+D(184)   ' DATA3 BYTE NO.
1530 KK=2
1540 X1=D(185)    
1541 X2=D(186)
1550 X3=D(187)    
1551 X4=D(188)
1560 SIGN=(-1)^((X1 AND 128)/128)
1570 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127		'ANDの表現はこれでいいのか？
1580 EXPO#=2^EXPO1
1590 FRAC#=(X2 OR 128)/128*X3/(128*256)+X4/(128*256*256)
1600 SCL#=SIGN*EXPO#*FRAC#
'1610 IF Abs(RE#)<=1E-38 THEN RE=0 			'RE#とREについて
1620 SCLAB=SCL#/10^6  
1630 GOTO 1650
1640 '
1650 '
'1651 DIM ERASE As Double
1660 D(256)=0				'配列Dの消去という意味　やり方わからん
1670 '
1680 '
1690 '
1691 DIM LOOPe As Double			'LOOPで定義するのはよくないかも．色が変わってる
1692 DIM DTM As Long			'LOOPで定義するのはよくないかも．色が変わってる
1700 LOOPe=Int(DTB/256)+1
1710 DIM DD As *Double			'()内をどう表現するか．文字はまずいらしい
1711     DD=calloc(SizeOf(Double)*(DTB+300))
1712     DD[0]=0.1
1713     DD[1]=0.2
1720 DIM BB(420) As Double
1730 DIM AF(420) As Double
1740 DIM AI(420) As Double
1741 DIM AR(420) As Double
1742 DIM I As Double
1750 OPEN "DAT3-14.FRK" As #1        'FILE NAME
1760 FIELD #1,128     'DATA BUFFER
'1760 FIELD #1,128 As X$     'DATA BUFFER
'1761 FIELD #1,128 As Y$     'DATA BUFFER
1770 FOR I=1 TO LOOPe 		'LOOPを他の文字に変えて表現しなくていいのか？
1780 '
1790   GET #1,STB+I,X$		'この辺から不安！！！！！！
1790   GET #1,STB+I,Y$
1800     FOR N=1 TO 128
1810       M=256*(I-1)+N
1820       DD(M)=Asc(Mid$(X$,N,1))
1830    NEXT
1840    FOR N=1 TO 128
1850      M=256*(I-1)+N+128
1860      DD(M)=Asc(Mid$(Y$,N,1))
1870    NEXT
1880 NEXT  					'この辺まで不安！！！！！！
1890 CLOSE  #1
1900 '
1910 '
1911 DIM P As Long
1712 DIM W As Long
1713 DIM S As Long
1714 DIM REAB As Double
1920 OPEN "DAT-GAB.DAT" FOR OUTPUT As #2        
1930 P=KK*4
1940 W=0
1950 S=0
1960 FOR N=1 TO DTB STEP P
1970 X1=DD(N)    
1971 X2=DD(N+1)
1980 X3=DD(N+2)  
1981 X4=DD(N+3)
1990 '
2000     SIGN=(-1)^((X1 AND 128)/128)
2010     EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
2020     EXPO#=2^EXPO1
2030     FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
2040     RE#=SIGN*EXPO#*FRAC#
2050     IF Abs(RE#)<=1E-38 THEN RE=0 :GOTO 2090	'この辺から不安！！！！！
2060     RE#=RE/10^6
2070     REAB=RE*SCLAB			'この辺まで不安！！！！！！
2080 '
2090 '
2100 '
2101 DIM X5 As Long
2102 DIM X6 As Long
2103 DIM X7 As Long
2104 DIM X8 As Long
2105 DIM IM As Double
2106 DIM IM# As Long
2107 DIM IMAB As Double
2108 DIM R As Double
2109 DIM CISO As Double
2110 X5=DD(N+4)
2111 X6=DD(N+5)   ' IMAG DATA READ
2120 X7=DD(N+6)
2121 X8=DD(N+7)
2130   SIGN=(-1)^((X5 AND 128)/128)
2140   EXPO1=((X5 AND 127)*2+(X6 AND 128)/128)-127
2150   EXPO#=2 ^ EXPO1
2160   FRAC#=(X6 OR 128)/128+X7/(128*256)+X8/(128*256*256)
2170   IM#=SIGN*EXPO#*FRAC#
2180   IF Abs(IM#)<=1E-38 THEN IM=0 :GOTO 2240	'この辺から不安！！！！！！！
2190   IM=IM#/10^6
2200   IMAB=IM*SCLAB
2210   R=Sqr(RE*RE+IM*IM)
2220       AI(S)=IM
2221       AR(S)=RE
2230     CISO=IM/RE         
2231     AF(S)=180/3.1415*Atn(CISO)
2232   BB(S)=R				'この辺まで不安！！！！！！！！
2233  '
2234  '
2235  '
2236  '
2237  '
2240     S=S+1
2250   PRINT #2 ,W,REAB,IMAB
2260    W=W+0.25
2270 NEXT N
2280 CLOSE #2
2290 '
2300 '
2310 LOOPe=Int(DTBAA/256)+1		'この辺から不安！！！！！！
'2320 DIM DD#(DTBAA+300) As Double
2321 DIM DD# As *Double
2322     DD#=calloc(SizeOf(Double)*(DTBAA+300))
2323 DD#[0]=0.1
2324 DD#[1]=0.2
2330 DIM BB#(420) As Long
'2340 DD#=calloc(DTBAA+300) 
2350 OPEN "DAT3-14.FRK" As #1
2360 FIELD #1,128
'2360 FIELD #1,128 AS X$
'2361 FIELD #1,128 AS Y$
2370 FOR I=1 TO LOOPe
2380 '
2390  GET #1,STBAA+I,X$
2390  GET #1,STBAA+I,Y$
2400  FOR N=1 TO 128
2410  M=256*(I-1)+N
2420  DD#(M)=Asc(Mid$(X$,N,1)) 
2430  NEXT
2440  FOR N=1 TO 128
2450  M=256*(I-1)+N+128
2460  DD#(M)=Asc(Mid$(Y$,N,1))	'この辺まで不安！！！！！！
2470  NEXT
2480  '
2490   NEXT
2500  '
2510  CLOSE #1
2520 OPEN "DAT-GAA.DAT" FOR OUTPUT As #2
2530 '
2540 S=0 
2550 W=0
2560 P=4
2570 FOR N=1 TO  DTBAA STEP P
2580  X1=DD#(N)    :X2=DD#(N+1)
2590  X3=DD#(N+2)  :X4=DD#(N+3)
2600  SIGN=(-1)^((X1 AND 128)/128)
2610  EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
2620  EXPO#=2^EXPO1
2630  FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
2640  RE#=SIGN*EXPO#*FRAC#
2650  IF Abs(RE#)<=1E-38 THEN RE=0 :GOTO 2700
2660  RE=RE#/10^6		'この辺のREの区別が不安！！！！！！
2661 DIM GAA As Double
2670  GAA=SCLAA*RE
2680  BB#(S)=1/RE
2690  S=S+1
2700
2710    PRINT #2 ,W,GAA
2720    W=W+0.25
2730    NEXT  N
2740 '
2750 CLOSE #2
2760 '
2761 DIM GAI As Double
2762 DIM GAIN As Double
2763 DIM GAINY As Double
2764 DIM GAINN As Double
2765 DIM GAIN# As Double
2766 DIM FASE As Double
2770 OPEN "GAIN.DAT" FOR OUTPUT As #2
2780 W=0.25
2790 FOR S=1 TO 400
2800 GAI=BB(S)*BB#(S)
2810  GAIN=Log(GAI)
2820     GAINY=Log(10)
2830     GAINN=GAIN/GAINY
2840 GAIN#=20*GAINN
2841 FASE=AF(S)
2842 IF AR(S)>0 AND AI(S)>0 THEN FASE=FASE	'この辺から不安！！！！！
2843 IF AR(S)>0 AND AI(S)<0 THEN FASE=FASE
2844 IF AR(S)<0 AND AI(S)<0 THEN FASE=FASE-180
2845 IF AR(S)<0 AND AI(S)>0 THEN FASE=FASE+180	'この辺まで不安！！！！！
2850 PRINT #2,W,GAIN#,FASE
2860 W=W+0.25
2870 NEXT S
2880 CLOSE #2
2900 '
2910 '   
2920 LOOPe=Int(DTBBB/256)
2930 DIM DDD As *Double
2931     DDD=calloc(SizeOf(Double)*(DTBBB+300))
2932     DDD[0]=0.1
2933     DDD[1]=0.2
'2940 DDD=calloc(DTBBB+300)
2950 OPEN "DAT3-14.FRK" As #1	'この辺から不安！！！！！
2960 FIELD #1,128
'2960 FIELD #1,128 AS X$
'2961 FIELD #1,128 AS Y$
2970 FOR I=1 TO LOOPe 
2980 '
2990 GET #1,STBBB+I,X$
2991 GET #1,STBBB+I,Y$
3000 FOR N=1 TO 128
3010 M=256*(I-1)+N
3020 DDD(M)=Asc(Mid$(X$,N,1))
3030 NEXT
3040 FOR N=1 TO 128
3050 M=256*(I-1)+N+128
3060 DDD(M)=Asc(Mid$(Y$,N,1))	'この辺まで不安！！！！！
3070 NEXT
3080 '
3090 NEXT
3100 CLOSE #1
3110 '
2930 DIM GBB# As Double
2930 DIM GBB As Double
3111  OPEN "DAT-GBB.DAT" FOR OUTPUT As #2
3112 '
3113 W=0
3120 P=4
3130 FOR N=1 TO DTBBB STEP P
3140 X1=DDD(N)    
3141 X2=DDD(N+1)
3150 X3=DDD(N+2)  
3151 X4=DDD(N+3)
3160 SIGN=(-1)^((X1 and 128)/128)
3170 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
3180 EXPO#=2^EXPO1
3190 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
3200 GBB#=SIGN*EXPO#*FRAC#
3210 IF Abs(GBB#)<=1E-38 THEN GBB=0 :GOTO 3240 
3220 GBB=SCLBB*GBB#/10^6
3230 '
3240 '
3250 PRINT #2 ,W,GBB
3251 W=W+0.25
3260 NEXT N
3270 CLOSE #2
3280 free(DD)
3281 free(DD#)
3282 free(DDD)
3290 END

斉藤圭佑

対応策を丁寧にアドバイスしていただき、ありがとうございます。

konisiさんが作成されたプログラムをこちらで編集せずそのまま走らせてみたのですが、実行画面は固まってしまい、ソース画面には
“スレッド(&HF64)でアクセス違反がありました(EPI=&H00402518)”
と表示が出てしまい実行ができませんでした。

また、konisiさんと7さんのアドバイスを元に自分なりにプログラムを作ってみました。
konisiさんと7さんのアドバイスのおかげでコンパイル時のエラーはなんとか消えたのですが、実行を行う際に実行画面が固まってしまいます。プログラムのどこかがおかしいのでしょうか。

具体的にどこがおかしいかも知れないというところが判らないので質問が漠然としてしまい申し訳ありません。

以下にプログラム上でOpenされるファイルと、MS-DOS上で正常に実行された場合に書き出されるデータをアップしています。
http://briefcase.yahoo.co.jp/bc/keisukk ... http%3a//b

自分なりに作成したプログラムソースです。

[ここをクリックすると内容が表示されます]

コード: 全て選択


#N88BASIC
1000 '****************************************************
1010 ' FFTANA.BAS
1020 '*
1030 '************************************************************
1040 DIM D(256) As Byte		'型が合っているかどうか		
'1041 DIM PNT As Double
1042 DIM X$ As String
1043 DIM Y$ As String
1044 DIM N As Long
1045 DIM M As Double
'1050 PNT=400				'PNTは何を意味するのか	 point?
1060 OPEN "DAT3-14.FRK" As #1         ' FILE NAME
1070 FIELD #1,128     ' DATA BUFFER
1080 Get #1,1,X$ 
1090 Get #1,1,Y$ 
1100 FOR N=1 TO 128
1120	D(N)=Asc(Mid$(X$,N,1))
1130 NEXT
1140 FOR N=1 TO 128
1160 	D(N+128)=Asc(Mid$(Y$,N,1))
1170 NEXT
1180 Close #1
1190 GOTO 1210
1200 '
1210 '************ ADRESS OF<Gaa> DATA *******************
1211 DIM STBAA As Long
1212 DIM DTBAA As Long
1220 STBAA=D(147)*256+D(148)                ' START BLOCK NO.
1230 DTBAA=(D(150)*256+D(151))*256+D(152)   ' DATA1 BYTE NO.
1231 DIM X1 As Long
1232 DIM X2 As Long
1233 DIM X3 As Long
1234 DIM X4 As Long
1240 X1=D(153)    
1241 X2=D(154)
1250 X3=D(155)
1251 X4=D(156)
1251 DIM SIGN As Double
1252 DIM EXPO1 As Double
1253 DIM EXPO# As Double
1254 DIM FRAC# As Double
1255 DIM SCL# As Double
1256 DIM RE As Double			'1310行のREとRE#のこと．どちらかなのか両方定義するのかわからん
1257 DIM RE# As Double			'イマのところREとRE#を区別して両方定義している　2060参照　別の意味として扱ってるっぽい
1258 DIM SCLAA As Double
1260 SIGN=(-1)^((X1 AND 128)/128)
1270 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1280 EXPO#=2^EXPO1
1290 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
1300 SCL#=SIGN*EXPO#*FRAC#
'1310 IF Abs(RE#)<=1E-38 THEN RE#=0
1320 SCLAA=SCL#/10^6
1330 GOTO 1350
1340 '
1350 '************* ADRESS OF <Gbb> DATA *****************
1351 DIM STBBB As Double
1352 DIM DTBBB As Double
1353 DIM SCLBB As Double
1360 STBBB=D(163)*256+D(164)                ' START BLOCK NO.
1370 DTBBB=(D(166)*256+D(167))*256+D(168)   ' DATA BYTE NO.
1380 '
1390 X1=D(169)    
1391 X2=D(170)
1400 X3=D(171)    
1401 X4=D(172)
1410 SIGN=(-1)^((X1 AND 128)/128)
1420 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1430 EXPO#=2^EXPO1
1440 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
1450 SCL#=SIGN*EXPO#*FRAC#
'1460 IF Abs(RE#)<=1E-38 THEN RE=0			'上と同様のREとRE#について
1470 SCLBB=SCL#/10^6
1480   GOTO 1500
1490 '
1500 ' *********** ADRESS OF <Gbb> DATA ******************
1501 DIM STB As Double
1502 DIM DTB As Double
1503 DIM KK As Long
1504 DIM SCLAB As Double
1510 STB=D(179)*256+D(180)                ' START BLOCK NO.
1520 DTB=(D(182)*256+D(183))*256+D(184)   ' DATA3 BYTE NO.
1530 KK=2
1540 X1=D(185)    
1541 X2=D(186)
1550 X3=D(187)    
1551 X4=D(188)
1560 SIGN=(-1)^((X1 AND 128)/128)
1570 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127		'ANDの表現はこれでいいのか？
1580 EXPO#=2^EXPO1
1590 FRAC#=(X2 OR 128)/128*X3/(128*256)+X4/(128*256*256)
1600 SCL#=SIGN*EXPO#*FRAC#
'1610 IF Abs(RE#)<=1E-38 THEN RE=0 			'RE#とREについて
1620 SCLAB=SCL#/10^6  
1630 GOTO 1650
1640 '
1650 '
'1651 DIM ERASE As Double
1660 D(256)=0				'配列Dの消去という意味　やり方わからん
1670 '
1680 '
1690 '
1691 DIM LOOPe As Double			'LOOPで定義するのはよくないかも．色が変わってる
1692 DIM DTM As Long			'LOOPで定義するのはよくないかも．色が変わってる
1700 LOOPe=Int(DTB/256)+1
1710 DIM DD As *Double			'()内をどう表現するか．文字はまずいらしい
1711     DD=calloc(SizeOf(Double)*(DTB+300))
1712     DD[0]=0.1
1713     DD[1]=0.2
1720 DIM BB(420) As Double
1730 DIM AF(420) As Double
1740 DIM AI(420) As Double
1741 DIM AR(420) As Double
1742 DIM I As Double
1750 OPEN "DAT3-14.FRK" As #1        'FILE NAME
1760 FIELD #1,128     'DATA BUFFER
'1760 FIELD #1,128 As X$     'DATA BUFFER
'1761 FIELD #1,128 As Y$     'DATA BUFFER
1770 FOR I=1 TO LOOPe 		'LOOPを他の文字に変えて表現しなくていいのか？
1780 '
1790   GET #1,STB+I,X$		'この辺から不安！！！！！！
1790   GET #1,STB+I,Y$
1800     FOR N=1 TO 128
1810       M=256*(I-1)+N
1820       DD(M)=Asc(Mid$(X$,N,1))
1830    NEXT
1840    FOR N=1 TO 128
1850      M=256*(I-1)+N+128
1860      DD(M)=Asc(Mid$(Y$,N,1))
1870    NEXT
1880 NEXT  					'この辺まで不安！！！！！！
1890 CLOSE  #1
1900 '
1910 '
1911 DIM P As Long
1712 DIM W As Long
1713 DIM S As Long
1714 DIM REAB As Double
1920 OPEN "DAT-GAB.DAT" FOR OUTPUT As #2        
1930 P=KK*4
1940 W=0
1950 S=0
1960 FOR N=1 TO DTB STEP P
1970 X1=DD(N)    
1971 X2=DD(N+1)
1980 X3=DD(N+2)  
1981 X4=DD(N+3)
1990 '
2000     SIGN=(-1)^((X1 AND 128)/128)
2010     EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
2020     EXPO#=2^EXPO1
2030     FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
2040     RE#=SIGN*EXPO#*FRAC#
2050     IF Abs(RE#)<=1E-38 THEN RE=0 :GOTO 2090	'この辺から不安！！！！！
2060     RE#=RE/10^6
2070     REAB=RE*SCLAB			'この辺まで不安！！！！！！
2080 '
2090 '
2100 '
2101 DIM X5 As Long
2102 DIM X6 As Long
2103 DIM X7 As Long
2104 DIM X8 As Long
2105 DIM IM As Double
2106 DIM IM# As Long
2107 DIM IMAB As Double
2108 DIM R As Double
2109 DIM CISO As Double
2110 X5=DD(N+4)
2111 X6=DD(N+5)   ' IMAG DATA READ
2120 X7=DD(N+6)
2121 X8=DD(N+7)
2130   SIGN=(-1)^((X5 AND 128)/128)
2140   EXPO1=((X5 AND 127)*2+(X6 AND 128)/128)-127
2150   EXPO#=2 ^ EXPO1
2160   FRAC#=(X6 OR 128)/128+X7/(128*256)+X8/(128*256*256)
2170   IM#=SIGN*EXPO#*FRAC#
2180   IF Abs(IM#)<=1E-38 THEN IM=0 :GOTO 2240	'この辺から不安！！！！！！！
2190   IM=IM#/10^6
2200   IMAB=IM*SCLAB
2210   R=Sqr(RE*RE+IM*IM)
2220       AI(S)=IM
2221       AR(S)=RE
2230     CISO=IM/RE         
2231     AF(S)=180/3.1415*Atn(CISO)
2232   BB(S)=R				'この辺まで不安！！！！！！！！
2233  '
2234  '
2235  '
2236  '
2237  '
2240     S=S+1
2250   PRINT #2 ,W,REAB,IMAB
2260    W=W+0.25
2270 NEXT N
2280 CLOSE #2
2290 '
2300 '
2310 LOOPe=Int(DTBAA/256)+1		'この辺から不安！！！！！！
'2320 DIM DD#(DTBAA+300) As Double
2321 DIM DD# As *Double
2322     DD#=calloc(SizeOf(Double)*(DTBAA+300))
2323 DD#[0]=0.1
2324 DD#[1]=0.2
2330 DIM BB#(420) As Long
'2340 DD#=calloc(DTBAA+300) 
2350 OPEN "DAT3-14.FRK" As #1
2360 FIELD #1,128
'2360 FIELD #1,128 AS X$
'2361 FIELD #1,128 AS Y$
2370 FOR I=1 TO LOOPe
2380 '
2390  GET #1,STBAA+I,X$
2390  GET #1,STBAA+I,Y$
2400  FOR N=1 TO 128
2410  M=256*(I-1)+N
2420  DD#(M)=Asc(Mid$(X$,N,1)) 
2430  NEXT
2440  FOR N=1 TO 128
2450  M=256*(I-1)+N+128
2460  DD#(M)=Asc(Mid$(Y$,N,1))	'この辺まで不安！！！！！！
2470  NEXT
2480  '
2490   NEXT
2500  '
2510  CLOSE #1
2520 OPEN "DAT-GAA.DAT" FOR OUTPUT As #2
2530 '
2540 S=0 
2550 W=0
2560 P=4
2570 FOR N=1 TO  DTBAA STEP P
2580  X1=DD#(N)    :X2=DD#(N+1)
2590  X3=DD#(N+2)  :X4=DD#(N+3)
2600  SIGN=(-1)^((X1 AND 128)/128)
2610  EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
2620  EXPO#=2^EXPO1
2630  FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
2640  RE#=SIGN*EXPO#*FRAC#
2650  IF Abs(RE#)<=1E-38 THEN RE=0 :GOTO 2700
2660  RE=RE#/10^6		'この辺のREの区別が不安！！！！！！
2661 DIM GAA As Double
2670  GAA=SCLAA*RE
2680  BB#(S)=1/RE
2690  S=S+1
2700
2710    PRINT #2 ,W,GAA
2720    W=W+0.25
2730    NEXT  N
2740 '
2750 CLOSE #2
2760 '
2761 DIM GAI As Double
2762 DIM GAIN As Double
2763 DIM GAINY As Double
2764 DIM GAINN As Double
2765 DIM GAIN# As Double
2766 DIM FASE As Double
2770 OPEN "GAIN.DAT" FOR OUTPUT As #2
2780 W=0.25
2790 FOR S=1 TO 400
2800 GAI=BB(S)*BB#(S)
2810  GAIN=Log(GAI)
2820     GAINY=Log(10)
2830     GAINN=GAIN/GAINY
2840 GAIN#=20*GAINN
2841 FASE=AF(S)
2842 IF AR(S)>0 AND AI(S)>0 THEN FASE=FASE	'この辺から不安！！！！！
2843 IF AR(S)>0 AND AI(S)<0 THEN FASE=FASE
2844 IF AR(S)<0 AND AI(S)<0 THEN FASE=FASE-180
2845 IF AR(S)<0 AND AI(S)>0 THEN FASE=FASE+180	'この辺まで不安！！！！！
2850 PRINT #2,W,GAIN#,FASE
2860 W=W+0.25
2870 NEXT S
2880 CLOSE #2
2900 '
2910 '   
2920 LOOPe=Int(DTBBB/256)
2930 DIM DDD As *Double
2931     DDD=calloc(SizeOf(Double)*(DTBBB+300))
2932     DDD[0]=0.1
2933     DDD[1]=0.2
'2940 DDD=calloc(DTBBB+300)
2950 OPEN "DAT3-14.FRK" As #1	'この辺から不安！！！！！
2960 FIELD #1,128
'2960 FIELD #1,128 AS X$
'2961 FIELD #1,128 AS Y$
2970 FOR I=1 TO LOOPe 
2980 '
2990 GET #1,STBBB+I,X$
2991 GET #1,STBBB+I,Y$
3000 FOR N=1 TO 128
3010 M=256*(I-1)+N
3020 DDD(M)=Asc(Mid$(X$,N,1))
3030 NEXT
3040 FOR N=1 TO 128
3050 M=256*(I-1)+N+128
3060 DDD(M)=Asc(Mid$(Y$,N,1))	'この辺まで不安！！！！！
3070 NEXT
3080 '
3090 NEXT
3100 CLOSE #1
3110 '
2930 DIM GBB# As Double
2930 DIM GBB As Double
3111  OPEN "DAT-GBB.DAT" FOR OUTPUT As #2
3112 '
3113 W=0
3120 P=4
3130 FOR N=1 TO DTBBB STEP P
3140 X1=DDD(N)    
3141 X2=DDD(N+1)
3150 X3=DDD(N+2)  
3151 X4=DDD(N+3)
3160 SIGN=(-1)^((X1 and 128)/128)
3170 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
3180 EXPO#=2^EXPO1
3190 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
3200 GBB#=SIGN*EXPO#*FRAC#
3210 IF Abs(GBB#)<=1E-38 THEN GBB=0 :GOTO 3240 
3220 GBB=SCLBB*GBB#/10^6
3230 '
3240 '
3250 PRINT #2 ,W,GBB
3251 W=W+0.25
3260 NEXT N
3270 CLOSE #2
3280 free(DD)
3281 free(DD#)
3282 free(DDD)
3290 END

斉藤圭佑

対応策を丁寧にアドバイスしていただき、ありがとうございます。

konisiさんが作成されたプログラムをこちらで編集せずそのまま走らせてみたのですが、実行画面は固まってしまい、ソース画面には
“スレッド(&HF64)でアクセス違反がありました(EPI=&H00402518)”
と表示が出てしまい実行ができませんでした。

また、konisiさんと7さんのアドバイスを元に自分なりにプログラムを作ってみました。
konisiさんと7さんのアドバイスのおかげでコンパイル時のエラーはなんとか消えたのですが、実行を行う際に実行画面が固まってしまいます。プログラムのどこかがおかしいのでしょうか。

具体的にどこがおかしいかも知れないというところが判らないので質問が漠然としてしまい申し訳ありません。

以下にプログラム上でOpenされるファイルと、MS-DOS上で正常に実行された場合に書き出されるデータをアップしています。
http://briefcase.yahoo.co.jp/bc/keisukk ... http%3a//b

自分なりに作成したプログラムソースです。

[ここをクリックすると内容が表示されます]

コード: 全て選択


#N88BASIC
1000 '****************************************************
1010 ' FFTANA.BAS
1020 '*
1030 '************************************************************
1040 DIM D(256) As Byte		'型が合っているかどうか		
'1041 DIM PNT As Double
1042 DIM X$ As String
1043 DIM Y$ As String
1044 DIM N As Long
1045 DIM M As Double
'1050 PNT=400				'PNTは何を意味するのか	 point?
1060 OPEN "DAT3-14.FRK" As #1         ' FILE NAME
1070 FIELD #1,128     ' DATA BUFFER
1080 Get #1,1,X$ 
1090 Get #1,1,Y$ 
1100 FOR N=1 TO 128
1120	D(N)=Asc(Mid$(X$,N,1))
1130 NEXT
1140 FOR N=1 TO 128
1160 	D(N+128)=Asc(Mid$(Y$,N,1))
1170 NEXT
1180 Close #1
1190 GOTO 1210
1200 '
1210 '************ ADRESS OF<Gaa> DATA *******************
1211 DIM STBAA As Long
1212 DIM DTBAA As Long
1220 STBAA=D(147)*256+D(148)                ' START BLOCK NO.
1230 DTBAA=(D(150)*256+D(151))*256+D(152)   ' DATA1 BYTE NO.
1231 DIM X1 As Long
1232 DIM X2 As Long
1233 DIM X3 As Long
1234 DIM X4 As Long
1240 X1=D(153)    
1241 X2=D(154)
1250 X3=D(155)
1251 X4=D(156)
1251 DIM SIGN As Double
1252 DIM EXPO1 As Double
1253 DIM EXPO# As Double
1254 DIM FRAC# As Double
1255 DIM SCL# As Double
1256 DIM RE As Double			'1310行のREとRE#のこと．どちらかなのか両方定義するのかわからん
1257 DIM RE# As Double			'イマのところREとRE#を区別して両方定義している　2060参照　別の意味として扱ってるっぽい
1258 DIM SCLAA As Double
1260 SIGN=(-1)^((X1 AND 128)/128)
1270 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1280 EXPO#=2^EXPO1
1290 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
1300 SCL#=SIGN*EXPO#*FRAC#
'1310 IF Abs(RE#)<=1E-38 THEN RE#=0
1320 SCLAA=SCL#/10^6
1330 GOTO 1350
1340 '
1350 '************* ADRESS OF <Gbb> DATA *****************
1351 DIM STBBB As Double
1352 DIM DTBBB As Double
1353 DIM SCLBB As Double
1360 STBBB=D(163)*256+D(164)                ' START BLOCK NO.
1370 DTBBB=(D(166)*256+D(167))*256+D(168)   ' DATA BYTE NO.
1380 '
1390 X1=D(169)    
1391 X2=D(170)
1400 X3=D(171)    
1401 X4=D(172)
1410 SIGN=(-1)^((X1 AND 128)/128)
1420 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
1430 EXPO#=2^EXPO1
1440 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
1450 SCL#=SIGN*EXPO#*FRAC#
'1460 IF Abs(RE#)<=1E-38 THEN RE=0			'上と同様のREとRE#について
1470 SCLBB=SCL#/10^6
1480   GOTO 1500
1490 '
1500 ' *********** ADRESS OF <Gbb> DATA ******************
1501 DIM STB As Double
1502 DIM DTB As Double
1503 DIM KK As Long
1504 DIM SCLAB As Double
1510 STB=D(179)*256+D(180)                ' START BLOCK NO.
1520 DTB=(D(182)*256+D(183))*256+D(184)   ' DATA3 BYTE NO.
1530 KK=2
1540 X1=D(185)    
1541 X2=D(186)
1550 X3=D(187)    
1551 X4=D(188)
1560 SIGN=(-1)^((X1 AND 128)/128)
1570 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127		'ANDの表現はこれでいいのか？
1580 EXPO#=2^EXPO1
1590 FRAC#=(X2 OR 128)/128*X3/(128*256)+X4/(128*256*256)
1600 SCL#=SIGN*EXPO#*FRAC#
'1610 IF Abs(RE#)<=1E-38 THEN RE=0 			'RE#とREについて
1620 SCLAB=SCL#/10^6  
1630 GOTO 1650
1640 '
1650 '
'1651 DIM ERASE As Double
1660 D(256)=0				'配列Dの消去という意味　やり方わからん
1670 '
1680 '
1690 '
1691 DIM LOOPe As Double			'LOOPで定義するのはよくないかも．色が変わってる
1692 DIM DTM As Long			'LOOPで定義するのはよくないかも．色が変わってる
1700 LOOPe=Int(DTB/256)+1
1710 DIM DD As *Double			'()内をどう表現するか．文字はまずいらしい
1711     DD=calloc(SizeOf(Double)*(DTB+300))
1712     DD[0]=0.1
1713     DD[1]=0.2
1720 DIM BB(420) As Double
1730 DIM AF(420) As Double
1740 DIM AI(420) As Double
1741 DIM AR(420) As Double
1742 DIM I As Double
1750 OPEN "DAT3-14.FRK" As #1        'FILE NAME
1760 FIELD #1,128     'DATA BUFFER
'1760 FIELD #1,128 As X$     'DATA BUFFER
'1761 FIELD #1,128 As Y$     'DATA BUFFER
1770 FOR I=1 TO LOOPe 		'LOOPを他の文字に変えて表現しなくていいのか？
1780 '
1790   GET #1,STB+I,X$		'この辺から不安！！！！！！
1790   GET #1,STB+I,Y$
1800     FOR N=1 TO 128
1810       M=256*(I-1)+N
1820       DD(M)=Asc(Mid$(X$,N,1))
1830    NEXT
1840    FOR N=1 TO 128
1850      M=256*(I-1)+N+128
1860      DD(M)=Asc(Mid$(Y$,N,1))
1870    NEXT
1880 NEXT  					'この辺まで不安！！！！！！
1890 CLOSE  #1
1900 '
1910 '
1911 DIM P As Long
1712 DIM W As Long
1713 DIM S As Long
1714 DIM REAB As Double
1920 OPEN "DAT-GAB.DAT" FOR OUTPUT As #2        
1930 P=KK*4
1940 W=0
1950 S=0
1960 FOR N=1 TO DTB STEP P
1970 X1=DD(N)    
1971 X2=DD(N+1)
1980 X3=DD(N+2)  
1981 X4=DD(N+3)
1990 '
2000     SIGN=(-1)^((X1 AND 128)/128)
2010     EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
2020     EXPO#=2^EXPO1
2030     FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
2040     RE#=SIGN*EXPO#*FRAC#
2050     IF Abs(RE#)<=1E-38 THEN RE=0 :GOTO 2090	'この辺から不安！！！！！
2060     RE#=RE/10^6
2070     REAB=RE*SCLAB			'この辺まで不安！！！！！！
2080 '
2090 '
2100 '
2101 DIM X5 As Long
2102 DIM X6 As Long
2103 DIM X7 As Long
2104 DIM X8 As Long
2105 DIM IM As Double
2106 DIM IM# As Long
2107 DIM IMAB As Double
2108 DIM R As Double
2109 DIM CISO As Double
2110 X5=DD(N+4)
2111 X6=DD(N+5)   ' IMAG DATA READ
2120 X7=DD(N+6)
2121 X8=DD(N+7)
2130   SIGN=(-1)^((X5 AND 128)/128)
2140   EXPO1=((X5 AND 127)*2+(X6 AND 128)/128)-127
2150   EXPO#=2 ^ EXPO1
2160   FRAC#=(X6 OR 128)/128+X7/(128*256)+X8/(128*256*256)
2170   IM#=SIGN*EXPO#*FRAC#
2180   IF Abs(IM#)<=1E-38 THEN IM=0 :GOTO 2240	'この辺から不安！！！！！！！
2190   IM=IM#/10^6
2200   IMAB=IM*SCLAB
2210   R=Sqr(RE*RE+IM*IM)
2220       AI(S)=IM
2221       AR(S)=RE
2230     CISO=IM/RE         
2231     AF(S)=180/3.1415*Atn(CISO)
2232   BB(S)=R				'この辺まで不安！！！！！！！！
2233  '
2234  '
2235  '
2236  '
2237  '
2240     S=S+1
2250   PRINT #2 ,W,REAB,IMAB
2260    W=W+0.25
2270 NEXT N
2280 CLOSE #2
2290 '
2300 '
2310 LOOPe=Int(DTBAA/256)+1		'この辺から不安！！！！！！
'2320 DIM DD#(DTBAA+300) As Double
2321 DIM DD# As *Double
2322     DD#=calloc(SizeOf(Double)*(DTBAA+300))
2323 DD#[0]=0.1
2324 DD#[1]=0.2
2330 DIM BB#(420) As Long
'2340 DD#=calloc(DTBAA+300) 
2350 OPEN "DAT3-14.FRK" As #1
2360 FIELD #1,128
'2360 FIELD #1,128 AS X$
'2361 FIELD #1,128 AS Y$
2370 FOR I=1 TO LOOPe
2380 '
2390  GET #1,STBAA+I,X$
2390  GET #1,STBAA+I,Y$
2400  FOR N=1 TO 128
2410  M=256*(I-1)+N
2420  DD#(M)=Asc(Mid$(X$,N,1)) 
2430  NEXT
2440  FOR N=1 TO 128
2450  M=256*(I-1)+N+128
2460  DD#(M)=Asc(Mid$(Y$,N,1))	'この辺まで不安！！！！！！
2470  NEXT
2480  '
2490   NEXT
2500  '
2510  CLOSE #1
2520 OPEN "DAT-GAA.DAT" FOR OUTPUT As #2
2530 '
2540 S=0 
2550 W=0
2560 P=4
2570 FOR N=1 TO  DTBAA STEP P
2580  X1=DD#(N)    :X2=DD#(N+1)
2590  X3=DD#(N+2)  :X4=DD#(N+3)
2600  SIGN=(-1)^((X1 AND 128)/128)
2610  EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
2620  EXPO#=2^EXPO1
2630  FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
2640  RE#=SIGN*EXPO#*FRAC#
2650  IF Abs(RE#)<=1E-38 THEN RE=0 :GOTO 2700
2660  RE=RE#/10^6		'この辺のREの区別が不安！！！！！！
2661 DIM GAA As Double
2670  GAA=SCLAA*RE
2680  BB#(S)=1/RE
2690  S=S+1
2700
2710    PRINT #2 ,W,GAA
2720    W=W+0.25
2730    NEXT  N
2740 '
2750 CLOSE #2
2760 '
2761 DIM GAI As Double
2762 DIM GAIN As Double
2763 DIM GAINY As Double
2764 DIM GAINN As Double
2765 DIM GAIN# As Double
2766 DIM FASE As Double
2770 OPEN "GAIN.DAT" FOR OUTPUT As #2
2780 W=0.25
2790 FOR S=1 TO 400
2800 GAI=BB(S)*BB#(S)
2810  GAIN=Log(GAI)
2820     GAINY=Log(10)
2830     GAINN=GAIN/GAINY
2840 GAIN#=20*GAINN
2841 FASE=AF(S)
2842 IF AR(S)>0 AND AI(S)>0 THEN FASE=FASE	'この辺から不安！！！！！
2843 IF AR(S)>0 AND AI(S)<0 THEN FASE=FASE
2844 IF AR(S)<0 AND AI(S)<0 THEN FASE=FASE-180
2845 IF AR(S)<0 AND AI(S)>0 THEN FASE=FASE+180	'この辺まで不安！！！！！
2850 PRINT #2,W,GAIN#,FASE
2860 W=W+0.25
2870 NEXT S
2880 CLOSE #2
2900 '
2910 '   
2920 LOOPe=Int(DTBBB/256)
2930 DIM DDD As *Double
2931     DDD=calloc(SizeOf(Double)*(DTBBB+300))
2932     DDD[0]=0.1
2933     DDD[1]=0.2
'2940 DDD=calloc(DTBBB+300)
2950 OPEN "DAT3-14.FRK" As #1	'この辺から不安！！！！！
2960 FIELD #1,128
'2960 FIELD #1,128 AS X$
'2961 FIELD #1,128 AS Y$
2970 FOR I=1 TO LOOPe 
2980 '
2990 GET #1,STBBB+I,X$
2991 GET #1,STBBB+I,Y$
3000 FOR N=1 TO 128
3010 M=256*(I-1)+N
3020 DDD(M)=Asc(Mid$(X$,N,1))
3030 NEXT
3040 FOR N=1 TO 128
3050 M=256*(I-1)+N+128
3060 DDD(M)=Asc(Mid$(Y$,N,1))	'この辺まで不安！！！！！
3070 NEXT
3080 '
3090 NEXT
3100 CLOSE #1
3110 '
2930 DIM GBB# As Double
2930 DIM GBB As Double
3111  OPEN "DAT-GBB.DAT" FOR OUTPUT As #2
3112 '
3113 W=0
3120 P=4
3130 FOR N=1 TO DTBBB STEP P
3140 X1=DDD(N)    
3141 X2=DDD(N+1)
3150 X3=DDD(N+2)  
3151 X4=DDD(N+3)
3160 SIGN=(-1)^((X1 and 128)/128)
3170 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
3180 EXPO#=2^EXPO1
3190 FRAC#=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
3200 GBB#=SIGN*EXPO#*FRAC#
3210 IF Abs(GBB#)<=1E-38 THEN GBB=0 :GOTO 3240 
3220 GBB=SCLBB*GBB#/10^6
3230 '
3240 '
3250 PRINT #2 ,W,GBB
3251 W=W+0.25
3260 NEXT N
3270 CLOSE #2
3280 free(DD)
3281 free(DD#)
3282 free(DDD)
3290 END

斉藤圭佑

同じ内容を３回も送信してしまいました。
また、ログインせずに送信してしまったので名前の下に“ゲスト”がついてしまいました。
以後気をつけます。

konisi

変数名の直後に＃や%、$を付ける事があるのは変数の型を識別するためのもので、RE#とREをAB上で区別する必要は無いはずです。

追伸
こちらでは(自分で書いた側の物は)正常に動いてますが・・・？
OS:WinXP SP2 Home
CPU:Intel Pentium D 3.0GHz
BIOS:FUJITSU製
Shell:Explorer

斉藤圭佑

私の方でも確認しましたが、AB上でREとRE#は区別する必要はありませんでした。失礼しました。

konisiさんの作成されたプログラムをこちらで走らせてみたところ、確かにエラーもなく正常に動作します。

しかし、元のプログラムであったBASICで実行させて書き出された結果と、
BASICを書き換えたActiveBasicで実行させて書き出された結果とが違ってしまいます。こちらで調査しているのですがなかなか解決の糸口が見つかりません。

BASIC上で実行させて書き出された結果は、前回投稿した際にリンクを貼ったものと同じですが、以下にアップします。
http://briefcase.yahoo.co.jp/bc/keisukk ... http%3a//b

また、X領域とY領域にの割り当てについてですが、過去に書いた人のプログラム説明を見るとX、Y両方とも必要な感じがするのですが。。。
以下に今回のプログラムをBASICで書いた人が書いたプログラム説明の一部を示します。

1060～1070 行
実験データの記録されたランダムファイル”DAT3-14.FRK”をオープンし，ランダムファイル用バッファ＃ 1 の設定を行う．領域X$に128byte を割り当て，領域Y$に128byte を割り当てる．

1090～1180 行
ランダムファイル用バッファ＃ 1 に読み込ませた実験データを配列D へ書き込む. ループを128 ずつに分割するのは，スケールファクタ算出プログラムと同様，ヘッダーブロックと拡張ヘッダーブロックに分割するためである．ヘッダーブロックの大きさは128byte で固定されており，配列D(1)～D(128) には領域X$のデータが読み込まれ，ヘッダーブロックの情報が読み込まれる．また，拡張ヘッダファイルの情報は，領域Y$に書き込まれた128byte の情報となり，配列D(129)～D(256) に読み込まれる．

マティ

斉藤圭佑さん問題は解決しましたか？
まだ、問題を抱えているのなら、変数の定義をもう一度見直してください。
あと、リンクを張ったデータで元データと変換後のデータは同一のものでしょうか？
（こちらでうまくいかないので質問しました）

ここからは技術補足

konisi さんが書きました:変数名の直後に＃や%、$を付ける事があるのは変数の型を識別するためのもので、RE#とREをAB上で区別する必要は無いはずです。

ActiveBasicでは、変数定義時に＃,%,$の意味は無くただの変数名として認識します。

しかし、マイクロソフト系のBasicでは、＃,%,$にも変数の定義の意味があります。
たとえば

コード: 全て選択

Dim D$
	D ="Test Data"
	Print D$

と

コード: 全て選択

Dim D As String
	D$="Test Data"
	Print D

は同じ結果になりますが、ActiveBasicでは変数が無いためコンパイルエラーになります。

結果的には、

コード: 全て選択

Dim D  As String
Dim D$ As String
	D$="Test Data"
	Print D

と変数を定義してコンパイルエラーを取りますが
変数D$に文字列を設定しているので、変数DをPrintしても何も表示されません！

このような、重複宣言がたくさんありますので、答えが一致しないと思われます。

斉藤圭佑

マティさん

残念ながら未だ問題は解決できていません。
マティさんのアドバイス通り、変数の定義から確認してみます。
また、リンクを貼ったデータ

「DAT3-14.FRK」　：　入力ファイル
「DAT-GAA.DAT」　：　出力ファイル
「DAT-GAB.DAT」　：　出力ファイル
「DAT-GBB.DAT」　：　出力ファイル
「GAIN.DAT」　：　出力ファイル

についてですが、こちらは全てPC9821Xn（MS-DOS上）のN88BASICで走らせた正しいデータです。
このデータと同様のものをDOS/V上のABで出力したいのですが。。。
未だ出力ファイル「DAT-GAA.DAT」、「DAT-GAB.DAT」、「DAT-GBB.DAT」、「GAIN.DAT」全て正しいデータと一致していない状態です。

現在、手立てとして考えているのは

コード: 全て選択


Open "DAT3-14.FRK" As #1
Field #1,256
Get #1,,X$
For N=1 To 256
D(N)=Asc(Mid$(X$,N,1))
Next

の部分を

コード: 全て選択


Open "DAT3-14.FRK" As #1
Field #1,128
Get #1,1,X$
Get #1,2,Y$
For N=1 To 128
D(N)=Asc(Mid$(X$,N,1))
Next
For N=1 To 128
D(N)=Asc(Mid$(Y$,N,1))
Next

のようにX$領域とY$領域で分けて表現するところは分けて記述して試しているところです。
X$領域にはD(1)～D(128)、Y$領域にはD(129)～D(256)と割り振るとN88BASICで作成した者の資料に書いてあったのでその通りにしようと思っているのですが、そもそもこの書き方であってるのかも不安です。

ar · #13 投稿記事 by ar » 2006年11月16日(木) 00:02

昨日、マティさんが確認しておられますが、本当に「DAT-GAB.DAT」は正しいものなのでしょうか？

プログラムを見ると、GABのデータ部分は「DAT3-14.FRK」の&h1B00から始まっているのだと思います。
また、該当箇所を実部と虚部の2変数で各4byteづつ読み込んでいるものと思います。
そこで実際に「DAT3-14.FRK」を見ると、
&h1B00～&h1B07が、&h00000000と&h00000000で、両変数とも0。
&h1B08～&h1B0Fが、&hC5C3A3AEと&hC6194685で、両変数とも負の値になり、SCLABを掛けたとしても最低同符号になるはずではないでしょうか。
ところが「DAT-GAB.DAT」ではw=0.25の値は正と負の数の異符号になっており、アップされたものが異なっているのではないかと思う次第です。

マティ

私もarさんと同じ見解です。

斉藤圭佑さん、N88BASICに以下の文を追加してサンプルファイルを作成していただけませんか？

コード: 全て選択

Print #2,Hex$(X1) & Hex$(X2) & Hex$(X3) & Hex$(X4) 
Print #2,Hex$(X5) & Hex$(X6) & Hex$(X7) & Hex$(X8)

追加するのは、既存のPrint #2の直前にお願いします。

河川屋

元プログラムがQuickBasicかN88BasicかFBasicかによって動きが変わります。

> プログラムの内容の概要は「バイナリデータをテキストデータに変換する」

まず、この部分が問題です。
バイナリデータとは、当然数値データとすると、
どこが整数でどこが実数か。また、実数バイナリとして、内部表現はどうなっているか?
これがわからないことには何もできません。
※ちなみに、実数で可能性があるのは、
　・ＩＥＥＥ754形式(QuickBasic)
　・ＭＢＦバイナリ(本家N88Basic,GW-BASIC)
　・MBFバイナリモトローラ形式(F-basic。ＭＢＦバイナリとバイト順が逆。)
以上、どれですか？
いずれにせよ、まず文字型から数値型へ自力変換しないことにはどうにもなりません。

> 1260 SIGN=(-1)^((X1 AND 128)/128)
> 1270 EXPO1=((X1 AND 127)*2+(X2 AND 128)/128)-127
> 1280 EXPO=2^EXPO1
> 1290 FRAC=(X2 OR 128)/128+X3/(128*256)+X4/(128*256*256)
> 1300 SCL=SIGN*EXPO*FRAC
これが文字型から数値型へ自力変換する部分にあたり、バイナリ形式により式が変わり、

ＩＥＥＥ７５４の場合：（非正規数には対応していない。）
SIGN=(-1)^((X4 AND 128)/128)
EXPO1=((X4 AND 127)*2+(X3 AND 128)/128)-127
EXPO=2^EXPO1
FRAC=1+(X3 AND 127)/128+X2/(128*256)+X1/(128*256*256)
SCL=SIGN*EXPO*FRAC

ＭＢＦバイナリの場合：
SIGN=(-1)^((X3 AND 128)/128)
EXPO1=X4-129
EXPO=2^EXPO1
FRAC=1+(X3 AND 127)/128+X2/(128*256)+X1/(128*256*256)
SCL=SIGN*EXPO*FRAC

Ｆ－ＢＡＳＩＣ（モトローラ流のＭＢＦバイナリ）の場合：
SIGN=(-1)^((X2 AND 128)/128)
EXPO1=X1-129
EXPO=2^EXPO1
FRAC=1+(X2 AND 127)/128+X3/(128*256)+X4/(128*256*256)
SCL=SIGN*EXPO*FRAC

のいずれかになる可能性が高いです。これで動く保証は無いけど。
※式のチェックは、QuickBqsic(PC9801用)で行なったものであり、
　ActiveBasicでチェックしたわけではない。

> 1060 OPEN "DAT3-14.FRK" As #1 ' FILE NAME
QuickBasicなどでは、
OPEN "R",#1,"DAT3-14.FRK",256　　または
OPEN "DAT3-14.FRK" AS #1 LEN=256
とすれば、任意のレコード長のランダムファイルがOPENできる。デフォは256。
N88Basicは256Byte固定。（正確には、basic起動時に指定可能。）
ActiveVasicはマニュアル見てもワケわかんない。
まず、output/input等を指定しないときはオールアクセス可とあって、ランダムとは書かれていない
ため、どう動くのか不明。で、レコード長の指定方法不明、デフォの長さも未記載。

> 1070 FIELD #1,128 As X$ ' DATA BUFFER
> 1071 FIELD #1,128 As Y$
QuickBasic、N88Basic、FBasic共通で、こう書いた場合の意味は、
レコード長の最初の128byteにX$を割り当てる。
レコード長の最初の128byteにY$を割り当てる。
となるから、結局、 X$とY$には同じ領域が割り当てられる。
以上より、下記のような割付も可能となる。

FIELD #1,4 as X$(1)
FOR I=2 TO 32
FIELD #1,(I-1)*4 AS DUMMY$,4 as X$(I)
NEXT
これで、X$(i)に4byteきざみでバッファが割り当てられる。

追記　コレは、元プログラムでは
FIELD #1,128 AS X$,128 AS Y$
と、１行に書かれていたものと思われる。
(N88BASICの最大文字列長は255Biteなので、どうしても２変数が必要となる。)

ActiveVasicのマニュアルには、
Field #filenumber, fieldbyte
とあり、変数名をどうやって割り当てるのか書かれていない。
（ひっとすると、fieldbyteがレコード長と対応し、
GET #1,recode,StrBuffer　のStrBufferがFieldに割り当てる変数？
　じゃあFieldに複数の変数を割り当てたい場合は構造体を使う？
　このへん、マニュアル不備です！　マニュアル＆サンプルがあまりに酷いので実験する気力なし。）

結論：
この手のプログラムを組むには、QuickBasicが便利。(WIN95に英語版が入っているから入手は困難ではないはず。)
MBFバイナリ、ＩＥＥＥ７５４のどちらも数値に変換する関数を持っているため。
ActiveBasicにはバイナリ－数値の変換関数は存在せず。
（ＩＥＥＥ７５４なら、GETWORDで単精度変数に強引に送り込めば何とかなりそうだが、マナー悪すぎのためやめたほうがいいと思う。）

ab.com コミュニティ

DimやGetの書き方

DimやGetの書き方

Re: DimやGetの書き方

Re: DimやGetの書き方

Re: DimやGetの書き方

Re: DimやGetの書き方

すいません。

Re: DimやGetの書き方