(1)同心円を描くプログラムを作成しなさい
(2)Sin、Cos曲線上で円を描くプログラムを作成しなさい
上の2つの問題です。
僕はプログラムに関してまったくの素人です。専攻も情報系ではないのに、なぜか授業でプログラムのレポートが出て困っています。
専門の方にとって、この問題が難しいのかどうかもわからないのですがどうぞお願いします。

A 回答 (4件)

中心がサインカーブの曲線上にある円の軌跡のプログラム


です。課題はこんなものでしょうか。
15や1000を掛けているのは特徴を出すために
拡大しているためです。
Private Sub Form_Click()
pai = 3.141592
For i = -360 To 360 Step 10
j = Sin(i * pai / 180) * 1000
cir i * 15 + 2000, j + 2000
Next i
End Sub

Function cir(i, j)
r = 400
For x = -r To r
y = Sqr(r ^ 2 - x ^ 2)
Form1.PSet (x + i, y + j)
Next x
For x = -r To r
y = -Sqr(r ^ 2 - x ^ 2)
Form1.PSet (x + i, y + j)
Next x
End Function
    • good
    • 0
この回答へのお礼

ありがとうございます!できました!
何度も書き込んでいただいて感謝してます。
人に頼って情けないですけどレポートできそうです。

お礼日時:2002/01/24 01:17

先の回答に誤りがあり訂正します。


それと前半の回答だけで済みません。
Private Sub Form_Click()
For i = 0 To 900 Step 100
r = 1000 - i
For x = -r To r
y = Sqr(r ^ 2 - x ^ 2)
Form1.PSet (x + 1000, y + 1000)
Next x
For x = -r To r
y = -Sqr(r ^ 2 - x ^ 2)
Form1.PSet (x + 1000, y + 1000)
Next x
Next i
End Sub
上記ではPsetを使っていますが、xの区画を小さくしてLineを使うようです。
    • good
    • 0

全く素人初歩的な回答でお恥ずかしいですが、分かって


いただければ。次ぎのステップでクリックしてください。
デスクトップの「プログラム」-MicrosoftVisualBasic6.0-
MicrosoftVisualBasic6.0-標準EXE-開く-Form1が出る
-表示-コード-(下記のコードを入力)-実行-Form1をクリックで円が描けます。
Private Sub Form1_Click()
For x=-1000 to 1000 Step 1
y=Sqr(1000000-x^2)
Form1.PSet(x+1000,y+1000)
Next x
'-------------
For x=-1000 to 1000 Step 1
y=-Sqr(1000000-x^2)
Form1.PSet(x+1000,y+1000)
Next x
End Sub
1000のところを変えると同心円が描けます。
例えばiを導入して最初の行に
For i=100 to 1000 step 100 を入れ
上記のプログラムを打ち込んで
x+1000のところを x+1000-i
y+1000のところを y+1000-i に変える。
next i で締めくくると良い。
x^2はxの2乗、1000000は1000の2乗
Step 1は1刻みで増やすこと、Sqrは平方根
Form1.Pset(x、y)はForm上の(x、y)に点を
打つこと、(0,0)はFormの左上隅にあって座標の第4象限のようなイメージです。中心は点(1000,1000)にして円を描いています。
    • good
    • 0

前提条件がまったく分からないのですが、座標等を自分で計算して描けということでしょうか?


それとも、とにかく何でもいいから円を描けということでしょうか?
前者であれば、数学の知識を使って画面に点を打つ方法が簡単ですし、
後者で有れば、円を描く命令を使ってしまうのが一番簡単です。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q等分布荷重って??

等分布荷重って??
棚の等分布荷重の試験を行いますが、
おもりはどうすればいいですか?

Aベストアンサー

理想的な回答は既にありました。

目的が何なのか分からないので、何とも言いようがありませんが、

例えばレンガを敷き詰めたのでも目的によっては十分でしょう。

また袋に砂をつめて、同一重量、同一形状にすれば、これを敷き詰めたのでも十分でしょう。

完全な等分布荷重とは言えませんが、それこそ目的によっては十分です。


