Kali ini Saya akan coba menjelaskan bagaimana caranya menampilkan angka dan titik pada 4 karakter akhir dari NIM Saya pada seven segment Top View Simulator, yaitu "11.11.2531", namun yang ditampilkan hanya "2531." 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,#10100100b
mov P1,#10010010b
mov P2,#10110000b
mov P3,#11111001b
SJmp start;start jump
End

Simpan file di atas dengan format .asm kemudian dibuild sehingga memunculkan file dengan format .hexKemudian 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 :

Gambar 1. (Tamplan LED Module Setting)

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

Gambar 2. (Untuk menampilkan digit satu atau angka 2)

Gambar 3. (Untuk menampilkan digit dua atau angka 5)

Gambar 4. (Untuk menampilkan digit tiga atau angka 3)

Gambar 5. (Untuk menampilkan digit empat atau angka 1)

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 dengan format .hex, caranya yaitu pilih menu File - Load Program - Pilih File yang tadi dibuat dengan format .hex. Setelah itu Klik Ok. Langkah selanjutnya yaitu tinggal running, caranya pilih menu run - go. maka hasilnya seperti di bawah ini :

Gambar 6. (Hasil setelah program di run)
Begitulah proses dan hasilnya, mudah – mudahan bermanfaan dan terimakasih,,,, !!!



TUGAS PEMROGRAMAN VISUAL BASIC 2010
PEMBUATAN PROGRAM APLIKASI RESTORAN



Nama              : Furqon
Kelas              : TI 11 D
NIM               : 11.11.2531



SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER
STMIK AMIKOM Purwokerto
Tahun 2013






Pembuatan Program Data restoran

A.      Software Yang Dibutuhkan
1.      Mikrosoft Access 2010
2.      Microsoft Visual Studio 2010
3.      Crystal Reports For Visual Studio 13.0
B.       Langkah Pembuatan
a.       Penginstalan ketiga software di atas.
4.      Pembuatan Database Perpustakaan dengan Mikrosoft Access 2010, dengan rincian sebagai berikut :
-          Nama database : dbrestoran
-          Database mempunyai 9 Tabel namun yang saya ambil hanya 4 tabel, yaitu tbl_makanan, tbl_member, tbl_pembayaran, dan tbl_karyawan.
-          Field, type data,  masing-masing tabel yaitu :



Ø  Tabel Pembayaran


Ø  Tabel Member


Ø  Tabel Makanan


Ø  Tabel Karyawan


