Tugas Mikroprosessor
Disusun oleh :
Yusuf Suprianto
11.11.2541
TI11D
1. Pengertian Microcontroller
Microcontroller adalah sistem mikroprosesor lengkap yang terkandung di dalam sebuah chip. Microcontroler berbeda dari microprosesor serba guna yang digunakan dalam sebuah PC, karena di dalam sebuah microcontroler umumnya juga telah berisi komponen pendukung sistem minimal microprosesor, yakni memori dan antarmuka I/O, sedangkan di dalam microprosesor umumnya hanya berisi CPU saja.
2. Menyederhanakan Program
PRAKTEK-1
BASIC I/O P1 SEBAGAI OUTPUT
Langkah:
1. Hubungkan PORT DT51 Min Sys dengan PORT OUTPUT DT-51 tariner
board.
2. Hubungkan CONTROL DT-51 Min Sys dengan CONTROL DT-51 trainer
board.
3. Hubungkan DT-51 Min Sys dengan PC menggunakan kabel serial
4. Hubungkan Dt-51 MIn Sys dengan sumber tegangan
Program
4 Transfer data Output dari Data RAM
Data disimpan di RAM, kemudian satu
persatu dikeluarkan ke P1
1. Source
Code yang masih lengkap
$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. Setelah
itu di modifikasi menjadi source code yang lebih singkat.
$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
Sekian modifikasi source code untuk Transfer data Output
dari Data RAM. Semoga membantu anda yang sama-sama sedang mempelajari atau
mendalami materi mikroprosesor.
LINK WEBSITE LAINNYA :
http://updtkpj2.wordpress.com/
http://khatirudinmaarif.blogspot.com/
http://vengeance16.blogspot.com/
http://yudadayu.blogspot.com/
http://ilmucomputer2512.blogspot.com
http://hendraadiprasetyo.blogspot.com/
http://mreferensi.blogspot.com/
http://cci-amikom.forumid.net/
http://erickmoestika.blogspot.com/
http://gakbakalmati.blogspot.com/2014/01/microcontroller.html
http://performance-arch.blogspot.com/2014/01/seven-segment-dt-51.html
http://dimasbobby.blogspot.com/2014/01/micro-controller.html
http://adittyawardanii.blogspot.com/2014/01/microcontroller-pengendalimikro-bahasa.html
http://penasarandunia.blogspot.com/2014/01/mikroprosesor-dan-mikrokontroler.html
http://erfanya.blogspot.com/2014/01/pengukur-suhu-berbasis-mikrokontroler.html
http://subur-ade.blogspot.com/2014/01/traffic-light-2-mode-menggunakan.html
http://cci-amikom.forumid.net/t141-mikroprosesor-tugas-ti-11-d-egi-rizki-gumilar-11112583#245
Tugas 7
Conection
antara SQL Server dengan Microsoft Visual Basic
1.
Bukalah SQL Server, dan buatlah
database dengan nama dbmahasiswa.
2.
Setelah di Ok
akan muncul dbmahasiswa seperti
gambar dibawah ini:
3.
Lalu klik 2
kali dbmahasiswa dan klik table modify, lalu Buatlah desain
tabelnya seperti berikut ini;
4.
Kemudian isi table yang sudah dibuat
dengan 2 data. Pada tbmahasiswa klik kanan, lalu pilih Open Table.
Seperti gambar dibawah:
5.
Setelah membuat database di SQL
Server selesai, lalu dilanjutkan dengan membuat project baru di Microsoft
Visual Basic 2010 seperti biasanya.
6.
Bukalah database yang sudah dibuat
dengan meng-klik pada menu Data >> Add New Data Source… >> Database, lalu Next >> Dataset, lalu Next
>> New Connection… >> pilih Microsoft SQL Server, lalu
Continue. Kemudian akan muncul kotak dialog seperti berikut:
7.
Pada bagian Server Name, pilih
server yang tersedia. Jika tidak bisa kembali ke SQL Server dan sorot nama
server (pilih Connect lalu copy nama server tersebut). Pada Log on to
the server pilih Use Windows Authentication. Dan masukkan dbmahasiswa.
Lalu Test Connection, jika sukses maka telah siap dikonekkan. Selanjutnya pilih
OK
8.
Dan tunggu beberapa saat hingga
muncul tampilan. Cek semua table yang akan digunakan pada Visual Basic. Seperti gambar dibawah ini;
9.
Lalu finish,
Setelah itu, kembali ke Visual Basic. Pada menu Data
pilih Show Data Sources.
10. Pada
kolom jurusan, model nya diganti dengan ComboBox.
11. Drag
semua ke form. Dan buatlah tampilan seperti berikut: (pada Jurusan dibuat ComboBox, tambahkan
item TI dan SI dengan Edit Items).
12. Kemudian
isikan kode berikut:
Public Class Form1
Private Sub
TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs)
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 NAMALabel_Click(ByVal sender As
Object, ByVal e As EventArgs)
Throw New NotImplementedException
End Sub
## Untuk Button
pertama ##
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)Handles
Button1.Click
Me.TbmahasiswaBindingSource.MoveFirst()
End Sub
## Untuk
Button Sebelumnya ##
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.TbmahasiswaBindingSource.MovePrevious()
End Sub
## Untuk Button
Selanjutnya ##
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.TbmahasiswaBindingSource.MoveNext()
End Sub
## Untuk Button
Terakhir ##
Private Sub Button4_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.TbmahasiswaBindingSource.MoveLast()
End Sub
## Untuk Button
tambah ##
Private Sub bttambah_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles bttambah.Click
Me.TbmahasiswaBindingSource.AddNew()
NIMTextBox.Focus()
TGL_LAHIRDateTimePicker.ResetText()
End Sub
## Untuk Button hapus
##
Private Sub bthapus_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles bthapus.Click
If MsgBox("Apakah Anda Yakin
?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes
Then
Me.TbmahasiswaBindingSource.RemoveCurrent()
End If
End Sub
## Untuk Button
simpan ##
Private Sub Btsimpan_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Btsimpan.Click
Me.Validate()
Me.TbmahasiswaBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
End Sub
## Untuk Button cari
##
Private Sub btcari_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles btcari.Click
If
(TbmahasiswaBindingSource.Find("NIM", TextBox1.Text)) > -1 Then
MsgBox("Data berhasil
ditemukan")
Else
MsgBox("Data tidak berhasil
ditemukan")
End If
End Sub
## Untuk Button
Filter ##
Private Sub Btfilter_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Btfilter.Click
Dim Mencari As String
Mencari = InputBox("Masukkan
Jurusan Yang Di Cari", "Filter ...")
End Sub
## Untuk Button
Keluar ##
Private Sub Btkeluar_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Btkeluar.Click
Me.Close()
End Sub
End Class
13. Jalankan program
tersebut.
