Kumpulan materi algoritma dan pemrograman dasar visual basic

Visual Basic 6.0

Berikut ini adalah Kumpulan materi algoritma dan pemrograman dasar visual basic. Karena semua ini bersifat opensource maka anda bebas melakukan modifikasi dan pengembangan sesuka hati. ok langsung saja silahkan di download.

Pertemuan 01 - Mengenal Microsoft Visual Basic, download, link 2

Pertemuan 02 - Event dan Property, download, link2

Pertemuan 03 - Variable dan penggunaan operator (+, -, /, dan *), download, link2

Pertemuan 04 - Percabangan If dan Case, download, link2

Pertemuan 05 - Perulangan, download, link2

Pertemuan 06 - Array 1 dimensi dan 2 dimensi, download, link2

Pertemuan 07 - Menggerakkan objek dengan timer dan keyboard, download, link2

Pertemuan 08 - Operasi file text, download, link2

Pertemuan 09 - Konversi jarak, download, link2

Pertemuan 10 - Game sederhana (tic tac toe), download, link2

Pertemuan 11 - Control image dan popup, download, link2

Pertemuan 12 - Multimedia, download, link2


NB: jika masih ada kekurangan akan segera menyusul.
shankyu...
Sekian dulu ya berbagi ilmunya Semoga bermanfaat untuk kita semua.Amin.

Praktikum 1 - Input Text Output Caption

Salam Sukses untuk kita semua kawan kawan blogger.

semoga apa yang saya posting ini memberikan manfaat dan barokah kepada kita semua, demi menjalankan perintah yaitu "menuntut ilmu."

Hasil akhir praktikum 1 - Input output

Petunjuk Praktikum:

A. desain tampilan peserti diatas dengan ketentuan sebagai berikut

1. Form1 (caption = Input Output) 
2. Label1 (caption = Hello Word)
3. Label2 (caption = Masukkan Nama)
4. Label3 (caption = Hasil, font size = 14)
5. Text1 (text = )
6. Command1 (name = cmd_kosong, caption = KOSONGKAN)
7. Command2 (name = cmd_ok, caption = OK)
8. Command3 (name = cmd_keluar, caption = KELUAR)
9. Frame (caption = Opsi)
10. Option1 (name = opt_merah, caption = Merah)
11. Option2 (name = opt_biru, caption = Biru)
12. Check1 (name = c_miring, caption = Miring)
13. Check2 (name = c_tebal, caption = Tebal)

B. Sesuaikan dengan rumus berikut ini:

Private Sub c_miring_Click()
    Label3.FontItalic = c_miring.Value
End Sub
Private Sub c_tebal_Click()
    Label3.FontBold = c_tebal.Value
End Sub
Private Sub cmd_kosong_Click()
    Text1.Text = ""
    Text1.SetFocus
    Label3.Caption = ""
End Sub
Private Sub cmd_ok_Click()
    Label3.Caption = Text1.Text
End Sub
Private Sub cmd_keluar_Click()
    End
End Sub
Private Sub opt_merah_Click()
    Label3.ForeColor = vbRed
End Sub
Private Sub opt_biru_Click()
    Label3.ForeColor = vbBlue
End Sub

C. Jalankan Program dengan tekan F5, coba isikan nama dan uji program tersebut.


#Semoga berhasil.

TUGAS 2 - Membuat program pendaftaran peserta program

Berikut ini adalah hasil akhir program pendaftaran peserta program.!

Form1.frm

Form2.frm

Petunjuk mengerjakan soal:

1. desainlah form1 seperti diatas dengan memanfaatkan 5 Label, 4 textbox, 4 option, 2 tombol, dan 1 Dtpicture (tambahan componen Microsoft Windows Common Controls 2 6.0 SP4 )
2. desain pada form2 terdapat 15 Label, 1 garis, dan 2 tombol.

Alur Program:

1. pada form1 diinputkan data yang sesuai secara lengkap kemudian klik tombol cetak bukti
2. maka form2 yaitu print preview akan menampilkan kembali data yang diisikan sebelumnya dan siap untuk di cetak.
3. tombol Batal adalah untuk keluar dari print preview
4. tombol Keluar adalah untuk keluar dari program. (END).

Terimakasih semoga dapat mengerjakan dengan baik.

(for Informatika Magistra Utama)

TUGAS 1 - Membuat program perhitungan penjualan komputer

Berikut adalah hasil akhir program perhitungan penjualan komputer.!

Petunjuk mengerjakan:

1. buatlah label Jumlah, harga, total, komputer, monitor, printer, total harga : rp, jumlah total komputer, jumlah total monitor, dan jumlah total printer
2. buatlah inputan dengan textbox pada jumlah komputer, monitor, printer, harga komputer, monitor, dan printer
3. sebuah garis (line) dan satu buah tombol hitung
4. masukkan rumus pada tombol hitung sesuai dengan contoh hasil perhitungan diatas.

Selamat mengerjakan semoga sukses. aamiin....

(for Informattika Magistra Utama)

SOAL UJIAN PRAKTEK ALGORITMA DAN PEMROGRAMAN DASAR

