Contoh program modular funsi dan prosedur

Contoh program modular funsi dan prosedur yang dibuat dengan visual basic

Sintaks :

Private Sub TulisTeks()
'PROGRAM MODULAR'
'DEKLARASI'
        
'DESKRIPSI'
    Label1.Caption = "Selamat datang di pemrograman modular"
End Sub

 Private Function JumlahAngka() As String
Dim angka1 As String, angka2 As String
Dim hasil As Single
angka1 = InputBox("Tulis angka 1 :", "Jumlah Angka")
angka2 = InputBox("Tulis angka 2 :", "Jumlah Angka")
If angka1 <> "" And angka2 <> "" Then
hasil = CSng(angka1) + CSng(angka2)
JumlahAngka = CStr(hasil)
End If
End Function

Private Sub Label1_DblClick()
Call TulisTeks("Hai", vbBlue)
End Sub

Private Sub Command1_Click()
Call TulisTeks
End Sub

Private Sub Command2_Click()
Label1.Caption = "Jumlah = " & JumlahAngka()
End Sub

Read More

Contoh program Array data pegawai

Berikut contoh program array untuk mengisi data pegawai yang dibuat dengan Visual Basic

Sintaks :
Dim NamaPekerja() As String

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
    Dim i As Integer
    ReDim NamaPekerja(1 To 5)
    For i = 1 To 5
        Combo1.AddItem i
    Next i
    Combo1.ListIndex = 0
    Text1.Text = 5
End Sub

Private Sub Command1_Click()
    Dim no As Integer, i As Integer
   
    no = CInt(Combo1.Text)
    NamaPekerja(no) = InputBox("Tuliskan nama pekerja no : " & no, "Input Nama Pekerja")
    If NamaPekerja(no) <> "" Then
        List1.Clear
        For i = 1 To UBound(NamaPekerja)
            List1.AddItem "NamaPekerja(" & i & ")=" & NamaPekerja(i)
        Next i
    End If
End Sub

Private Sub Command2_Click()
    Dim num As Integer, i As Integer
    If Not IsNumeric(Text1.Text) Then Exit Sub
    num = CInt(Text1.Text)
    ReDim NamaPekerja(1 To num)
    Combo1.Clear
    List1.Clear
    For i = 1 To UBound(NamaPekerja)
        Combo1.AddItem i
        List1.AddItem "NamaPekerja(" & i & ")=" & NamaPekerja(i)
    Next i
    Combo1.ListIndex = 0
End Sub

Read More

GRATIS Pelatihan pembuatan toko online

Sebagai bentuk diseminasi (penyebarluasan) untuk memperkenalkan teknologi IT (Information Technology) kepada masyarakat serta bentuk pemberdayaan masyarakat agar melek teknologi maka kami menyelenggarakan pelatihan Pembuatan Toko Online

Pelatihan ini bertujuan untuk memberikan pengetahuan dan keterampilan kepada masyarakat agar mampu membuat website dan mempublikasikan informasi maupun produk yang dimiliki agar dikenal luas oleh masyarakat dunia melalui media internet.
Adapun materinya adalah :
1. Pengenalan Internet
2. Pengenalan CMS Joomla
3. Cara membuat server localhost
4. Cara menginstal Virtuemart (toko online)
5. Cara membuat content produk yang akan dipasarkan
6. Cara membuat tampilan
7. Cara menambahkan menu
8. Cara menambahkan modul dan kelengkapan
9. Cara mengupload di internet

Pelatihan ini didesain berdurasi 2 jam, dan ditujukan bagi masyarakat terutama industri kecil, pemerintah desa dan kelompok masyarakat. Untuk keperluan pelatihan pengaturan jadwal silahkan menghubungi kami melalui email ahmad.muhsin@upnyk.ac.id.

Pelatihan ini bersifat Gratis/ tidak dipungut biaya!, dan karena keterbatasan waktu maka permintaan pelatihan hanya untuk wilayah Yogyakarta dan diselenggarakan hanya pada hari sabtu/ ahad.

Read More

Pelatihan Desain dan Pemrograman Website GRATIS !

Sebagai bentuk diseminasi (penyebarluasan) untuk memperkenalkan teknologi IT (Information Technology) kepada masyarakat serta bentuk pemberdayaan masyarakat agar melek teknologi maka kami menyelenggarakan pelatihan Desain dan Pemrograman Website.

Pelatihan ini bertujuan untuk memberikan pengetahuan dan keterampilan kepada masyarakat agar mampu membuat website dan mempublikasikan informasi maupun produk yang dimiliki agar dikenal luas oleh masyarakat dunia melalui media internet.
Adapun materinya adalah :
1. Pengenalan Internet
2. Pengenalan CMS Joomla
3. Cara membuat server localhost
4. Cara menginstal CMS Joomla
5. Cara membuat content/ informasi/ berita
6. Cara membuat tampilan
7. Cara menambahkan menu
8. Cara menambahkan modul dan kelengkapan
9. Cara mengupload di internet

Pelatihan ini didesain berdurasi 2 jam, dan ditujukan bagi masyarakat : organisasi pemuda, karang taruna, sekolah smp/sma, industri kecil, pemerintah desa dan kelompok masyarakat. Untuk keperluan pelatihan pengaturan jadwal silahkan menghubungi kami melalui email ahmad.muhsin@upnyk.ac.id.

