Pada kesempatan kali ini, saya memulai membuat program pada visual basic untuk mencari nilai akar-akar persamaan kuadrat.
Langkah-langkahnya :
1. Membuat UserFrom.
2. Buat Label dan TextBox seperti gambar di bawah
3. Masukkan perintah berikut pada label hitung.
Algoritma :
Persamaan kuadrat memiliki nilai determinan, Nilai Determinan di dapat dari nilai b^2-4.a.c
Jika Determinan (D) lebih kecil dari nol, maka nilai akar persamaan kuadrat tersebut imajiner dan tidak memiliki akar-akar persamaannya. Sedangkan jika lebih besar atau sama dengan nol, maka pasti memiliki akar-akar persamaan kuadrat.
Maka pada :
--------------------------------------
If D < 0 Then
MsgBox "Nilai akar..."
Else
---------------------------------------
Adalah untuk memisahkan persamaan kuadrat mana yang D < 0. Jika D<0 maka akan muncul Box bertuliskan "Nilai Akar Persamaan Kuadrat Imajiner".
Sedangkan untuk lanjutannya di bawahnya adalah mencari kedua nilai akar persamaan kuadrat.
4. Hasil.
bung machi ada yg bingung nih.. itu as integer klo kita masukin nilai a atau b nya 0,an gpp kan ya? tidak terpengaruh hasil.. mohon pencerahan :D
BalasHapusBung Mach, menurut saya lebih baik menggunakan tipe data double atau longint ketimbang integer karena range nilai dari integer sedikit lebih terbatas..
BalasHapusterima kasih..
to bung Almer, sebenarnya kalo untuk bilangan desimal lebih baik menggunakan double. Maaf waktu itu yang penting memahami cara2 menggunakan VB sehingga lebih baik memahami algoritmanya dulu, hehe.
BalasHapusto Enggar, terima kasih atas sarannya :)