Berikut adalah gambar hasil akhir programnya.!

Petunjuk mengerjakan:

1. (Persegi Panjang) luas = lanjang * lebar
2. (Perulangan) Tampilkan barisan : menampilkan sederetan simbol seperti yang ditulis di kolom simbol dan tampil baris sebanyak jumlah yg di inputkan dan berderet berjumlah sama dengan uruta baris. misal pada baris 1 menampilkan 1 simbol, baris 2 menampilkan 2 simbol, begitu seterusnya... sampai sesuai dengan jumlah.
3. (Jam dan Tanggal) ditampilkan pada sebuah textbox dan memanfaatkan komponen timer kemudian ditampilkan dengan format tersebut diatas.
4. tampilkan foto masing - masing peserta program sebagai identitas diri.

Terima kasih semoga berhasil...

(For Informatika Magistra Utama)

File Setup Projeck Program Aplikai v.4

Seiring bertambahnya ilmu pengetahuan maka berkembang pula penerapan pada projeck program dalam pembuatan file setup, atau penginstallan componen - componen program.
berikut adalah update file setup program v.4.rar (download).

Materi Dasar - Dasar Komputer

Berikut ini adalah beberapa materi yang akan anda pelajari dalam pelatihan dan kursus komputer di MASBOING.

Dasar Windows:
1. Display Propertis
2. Control Panel
3. Explorer
4. Regional Language
5. Format Data
6. Manajemen File

Office Word:
1. Dokumen Properties
2. Format Paragraf
3. Format Font
4. Bullet and Numbering
5. WordArt
6. Tabel
7. Cetak Amplop dan Surat
8. Mail Marge

Office Excel:
1. Mengatur Worksheet dan Format Cell
2. Rumus Dasar atau Standart
3. Rumus Logika IF
4. Rumus Pembacaan Tabel (Lookup)
5. Penjumlahan Date and Time
6. Membuat Grafik
7. Mengurutkan Data dan Filter
8. Pengaturan Pencetakan Worksheet

Profil

Assalamu'alaikum wr. wb. sahabat blogger

Blog BERBAGIILMULAH ini merupakan suatu sarana untuk berbagai ilmu baik itu ilmu umum ataupun ilmu agama. pembahasan ilmu umum antara lain seperti ilmu dibidang komputer seperti aplikasi Office ( Word, Excel, Powerpoint ), Aplikasi Desain ( Adobe Photoshop, CorelDraw ), Animasi ( Adobe Flash ), Web ( Dreamweaver, PHP ), dan juga pemrograman ( Vb 6.0 ).

Saya sendiri telah membangun usaha yang bernama MASBOING yaitu usaha service komputer/laptop dan hp. selain itu masboing juga melayani pembuatan program aplikasi atau software house dan juga pelatihan atau kursus singkat 1 sampai 2 bulan. Program kursus tersebut antara lain : Office dan Desain.

MASBOING bertempat di Ds. Kedungringn Muncar Banyuwangi Jawa Timur Indonesia. So bagi anda yang ingin kursus private ataupun berkelompok silahkan mengubungi saya ( Ahmad Ghozali ) telp. 085 258 511 260. Terimakasih atas kunjungannya dan semoga kedepan kita menjadi lebih baik lagi.

Waalaikumusssalam wr. wb.

Format Input Nilai UTS Genap 2014

Berikut adalah beberapa format input nilai untuk Ujian Tengah Semester Genap Tahun 2014 yang di kelompokkan menjadi 3 bagian, yaitu:

A. SEMUA JURUSAN

    1. Format Nilai UTS Genap kelas X   download

    2. Format Nilai UTS Genap kelas XI  download

B. JURUSAN TKJ

    1. Format Nilai UTS Genap kelas X   download

    2. Format Nilai UTS Genap kelas XI  download

C. JURUSAN TPHPi

    1. Format Nilai UTS Genap kelas X   download

    2. Format Nilai UTS Genap kelas XI  download

nb: batas akhir pengumpulan nilai tersebut maksimal adalah 3 hari setelah UTS Genap 2014.

terima kasih.

Membuka Proteksi Sheet pasa MS Excel

Script ini menyediakan password untuk membuka proteksi worksheet anda. Bagaimanapun, password yang disediakan mungkin bukan password asli yang digunakan.

buka workbook yang memiliki sheet yang terproteksi didalamnya. Tekan Alt+F11 (view code) untuk menampilkan Visual Basic Editor. Klik Insert > Module & paste kode berikut pada jendela yang berada di kanan:

===================================================

Sub PasswordBreaker()
  Dim i As Integer, j As Integer, k As Integer
  Dim l As Integer, m As Integer, n As Integer
  Dim i1 As Integer, i2 As Integer, i3 As Integer
  Dim i4 As Integer, i5 As Integer, i6 As Integer
  On Error Resume Next
  For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126


 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
      Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
      Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  If ActiveSheet.ProtectContents = False Then
      MsgBox "One usable password is " & Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
       Exit Sub
  End If
  Next: Next: Next: Next: Next: Next
  Next: Next: Next: Next: Next: Next

End Sub

=================================================================