Tugas Mikroprosesor

Nama : TArno
NIm : 11.11.2397
Kelas : TI 11B


1. Pengertian Mikrokontroler

Mikrokontroler adalah salah satu dari bagian dasar dari suatu sistem komputer. Meskipun mempunyai bentuk yang jauh lebih kecil dari suatu komputer pribadi dan komputer mainframe, mikrokontroler dibangun dari elemen-elemen dasar yang sama. Secara sederhana, komputer akan menghasilkan output spesifik berdasarkan inputan yang diterima dan program yang dikerjakan.
Seperti umumnya komputer, mikrokontroler adalah alat yang mengerjakan instruksi-instruksi yang diberikan kepadanya. Artinya, bagian terpenting dan utama dari suatu sistem terkomputerisasi adalah program itu sendiri yang dibuat oleh seorang programmer. Program ini menginstruksikan komputer untuk melakukan jalinan yang panjang dari aksi-aksi sederhana untuk melakukan tugas yang lebih kompleks yang diinginkan oleh programmer.

2. Menyederhanakan Program

Langkah:

1.      Hubungkan PORT DT51 MinSysndengan PORT OUTPUT DT-51 tariner board.

2.      Hubungkan CONTROL DT-51 Min Sys dengan CONTROL DT-51 trainer board.

3.      Hubungkan DT-51 MinSysdengan PC menggunakan kabel serial

4.      Hubungkan Dt-51 MInSysdengansumber tegangan

  

Program 4 Transfer data Output dari Data RAM

Data disimpan di RAM, kemudian satu persatu dikeluarkan ke P1, berikut source code yang akan di sederhanakan :

$mod51

     CSEG

     ORG   4000H

     LJMP  START

     ORG 4100H

START:    MOV 30H,#00000001B

MOV 31H,#00000010B

MOV 32H,#00000100B

MOV 33H,#00001000B

MOV 34H,#00010000B

MOV 35H,#00100000B

MOV 36H,#01000000B

MOV 37H,#10000000B

ULANG:  MOV P1,30H

                 MOV P1,31H

ACALL TUNDA

MOV P1,32H

ACALL TUNDA

                 MOV P1,33H

                 ACALL TUNDA

                 MOV P1,34H

                 ACALL TUNDA

                 MOV P1,35H

                 ACALL TUNDA

                 MOV P1,36H

                 ACALL TUNDA

                 MOV P1,37H

                 ACALL TUNDA

                 SJMP ULANG

TUNDA:  MOV R7,#0FFh

LAGI:      MOV R6,#0FFh

SINI:        DJNZ R6,SINI

                 DJNZ R7,LAGI

                 RET

END

 2.1 Program yang sudah disederhannakan.

$mod51

                        ROM EQU 0000h

                        ORG ROM

                        LJMP MULAI

                        ORG ROM+0100

MULAI:   MOV A, #00000001b

NEXT:     MOV P1, A

                        ACALL TUNDA

                        RL A

                        CJNE A,#10000000b, NEXT

                        SJMP NEXT

TUNDA:  MOV R7,#03h

LUP1:      MOV R6,#0ffh

LUP2:      MOV R5,#0ffh

                        DJNZ R5,$

                        DJNZ R6,LUP2

DJNZ R7,LUP1

RET

END

LINK WEB lainnya

http://guru.technosains.com 

 http://gobeep.blogspot.com/

http://ohide17.blogspot.com/

MENGGABUNGKAN SEBUAH PROGRAM DENGAN DATA BASE

 

Untuk menggabungkan sebuah data base ke dalam program visual basic kita membutuhkan sebuah applikasi program pembuat data base seperti SQL server 2005.

Untuk langkah - langkahnya adalah sebagai berikut:

Buka SQL server 2005 -> SQL server management studio

Kemudian muncul kotak dialog connect to server, lalu klik Connect

 

Kemudian pada Data Base, Klik kanan dan New Data Base

 

 

 Kemudian beri Nama Data Basenya pada "Name Data Base" dan pilih juga tempat penyimpanannya

 

 

Kemudian klik 2x pada "Data Base" dan pada "Nama Data Base tersebut", lalu klik kanan dan pilih "New Table" 

 

Setelah itu isikan tabel tersebut dengan atribut - atributnya beserta tipe datanya

kemudian simpan dan beri nama sub table tersebut

Setelah itu pada nama table, klik kanan dan pilih Open Table

Kemudia isikan Datanya sesuai nama atributnya

 

Setelah itu kita buka Visual Basic 2010 dan buat from baru