b.      Menghubungkan Database yang tadi dibuat dengan Ms. Visual Studio 2010, dengan cara :
·         Buka dulu Ms. Visual Studio 2010 dan membuat project baru dan pastikan bahasa yang digunakan adalah bahasa Visual Basic.
FileNew ProjectWindows Forms Application (Beri Nama Projectnya ‘AppPerpustakaan’ – Ok
5.      Pilih menu Data – Add New Data SourceDatabaseNextDataset – Next – New ConnectionIsi sesuai pembuatan dbperpustakaan di Mikrosoft Access 2010NextCentang semua tabel di dbperpustakaanFinish
·         Jika ingin melihat tabelnya, pilih menu DataShow Data Sources (Maka disebelah kiri muncul tabel-tabel yang mau dimasukkan ke dalam Form).
c.       Memasukkan tabel-tabel tadi ke dalam Form
-          Drag and Drop field-field tbl_makanan, tbl_member, tbl_pembayaran, dan tbl_karyawan ke dalam form seperti pada gambar di bawah ini :






·         Menambahkan 5 Button dan 1 Textbox di keempat form tadi
Jenis
Property
Text
(Name)
Button1
&Tambah
bttambah
Button2
&Simpan
btsimpan
Button3
&Cari
btcari
Button4
&Hapus
bthapus
Button5
&Keluar
btkeluar
TextBox1
Isi Di Sini
TextBox1

·         Mengedit Property Form
Form
Property
Text
(Name)
Form1
Data Makanan
Datamakanan
Form2
Data Member
Datamember
Form3
Data Pembayaran
Datapembayaran
Form4
Data Karyawan
Datakaryawan


d.      Membuat From Laporan
·         Masukkan crystal reports ke dalam ms. Visual studio 2010 dengan cara pilih menu ProjectAppPerpustakaan PropertiesCompileAdvanced Compile Options – Pada Target Framework (pilih .Net Framework 4)
·         Untuk memilih tabel yang mw dijadiin laporan yaitu dengan cara pilih menu projectAdd New ItemReportingCrystal ReportsAdd.
·         Muncul kotak dialog Crystal Reports Gallery,pilih Using The Report Wizard, pilih Standard, lalu Ok.
·         Muncul kotak dialog Standard Report Creation Wizard, pilih Create New ConnectionOLE DB (ADO) – klik 2x pada Microsoft Access Native Client pada bagian provider.
·         Muncul kotak dialog OLE DB (ADO), pada Server isikan rdi-pc(server notebook saya), centang pada bagian Integrated Security, pilih database dbrestoran pada bagian Database, lalu pilih Finish.
·         Klik 2x pada dbrestoran – klik 2x pada dbo – pilih tabel yang akan dijadikan laporan. Misal : tbl_makanan.
·         Lalu klik Next, trus pilih semua field yang ada di tbl_makanan dengan menekan >>.
·         Klik Next, lalu pilih tbl_makanan. KD_Makanan dan Nama_Makanan. Klik Next sampai ke kotak dialog Report Style.
·         Pilih Gaya Tampilan Laporan Sesuai dengan keinginan (dalam hal ini saya memilih Table. Lalu klik Finish.
·         Atur kerapian dan posisi tulisan dan kasih judul ‘Laporan Data Makanan’ di bagian Main Report. Untuk melihat laporannya klik pada bagian Main Report Preview. Lalu disimpan.
·         Lalu membuat form untuk menempatkan laporannya, pilih menu projectAdd Windows Form – beri nama formnya ‘LapDatamakanan’ – klik Add.
·         Ubah Property Text’nya menjadi Laporan Data MAkanan. Kemudian ganti iconnya dengan gambar yang sesuai dengan tema formnya.
·         Untuk memasukan laporan ke dalam form, pilih dan drag and drop Crystal Report Viewer pada Toolbox  ke Form Laporan Data Makanan.
·         Klik pada Tanda Panah Ke kanan,pojok kanan atas.  Lalu pilih Choose a Crystal Report, pilih crystal report yang tadi dibuat. Pada Choose a Tool Panel View, ganti Group Tree menjadi None (menghilangkan tampilan Tree/Pohon).
·         Laporan sudah selesai dibuat, adapun untuk membuat laporan yang lain, caranya sama seperti di atas.

e.       Membuat Menu Utama
-          Buat Form dengan nama MenuUtama, dengan cara pilih menu projectadd windows form – beri nama form ‘MenuUtama’ lalu klik add.
-          Ganti property Text menjadi ‘Menu Utama’, dan ganti icon form dan background image sesuai dengan tema perpustakaan, serta IsMDIContainer diubah menjadi True.
-          Desain dengan menggunakan MenuStrip seperti gambar di bawah ini :






C.     Di bawah ini coding di dalam masing2 form berikut penjelasannya.

1.      Coding dalam Form DataSiswa
Public Class Form8

    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database2DataSet1.Tbl_Pembayaran' table. You can move, or remove it, as needed.
        Me.Tbl_PembayaranTableAdapter.Fill(Me.Database2DataSet1.Tbl_Pembayaran)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Me.Validate()
        Me.Tbl_PembayaranBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database2DataSet1)
    End Sub

    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
        Dim ketemu As Integer
        ketemu = Tbl_PembayaranBindingSource.Find("KD_Pembayaran", TextBox1.Text)
        If ketemu >= 0 Then
            MsgBox("Kode Pembayaran sudah terpakai", 0 + 16 + 256, "Perhatian")
            TextBox1.Text = ""
            TextBox1.Focus()
        Else
            Tbl_PembayaranBindingSource.AddNew()
            KD_PembayaranTextBox.Text = TextBox1.Text
            KD_PembayaranTextBox.Focus()
        End If
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        If MsgBox("Anda Yakin Data Sudah Tersimpan Dan Ingin Keluar???", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub cari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cari.Click
        Dim caripembayaran As String
        Dim posisi As Integer = 1
        caripembayaran = InputBox("Masukkan Kode Pembayaran", "Cari Kode Pembayaran")
        If (Tbl_PembayaranBindingSource.Find("KD_Pembayaran", caripembayaran)) > -1 Then
            MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
            Me.Tbl_PembayaranBindingSource.Position = Tbl_PembayaranBindingSource.Find("KD_Pembayaran", caripembayaran)
            posisi = Tbl_PembayaranBindingSource.Find("KD_Pembayaran", caripembayaran) + 1
        Else
            MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Me.Tbl_PembayaranBindingSource.RemoveCurrent()
    End Sub
End Class

Penjelasan :

Pada dasarnya untuk tabel yang lainnya sama namun cukup mengganti dalam penamaannya saja.


2.      Form MenuUtama
Public Class Menu_Utama

    Private Const CP_NOCLOSE_BUTTON As Integer = 512
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim noclose As CreateParams
            noclose = MyBase.CreateParams
            noclose.ClassStyle = CP_NOCLOSE_BUTTON
            Return noclose
        End Get
    End Property

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        If MsgBox("Anda Yakin Data Sudah Tersimpan Dan Ingin Keluar???", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub MakananToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MakananToolStripMenuItem2.Click
        Form1.Show()
    End Sub

    Private Sub MemberToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberToolStripMenuItem2.Click
        Form2.Show()
    End Sub

    Private Sub KaryawanToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaryawanToolStripMenuItem2.Click
        Form6.Show()
    End Sub

    Private Sub PembayaranToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranToolStripMenuItem2.Click
        Form8.Show()
    End Sub

    Private Sub MakananToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MakananToolStripMenuItem3.Click
        Form4.Show()
    End Sub

    Private Sub MemberToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemberToolStripMenuItem3.Click
        Form5.Show()
    End Sub

    Private Sub KaryawanToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaryawanToolStripMenuItem3.Click
        Form7.Show()
    End Sub

    Private Sub PembayaranToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranToolStripMenuItem3.Click
        Form9.Show()
    End Sub

    Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
        If MsgBox("Anda Yakin Data Sudah Tersimpan Dan Ingin Keluar???", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
            Me.Close()
        End If
    End Sub
End Class