- ベストアンサー
エラーが出て困っています。デジタイザーを使ってグラフを数値化するプログラムを作成したい
Takochuの回答
- Takochu
- ベストアンサー率53% (82/154)
こんばんは。またまたまた、Takochu です。 > デジタイザーですが、ついにクリックした所の数値化に成功しました。 > PCとデジタイザー本体、そしてプログラムの設定をもう一回確認し、 > PCとデジタイザー再起動させたら出来ました。 > これで、グラフの数値化ができます。 エラーは全て無くなったということですね。 うまくいって良かったですね！ 結局、原因は何だったんでしょうか？ あと、プロットの表示が、まだだということですが、 > クリックした点がグラフ内にプロットされるプログラムがどうしようか > 迷っています。CIRCLE文をうまく操ればできるのでしょうか？ ちょっと意味が分かりにくいです。 プロットされるプログラム部分を、どうしたいのですか？ 具体的にお願いします。
関連するQ&A
- BASICからC言語に
BASICで for I=1 to 5:line input #2,w$:next I line input #2,COMMENT$ と書かれているプログラムをC言語に書き直したいのですがどのようにしたらいいのでしょうか？
- 締切済み
- C・C++・C#
- 「パスが見つかりません」というエラー
data.txtにセルの入力内容を出力したくて下記のようなプログラムを書きました。 ところが Open StrFN For Output As #IntFlNo のところで パスが見つかりません というエラーが出てしまいます。原因はわかりますでしょうか。 Sub test() Dim StrFN As String Dim i As Long Dim IntFlNo As Integer StrFN = "c\data.txt" IntFlNo = FreeFile Open StrFN For Output As #IntFlNo For i = 2 To 400000 Write #IntFlNo, Cells(i, 1) & "$" & Cells(i, 2) Next i Close #IntFlNo End Sub
- ベストアンサー
- Visual Basic
- BASICでの波形合成
学校でのBASICの宿題で、複数のSIN波を合成する問題で 100 CLS 3:LINE(0,240)-(640,240),7 110 INPUT"基本波の周期は";C 120 INPUT"基本波の振幅は";W 130 INPUT"基本波の移送は";F 140 INPUT"第何倍音まで計算する";N:DIM A(N),B(N) 150 FOR I=1 TO N 160 PRINT I;:INPUT "番目の倍音の振幅は";A(I) 170 PRINT I;:INPUT "番目の倍音の移送は";B(I) 180 NEXT I 190 FOR K=0 TO 360/C*2*3.14159# STEP 3.14159#/90 200 X=C*K-F:Y=-(W*SIN(K))+240:LINE-(X,Y),4 210 NEXT K 220 FOR G=1 TO N:PSET(0,240),3 230 FOR H=0 TO 360/C*2*3.14159# STEP 3.14159#/90 240 X=C/(G+1)*H-B(G):Y=-((A(G))*SIN(H))+240:LINE-(X,Y),3 250 NEXT H,G ここで描いたSIN波を合成した波を描く方法が分からない状態です。 どうにも解決できないのでここに質問しました。どなたか分かる方がいたら教えてください。
- 締切済み
- その他（プログラミング・開発）
- N88互換BASICで「メッセージの定義されてないエラーです」と出ます
N88互換BASICで「メッセージの定義されてないエラーです」と出ます… 最近プログラミングを始めた初心者です。 プログラムでエラーが出て困っています、どこが問題なのか改善方法を教えてください。 10 DIM A(100,100,100) 20 INPUT "B=";B 40 FOR i=1 to 100 step 1 50 FOR j=1 to 100 step 1 60 FOR k=1 to 100 step 1 70 A(i,j,k)=B 80 print A(i,j,k) 90 NEXT k 100 NEXT j 110 NEXT i こんな感じのものです。 配列変数を作って、Bの数値を全ての配列変数に代入したいです。 宜しくお願致します。
- ベストアンサー
- その他（プログラミング・開発）
- プログラムの見本を示してください！！
数学プログラムの授業をしています。：プログラム言語は「Basic」です。 今から問題と、少しやれたものについては、プログラムを記してみました。 問題の最後の 「※」部分が質問したいところです。ない場合は、何もわからないところです。 （１）DIMを用いて ５つの値をキーボードから入力して、そのうち最大の値を表示するプログラム ※90行目以降の「最大値」の表示の仕方がいまいちわかりません。 10:DIM (5) 20:FOR I=0 TO 4 30:INPUT I 40:NEXT I 50:S=0 60:FOR L=0 TO 4 70:S=S+A 80:NEXT L 90:PRINT ??? （２）FOR，NEXT分を使い、 S=2+(2+3)+(2+3+4)+ ........+(2+4+5+6+7+8+9+10) の計算をして Ｓを表示するプログラムを作りたい。 以上お願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- basicでの三角関数のグラフの書き方？？
active basicを使って、sinxのグラフを書こうとしたのですが、出来ません。以下のようにやってみたのですが、x軸と平行な点線が描かれるだけ…。 100 cls3 110 line(50,550)-(1050,550) 120 line(550,50)-(550,1050) 130 for i=0 to 360 140 x=i/360:y=sinx 150 xw=500*x+550:yw=500*y+550 160 pset (xw,yw) 170 line -(xw,yw) 180 next i 990 end どこを直せばいいのか分かりません。初心者なので…。 どなたか分かる方がいらっしゃったら、教えてください。 宜しくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- 【至急】文字を点滅させる方法は？
質問します。 下記のプログラムにおいて、 13 PRINT "只今、計算中です。少々お待ち下さい。" 14 PRINT "計算終了後、下記に結果を表示します。" の部分だけを点滅させたいのですが、色が変わる変化しかしません。COLOR 2と書けば点滅するはずですよね？ 1 CLS 2 REM 乱数を用いてサイコロ（6面体ダイス）を再現。12000回振って各自がほぼ2000回ずつ出るようなサイコロを目指す。 10 INPUT "乱数系列の値をいくつに設定しますか" ;X 13 PRINT "只今、計算中です。少々お待ち下さい。" 14 PRINT "計算終了後、下記に結果を表示します。" 20 RANDOMIZE X 30 DIM DICE(6) 40 FOR T=1 TO X 50 LET N=1+INT(6*RND) 60 FOR I=1 TO 6 70 IF N=I THEN LET DICE(I)=DICE(I)+1 80 NEXT I 90 NEXT T 100 PRINT 110 FOR J=1 TO 6 120 PRINT J;"の目は"; DICE(J);"回出ました。" 130 NEXT J 140 END よろしくお願いします。
- 締切済み
- Visual Basic
- Basicでのプログラムなのですが・・・
配列変数についてなのですが、 『20個のデータを入力し、大きい順に並べて表示するプログラム。』 なのですが… 言語：【BASIC】 ソフト：【N88】 を使用しています。 とりあえず、 10 DIM A(20) 20 FOR I=1 TO 20 30 INPUT A(I) 40 NEXT I まではわかるのですが、ここから先がわかりません。 ここから先はどのようにすればいいでしょうか。 どなたかご教授いただけると幸いです。
- 締切済み
- その他（プログラミング・開発）
- N88相互Basic for Windows95でのプログラム
初めて質問いたします。 ただいまN88相互Basic for Windows95というソフトを使用して「1～45の数字をランダムに並べて表示する」というプログラムを作成してみたのですが、どうしても数字が重複してしまうのです。どこが間違っているのか教えてください。 下記に自分の作成したプログラムを記入します。又、より効率のいい書き方があれば教えてください。よろしくお願いしますm(_ _)m 10 cls 20 input "今日は何月";tuki 30 input "何日";niti 40 for a=0 to tuki 50 for b=0 to niti 60 seki=rnd 70 next b 80 next a 90 cls 100 dim x(50) 110 x(0)=0 120 for s=1 to 45 130 x(s)=int(rnd*45) 140 for c=0 to s-1 150 if x(s)=x(c) or x(s)<1 then x(s)=int(rnd*45):goto 150 160 next c 170 if s=10+e then e=e+10:q=q+1 180 locate q*3,s-e:print x(s) 190 next s 一応流れとしましては、 「月と日を入力してランダムさを出す」 ↓ 「1～50のデータ数があるのを定義する」 ↓ 「今決めているデータの数字と今まで決めたデータの数字を比較して一緒か1未満なら決めなおす」 ↓ ↑ 「今までのと比較して、一緒じゃないなら数字を表示して次のデータへ」 という流れにしている予定ですが、どうやっても数字が重なってしまうので改善点があれば教えてください。お願いしますm(_ _)m
- ベストアンサー
- その他（プログラミング・開発）
- 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
- 締切済み
- その他（インターネット・Webサービス）
補足
すいませんTakochu師匠、、、。 またよろしくお願いします。 デジタイザーに関してですが、 デジタイザーの設定を変更したあと、 その設定を反映させるためにデジタイザー本体の再起動が必要だったのです。 何事も設定後は再起動させるものなのですね。 お騒がせしてすいませんでした、師匠。 で、プロットの表示についてですが、 明らかに説明不足でした。 デジタイザーのカーソルをクリックした時に、 その位置に対するプロットを 画面のグラフ内に表示させたいのです。 そのプログラムを作りたいのです。 つまり、このプログラムのような相対座標を含む場合の プロットの仕方を伝授させてもらいたいのです。 また、CIRCLE文の半径などは利用できないと前回指摘していただきましたが、 半径以外ならCIRCLE文は利用できるのでしょうか？ 今回もどうぞよろしくお願いします。 失礼します。