Algoritma

Penulisan algoritma tidak tergantung dari spesifikasi bahasa pemograman dan komputer yang mengeksekusinya. Notasi algoritma bukan notasi bahasa pemograman, tetapi dapat diterjemahkan ke dalam berbagai bahasa pemograman. Berikut adalah contoh notasi algoritma

• Notasi yang dinyatakan dalam kalimat deskriptif

Dengan otasi ini , deskriptif setiap langkah dijelaskan dengan bahasa yang jelas. Notasi ini cocok untuk algoritma yang pendek. Tapi untuk masalah algoritma yang panjang, notasi ini jelas kurang effektif. Selain itu pengkonversian notasi algoritma ke notasi bahasa program cendrung agak susah.
Contoh:
Algoritma mencari luas persegi panjang ;
Diketahui panjang dan lebar sebuah persegi panjang. Carilah luas dan keliling persegi panjang.

Deskripsi :
1. Input panjang persegi panjang.
2. Input lebar persegi panjang.
3. Cari luas persegi panjang dengan rumus; panjang kali lebar.
4. Cari keliling persegi panjang dengan rumus; dua kali sisi panjang ditambah dua kali sisi lebar.
5. Keluarkan luas dan keliling sebagai output..
6. Penghitungan selesai.

• Flow chart

Flow chart atau bagan alir merupakan gambar atau bagan yang memperlihatkan urutan dan hubungan antar proses beserta instruksinya. Gambaran ini dinyatakan dengan simbol. Dengan demikian setiap simbol menggambarkan proses tertentu. Sedangkan hubungan antar proses digambarkan dengan garis penghubung.
Flowchart ini merupakan langkah awal pembuatan program. Dengan adanya flowchart urutan poses kegiatan menjadi lebih jelas. Jika ada penambahan proses maka dapat dilakukan lebih mudah. Setelah flowchart selesai disusun, selanjutnya pemrogram (programmer) menerjemahkannya ke bentuk program dengan bahasa pemrograman.

Notasi penulisan algoritma dengan flow chart cocoknya untuk algoritma yang pendek. Sementara untuk masalah algoritma yang panjang, notasi ini kurang effektif dan penkorversian notasi algoritma ke notasi bahasa pemograman cendrung agak sukar.

Sekian dulu postingan saya kali ini, pada kesempatan berikut saya akan melanjutkan pembahasan tentang notasi penulisan algoritma(flowchar & pseudo code):

• Simbol-simbol flowchart
• Contoh flow chart program sederhana
• Contoh penulisan yang dinyatakan dengan Pseudo code.

Terima kasih atas kunjungannya. Mohon masukan dan saran untuk perbaikan pembahasan ini.
Wasalam Penulis

Cara Membuat Program Browse Dan Simpan Foto Dengan Visual Basic 6.0

Pada dua posting sebelumnya kita sudah membahas bagaimana cara membuat database dengan Microsoft Office Access 2003 dan mencoba menerapkannya dalam pembuatan sebuah aplikasi berbasis Visual Basic 6.0.

Pada posting kali ini kita akan mencoba mengembangkan program yang pernah kita buat sebelumnya dengan menambahkan fitur browse dan menyimpan foto. untuk lebih jelasnya sobat bisa buka kembali posting saya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0. Karena program dari form tersebutlah yang akan kita modifikasi.

Sebelumnya tambahkan satu buah field pada tabel "tmhs" yang kita buat pada posting saya yang berjudul Cara Membuat Database Dengan Microsoft Office Access 2003, seperti gambar berikut ini :

Jika sudah, modifikasi disain form sebelumnya seperti penjelasan gambar dibawah ini :

Sebelumnya

Edit tampilan form diatas dengan menambahkan beberapa tools, pada Label9 aturlah Visible nya menjadi False dan pada Image1 atur pilihan Stretch menjadi True melalui properties box yang berada disebelah kanan. Sehingga hasilnya seperti dibawah ini :

Sesudah Dimodifikasi

Sekarang kita akan memodifikasi script yang pernah kita buat sebelumnya, pertama kita akan membuat tombol Browse, caranya double klik pada tombol Browse dan masukkan script berikut tepat diantara Private Sub Command5_Click() dengan End Sub 