Pelatihan ini bersifat Gratis/ tidak dipungut biaya!, dan karena keterbatasan waktu maka permintaan pelatihan hanya untuk wilayah Yogyakarta dan diselenggarakan hanya pada hari sabtu/ ahad.

Read More

Program sequence sederhana VB 6 : penentuan biaya tenaga kerja

Pada posting kali ini saya akan memberikan contoh pembuatan program aplikasi sederhana sebagai aplikasi dari struktur algoritma pemrograman sequence yaitu Program Penentuan Biaya Tenaga Kerja menggunakan program Visual Basic 6, anda juga dapat menggunakan VB versi yang terbaru saat ini yaitu Visual Studio Community 2015 yang bisa anda download secara gratis di websitenya milik microsoft.

Langkah pertama siapkan form berikut :

Yang terpenting adalah pada :
Textbox1 berikan nama TxtMesin
Textbox2 berikan nama TxtPekerja
Textbox3 berikan nama TxtLembur
Textbox4 berikan nama TxtNaker
Command Button berikan nama BtnProses

Klik ganda (double klik) pada BtnProses kemudian ketikkan sintaks berikut :
'PROGRAM PENENTUAN BIAYA TENAGA KERJA'
'DEKLARASI'
      Dim biaya_mesin, biaya_pekerja, biaya_lembur, biaya_naker as integer
'DEFINISI'
      biaya_mesin = Val (TxtMesin.Text)
      biaya_pekerja = Val (TxtPekerja.Text)
      biaya_lembur = Val (TxtLembur.Text)
      biaya_naker = biaya_mesin + biaya_pekerja + biaya_lembur
      biaya_naker = TxtNaker.Text 

Setelah selesai maka jalankan atau klik tombol run, hasilnya adalah seperti gambar dibawah :

Selamat mencoba !

Read More

Download buku bahan ajar Logika Dasar dan Pemrograman Komputer

Cover Depan 
Kata Pengatar 
Materi 1. PENGENALAN KOMPUTER 
Materi 2. KONSEP DASAR KOMPUTER
Materi 3. PENGANTAR LOGIKA PEMROGRAMAN
Materi 4. FLOWCHART
Materi 5. LOGIKA INFORMATIKA DAN INFERENSI 
Materi 6. TIPE DATA, VARIABEL, DAN KONSTANTA
Materi 7. BAHASA PEMROGRAMAN 
Materi 8. STRUKTUR DASAR ALGORITMA SEQUENCE 
Materi 9. STRUKTUR DASAR ALGORITMA SELECTION 
Materi 10. STRUKTUR DASAR ALGORITMA LOOPING 
Materi 11. PEMROGRAMAN MODULAR : FUNGSI 
Materi 12. PEMROGRAMAN MODULAR : PROSEDUR
Materi 13. ARRAY 
Materi 14. SORTING DAN SEARCHING  
Materi 15. PEMROGRAMAN BERORIENTASI OBJEK 
Materi 16. PENGANTAR PERANCANGAN SISTEM INFORMASI 
Penutup
Cover Belakang    

Read More

Pembagian kelompok presentasi materi DSS sem genap 2016

source : community.mis.temple.edu

MATERI PRESENTASI DSS
Untuk mendukung proses pembelajaran metode SCL (Student Centered Learning), KKNI (Kerangka Kualifikasi Nasional Indonesia) dan pencapaian kompetensi maka mahasiswa dibagi menjadi beberapa kelompok proporsional, setiap kelompok akan mendapatkan materi yang akan dibahas, kelompok yang akan dibahas materinya wajib mempersiapkan diri dengan berbagai bahan pendukung (termasuk presentasi untuk menjelaskan hasil kajian kelompok), pada saat sesi pembahasan kelompok akan mempresentasikan hasil kajian dan dibuka sesi tanya jawab

Pembagian Kelompok :
Kelompok 1
1    122090144    TARSADI
2    122100039    ROLAN SEPTIAN
3    122100143    M RIFKI HIDAYATULLAH
4    122110032    AGUNG PRASETIO NUGROHO
Pertemuan 4. Perancangan SPK
Pertemuan 10. Perancangan Antar Muka SPK

Kelompok 2
5    122120050    KEVIN KEEGAN HASIHOLAN MANURUNG
6    122120071    PRAYOGO SATYANUGROHO
7    122130050    RIZZA DWI NUSITA
Pertemuan 5. Alat bantu perancangan SPK
Pertemuan 11. Teknik Pengujian SPK

Kelompok 3
8    122130055    MITA INDAH PRAMUDITA
9    122130126    MILATA AJI PERMANA
10    122130145    MUHAMMAD ADE RAFIYAN
Pertemuan 6. Manajemen Model SPK
Pertemuan 12. SPK Kelompok

Kelompok 4
11    122130171    NADIA HABRIYANA
12    122130184    FEBRI TRIANTO
13    122130216    MUH. AZWAR ABDULLAH
Pertemuan 7. Manajemen Basis Data SPK
Pertemuan 13. Model pengambilan keputusan : AHP

NB :
Setiap kelompok wajib membuat materi presentasi yang diambilkan dari bahan ajar yang telah diberikan dosen pengampu yang dapat didownload DISINI atau URL http://ahmadmuhsinupn.blogspot.co.id/2015/11/download-materi-kuliah-decision-support.html

Read More