Menampilkan 6 Karakter Pertama Dari NIM Menggunakan Top View Simulator

Kali ini Saya akan menjelaskan bagaimana caranya menampilkan angka dan titik pada 6 karakter pertama dari NIM Saya pada seven segment Top View Simulator, yaitu "11.11.2629", namun yang ditampilkan hanya "11.11." saja. Langsung saja pertama yang harus dilakukan adalah menginstal Top View Simulator dan M-IDE. Selanjutnya yaitu membuat kode programnya pada M-IDE, ketiklah kode di bawah ini :
$Mod51
Org 0H
Start:mov P0,#11111001b
mov P1,#01111001b
mov P2,#11111001b
mov P3,#01111001b
SJmp start;start jump
End
Simpan file di atas dengan ekstensi .asm kemudian dibuild sehingga memunculkan file berekstensi .hex.
Kemudian Buka Top View Simulator, dan pilih AT89C52 serta frequency di rubah menjadi 12000Hz.
Kemudian pilih File - Eksternal Modules Setting - LED. Klik Ok. Lalu Atur seperti gambar berikut :

  

Kemudian Klik Bagian Selection Of Port Lines And Number Of Digits, dan atur supaya bagian Summary seperti di bawah ini :

 Lalu Klik OK. Langkah Selanjutnya yaitu menampilkan seven segmentnya yaitu dengan pilih menu view - Eksternal Modules - LED. Untuk menjalankan programnya maka kita harus meload file yang tadi dibuat yang berekstensi .hex, caranya yaitu pilih menu File - Load Program - Pilih File yang tadi dibuat yang berekstensi .hex. Setelah itu Klik Ok. Langkah selanjutnya yaitu tinggal running, caranya pilih menu run - go. maka hasilnya seperti di bawah ini :

6 Karakter Pertama dari NIM Saya ( 11.11.2629 )

Program Sudah Sukses Dijalankan. Selamat!

Beberapa Link Blog yang mengarah ke materi Mikrokontroler, Seperti Di Bawah Ini

No	Nama	Link Blog
1	GuruTechnoSains	Catatan Kuliah Elektro
2	Rudi Fitrianto	Coretanku
3	Fajar Wahyudianto	Kebebasan
4	Subur Ade	Spirit Of IT
5	Khatirudin Ma'arif	KhatirudinMa'arif
6	Rezki Irvanto	나는 블로그

Read More

Game Android

Berikut buat para gamers saya beri daftar game yang menarik untuk anda, yang ingin  silahkan download saja disini :
1.Game Guardian
 
2.Grand Theft Auto Vice City

3. Ravensword Shadowlands

4.Game Killer

5.Worms 2 Armageddon Full Premium

6.Bike Race V2.1.14

7.The Impossible Game

8.The Amazinng Spider-Man V1.1.7

9.Pes 2012

10.Candy Crush Sega

Masih banyak lagi yang lainnya, bagi yang ingin main game di handphone anda silahkan komentar di sini akan saya berikan linknya,,^_^

Read More

Selamat Ulang Tahun

 23-02-2013

Maaf jika aku kurang bisa membahagiakanmu, aku mahluk yang tak sempurna tapi aku ingin membahagiakanmu dengan cara yang sempurna. Di hari yang bahagia ini dalam hidupmu aku ingin mengucapkan selamat ulang tahun semoga panjang umur banyak rejeki, sabar dalam menjalani hidup dan makin dewasa lagi dalam berfikir, SEMANGAT yah kamu PASTI BISA..:-)
maaf  hanya ini yang ku bisa berikan padamu, tapi aku harap semua ini bisa mewakili semua rasa sayangku padamu.

 I LOVE YOU

--> 9**12/15/22/5**25/15/21 <--

Read More

Jangan Anggap Aku Lemah