長いコンクリートの橋なら自動車を並べたのでも等分布荷重となります。

Qc言語またはVBのSin Cos Tan

お世話になります

ふと思ったのですが

c言語やVBのSin Cos Tanって、パラメータはラジアンですよね。

でも、中学などで習うSin Cos Tanは直接角度を指定してましたよね?

【質問1】
なぜ、プログラミング言語ではラジアンなのでしょうか?

【質問2】
角度指定で求められる同等の関数が有りますでしょうか?

Aベストアンサー

VBとはちょっと違いますが、Excel-VBAでは、WorksheetFunction.Radiansで度をラジアンに、WorksheetFunction.Degreesでラジアンを度に変換できます。これは、Excelのワークシート関数にRadiansやDegreesが存在し、それをVBAで利用できる設計のためです。


ところで、プログラミングの古典的な位置付けにあるBASIC言語でも、三角関数の引数にはラジアンが使われており、かなり昔から、その分野では弧度法が用いられていた事が伺えます。


中学校の学習内容には微積分やプログラミングは入っていないので、直感的に解りやすい(アナログの丸い時計などに当てはめて考えやすい)度数法が優先して教えられるのでしょう。


内容が高度になるにつれ、弧度法のほうがスタンダードという扱いになるんじゃないかと思います。

Q等分布荷重の単純ばりの考え方

初心者です。皆様のご協力お願いします。
水路に乗せるだけの蓋(平板)を製作しています。いままでは製作して納入するだけで良い立場でしたが、先方様から強度計算書を求められて、一から勉強始めました。
蓋の決まりが、『500kg/m2に耐えれえる事』です。
製品の大きさが、400w*1000L*20t(厚み) 単位:mm です。
私は、まず500kg/m2を等分布荷重と判断。参考書を読むと、等分布荷重を集中荷重に置き換えるとあるので、
1)製品の面積が0.4w*1.0L=0.4m2 製品重量:20kg
2)500kg/m2*0.4m2=200kg(この製品1枚に200kgの等分布荷重が作用した時に製品が割れなければokと解釈
これを、断面算定する。

ここで、水路への蓋乗せ方は、1000Lと平行に縁(50mm)がありますので、スパン(製品が宙に浮いている区間)が400w-(50mm*2)=300mmとした。
言葉の意味はまだ理解していませんが、
3)最大発生曲げモーメント M=wl^2/8公式に代入して、
200*300*300/8=2250000kg・mm^2
4)断面係数 Z=bh^2/6公式に代入して、
1000L*20t*20t/6=66666mm^3
5)最大発生曲げ応力度 σ=M/Z公式に代入して
2250000/66666=33.8kg/mm^2
6)断面二次モーメント I=bh^3/12公式に代入して
1000*20*20*20/12=666666mm^4
7)最大発生たわみ τ=5PL^4/384EI公式に代入して
5*200*300*300*300*300/384*21000*666666=1.5mm

ここで、5)と製品が持っている特性40kg/mm^2より安全。
7)と2.0mmまでたわみがあって良いより安全。
と考えてよいですか?

長々となってしまいましたが、自分なりに考えました。
この考え方で良いのか、皆様御教示お願いします。

初心者です。皆様のご協力お願いします。
水路に乗せるだけの蓋(平板)を製作しています。いままでは製作して納入するだけで良い立場でしたが、先方様から強度計算書を求められて、一から勉強始めました。
蓋の決まりが、『500kg/m2に耐えれえる事』です。
製品の大きさが、400w*1000L*20t(厚み) 単位:mm です。
私は、まず500kg/m2を等分布荷重と判断。参考書を読むと、等分布荷重を集中荷重に置き換えるとあるので、
1)製品の面積が0.4w*1.0L=0.4m2 製品重量:20kg
2)500kg/m2*0.4m2=200kg...続きを読む

Aベストアンサー

> ここまで御丁寧に御教示いただいた方は初めてです。

あらら? それは光栄です!
「豚もおだてりゃ、木に登る~」ですから、頑張って回答しましょう!

