TUGAS MIKROPROSESOR

Mikroprosesor

Sebuah mikroprosesor adalah sebuah central processing unit (CPU) elektronik komputer yang terbuat dari transistor mini dan sirkuit lainnya di atas sebuah sirkuit terintegrasi semikonduktor.
Sebelum berkembangnya mikroprosesor, CPU elektronik terbuat dari sirkuit terintegrasi TTL terpisah; sebelumnya, transistor individual; sebelumnya lagi, dari tabung vakum. Bahkan telah ada desain untuk mesin komputer sederhana atas dasar bagian mekanik seperti gear, shaft, lever, Tinkertoy, dll.
Evolusi dari mikroprosesor telah diketahui mengikuti Hukum Moore yang merupakan peningkatan performa dari tahun ke tahun. Teori ini merumuskan bahwa daya penghitungan akan berlipat ganda setiap 18 bulan, sebuah proses yang benar terjadi sejak awal 1970-an; sebuah kejutan bagi orang-orang yang berhubungan. Dari awal sebagai driver dalam kalkulator, perkembangan kekuatan telah menuju ke dominasi mikroprosesor di berbagai jenis komputer; setiap sistem dari mainframe terbesar sampai ke komputer pegang terkecil sekarang menggunakan mikroprosesor sebagai pusatnya.

BASIC I/O P1 SEBAGAI OUTPUT

Langkah:
1. Hubungkan PORT DT51 MinSysn dengan PORT OUTPUT DT-51 tariner board.
2. Hubungkan CONTROL DT-51 Min Sys dengan CONTROL DT-51 trainer board.
3. Hubungkan DT-51 MinSys dengan PC menggunakan kabel serial
4. Hubungkan Dt-51 MInSys dengansumber tegangan

Skema Rangkaian

Contoh Program
Program 4 Transfer data Output dari Data RAM
Data disimpan di RAM, kemudian satu persatu dikeluarkan ke P1

$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
      ACALL TUNDA
      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

Hasil Modifikasi Program di atas

$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

KAMSA HAMNIDA :)

Mirror Link

http://guru.technosains.com

http://khaelanihaelal.blogspot.com/

http://camepoeradok.blogspot.com/

http://aip-share4all.blogspot.com/

http://senapanilmu.blogspot.com/

http://jangkrik-mania.blogspot.com/

http://wiwimanis.blogspot.com/ 

http://afifahs-blogsites.blogspot.com

http://mycoursework.webs.com

 

 

Visual Basic dengan SQL Server

Assalamu'alaikum Wr.Wb

Pada pertemuan ke-9 Pemrograman Visual saya diberi tugas untuk menghubungkan Visual Basic dengan database pada SQL Server. Langkah yang kita lakukan awalnya yaitu membuat database :
1. Buka SQL Server 2005
2. Klik kanan Database --> New Database
3. Buat databasenya kasihkan namanya
4. Lalu buat tabel dengan klik kanan Tabels
5. Pilih New Tabels
Berikut format tabelnya :
- nim char(10) not null primary key
- nama varchar(20)
- alamat varchar(50)
- tgllahir datetime
- jurusan char(2)
- spptetap decimal(18,0)

Di bawah adalah tampilan tablenya

Apabila table telah dibuat lalu kita koneksikan dengan Visual Basic.
1. Masuk ke Visual Basic
2. Pada menu Toolbar pilih Data --> Add New Data Source
3. Ikuti langkah yang ada
4. Untuk menampilkan databasenya pilih Data --> Show Data Source
5. Untuk menampilkan database ke form tinggal di drag.
6. Untuk memampilkan tombol-tombol tambahan menggunakan button

Syntax untuk program pada Visual Basic adalah di bawah ini

Public Class Form1

    Private Sub Table_mahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table_mahasiswaBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.Table_mahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)

    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 'Dbmahasiswa2DataSet.Table_mahasiswa' table. You can move, or remove it, as needed.
        Me.Table_mahasiswaTableAdapter.Fill(Me.Dbmahasiswa2DataSet.Table_mahasiswa)

    End Sub

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

    End Sub

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

    End Sub

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

    End Sub

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

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Validate()
        Me.Table_mahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Dbmahasiswa2DataSet)
    End Sub

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

    End Sub

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

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim NIM As String = InputBox("Masukkan NIM yang dicari", "Pencarian")

        If (Table_mahasiswaBindingSource.Find("nim", NIM) > -1) Then
            MsgBox("ketemu", vbOK, "cari")
            Table_mahasiswaBindingSource.Position = Table_mahasiswaBindingSource.Find("nim", NIM)
        Else
            MsgBox("ga ketemu", vbOK, "cari")
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If (ComboBox1.Text = "SI") Then
            Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
        ElseIf (ComboBox1.Text = "TI") Then
            Me.Table_mahasiswaBindingSource.Filter = "jurusan = '" & ComboBox1.Text & "'"
        End If
        '
    End Sub

   
End Class


Di bawah ini tampilan running awal

Tampilan saat ditekan Tombol Add

Tampilan saat ditekan tombol Search

Tampilan saat ditekan filter