Tolong Tinggalkan Komentar setelah membaca artikel
  • Posted by : Awal Eilmo 22 Nov 2012


    Minggu-minggu ini saya lagi semangat-semangatnya untuk membuat postingan selain dikarenakan hari libur, 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 :

    Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB
    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

    No comments:

    Post a Comment

  • About

    Copyright © 2013 - Nisekoi - All Right Reserved

    AwalEilmo Powered by Blogger - Designed by Johanes Djogan