Kamis, 02 Januari 2014

Tugas Microprosesor

Tugas Microprosesor TI 11 D

 Nama : Afik W.A Putra
Nim : 11.11.2545
Kelas : TI 11 D
Mikroprosesor adalah sebuah IC (Integrated Circuit) yang digunakan sebagai otak/pengolah utama dalam sebuah sistem komputer.

Mikroprosesor merupakan hasil dari pertumbuhan semikonduktor. Prosesor adalah chip yang sering disebut “Microprosessor” yang sekarang ukurannya sudah mencapai gigahertz. Ukuran tersebut adalah hitungan kecepatan prosesor dalam mengolah data atau informasi. Merk prosesor yang banyak beredar dipasatan adalah AMD, Apple, Cyrix VIA, IBM, IDT, dan Intel.

Pertama kali Mikroprosesor dikenalkan pada tahun 1971 oleh Intel Corp, yaitu Mikroprosesor Intel 4004 yang mempunyai arsitektur 4 bit. Dengan penambahan beberapa peripheral (memori, piranti I/O, dsb) Mikroprosesor 4004 di ubah menjadi komputer kecil oleh intel. Kemudian mikroprosesor ini di kembangkan lagi menjadi 8080 (berasitektur 8bit), 8085, dan kemudian 8086 (berasitektur 16bit).

semoga postingan ini dapat membantu teman2 buat belajar mikrokontroler khususnya menggunakan bahasa basic.

Langsung aja ini rangkaiannya menggunakan aplikasi proteus, mungkin nanti ane bahas juga tentang ni proteus dipostingan selanjutnya. proteusnya versi 7.5 SP3 :

  

Led dipasang pada port A atmega32, terdapat 8 buah led yang masing-masing dihubungkan pada PORTA.0 - PORTA.7 , kenapa digunakan resistor 330ohm?? karena resistor ini digunakan untuk mengurangi kecerahan dari led yang dipakai, semakin besar hambatan nya maka led akan semakin redup begitu pula sebaliknya. Pada aplikasi ini led menggunakan active low.

Active low?? Apa itu?? hehe active low itu led akan menyala apabila diberikan logika 0, dengan kata lain untuk menyalakan led itu maka kita keluarkan logika low atau '0'. kok bisa?? yaa karena kan anoda led terhubung dengan VCC atau tegangan 5volt. sehingga untuk menyalakan led itu kita butuh gnd untuk menyalakan led itu, gnd dalam hal ini dapat digunakan logika '0' atau low. Atau dengan kata lain ini mengunakan konfigurasi common anode.

listing program :

$regfile = "m32def.dat"
$crystal = 11059200
Config Porta = Output
Led Alias Porta
Led = &B11111110

Do
Rotate Led , Right , 1
Waitms 100
Loop

penjelasan:
$regfile = "m32def.dat", digunakan untuk mendeklarasikan pustaka berdasarkan mikrokontroler yang digunakan, pada aplikasi ini digunakan atmega32 sehingga "m32def.dat", bisa saja digunakan atmega16 maka pustakanya menjadi "m16def.dat".
$crystal = 11059200 , digunakan untuk menentukan frekuensi kerja dari mikrokontroler ini, pada aplikasi ini digunakan untuk kristal 11,05920 MHz.
Config Porta = Output -> perintah ini digunakan untuk mengkonfigurasi porta sebagai output
Led Alias Porta            -> alias digunakan untuk menyatakan namalain dari hardware yang digunakan sehingga porta nama lainnya adalah led
Led = &B11111110       -> pada kondisi awal, led diberikan logika 0 untuk porta.0 selain itu diberikan logika 1. (porta.1 - porta.7)
Do                                 -> memulai perintah
Rotate Led , Right , 1 -> menggeser nyala led kekanan satu per satu atau 1 bit
Waitms 100                 -> digunakan tundaan selama 100 milisekon sehingga setiap pergeseran bit di berikan tundaan selama 100milisekon
Loop                            -> berulang terus, tiada henti hehehehe




Hasilnya, led akan menyala satu per satu dan akan bergeser kekanan, kenapa pada saat led disimulasikan, led yang menyala pertama kali pada porta.7 kenapa bukan porta.0. karena pada program itu dieksekusi dari perintah do sampai loop, sehingga setelah Do maka led langsung digeser, sehingga begitu lah hasilnya.
untuk filenya bisa didownload dibawah ini :
listing
simulasi proteus


Semoga bermanfaat, mohon maaf apabila ada salah kata, makasih :D. Artikel Terkait Lainnya :
Diposting oleh di Tidak ada komentar:

Minggu, 06 Januari 2013

Koneksi SQL server ke VB



Langkah langkah pengkoneksian
·         Bukalah Microsoft Sql Server dan buatlah sebuah Database dengan nama “dbmhasiswa”
seperti pada gambar dibawah ini :

·         Setelah itu buatlah tabel mahasiswa dan modify terlebih dahulu seperti gambar berikut :



·         Pada tabel, coba klik kanan lalu open tabel, Lalu isi tabel tersebut dengan 2 data atau lebih. Seperti pada gambar di bawah ini :


·         Setelah membuat database di dalam Sql Server, Sekarang bukalah Microsoft Visual Studio dan buatlah projek baru dan coba langkah langkah seperti di bawah ini :
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:



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. Seperti dibawah ini;

Selanjutnya pilih Next, dan OK. Dan tunggu beberapa saat hingga muncul tampilan. 



Cek semua table yang akan digunakan pada Visual Basic.
·         Setelah semua itu selesai,  kembali ke Visual Studio dan pilih menu Data lalu klik Show Data Source
·         Setelah itu coba ganti kolom jurusan dengan cara mengklik kanan kolom jurusan dan  ganti dengan ComboBox

Dan atur seperti dibawah ini; 

 


Lalu isikan kodingnya seperti di bawah ini;
Public Class Form1

    Private Sub TbmhsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmhsBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TbmhsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmhasiswaDataSet)

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

    End Sub

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

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

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

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

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If (TbmhsBindingSource.Find("NIM", TextBox1.Text)) > -1 Then
            MsgBox("Data berhasil ditemukan")
        Else
            MsgBox("Data tidak berhasil ditemukan")
        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim Mencari As String
        Mencari = InputBox("Masukkan Jurusan Yang Di Cari", "Filter ...")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.TbmhsBindingSource.AddNew()
        NIMTextBox.Focus()
        Tanggal_LairDateTimePicker.ResetText()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Validate()
        Me.TbmhsBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmhasiswaDataSet)

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes Then

            Me.TbmhsBindingSource.RemoveCurrent()
        End If

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.Close()
    End Sub

End Class

Setelah di run hasilnya seperti dibawah ini:




Dan untuk tombol cari apabila tidak ada data yang ditemukan seperti dibawah ini:



Sekian terima kasih :)



Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)