Dapat didownload di https://www.dropbox.com/s/pk1ow02681a5f4h/3%20LAPORAN%20AKHI%20MDI%20VB.docx?dl=0
Listing code untuk Form 1
Private Sub Command1_Click()
Text3.Text = CInt(Text1.Text) * CInt(Text2.Text)
End Sub
Private Sub Command2_Click()
Text4.Text = 2 * (CInt(Text1.Text) + CInt(Text2.Text))
End Sub
Listing code untuk Form 2
Private Sub Command1_Click()
Text2.Text = CInt(Text1.Text) * CInt(Text1.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = 4 * CInt(Text1.Text)
End Sub
Listing code untuk Form 3
Private Sub Command1_Click()
Text2.Text = 3.14 * CInt(Text1.Text) ^ 2
End Sub
Private Sub Command2_Click()
Text3.Text = 2 * 3.14 * CInt(Text1.Text)
End Sub
Listing code untuk Form 4
Private Sub Command1_Click()
Text3.Text = 0.5 * CInt(Text1.Text) * CInt(Text2.Text)
End Sub
Listing code untuk MDI Form1
Private Sub exit_Click()
End
End Sub
Private Sub lingkaran_Click()
Form3.Show
End Sub
Private Sub persegi_Click()
Form2.Show
End Sub
Private Sub persegipanjang_Click()
Form1.Show
End Sub
Private Sub segitiga_Click()
Form4.Show
End Sub
LOGIKA
Logika program untuk listing code pada form1:
- Listing code pada Command1 berfungsi untuk mengalikan text pada text1 dan text2 dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text3.
- Listing code pada Command2 berfungsi untuk menjumlah text pada text1 dan text2, lalu mengalikanya dengan 2, dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text4.
- Listing code pada Command1 berfungsi untuk mengalikan text pada text1 dengan text 1 dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text2.
- Listing code pada Command2 berfungsi untuk mengalikan text pada text1 dengan 4, dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text3.
- Listing code pada Command1 berfungsi untuk memangkatkankan text pada text1 dan mengalikanya dengan 3.14, dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text2.
- Listing code pada Command2 berfungsi untuk mengalikan text pada text1 dengan 2 dan 3.14, dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text.
- Listing code pada Command1 berfungsi untuk mengalikan text pada text1 dan text2 dengan 0.5, dengan terlebih dahulu mengubahnya ke dalam type integer, kemudian menaruh hasilnya ke dalam text3
- Berfungsi untuk menampilkan form – form lainya yang telah dibuat, Persegi Panjang untuk form1, Persegi untuk form2, Lingkaran untuk form3, dan Segitiga untuk form4.
0 komentar:
Posting Komentar