Kemudian koneksikan Data Base dengan Form

Pilih Menu Data -> Add New Data Source -> pilh "Data Base" -> next

Klik New Conection -> pilih Microsoft SQL Server -> continou

Lengkapi isian lalu klik Test Conection, jika koneksi succes berarti koneksi berhasil -> Ok -> next

Pada Chouse Your Data Base Object pilih nama table yang akan di tampilkan dengan mencentangnya.

Kemudian Finish

Kemudian pada form baru kita isikan dengan nama - nama atrubut - atribut yang berada pada data base, yaitu dengan cara drag nama - nama atribut kemudian pindahkan ke form.

Dan beri button tambahan seperti Sebelum, Selanjutnya, Awal, Akhir, Simpan, Hapus, Filter, dan Cari

 

 

 

 

 

 

Dan Untuk Kode programnya Sebagai Berikut:

 

Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

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

        'TODO: This line of code loads data into the 'DbmahasiswaDataSet.tbmahasiswa' table. You can move, or remove it, as needed.

        Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)

    End Sub

    Private Sub JurusanTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorMoveNextItem.Click

    End Sub

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

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TbmahasiswaBindingSource.MoveLast()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TbmahasiswaBindingSource.AddNew()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If MsgBox("Yakin ingin Menghapus", vbQuestion + vbYesNo + vbDefaultButton1, "Perhatian") = vbYes Then

            TbmahasiswaBindingSource.RemoveCurrent()

        End If

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TbmahasiswaBindingSource.Find()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TbmahasiswaBindingSource.Filter

    End Sub

End Class

 

 

 

Penjelasan Programnya untuk setiap button Sebagai Berikut:

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

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button Save, yaitu untuk menyimpan sebuah data base yang telah di tuliskan atau data base baru

 

 

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button keawal

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

 =>Untuk program diatas merupakan code program untuk perintah button sebelumnya


 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveNext()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button selanjutnya

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TbmahasiswaBindingSource.MoveLast()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button keakhir

  Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TbmahasiswaBindingSource.AddNew()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button tambah, yaitu untuk menambah data base

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        If MsgBox("Yakin ingin Menghapus", vbQuestion + vbYesNo + vbDefaultButton1, "Perhatian") = vbYes Then

            TbmahasiswaBindingSource.RemoveCurrent()

        End If

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button hapus, yaitu untuk menghapus data base

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TbmahasiswaBindingSource.Find()

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button cari, yaitu untuk mencari suatu data base

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TbmahasiswaBindingSource.Filter

    End Sub

=>Untuk program diatas merupakan code program untuk perintah button filter, yaitu untuk menyaring data base yang kita inginkan

MACAM - MACAM FUNCTION BAWAAN DARI VISUAL BASIC

Pengertian Function Bawaan

Function bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

Untuk mendeklarasikan atau syntax penulisan dari function procedure adalah sebagai berikut :

Private/Publik function nmfu (byref/byval/optional/paramarray nmparam as type)type data
..........(berisi baris perintah).........
End Function

Cara pemanggilan sebuah fungsi dapat dilakukan melalui beberapa cara, yaitu;

• Variabel  (nama Function Procedure)
• Call NamaFunctionProcedure (Parameter)
• NamaFunctionProcedure (Parameter)

Macam-macam fungsi bawaan

Dalam VB juga terdapat fungsi-fungsi bawaan yang bisa digunakan secara langsung. Ada sejumlah fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu Textbox menjadi tipe data Numeric agar dapat digunakan untuk operasi perhitungan.

 

Fungsi yang berkaitan dengan matematika diantaranya:

Fungsi untuk mengkonversi ke integer
Ada tiga macam fungsi yang melakukan konversi ke tipe integer,antara lain

• Int()            Yaitu pembulatan kebawah suatu nilai decimal
• Fix()           Yaitu pemotongan suatu nilai desimal menjadi integer
• Cint()          Yaitu pembulatan nilai desimal 0.5 atau lebih ke integer yang lebih dekat

contoh pendeklarasian pada Int

Dim bil As Double
        bil = Int(Val(TextBox1.Text))
        TextBox2.Text = bil

contoh diatas berlaku juga untuk Fix dan Cint

Fungsi String