> 初心者という事もあり、完全に自分の説明不足です。

いえいえ、こういう機会を利用して、次第に覚えていけば良いことなのですよ。最初から完璧な人間など、いるはずもないのですから。

> まず製品の材質が…特殊コンクリート系…製品重量の20kg

了解です。

> 鉄筋がないと仮定して計算を始めました(間違った考えかな?)。

構いません。
ただし、Eの値として、その特殊コンクリート系の値を調べて、適用しましょう。

鉄筋を無視した場合に、耐えない、とう答えが出てきたなら、鉄筋の存在を考慮すれば良いのです。この場合のEは、特殊コンクリート系の値に、鉄筋の存在を加味した、高い値になりますが、その計算方法はどの材料力学の本にも載っているものです。

> 断面算定とは、参考書に『次に破断面の性質を計算していきます』となり、断面一次・二次モーメントや断面係数・応力度などの計算が記載してましたので、断面算定という言葉を自分が使用しました。

『破断面の性質を計算していきます』という表現は、私の人生で初めて遭遇したものですね。
『破断面』と言えば、『破断した面』と解釈するのが普通で、これから破断するかも知れない面には使わないのが普通です。
正しくは、『破断面となる可能性のある面について、断面定数と状態量を計算していきます。』でしょうね。まあ、土木の業界ではそんな表現をするのかも知れませんね。しかし、一般的ではありません。できれば、専門外の人にもわかるような表現を選ぶのがスジです。
しかしまあ、今はこの表現を受け入れておきましょう。
でも、勝手に「これを、断面算定する。」という表現を使用するのは不可です。どこか、本にでも記載されていれば使用しても構いませんが、そうでなければ、言いたいことが誰にもわからないと思います。

> 製品の重量も加算するのですね。参考書に記載がなかったので・・・

もし『500kg/m^2が作用した時のたわみと応力はいくらか?』という問題の解なら、重量の考慮は不要です。
しかし、今の場合には、『500kg/m^2に耐えられる事』という条件ですから、暗黙のうちに、『500kg/m^2が作用しなくても存在する荷重』も考慮する必要があるのです。
参考書は、あくまで参考にするものです。

> 3)の最大発生曲げモーメントは、
M=wl^2/8=(4.9N/mm+615.44N)×300mm×300mm/8 ・・・。
という考えではないですよね。単位が合ってないですからね・・・。

分布荷重と集中荷重を、そのまま加えるなんて、1メートルと1キログラムとを足すようなものです。
自重による分布力をwmとすれば、
wm=Q/A=196N/400mm=0.49N/mm
で、最大負荷圧力が及ぼす力P(=4.9N/mm)の1/10ですねえ。まあ、無視しても差し支えないかも、というレベルですねえ。

> 『最大負荷圧力が及ぼす力P』は、集中荷重と考えていいのですか?

等分布荷重を集中荷重に置き換える必要などはない、と書いたでしょう?
分布荷重の公式に、値を代入すれば良いだけなのですよ。
どうしてすぐに分布荷重を集中荷重に置き換えようとするのですか?
悪い参考書を見てしまったようですね??

とはいうものの、私が計算には直接使用しないPなどという量を書いたのがいけないのですねえ。
しかし、分布力という値だけでは、トータルの力がわかりません。トータルを算出して初めて、「どの程度相当の荷重か?」というレベルが勘として把握できるのです。

しかししかし、私、「人間が8人乗って」と書きましたが、1960Nじゃ、人間が3人」のレベルでした。書き間違え…

なお、ANo.2の方が「近頃は圧力の単位に(kg/m^2)など使いませんよ。」と書かれています。確かに、SI単位系での圧力の単位はPaですが、実用的にはまだkg/m^2(正しくはkgf/m^2)などが使用されていますね。特に顧客が使用している場合には、否応なしに従わざるを得ない場合も多いのです。

> ここまで御丁寧に御教示いただいた方は初めてです。

あらら? それは光栄です!
「豚もおだてりゃ、木に登る~」ですから、頑張って回答しましょう!

