Minggu-minggu
ini saya lagi semangat-semangatnya untuk membuat postingan selain
dikarenakan hari libur semester, juga untuk terus meningkatkan page rank
blog saya baik digoogle maupun alexa. Dimana tiada waktu tanpa SEO dan
membuat postingan, bagiku ngeblog sudah menjadi hobi dan sesuatu yang
sangat menarik. Dikarenakan menurut saya banyak sekali keuntungan dari
ngeblog atau blogging itu sendiri diantaranya :
- dapat menghasilkan dollars dengan iklan yang kita pasang dblog kita
- dalam membuat postingan kita tidak sadar bahwa kita sedang belajar, apalagi tema blognya tentang ilmu pendidikan
- dengan berbagi ilmu dan informasi kita akan mendapatkan amal jariah yang tidak putus-putus kecuali isi blog yang dilarang seperti pornografi dan lain-lain
- dan masih banyak yang lainnya.
Jadi saya sarankan bagi pembaca mulai sekarang belajarlah untuk membuat blog. Karena ngeblog itu indah..hehehe…
Cukup
sekian dulu curhat/motivasi dari saya, semoga berguna bagi anda. Dan
sekarang seperti biasa, saya akan melaksanakan tugas saya sebagai
blogger dengan menyuguhkan postingan sebagus mungkin kepada anda semoga
anda terbantu.
Baiklah
dalam postingan kita akan membuat program-program matematika sederhana
dengan VB dimana materi ini juga sudah pernah saya bahas dalam postingan
MEMBUAT CONTOH-CONTOH PROGRAM SEDERHANA DENGAN BAHASA PEMROGRAMAN C++, tetapi bedanya postingan kemaren menggunakan bahasa pemrograman C++:
contoh 1 : Membuat Program Faktorial Dengan Vb 6.0
a. Buatlah
New Project pada software VB anda kemudian tambahkan tiga buah label,
tiga commandbutton dan dua textbox pada form. Kemudian ubah properti
masing-masing dan Atur form seperti pada gambar berikut :
Gambar Program faktorial
b. kemudian ketikkan code/listing/script program berikut :
Private Sub Command1_Click()
Dim a, b, i As Integer
i = 1
b = Text1.Text
For a = 1 To b
i = i * a
Next
Text2.Text = i
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
c. Run(F5) dan coba masukkan nilai faktorial 4 dimana 4!=1x2x3x4=24 berikut dapat anda lihat hasilnya pada gambar dibawah ini :
Gambar Program faktorial dengan VB 6.0
contoh 2 : Membuat Program Penghitung Determinan dan Penjumlahan, Perkalian Matriks Berordo 2x2 dengan VB 6.0
a. Buatlah
New Project pada software VB anda kemudian tambahkan 5 buah label, tiga
commandbutton, 13 textbox dan 3 optionbutton pada form. Kemudian ubah
properti masing-masing dan Atur form seperti pada gambar berikut :
b. kemudian ketikkan code/listing/script program berikut :
Private Sub Command1_Click()
If Option2.Value = True Then
Text12.Text = Val(Text1.Text) + Val(Text8.Text)
Text11.Text = Val(Text2.Text) + Val(Text7.Text)
Text10.Text = Val(Text3.Text) + Val(Text6.Text)
Text9.Text = Val(Text4.Text) + Val(Text5.Text)
ElseIf Option3.Value = True Then
Text13.Text
= (Val(Text1.Text) * Val(Text4.Text) - Val(Text2.Text) *
Val(Text3.Text)) + (Val(Text8.Text) * Val(Text5.Text) - Val(Text7.Text) *
Val(Text6.Text))
Else
Text12.Text = (Val(Text1.Text) * Val(Text8.Text)) + (Val(Text2.Text) * Val(Text6.Text))
Text11.Text = (Val(Text1.Text) * Val(Text7.Text)) + (Val(Text2.Text) * Val(Text5.Text))
Text10.Text = (Val(Text3.Text) * Val(Text8.Text)) + (Val(Text4.Text) * Val(Text6.Text))
Text9.Text = (Val(Text3.Text) * Val(Text7.Text)) + (Val(Text4.Text) * Val(Text5.Text))
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
c. Silahkan
run(F5) program anda coba masukkan nilai pada matriks A dan matriks B
kemudian pilih salah satu option lalu tekan tombol proses,,selamat
mencoba !
Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB 6.0
Tidak ada komentar:
Posting Komentar