•     Left                mengambil karakter dari sebelah kiri
•     Right              mengambil karakter dari sebelah kanan
•     Mid               mengambil karakter dari tengah
•     LTrim             membuang semua semua awal spasi yang ada disebelah kiri
•     RTrim             membuang semua semua awal spasi yang ada disebelah kanan
•     Trim               membuang semua spasi yang ada disebelah kiri dan kanan
•     Len                memberikan nilai balik integer sebagai panjang string
•     LCase            mengubah string menjadi huruf kecil semua
•     UCase            mengubah string menjadi huruf besar semua
•     Str (int)           mengubah bilangan menjadi string (konversi)
•     Chr (Asscii)    konversi dari nilai ascii menghasilkan karakter

Fungsi-fungsi matematika

• Abs()        Mengembalikan nilai Absolut dari argumen
• Atn()         Mengembalikan nilai arc tangen dari argumen dalam bentuk radian
• Cos()         Mengembalikan nilai cosinus dari argumen dalam radian
• Exp()         Mengembalikan nilai Eksponensial dari argumen
• Log()         Mengembalikan nilai logaritma dari argumen
• Sin()           Mengembalikan nilai sinus dari argumen dalam radian
• Sqr()          Mengembalikan nilai akar dari argumen
• Tan()          Mengembalikan nilai tangen dari argumen dalam radian

Fungsi Tanggal dan Waktu

• Date()                             : mengambil tanggal system komputer
• IsDate                             : memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal
• DateValue                       : konversi string menjadi date
• Time()                             :  mengambil waktu dari system komputer
• TimeValue(str)                 : konversi string ke variable date 
• D(Date),M(Date),Y(Date): memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun
• H(Date),M(Date),S(Date): memberikan nilai integher dari variable date untuk jm, menit dan deik

  Itu beberapa penjelasan dari  macam-macam function bawaan yang terdapat dalam VB yang sering kita gunakan.

Function dengan Return Value Berupa Array

Dibawah ini merupakan contoh program praktikum dengan penggunaan fungtion return value beberapa array

Tampilan awal program yang telah di beri beberapa atribut atau toolbarnya

 Tampilan proses program

 

Untuk Kode Programnya Sebagai Berikut:

Public Class Form1

    Private Function fstat(ByVal ParamArray args() As Object) As Single()

        Dim hasil(3) As Single

        Dim i As Integer

        For i = 0 To UBound(args)

            hasil(0) = hasil(0) + args(i)

            If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

                hasil(3) = args(i)

            End If

            If hasil(1) < args(i) Then hasil(1) = args(i)

            If hasil(2) > args(i) Then hasil(2) = args(i)

            hasil(3) = hasil(0) / 10

        Next i

        Return hasil

    End Function

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

        Dim statistik As Single() = fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

        TextBox4.Text = statistik(3)

    End Sub

End Class

 

Penjelasan Kode Program Sebagai Berikut:

Private Function fstat(ByVal ParamArray args() As Object) As Single()

Berfungsi untuk deklarasi fungsi yang diberikan nama fstat yang memiliki tipe Single(), yang memiliki parameter berupa Array yang bernama args() dengan tipe Object.

Dim hasil(3) As Single

        Dim i As Integer 

Pendeklarasian variabel yang bernama hasil() dan bertipe single yang memiliki kapasitas 3, dan variabel i yang bertipe integer.

For i = 0 To UBound(args)

            hasil(0) = hasil(0) + args(i)

            If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

                hasil(3) = args(i)

            End If

            If hasil(1) < args(i) Then hasil(1) = args(i)

            If hasil(2) > args(i) Then hasil(2) = args(i)

            hasil(3) = hasil(0) / 10

        Next i

Proses perulangan akan dilakukan sebanyak jumlah perintah index dalam parameter array. Hasil(0) akan menghasilkan jumlah dari semua angka.

• Hasil (1) akan menghasilkan nilai terbesar dalam array.  
• Hasil (2) akan menghasilkan nilai terkecil dalam array.
• Dan Hasil (3) akan menghasilkan nilai Rata-rata dalam array.

Return hasil

Perintah yang akan mengembalikan nilai hasil ke dalam fungsi sehingga ketika fungsi dipanggil harus menggunakan variabel yang bertipe array.

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

        Dim statistik As Single() = fstat(1, 6, 2, 10, 4, 7, 9, 8, 5, 3)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

        TextBox4.Text = statistik(3)

    End Sub

End Class

Merupakan sebuah proses pemanggilan fungsi pada event Button1 pada saat di-klik. Pada pemanggilan fungsi terlebih dahulu dideklarasikan sebuah variabel yang bertipe array, Kemudian nilai pada index satu ditampilkan pada textbox yang kita inginkan.

 

 

 

 

 

 

 

 

 

 

 

 

SEKIAN TERIMAKASIH............................