> 初心者という事もあり、完全に自分の説明不足です。

いえいえ、こういう機会を利用して、次第に覚えていけば良いことなのですよ。最初から完璧な人間など、いるはずもないのですから。

> まず製品の材質が…特殊コンクリート系…製品重量の20kg

了解です。

> 鉄筋がないと仮定して計算を始めました(間違った考えかな?)。

構いません...続きを読む

QVBからExcel上の処理をするプログラムを作成しています。

VB初心者です。
今、VBの画面からExcelを起動させて、一連の処理をした後、
またVBの画面に自動的に戻るようなプログラムを作成しようとしているのですが、
Excelのシートを削除する時に、ダイアログボックスが開いてしまい、そこで処理が止まってしまいます。
ダイアログボックスを開かないようにするとか、自動的にOKボタンを押したことにするとか、
何か方法があったら教えてください。

Aベストアンサー

Application オブジェクトに DisplayAlerts プロパティというのがあります。
これに False を設定すると、確認のダイアログを出さなくなります。

例えば、こんな感じ。

Application.DisplayAlerts = False
Sheets("Sheet1").Delete

まあ、間違いがあるといけないので、デバッグが完了するまでは、すぐ元に戻して
おいた方が『吉』か、と。

Q等分布荷重反力の求め方

6.4mのはりを支点RA、RBで支えて,はり自重50kg/m 反力RA,RB求め方教えてください

Aベストアンサー

等分布荷重なのだから、ハリの中心に50×6.4=320kg重の力(集中荷重)がかかっているのと同じ。
なので、
RA+RB = 320
RA=RB(ハリの中心に対して対称だから)なので、
2RA = 320
RA = 160
RB = 160

こたえは、RA=RB=160kg重

Qプログラム作成に関して

配列にn個のa(1),a(2),…a(n)という値が与えられているとき、
このn個の値の最小値を求めるプログラムの作成

DIM A(n)
LET k=1
FOR i=1 TO n
 IF A(i)<A(k) THEN
  LET min=A(i)
 END IF
NEXT i
END

※DIM A(n)はn個の配列 minは最小値である。

としたのですが、
A()の読み込みを表すには
出力を表すには
どのようにしたらいいのですか?
できるだけ詳しく教えてください。よろしくお願いします。

Aベストアンサー

>また、このような質問の場合は何のカテゴリで質問したほうがいいのでしょうか?

場所としては、

教えて!goo > [技術者向] コンピューター > プログラミング > その他(プログラミング)

の指定言語以外の全般のカテゴリでいいかと思います。あと Visual Basic と従来の BASIC との違いですが、簡単に言うと「根本は同じで大幅に今風に改造した特殊なBASIC」で標準BASICから言うなら特殊な方言です。ここで質問しても理解できる人は多いですが、あくまでVBを質問する場所になりますので場違いということになります。

ちなみに記述されている内容についてですが、

DIM A(n)
LET min=A(i) ' 代表で1つ目の値を初期値とする
FOR i=1 TO n
IF A(i)<min THEN ' 現在憶えている値よりA(i)が小さければそちらを記憶する。
LET min=A(i)
END IF
NEXT i
END

