No.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
No.3
- 回答日時:
先の回答に誤りがあり訂正します。
それと前半の回答だけで済みません。
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を使うようです。
No.2
- 回答日時:
全く素人初歩的な回答でお恥ずかしいですが、分かって
いただければ。次ぎのステップでクリックしてください。
デスクトップの「プログラム」-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)にして円を描いています。
No.1
- 回答日時:
前提条件がまったく分からないのですが、座標等を自分で計算して描けということでしょうか?
それとも、とにかく何でもいいから円を描けということでしょうか?
前者であれば、数学の知識を使って画面に点を打つ方法が簡単ですし、
後者で有れば、円を描く命令を使ってしまうのが一番簡単です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) 大学一年でVBAのプログラミングを勉強しているものです。来週の情報の授業で以下の問題のプログラムを勉 4 2023/01/19 16:15
- Visual Basic(VBA) VBAプログラム初心者です。 以下の問題のプログラムを表記してみたのですが、実行するためには、どこを 4 2023/01/19 20:04
- その他(プログラミング・Web制作) VBA 1 2023/01/19 16:19
- その他(プログラミング・Web制作) プログラムの勉強のおすすめは 7 2022/12/09 20:09
- その他(ビジネス・キャリア) グーグルの障害者訓練プログラム募集あるがどうだろ?6時間勤務で月収22万!! 1 2023/02/17 20:36
- その他(プログラミング・Web制作) 大学のゼミのレポートがムカつきます。 R言語というデータ分析に特化したプログラム言語を用いた授業の課 1 2023/06/29 00:50
- C言語・C++・C# 1. 仮想CPU「exmini」を使用して,「$dataからn減算する」プログラムを作成してください 2 2022/07/04 17:49
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:13
- C言語・C++・C# C言語 3 2022/10/04 15:07
- Ruby VBA 2 2023/01/14 14:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Vba 実数および実数タイプの変...
-
VBAにてメール作成した際、一部...
-
あるプログラムのコマンドライ...
-
パックマンプログラム
-
Notepad++の関数リスト表示でC...
-
VBAが止まります。
-
「Outlookが他のプログラムによ...
-
自動クエリとはどういうもので...
-
これはDos攻撃になりますか?
-
Excelで4096点以上のFFTの方法
-
VBでのPublic変数につ...
-
Excelに埋め込んだVBAのプログ...
-
VBAでユーザーフォームが自動的...
-
読み込み中にアクセス違反が発...
-
寿命
-
セルフイメージを高める21日...
-
binファイルってiphone専用です...
-
プログラムのループの周期を設...
-
RSAのCプログラム
-
自作のプログラムがウイルスと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あるプログラムのコマンドライ...
-
Excelで4096点以上のFFTの方法
-
「Outlookが他のプログラムによ...
-
Excelに埋め込んだVBAのプログ...
-
VBAにてメール作成した際、一部...
-
Notepad++の関数リスト表示でC...
-
自動クエリとはどういうもので...
-
読み込み中にアクセス違反が発...
-
PICマイコンのコピー(クローン...
-
XnViewにwebpを「いつも開く」...
-
未使用の変数を一括検索する方法
-
VBAでユーザーフォームが自動的...
-
UWSCで指定のフォルダを開きたい。
-
パックマンプログラム
-
このプログラミング誰か教えて...
-
モジュール、アプリケーション...
-
Vba UserFormを前面に出す方法...
-
特定のwebサイトのタイトルや記...
-
ドロップダウンリストの文字を...
-
テキストボックスのエンターキ...
おすすめ情報