DI-Smart AVR System (Sistem Minimum Mikrokontroler AVR ATMEGA8535)

DI-Smart AVR System adalah sebuah modul elektronika yang berdasar pada rangkaian sistem minimum mikrokontroler AVR (sismin AVR) ATMEGA8535 seperti pada gambar 3. Modul ini pun dapat digunakan sebagai sistem minimum mikrokontroler AVR lain yang pin-pin-nya bersesuaian dengan mikrokontroler ATMEGA8535, seperti mikrokontroler ATMEGA16 dan mikrokontroler ATMEGA32. Modul sistem minimum mikrokontroler AVR ini telah dilengkapi dengan beberapa fitur yang dapat mempermudah proses pembelajaran atau proses “troubleshooting” pemrograman.

Gambar 1. DI-Smart AVR System.

Dimensi PCB:
98.2mm(X) x 93.5mm(Y) x 1.9mm(Z)
Aplikasi:

• DI-Smart AVR System yang berdasar pada sistem minimum mikrokontroler AVR ATMEGA8535 ini dapat dijadikan sebagai media pembelajaran pemrograman mikrokontroler AVR.
• Modul dengan sistem minimum mikrokontroler AVR ini sangat baik difungsikan sebagai CPU (Central Processing Unit) atau Pengendali dalam berbagai macam sistem: sistem instrumentasi, sistem robotika, dan otomasi-otomasi yang lainnya.

Spesifikasi:

• Dapat digunakan sebagai sistem minimum mikrokontroler AVR untuk tipe ATMEGA8535(L), ATMEGA16(L), ATMEGA32(L), ATMEGA163(L), ATMEGA323(L).
• Menggunakan XTAL 11.0592MHz.
• Dilengkapi rangkaian regulator 5V dan dioda pengaman dengan konektor DC yang mudah dihubungkan dengan Adaptor-DC.
• Dilengkapi rangkaian antarmuka (interface) Max232 sehingga dapat langsung dihubungkan pada PORT SERIAL / COM PORT komputer.
• Koneksi ADC sudah disiapkan (AVCC, AGND, dan AREF) sehingga sistem sudah siap untuk menerima input ANALOG pada PORTA.
• Tersedia Array LED pada PORTC, dan Push-ON pada PORTD.2 dan PORTD.3 sehingga cocok untuk latihan pemrograman atau pengecekkan program (DEBUG).

Kelengkapan Produk:

• 1 buah DI-Smart AVR System
• 1 buah kabel konektor IDC-10
• 1 Lembar Penjelasan Produk

Cara Praktis Membuat Rangkaian sampai layout PCB (papan rangkaian tercetak)

Untuk menanggapi bagaimana membuat PCB pada project teknik digital, ada beberapa tahapan :

1. Siapkan ide piranti rangkaian digital yang akan dibuat
2. Tentukan masukan dan keluaran dari rangkaian digital yang akan dibuat melalui tabel kebenaran
3. Sederhanakan ungkapan Boolean dalam tabel kebenaran menggunakan peta Karnaugh dan minimisasi ungkapan Boolean
4. Simulasikan dalam aplikasi software seperti circuit maker atau menggunakan diagram bentuk gelombang pada Maxplus II
5. Tentukan komponen digital / chip yang akan digunakan
6. Siapkan komponen / chip yang akan digunakan dalam project, agar tahu ukuran sehingga bisa disesuaikan dengan perancangan PCB-nya
7. Setelah komponen tersedia, rancang PCB-nya menggunakan Eagle
8. Teliti sambungan jangan sampai tidak tersambung apalagi salah penyambungan pada rancangan PCB
9. Jika sudah selesai, silahkan di-print, teliti sekali lagi kalau perlu cocokkan dengan komponen / chip yang tersedia
10. Foto copy hasil printer PCB pada kertas glossy
11. Letakkan kertas glossy yang ada cetakan PCB pada PCB
12. Rekatkan atau usahakan kertas gloosy tersebut dan PCB tidak bergeser
13. Setrika kertas glossy tersebut dengan panas yang sesuai, tekan dan tahan setrika sehingga dapat dipastikan bahwa serbuk foto copy menempel secara merata pada PCB
14. Jika merasa sudah menempel merata, diamkan sebentar kemudian masukkan dalam air sambil menghilangkan kertas yang menempel, lakukan dengan hati-hati jangan sampai merusak sambungan PCB
15. Larutkan Ferre Chlorida dengan air secukupnya pada loyang (wadah); (Hati-hati ferre chlorida zat yang beracun)
16. Letakkan PCB pada larutan Ferre chlorida dan goyang-goyang loyang (wadah) sampai PCB yang tidak tertutup serbuk foto copy hilang, kemudian bersihkan dengan air
17. Lubangi PCB sesuai rancangan peletakkan komponen dengan bor
18. Letakkan komponen yang tersedia pada PCB kemudian solder dengan timah
19. Lakukan hati-hati ketika menyolder jangan sampai terlalu panas karena akan dapat merusak komponen dan PCB

Quis No 3 Pak Mesran

Listing Login :
Public Class Form1
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If username.Text = "Rizki Wardhana" And password.Text = "0911329" Then
            menuutama.Show()
            Me.Hide()
        Else
            MsgBox("Username / Password SALAH")
            username.Text = ""
            password.Text = ""
        End If

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        username.Focus()
    End Sub