CommonDialog1.Filter = "Picture files (*.jpg;*.bmp;*.gif;*.png)|*.jpg;*.bmp;*.gif;*.png" CommonDialog1.ShowOpen Image1.Picture = LoadPicture(CommonDialog1.FileName) Label9.Visible = False Image1.Visible = True

Kemudian kita ubah script pada tombol Simpan, caranya double klik pada tombol Simpan kemudian ganti script sebelumnya yang berada antara Private Sub Command1_Click() dan End Sub dengan script berikut ini :

Dim X If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then MsgBox "Data Belum Lengkap", vbInformation, "Pesan" Exit Sub Else X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo) If X = vbYes Then Set rsmhs = New ADODB.Recordset rsmhs.LockType = adLockOptimistic rsmhs.CursorType = adOpenDynamic rsmhs.Open "SELECT * FROM tmhs", conn, , , adCmdText rsmhs.AddNew rsmhs.Fields(0) = Text1.Text rsmhs.Fields(1) = Text2.Text rsmhs.Fields(2) = Text3.Text rsmhs.Fields(3) = Text4.Text rsmhs.Fields(4) = Text5.Text rsmhs.Fields(5) = Text6.Text rsmhs.Fields(6) = Text7.Text rsmhs.Fields(7) = CommonDialog1.FileName rsmhs.Update MsgBox "Data Tersimpan...!", vbInformation, "Pesan" kosongform Image1.Visible = False Label9.Visible = True Else Exit Sub End If End If

Mudah bukan...??
Bagaimana dengan tombol Edit dan Delete....??

Untuk tombol Delete, tidak ada perubahan script yang harus dilakukan, hanya sedikit penambahan script pada tombol Edit, supaya tutorial ini makin lengkap kita bahas juga tombol Editnya.

Sebelumnya kita harus ubah terlebih dahulu script pada Text1_KeyPress, caranya double klik pada Text1 kemudian ganti script yang berada diantara Private Sub Text1_KeyPress(KeyAscii As Integer) dan End Sub dengan script dibawah ini :

If KeyAscii = 13 Then Set rsmhs = New ADODB.Recordset rsmhs.LockType = adLockOptimistic rsmhs.CursorType = adOpenDynamic rsmhs.Open "select * from tmhs", conn, , , adCmdText rsmhs.Filter = " nim= '" & Text1.Text & "'" If Not rsmhs.EOF Then Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True Image1.Visible = True Text1.Enabled = False Text2.Text = rsmhs.Fields(1) Text3.Text = rsmhs.Fields(2) Text4.Text = rsmhs.Fields(3) Text5.Text = rsmhs.Fields(4) Text6.Text = rsmhs.Fields(5) Text7.Text = rsmhs.Fields(6) CommonDialog1.FileName = rsmhs.Fields(7) Image1.Picture = LoadPicture(CommonDialog1.FileName) If CommonDialog1.FileName = "" Then Label9.Visible = True Else Label9.Visible = False End If End If End If

Yang terakhir kita ubah script tombol Edit, caranya duoble klik pada tombol Edit, kemudian ganti script yang berada diantara Private Sub Command2_Click() dan End Sub dengan script dibawah ini :

Dim a a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan") If a = vbYes Then rsmhs.Fields(1) = Text2.Text rsmhs.Fields(2) = Text3.Text rsmhs.Fields(3) = Text4.Text rsmhs.Fields(4) = Text5.Text rsmhs.Fields(5) = Text6.Text rsmhs.Fields(6) = Text7.Text rsmhs.Fields(7) = CommonDialog1.FileName rsmhs.Update MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info" kosongform Text1.SetFocus Image1.Visible = False Label9.Visible = True Else Exit Sub End If

Jika dijalankan maka tampilan program akan menjadi seperti berikut ini :

Kalo sobat males, silakan download projectnya disini (Download Project) Atau download via mediafire (Download Project).

Sekian dulu toturial Visual Basic 6.0 dari saya yang berjudul Cara Membuat Program Browse Dan Simpan Foto Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat....