人に使ってもらうソフトウェア　課 題 問 題　VB6
課題１　直列接続の合成抵抗

課題１
　2つの抵抗を直列接続したときの合成抵抗を計算するソフトウェア（マニュアル、配布パッケージを含む）を制作しなさい。

　次に示すデザイン(図1-K-1)とプログラムを用意してあるので、これを利用（参考に）してソフトウェアを完成させなさい。

<Download>: kadai01.lzh(kadai01.vbp, kadai01.frm) 2KB

図1-K-1

・プログラムリスト

Private Sub Command1_Click()
'"計算"ボタンがクリック(Click)されたときに処理されるプロシージャ
    Dim gousei As Double    '合成抵抗値用

    gousei = Val(Text1.Text) + Val(Text2.Text)      '合成抵抗計算
    Text3.Text = Str(gousei)        '計算結果表示
End Sub

Private Sub Command2_Click()
'"クリア"ボタンがクリック(Click)されたときに処理されるプロシージャ
    Text1.Text = ""         '抵抗値入力エリアのクリア
    Text2.Text = ""         '抵抗値入力エリアのクリア
End Sub

Private Sub Command3_Click()
'"終了"ボタンがクリック(Click)されたときに処理されるプロシージャ
    Unload Me
    End
End Sub

Private Sub Form_Load()
'標準の設定で1番最初に実行されるプロシージャ
    Text1.Text = ""         '抵抗値入力エリアのクリア
    Text2.Text = ""         '抵抗値入力エリアのクリア
End Sub

　ソフトウェア制作にあたっては、これまで学習した次の点についても配慮すること。
　�@スムースな入力作業(フォーカスの移動)、　�Aフォームのサイズ、　�Bオブジェクトの位置合わせ、　�C実行時のウィンドウ、　�D終了確認、　�Eエラー処理　など

改良課題　(kadai01a)
　2つの抵抗が直列接続でも並列接続でも、どちらでも選択して合成抵抗が計算できるように改良してみよう。
　（ヒント：オプションボタンを利用する）

課題１　直列接続の合成抵抗
Copyright © 2001,2002 Hiroshi Masuda