でないと具合が悪いように思います。(注釈に ' を使いましたが言語仕様に応じて書き換えるか消すかして下さい)
あと、入出力に関しては、すでに回答されている通りです。

>また、このような質問の場合は何のカテゴリで質問したほうがいいのでしょうか?

場所としては、

教えて!goo > [技術者向] コンピューター > プログラミング > その他(プログラミング)

の指定言語以外の全般のカテゴリでいいかと思います。あと Visual Basic と従来の BASIC との違いですが、簡単に言うと「根本は同じで大幅に今風に改造した特殊なBASIC」で標準BASICから言うなら特殊な方言です。ここで質問しても理解できる人は多いですが、あくまでVBを質問する場所になりますので場違...続きを読む

Q核爆発が無いのに、同心円の避難区域は何故ですか?

 現在、詳細な放射能汚染マップが知られています。それによると、同心円の避難区域とは無関係に、広がっています。
 もし、放射能汚染を避けるための避難なら、そのマップに沿って、避難地域を設定しなければならないのに、いまだに同心円なのは、どうしてでしょうか?
 素人考えでは、同心円が意味を持つのはただ一つ、兵器と同じ核爆発としか思えないのですが、どうでしょうか?
 でも、分からないのは、原発は物理的に爆発が不可能なはず・・・ですよね。核燃料が現在、制御不能ですが、制御不能になった場合は、場合によっては爆発が起きる可能性があるのでしょうか?
 
 

Aベストアンサー

>いまだに同心円なのは、どうしてでしょうか?

避難地区を同心円状に設定しているのは何の調査もせずに机上の計算だけで設定出来るという簡単さが理由でしょう。
実際の放射線量や放射性物質の飛散量を元にして避難地区を設定する場合、詳細な調査が必要になりますし、SPEEDIの予測結果なども考慮しなければいけないので手間がかかります。
現在の政治家達は、そんなことよりも自分達の影響力を増すための政治ごっこで忙しいのでしょうね。

もし、政治家の手抜き以外が理由で設定されているとしたら、放射性物質の影響を考えていないって可能性かな。
放射線というのは距離の2乗に反比例して減衰するため、距離が2倍離れていれば放射線量は4分の1になるんです。
そのため、単純に福島第一原発から出ている放射線による影響だけを考えて非難区域を設定しているのなら同心円状になるのも分かります。

>場合によっては爆発が起きる可能性があるのでしょうか?

1号機の建屋が吹き飛んだ時のような水素爆発が発生する可能性はあります。
ですが、原子力発電所で使っている燃料は濃度が低すぎるので核爆発をすることはありません。
その理由としては、水素爆弾や中性子爆弾と同じ原理の爆発は原子炉内部では条件が満たせませんし、原子爆弾と同じ原理の爆発には濃度90%ほど必要なのに原発の燃料は濃度数%程度と低すぎるからです。
絶対に起こらないとは言えませんが、限りなくゼロに近い確率だと思いますよ。

>いまだに同心円なのは、どうしてでしょうか?

避難地区を同心円状に設定しているのは何の調査もせずに机上の計算だけで設定出来るという簡単さが理由でしょう。
実際の放射線量や放射性物質の飛散量を元にして避難地区を設定する場合、詳細な調査が必要になりますし、SPEEDIの予測結果なども考慮しなければいけないので手間がかかります。
現在の政治家達は、そんなことよりも自分達の影響力を増すための政治ごっこで忙しいのでしょうね。

もし、政治家の手抜き以外が理由で設定されているとしたら、放射性物質...続きを読む

Qアプリケーションを自動起動させるプログラムを作成したい

下記のプログラムを作成するのに参考になるサイトありませんか?

1.telnetのフリーソフトsidetelnet(作者HP:http://homepage2.nifty.com/Side55/)
をアプリケーション内部で起動させるプログラムを作りたい
2.ただ起動させるのではなく(3)、(4)の様に内部にタイマを設け自動終了、自動起動させることが可能なプログラムを作りたい

----------------------------------------------------------
(1)アプリケーションの起動(任意のタイミング)

(2)sidetelnet"A"を起動させる(任意のタイミング)

(3)sidetelnet"A"が終了(起動三分後に自動終了)

(4)sidetelnet"B"を起動させる(sidetelnet"A"終了後自動で)

(5)sidetelnet"B"を終了させ、ユーザに終了を知らせる

(6)アプリケーションの終了(任意のタイミング)
-----------------------------------------------------------

下記のプログラムを作成するのにどの書籍を勉強するのがベストでしょうか?

1.telnetのフリーソフトsidetelnet(作者HP:http://homepage2.nifty.com/Side55/)
をアプリケーション内部で起動させるプログラムを作りたい
2.ただ起動させるのではなく(3)、(4)の様に内部にタイマを設け自動終了、自動起動させることが可能なプログラムを作りたい

具体的には
----------------------------------------------------------
(1)アプリケーションの起動(任意のタイミング)

(2)sidetelnet"A"を起動させる(任意のタイミング)

(3)sidetelnet"A"が終了(起動三分後に自動終了)

(4)sidetelnet"B"を起動させる(sidetelnet"A"終了後自動で)

(5)sidetelnet"B"を終了させ、ユーザに終了を知らせる

(6)アプリケーションの終了(任意のタイミング)
-----------------------------------------------------------

宜しくお願いします。

下記のプログラムを作成するのに参考になるサイトありませんか?

1.telnetのフリーソフトsidetelnet(作者HP:http://homepage2.nifty.com/Side55/)
をアプリケーション内部で起動させるプログラムを作りたい
2.ただ起動させるのではなく(3)、(4)の様に内部にタイマを設け自動終了、自動起動させることが可能なプログラムを作りたい

----------------------------------------------------------
(1)アプリケーションの起動(任意のタイミング)

(2)sidetelnet"A"を起動させる(任意のタイミン...続きを読む

Aベストアンサー

起動させて終了させるだけぐらいならただのスクリプトで十分かと。
WSHぐらいなら書籍で勉強というよりは、その辺の参考ページを2,3見回るだけでかけちゃうでしょう。全くの素人さんならVBAぐらいから始めた方がよいかもしれませんが。

参考URL:http://homepage3.nifty.com/aya_js/wsh/wsh301.htm

Qフリーソフトで同心円を描きたいのですが

波の干渉を説明するために、細かい同心円を書きたいのです。
どなたか、フリーソフトで同心円のかけるものをご存じないでしょうか。教えていただけると助かります。
よろしくお願いいたします。

Aベストアンサー

こちらは
http://www.vector.co.jp/soft/winnt/util/se402116.html

Q社内VPNを使ってデータベースプログラムの作成

いつもお世話になっております。

VPNを利用して社内販売管理システムが構築されています(外部で開発)
しかしそれとは別に全国の営業マンの行動予定や週間行動予定のデータベース化の話があがり、
外部業者を使わずに社内でプログラムを作れないかと言われて困っています。

ネットワークに不勉強で可能なのか不可能なのかも分かりません。

【環境】
社内VPN(OCN)
一応IISサーバーが設定されている
できれば、VB6とACCESSファイルを使ってデータベースソフトを作りたい
社内販売管理システムはオラクルを使って作られている
本社サーバーのIPを192.168.10.1で拠点のIPが192.168.20~50.10~100
本社サーバーのDBファイルはc:\DBFile\フォルダに置かれている
本社サーバーはパスワードが設定されている

本社にDBファイルを置いて各拠点のプログラムからDBファイルの読み書きをする
のが可能なのでしょうか。

その場合のファイル名の指定等はどうしたらいいのでしょうか。

すみませんが、ご指導お願いします。
質問が分からなければ補足入れます。

いつもお世話になっております。

VPNを利用して社内販売管理システムが構築されています(外部で開発)
しかしそれとは別に全国の営業マンの行動予定や週間行動予定のデータベース化の話があがり、
外部業者を使わずに社内でプログラムを作れないかと言われて困っています。

ネットワークに不勉強で可能なのか不可能なのかも分かりません。

【環境】
社内VPN(OCN)
一応IISサーバーが設定されている
できれば、VB6とACCESSファイルを使ってデータベースソフトを作りたい
社...続きを読む

Aベストアンサー

>その場合のファイル名の指定等はどうしたらいいのでしょうか。
VPNは社内ネットワークと同じようにアクセスできる仕組みですので
スタート>ファイル名を指定して実行>\\192.168.10.1\ファイル名.MDBでアクセス可能かチェックする。

>ACCESSファイル
同時にアクセスできるユーザーは255。
http://office.microsoft.com/ja-jp/access/HP051868081041.aspx

別のADSL回線を利用して実際に試してみて不都合があれば
OracleなりMySQLなり試してみればどうでしょうか?

他にターミナルサービスといってサーバーの画面をリモートで
閲覧する仕組みもあると思います。


人気Q&Aランキング

おすすめ情報