Posts Tagged ‘UAS’

Artikel Ini sudah dipindahkan DISINI

Advertisements

Senin 1 Februari 2010
Mata Kuliah:
Network Securyti

Jam:
18.00 Wita

Ruang:
4.1 dan 4.2

Selasa 2 Februari 2010
Mata Kuliah:
Rekayasa Perangkat Lunak II

Jam:
18.00-19.40 Wita

Ruang:
3.9 dan 4.1

Sabtu 6 Februari 2010
Mata Kuliah:
Premrograman Visual II

Jam:
18.00 – 19.40 Wita

Ruang:
Lab 4

Senin 8 Februari 2010
Mata Kuliah:
Desain Antar Muka

Jam:
16.00 – 17.40 Wita

Ruang:
3.7 dan 3.8

Rabu 10 Februari 2010
Mata Kuliah:
Analisa dan Design System

Jam :
16.00 – 17.40 Wita

Ruang :
3.6 dan 3.7

Mata Kuliah:
Bahasa Indonesia

Jam:
18.00 – 19.40 Wita

Ruang:
4.1 dan 4.2

Sabtu 13 Februari 2010
Mata Kuliah:
Pemrograman Visual II

Jam:
18.00 – 19.40 Wita

Ruang:
Lab 1

Salam Damai,
Hendra Wijaya
http://hendrawijaya.co.cc

Info UAS dan Tugas RPL II

Posted: January 11, 2010 in Info Stikom
Tags: , , ,

Kelas M071 khususnya, kelas paling narsis, paling wah, paling kompak ?, paling, paling pokoknya.. xixixixi, untuk matakuliah RPL II yang dibimbing oleh Bpk. Gerson Feoh tidak diadakan UAS secara konvensional atau tradisional [uas pada waktunya, bawa kerpekan, nyontek kiri kanan, browsing pake hp, kringetan, mules, mual, muak  dll], diganti dengan Project untuk menganalisas sebuah sistem, sistem apa saja yang anda sukai, dengan membuatkan notasinya berupa :

Use Case Diagram

Class Diagram

Activity Diagram

dan Sequence Diagram

Project dikumpulkan dengan Laporan, beserta Softcopy di burn di CD yang didalamnya memuat laporan, tools, dan jika ada software yang di analisa, dikumpulkan pada waktu UAS berlangsung.

Untuk tugas yang akan dikumpul paling lambat minggu depan tgl 19 January 2009, tugasnya adalah membuat notasi dari: Extends Relationship, Include Relationship, dan Generalization. Semuanya menggunakan Use Case Diagram! Dikumpul ke email Bpk. Gerson Feoh [yang belum punya emailnya bisa ditanyakan ke bapaknya langsung atau ke saya], dengan subjek : Tugas4_Kelas_RPL2_Nama_Nim.

Semoga bermanfaat

Hendra Wijaya

Pada project sebelumnya tentang applikasi penjualan bag. 1 sudah di posting beberapa minggu lalu, sekarang ini adalah updater dari applikasi penjualan tersebut, ada beberapa penambahan tabel, dan form. pertama anda harus menambahkan tabel bernama t_kategori didalam database POS anda, lihat gambar:

Tabel Kategori

Tabel Kategori

Yang perlu diganti adalah identity diubam menjadi “Yes” Setelah anda membuat tabel diatas, langkah selanjutnya adalah membuat sebuah form baru bernama formUser.vb, tambahkan 4 buah command button, 3 buah label, 3 buah textbox, 2 buah grop, lalu ubah properti name menjadi :

textbox1 = txtUserId

textbox2 = txtNama

textbox3 = txtPassword

button1 = btnSimpan

button2 = btnHapus

button3 = btnBatal

button4 = btnKeluar

Designlah form user tersebut menjadi seperti ini :

Master User

Master User

Lalu masukkan koding dibawah ini :

