Membuat program tetang hukum newton dengan Penggunaan kontrol dalam aplikasi

                Membuat aplikasi option button dan List box

Untuk membuat aplikasi ini kita membutuhkan 3 option button,4 label,2 list box,dan 3 comand.

 Kemudian aturlah icon properti masing- masing  tersebut sebagai berkut:

-          Untuk label

Dengan memberikan judul pada label1 di caption “HUKUM NEWTON” untuk mengkreasikan tulisan pada label dapat di atur pada propeti font atur menurut selera anda, lalu pada label2 kita buat di caption “Hukum” , label3 di caption di tulis dengan “bunyi hukum” dan pada label terakhir yaitu label4 ditulis di caption “rumus persamaan”.

-          Untuk option

Pada progrm kali ini kita akan menggunakan 3 option button, option1 kita tuliskan di captionnya dengan “hukum newton I” dan untuk option2 kita tuliskan di captionnya dengan ”hukum newton II”, dan yang terakhir yaitu option3 kita tuliskan di captionnya dengan “hukum newton III”.

-          Untuk list

Pada list kita hanya mengosongkan nya saja dengan properti List lalu tekan spasi dan enter.

 Maka setelah mengatur semua propertinya akan tampil pada formnya seperti pada gambar:

1. Lalu klik ganda pada option1 untuk membuat event option1_clik(). Kemudian tambahkan kode program seperti berikut:

Private Sub Option1_Click()

List1.Clear

List2.Clear

List1.AddItem "benda tetap dim atau melaju dengan kecepatan tetap selama resultan gaya yag bekerja = 0"

List2.AddItem "F = 0"

End Sub

2. Setelah membuat event pada option1 kemudian klik ganda lagi pada option2 atau Hukum newton II. Tambahkan kode program  juga berikut:

Private Sub Option2_Click()

List1.Clear

List2.Clear

List1.AddItem "jika resultan gaya tidak sama dengan 0(nol) maka benda akan bergerak dengan percepatan tertentu"

List2.AddItem "F = m.a"

End Sub

3. Kemudian untuk option3, tambahkan pula ganda klik sama seperti sebelumnya kemudian tambahkan kode program  berikut ini :

Private Sub Option3_Click()

List1.Clear

List2.Clear

List1.AddItem "jika ada aksi maka akan timbul reaksi, arah aksi dan reaksi berlawanan arah"

List2.AddItem "aksi = -reaksi"

End Sub

4. Jalan kan program dengan klik run, maka akan tampilkan:

Pilihlah salah satu hukum newton pada option yang ada pada from.

 contoh kita pilih hukum newton I tampak bunyi hukumnya serta rumus nya, seperti di gambar:

Semoga program ini dapat bermanfaat dan tetap terus mencoba agar dapat menjadi progremer yang terkenal dan handal.

Soo SEMANGAT !!!!

Salam Manis 

Putry Nurul