PANDUAN DASAR MIKROKONTROLER dengan TOP VIEW SIMULATOR

Bagi yang baru belajar mikrokontroler mungkin akan sedikit kesulitan jika harus mencoba membuat program dan menjalankannya menggunakan rangkaian mikrokontroler (hardware). Namun kali ini kita akan mencoba menggunakan simulator untuk menjalankan / debugging program mikrokontroler keluarga MCS51. Dengan simulator akan lebih mudah menjalankan program dan tanpa biaya untuk membuat rangkaiannya.

Pertama kita install dulu Top View Simulator nya. Bagi yang belum punya silakan unduh di sini.

1.Jalankan setup.exe dan akan tampil seperti ini.

Gambar 1.

2.Tekan Next, dan pilih directory tempat menyimpan file sistemnya. Untuk standard nya pada C:\Program file\

3.Tekan Next, Next, dan tunggu hingga proses selesai.

Gambar 2.

Nah, kita sudah punya simulatornya. Sekarang bagaimana menggunakannya?

Sebelumnya kita harus punya program assembly. Biasanya program assembly ditulis menggunakan notepad dan disimpan dengan extensi *.asm dan di-compilemenggunakan compiler. Untuk compilernya dapat diunduh di sini.

1.Jalankan TopViewSimulator dan akan muncul seperti gambar 3. Pada menudropdown Select Device pilih Atmel 89C51. Tekan OK.

Gambar 3.

2.Buka program notepad dan ketik listing programnya, kemudian simpan pada folderASM51 dengan extensi *.asm. Misal Coba.asm. Dapat diunduh di sini.

Gambar 4.

3.Untuk meng-compile nya sebenarnya dapat dilakukan dengan menggunakan programTopViewSimulator. Karena pada program tersebut sudah ada menu compile file asm.

4.Pindah ke program TopViewSimulator dan pilih menu File → Load Text File dan pilih pada coba.asm

Gambar 5.

5.Tekan tombol menu Run ASM

Gambar 6.

6.Jika tidak ada kesalahan maka pada coba.lst terdapat tulisan ASSEMBLY COMPLETE, 0 ERRORS FOUND dan tampil.

Gambar 7.

7.Pilih menu File → External Modules Setting → Led dan akan muncul form seperti pada gambar 8. pilih port yang akan disambungkan dengan LED misal port 1, centanglah masing-masing bit pada port 1. selnjutnya tekan OK.

Gambar 8.

8.Selanjutnya adalah menampilkan LED modul tersebut, dengan cara pilih menu View → External Module → Led

Gambar 9.

9.Nah, langkah terakhir yaitu menjalankannya dengan memilih menu Run → Go To dan akan tampil.

Gambar 10.

Isi dengan 00 karena program yang kita buat berawal dari alamat 00H, selanjutnya tekanExecute

Gambar 11.

Mengkoneksikan sql server 2005 dengan vb 2010

1.Pertama buka sql server dulu terus di connect

2.Bikin Database baru...klik kanan di daabase terus new database
   beri nama lalu ok

 

3.bikin tabel baru pada database

 
4.Isi nama colom tabel dan tipe datanya

5.Isi data pada tabel

jika sudah lalu save all

6.buka visual basic 2010 bikin windows form baru lalu tambahkan data source baru

Kemudian pilih Database kemudian klik next, pilih Dataset klik next kembali.

Klik Next pilih New Connection

Pilih Microsoft SQL Server, lalu Continue

Kemudian isikan User SQL Server Authentication lalu  pilihlah Select or enter a database name pilih nama database yang telah dibuat sebelumnya, kemudian klik test conection bila sukses klik ok

 

 kemudian klik next, kemudian cetang pilihan sesuai kebutuhan kemudian klik finish. 

8.Drag atau tarik colom yg berada di table tbmahasiswa dengan tabelnya ke from, ganti jurusan dengan combobox.ganti tgllahir dengan date time picker,ganti visible tbmahasiswaBindingSource menjadi false,tambah button awal sebelumnya selanjutnya akhir tambah cari hapus simpan keluar.

codingnya...

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

 "Sebelumnya"
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub

"Selanjutnya"
   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TbmahasiswaBindingSource.MoveNext()
    End Sub

"Akhir"
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TbmahasiswaBindingSource.MoveLast()
    End Sub

"Tambah"
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.TbmahasiswaBindingSource.AddNew()
    End Sub

 "Simpan"
   Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

"Hapus"
   Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.TbmahasiswaBindingSource.RemoveCurrent()
    End Sub

"Cari"
   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim cari As String
        Dim posisi As Integer = 1

        cari = InputBox("Masukkan Nama", "Cari Nama")

        If (TbmahasiswaBindingSource.Find("Nama", cari)) > -1 Then
            MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
            Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", cari)
            posisi = TbmahasiswaBindingSource.Find("Nama", cari) + 1
        Else
            MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
        End If
    End Sub

"Keluar"
     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If (MsgBox("Anda yakin ingin keluar ?", vbQuestion + vbYesNo + vbDefaultButton2, "Keluar")) = vbYes Then
            Me.Close()
        End If
    End Sub