End Class

Hasil Program Login :

  


Listing Menu :

Public Class menuutama

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
        End

    End Sub

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
        pegawai.show()
    End Sub
End Class

Hasil Program Menu :




Listing Pengajian Karyawan :

Public Class pegawai

    Private Sub pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("00112")
        nip.Items.Add("00225")
        nip.Items.Add("43342")

        jabatan.Items.Add("Staf")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Kepala Bagian")

        status.Items.Add("Belum Menikah")
        status.Items.Add("Menikah")

        lembur.Items.Add("Tidak")
        lembur.Items.Add("Ya")


        nip.Focus()

        Call buattabel()


    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "00112" Then
            nama.Text = "Rizki"
        ElseIf nip.Text = "00225" Then
            nama.Text = "Ayu"
        ElseIf nip.Text = "43342" Then
            nama.Text = "Fahrul"
        End If
    End Sub

    Private Sub jabatan_SelectedIndexChaenged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Staf" Then
            gaji.Text = 1250000
        ElseIf jabatan.Text = "Mandor" Then
            gaji.Text = 1750000
        ElseIf jabatan.Text = "Kepala Bagian" Then
            gaji.Text = 2500000
        End If

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            tjgistri.Text = gaji.Text * 9 / 100
            jlhanak.Enabled = True

        ElseIf status.Text = "Belum Menikah" Then
            tjgistri.Text = 0
            jlhanak.Enabled = False
            pajak.Text = gaji.Text * 1.5 / 100
            total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)
        End If

    End Sub

    Private Sub jlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.TextChanged
        If jlhanak.Text <> "" Then
            If jlhanak.Text = 0 Then
                tjganak.Text = 0
            ElseIf jlhanak.Text = 1 Then
                tjganak.Text = gaji.Text * 3 / 100
            ElseIf jlhanak.Text >= 2 Then
                tjganak.Text = gaji.Text * 7 / 100
            End If
        End If

        pajak.Text = gaji.Text * 1.5 / 100
        total.Text = Val(gaji.Text) + Val(tjganak.Text) + Val(tjgistri.Text) + Val(gjlmbr.Text) - Val(pajak.Text)

    End Sub

    Sub buattabel()
        ListView1.Columns.Add("N.I.P", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("jabatan", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Status", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Gaji", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Gaji Lembur", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Tunjangan Keluarga", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)

        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = nip.Text
        isi.SubItems.Add(nama.Text)
        isi.SubItems.Add(jabatan.Text)
        isi.SubItems.Add(status.Text)
        isi.SubItems.Add(jlhanak.Text)
        isi.SubItems.Add(gaji.Text)
        isi.SubItems.Add(gjlmbr.Text)
        isi.SubItems.Add(tjganak.Text)
        isi.SubItems.Add(tjgistri.Text)
        isi.SubItems.Add(pajak.Text)
        isi.SubItems.Add(total.Text)

        ListView1.Items.Add(isi)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call isitabel()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        status.Text = ""
        jlhanak.Text = ""
        gaji.Text = ""
        tjganak.Text = ""
        tjgistri.Text = ""
        pajak.Text = ""
        total.Text = ""
        lembur.Text = ""
        jmljam.Text = 0
        perjam.Text = ""
        gjlmbr.Text = ""
        jmljam.Enabled = False
        perjam.Enabled = False
        gjlmbr.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        status.Text = ""
        jlhanak.Text = ""
        gaji.Text = ""
        tjganak.Text = ""
        tjgistri.Text = ""
        pajak.Text = ""
        total.Text = ""
        lembur.Text = ""
        jmljam.Text = 0
        perjam.Text = ""
        gjlmbr.Text = ""
        jmljam.Enabled = False
        perjam.Enabled = False
        gjlmbr.Enabled = False

        ListView1.Items.Clear()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub lembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.SelectedIndexChanged
        If lembur.Text = "Ya" Then
            jmljam.Enabled = True
            perjam.Enabled = True
            gjlmbr.Enabled = True
            If jabatan.Text = "Staf" Then
                If perjam.Text = "" Then
                    perjam.Text = 5000
                End If
            ElseIf jabatan.Text = "Mandor" Then
                If perjam.Text = "" Then
                    perjam.Text = 7500
                End If
            ElseIf jabatan.Text = "Kepala Bagian" Then
                If perjam.Text = "" Then
                    perjam.Text = 10000
                End If
            End If

        End If
        If lembur.Text = "Tidak" Then
            gjlmbr.Text = 0
            jmljam.Text = 0

            jmljam.Enabled = False
            perjam.Enabled = False
            gjlmbr.Enabled = False
            If jabatan.Text = "Staf" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If
            ElseIf jabatan.Text = "Mandor" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If
            ElseIf jabatan.Text = "Kepala Bagian" Then
                If perjam.Text <> 0 Then
                    perjam.Text = ""
                End If


            End If
        End If


    End Sub

    Private Sub jmljam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmljam.TextChanged
        gjlmbr.Text = perjam.Text * jmljam.Text

    End Sub
End Class


Hasil Program Gaji Pegawai Sebelum :




   



Hasil Program Gaji Pegawai Sesudah :