seperti biasa jika aku ingin melakukan suatu hal aku selalu meminta izin dan restu pada orang tua, karena aku menganggap restu orang tua selalu memudahkan jalanku tapi aku tau pasti mereka akan berkata tidak untuk hal itu. Maret aku ada kegiatan mendaki gunung tapi setelah aku meminta izin mereka tak mengizinkannya pun begitu pula untuk kegiatanku di bulan april untuk mengikuti popda taekwondo mereka pun tak mengizinkannya, mereka selalu melarangku karena mungkin karena riwayat kesehatanku dulu yang kurang baik tapi wahai orang tuaku aku bukanlah seperti yang dulu jangan anggap aku seperti orang yang sakit aku tak suka, aku hanya menginginkan restumu dan yang ku inginkan hanya dukunganmu. Maafkan aku jika nantinya aku tak meminta izin untuk kegiatan lainnya karena aku tau dan aku yakin akan kemampuanku karena aku bukan yang dulu.

Salam bakti dari anakmu.

Read More

Curahan Hati Untuk Orang Tuaku

Begitu banyak pengorbanan yang engkau berikan padaku, tapi aku belum bisa membalasnya sedikitpun untukmu. Setetes peluh keringat yang engkau teteskan menyambung hidupku, aku tak tau bagaimana ku harus membalas jasa - jasa baikmu. Kini ku telah beranjak dewasa aku ingin lepas darimu aku tak ingin selamanya menjadi beban hidupmu, saatnya ku balas budi padamu walau apa yang ku lakukan ini tak akan pernah sebanding yang dengan jasa - jasamu padaku tapi terimalah baktiku padamu duhai ayah dan ibuku

Read More

Koneksi Sql Server Dengan VB

KONEKSI DATABASE DENGAN VB

Dalam catatan kali ini saya akan membahas bagaimana cara koneksi visual basic dengan database, kali ini saya menggunakan visual basic 2010 dan untuk databasenya menggunakan sql server 2005.
 baik langsung saja
*Langkah pertama buka terlebih dahulu sql 2005 koneksikan pada server, klik ok

*Langkah kedua buat database baru, kali ini saya beri nama dbdatamahasiswa pilih tempat dimana kita akan menyimpan data tersebut lalu klik ok

*langkah ke tiga buat table, dengan klik kanan pada tabel dalam databases yang telah di buat lalu new table, sesudah itu isikan seperti yang ada pada gambar di bawah ini, i jangan lupa set nim sebagai primary key setelah itu simpan dan beri nama tbmahasiswa.

*langkah keempat isikan tabel dengan beberapa data seperti berikut

*Langkah keLima setelah pembuatan databases di sql sudah jadi maka langkah selanjutnya membuat disaign interface di vb dan membuat koneksinya, langsung saja buka dulu vb nya lalu buat koneksi dengan cara pilih menu data --> add new data source -->database --> data set -->new connection(pada server name isikan nama serer sql yang kita gunakan tadi, kemudian pada select or enter database name pilih database yang telah kita buat tadi, setelah itu test connection setelah coneksi berhasil klik ok) --> lalu pada choose your data base object beri tanda pada table kalo sudah klik finish.

 *langkah keenam buat disign interfacedengan cara mendrag data tabe pada data sources lalu masukan kodingnya seperti berikut

+bttambah+
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambah.Click
        Me.TbmahasiswaBindingSource.AddNew()
    End Sub
+btsimpan+
    Private Sub Button2_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
+bthapus+
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapus.Click
        Me.TbmahasiswaBindingSource.RemoveCurrent()
    End Sub
+btpencarian+
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpencarian.Click
        Dim carinama As String
        Dim posisi As Integer = 1

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

        If (TbmahasiswaBindingSource.Find("Nama", carinama)) > -1 Then
            MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
            Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)
            posisi = TbmahasiswaBindingSource.Find("Nama", carinama) + 1
        Else
            MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
        End If
    End Sub
+btkeluar+
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click
        Me.Close()
    End Sub
+btawal+


Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btawal.Click
        Me.TbmahasiswaBindingSource.MoveFirst()
    End Sub
+btprivious+
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsebelumnya.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub
+btselanjutnya+
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btselanjutnya.Click
        Me.TbmahasiswaBindingSource.MoveNext()
    End Sub
+btakhir+
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btakhir.Click

        Me.TbmahasiswaBindingSource.MoveLast()
    End Sub
End Class


*kalau sudah maka hasilnya akan seperti berikut ini

selamat mencoba dan semoga bermanfaat...^_^

Read More