Imports System.Data
Imports System.Data.SqlClient
Public Class Form_User
Sub LoadData(ByVal lv As ListView)
With lv
.Items.Clear()
.Columns.Clear()
.Columns.Add(“User ID”, 120, HorizontalAlignment.Left)
.Columns.Add(“Nama”, 200, HorizontalAlignment.Left)
.Columns.Add(“”, 0, HorizontalAlignment.Left)
.GridLines = True
.FullRowSelect = True
.Activation = ItemActivation.TwoClick
.View = View.Details
.MultiSelect = False
End With
Dim sSql As String
sSql = “Select * From t_user”
Dim comm As New SqlCommand(sSql, Koneksi)
Try
Koneksi.Open()
Dim MyReader As SqlDataReader = comm.ExecuteReader
If MyReader.HasRows Then
Do While MyReader.Read
Dim new_item As New ListViewItem(MyReader.Item(“user_id”).ToString)
new_item.SubItems.Add(MyReader.Item(“nm_user”))
new_item.SubItems.Add(MyReader.Item(“password”))
LVUser.Items.Add(new_item)
Loop
End If
MyReader.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
Koneksi.Close()
End Try
End Sub
Sub ClearAll()
txtUserId.Clear()
txtNama.Clear()
txtPassword.Clear()
txtUserId.Focus()
End Sub
Private Sub Form_User_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call SetMdi(Me)
Call LoadData(LVUser)
Call ClearAll()
End Sub
Private Sub LVUser_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LVUser.MouseClick
Try
txtUserId.Text = Trim(LVUser.SelectedItems(0).SubItems(0).Text)
txtNama.Text = Trim(LVUser.SelectedItems(0).SubItems(1).Text)
txtPassword.Text = Trim(LVUser.SelectedItems(0).SubItems(2).Text)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, “Error!”)
End Try
End Sub
End Class
—————————————————————–
Males Ngetik ? Download aja disini

Semester V ini pada mata kuliah Pemrograman Visual II, UAS nya akan dilaksanakan dengan metode Project yang tiap minggu selalu di update, update itu penambahan dan pengurang program sesuai dengan kebutuhan sehingga pada hari H nya, yaitu hari UAS maka project tersebut akan di uji coba dengan penambahan fitur lain, fitur lain inilah yang akan menjadi “Project” pribadi / diri sendiri yang nantinya semua project yang telah di buat selama sebelum UAS dan pada waktu UAS akan dikumpulkan sebagai nilai dari UAS. Kelas M071 mendapat applikasi penjualan barang, sesuai dengan permintaan dosen yang bersangkutan, kami sebagai mahasiswa menerimanya dengan lapang dada, alasannya karena kelas lain juga mendapatkan project yang sama yaitu applikasi penjualan mungkin fitur dan codingnya yang berbeda. kita cukupkan basa  -basi kita diatas langsung saja kepokok masalahnya.

Visual Studio 2008

Visual Studio 2008

SQL server 2000

SQL server 2000

Sebagai informasi saja, project ini dibuat menggunakan Microsoft Visual Studio [MVS] 2008 dengan Databasenya menggunakan My SQL 2000 Server.  Untuk memulai membuatnya seperti biasa, buka MVS 2008 anda, lalu buat project baru dan simpan dengan nama POS / Terserah anda, usahakan menyimpannya pada direktori selain dari direktori system windows, misalnya D:/.

Pembuatan Database

Pada langkah ini akan dijelaskan pembuatan database yang kita perlukan untuk applikasi penjualan yang akan kita buat, dan hanya akan dilakukan pada Bag.1 saja, sisanya hanya update database  tanpa harus membuatnya dari awal, hanya saja mungkin akan ada penambahan – penambahan tabel2x yang akan diperlukan. Pembuatan database pada sql 2000 server kali ini akan menggunakan Enterprise Manager :

Enterprise Manager

Enterprise Manager

Setelah enterprise manager nya terbuka, silahkan anda membuat Database baru caranya, klik kanan pada folder database lalu pilih new database :

New Database

New Database

Setelah anda melakukan langkah diatas, akan muncul sebuah dialog box yang dimana anda harus mengisikan nama dari database anda :

New Database

New Database

Setelah anda mengisikan nama database nya, silahkan anda klik pada tab “Data Files”, disana anda akan menentukan lokasi penyimpanan database anda :

New Database

New Database

Pilih Lokasi dimana anda akan menyimpan file database, untuk memudahkannya lebih baik anda simpan pada direktori dimana applikasi MVS 2008 anda berada, buat sebuah direktori baru di dalam direktori project anda dengan nama “database” atau “db”:

New Database

New Database

Setelah ini, pindah ke tab “Transaction Log”, simpatn log database anda sama dengan dimana anda menyimpan database anda.

Tahapan berikutnya adalah membuat tabel tambahan sebagai fundamen anda untuk melakukan login administrator, langkahnya adalah sebagai berikut :

1. Masuk kedalam Database yang baru saja anda buat “POS” cari Tabel, pada area kanan, klik kanan lalu pilih New Table:

New Database

New Database

New Database

New Database

Setelah anda melakukan langkah diatas, isikan column name, Data type, Length dan Allow nulls seperti gambar dibawah ini :

New Database

New Database

Jangan lupa isikan “Default Value” dengan = tanda petik spasi tanda petik (‘ ‘) tanpa tanda kurung, berikan primary key pada user_id dan hilangkan semua centang pada allow not nulls. Klik tombol “save” dan berinama tabel yang baru saja anda buat dengan “t_user”.

Langkah selanjutnya adalah mengisi tabel user diatas dengan user id, nama dan password hal ini akan digunakan untuk proses login pada applikasi yang akan kita buat nantinya, langkahnya klik kanan pada t-user yang telah kita buat pilih Open Table, Klik Return All rows :

New Database

New Database

Masukan user id = admin, user_nm = Administator, password = 123456, anda boleh bebas menentukan user id, nama dan password anda sesuai dengan selera.

New Database

New Database

Pembuatan Applikasi

Setelah Pembuatan database selesai, selanjutnya kita akan membuat sebuah design applikasinya, untuk bag.1 ini hanya akan mendesign form login dan form utama. Pertama tambahakan 2 form dengan nama “form_Login” dan “form_Utama”, Design Form Loginya sebagai berikut :

Form Login

Tambahkan kedalam Form Login : 2 Buah Group Container, 2 Buah Label, 2 Buah Textbox, 2 Buah Button.

ubah property name dari 2 buah textbox  tersebut menjadi : txtUser, txtPass

ubah property name dari 2 buah button tersebut menjadi : btnLogin, btnExit

Login

Login

Codingnya :

Imports System.Data
Imports System.Data.SqlClient
Public Class Form_login

Sub Login(ByVal user As String, ByVal pass As String)
Dim sSql As String
sSql = “select * from t_user where user_id = ‘” & user & “‘” & ” and password ='” & pass & “‘”
Dim Comm As New SqlCommand(sSql, Koneksi)
Try
Koneksi.Open()
Dim MyReader As SqlDataReader = Comm.ExecuteReader
If MyReader.HasRows Then
MyReader.Read()
p_userid = MyReader.Item(“user_id”)
p_nama = MyReader.Item(“nm_user”)
MyReader.Close()
Else
MsgBox(“User atau Password Masih Salah !”, MsgBoxStyle.Exclamation, “Perhatian!”)
Exit Sub
End If
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
Finally
Koneksi.Close()
End Try
Me.Hide()
Form_Utama.Show()
End Sub

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If txtUser.Text = “” Or txtpass.Text = “” Then
MsgBox(“User Atau Password Belum Lengkap!”, MsgBoxStyle.Exclamation, “Perhatian!”)
Else
Call Login(txtUser.Text, txtpass.Text)
End If
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class

Form Utama

Langkah selanjutnya adalah membuat Form Utama, Tambahkan sebuah Menu strip lalu Masukan Data sebagai berikut :

File [Log Off, Exit]

Master [Master User, Master Kategori, Master Barang]

Form Utama

Form Utama

Codingnya :

Public Class Form_Utama

Private Sub Form_Utama_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
With Form_login
.txtpass.Clear()
.Show()
End With
End Sub

Private Sub LogOffToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogOffToolStripMenuItem.Click
Me.Dispose()
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Form_login.Dispose()
End Sub

Private Sub MasterUserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterUserToolStripMenuItem.Click
Form_User.Show()
End Sub

Private Sub MasterKategoriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MasterKategoriToolStripMenuItem.Click
Form_Kategori.Show()
End Sub

Private Sub Form_Utama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Pembuatan Module

Langkah selanjutnya adalah membuat sebuah module, tambah kan modul kedalam applikasi yang anda buat, lalu masukan coding nya :

Imports System.Data
Imports System.Data.SqlClient
Module Module1
Dim strKoneksi As String = “Data Source = localhost;” & ” Initial Catalog= POS;Integrated Security = True”
Public Koneksi As New SqlConnection(strKoneksi)

Public p_userid As String
Public p_nama As String

Sub SetMdi(ByVal frm As Form)
frm.MdiParent = Form_Utama
frm.FormBorderStyle = FormBorderStyle.FixedDialog
End Sub
End Module

Males Buat ??? Silahkan Download Disini

Selamat Mencoba dan Semoga Bermanfaat

Bersambung..

Wassalam