Thursday, June 20, 2013

metodelogi dalam manajemen proyek sistem informasi

By Unknown | At 5:53 PM | Label : | 0 Comments
  Ada beberapa pendekatan yang dapat digunakan dalam melakukan manajemen proyek antara lain :
-Agile
-Extreme
-Interactive
-Incremental
-Phases

Dalam pembahasan materi ini kita pergunakan pendekatan fase (phase), karena mudah dan umum digunakan baik untuk proyek skala kecil sampai besar.

1.Fase inisialisasi
2.Fase perencanaan atau perancangan
3.Fase pelaksanaan atau produksi
4.Sistem pengawasan dan pengendalian
5.Fase penyelesaian

Suatu proyek bisa dikatakan layak untuk dilaksanakan jika memenuhi syarat kelayakan, seperti
1.Memberikan manfaat bagi klien
2.Memberikan solusi pada masalah yang sedang dihadapi oleh pemilik proyek
3.Dapat dilaksanakan sesuai dengan waktu yang diharapkan, anggaran yang tersedia
dan aktivitas serta sumberdaya yang terukur.

fase perencanaan
Fase ini lebih melibatkan tim pelaksana proyek, pada fase ini sering terjadi revisi terhadap hasil analisis. Pada proyek sekala besar diperlukan rekayasa ulang terhadap prosedur bisnis organisasi.
Selanjutnya tim pelaksana akan menyusun beberapa dokumen yang akan menjadi dasar kelanjutan fase berikutnya. Hasil dokumen harus mendapatkan persetujuan.

fase pelaksanaan
Dalam fase ini aktivitas yang dilakukan adalah melaksanakan tugas yang telah di definisikan dalam fase sebelumnya.
1.Pemprograman
2.Testing
3.Quality Assurance (QA)
4.Dokumentasi

manajemen proyek sistem informasi

By Unknown | At 5:38 PM | Label : | 0 Comments

-Personal
-Teknis
-Manajemen

-Penanganan Situasi

1.personal

1.Kepemimpinan
2.Komunikasi yang baik
3.Negosiasi
4.Mendengarkan
5.Membangun tim

2.teknis meliputi

1.Manajemen Konfigurasi
2.Manajemen Data
3.Manajemen Informasi
4.Strategi dan Perencanaan
5.Keamanan jaringan dan sistem informasi
6.Arsitektur teknologi informasi
7.Penilaian
8.Desain infrastruktur
9.Integritas sistem
10.Siklus hidup sistem
Pemahaman teknologi
kemampuan yg tidak berhubungan dgn teknis


1.Pengetahuan dibidang outsourced operationas
2.Kemampuan menangani personal yang baik
3.Kemampuan dalam memberikan motivasi untuk para anggota tim
4.Manajemen pemasok



keahlian manajemen proyek
1.Perencanaan, inisiasi, dan organisasi proyek
2.Perekrutan staff dan mempertahankan mereka yang baik
3.Negosiasi yang efektif
4.Estimasi dan kontrol biaya yang akurat
5.Pelaksanaan proyek dan pengendalian
6.Presentasi dan pelaporan yang komunikatif
7.Kepemimpinan dalam proyek dan personalia
8.Manajemen resiko dan pengambilan keputusan
9.Manajemen penanganan masalah
10.Meningkatkan dan mempertahankan kinerja
11.Manajemen perubahan dalam organisasi

keahlian manajemen situasi
1.Fleksibel
2.Keras dan tegas bila diperlukan
3.Kreatif
4.Menyerap banyak data dariberbagai sumber
5.Sabar, tetapi bisa membedakan antara kesabaran dan melakukan tindakan

6.Mampu menangani banyak tekanan terus-menerus yang sering tanpa
henti

cara PEMBUATAN form LAPORAN DATA MAHASISWA di vb 6

By Unknown | At 4:14 PM | Label : | 0 Comments
PEMBUATAN LAPORAN DATA MAHASISWA
1. Buatlah sebuah form baru lalu Designlah seperti dibawah ini.
2. Kemudian tambahkan komponen Adodc dan komponen Crystal Report lalu setting Adodc
dan setting Crystal Report.
Note : Untuk setting Crystal Report sama seperti setting Adodc.
3. Kemudian masukan listing di bawah ini.
Dim semester As Integer
Dim jurusan As String
Private Sub Command11_Click()
Dim pesan As String
If Combo1 = "" And Combo2 = "" Then
pesan = MsgBox("Tentukan Jurusan dan Semester ......?", vbOKOnly + vbInformation, "Peringatan!!")
Combo1.SetFocus
ElseIf Combo1 = "" Then
pesan = MsgBox("Tentukan jurusan ......?", vbOKOnly + vbInformation, "Peringatan!!")
Combo1.SetFocus
ElseIf Combo2 = "" Then
pesan = MsgBox("Tentukan semester ......?", vbOKOnly + vbInformation, "Peringatan!!")
Combo2.SetFocus
Else
CrystalReport1.SelectionFormula = "{tbmahasiswa.jurusan}='" & Combo1.Text & "'and {tbmahasiswa.semester}='" & Combo2.Text & "'"
CrystalReport1.ReportFileName = App.Path & "\Laporan\Report1.rpt"
CrystalReport1.RetrieveDataFiles
CrystalReport1.WindowState = crptMaximized
CrystalReport1.ReportTitle = Reportiduser
CrystalReport1.WindowTitle = "Report1"
2
CrystalReport1.PrinterSelect
Combo1 = ""
Combo2 = ""
End If
End Sub
Private Sub Command12_Click()
Dim pesan As String
If Combo1 = "" And Combo2 = "" Then
pesan = MsgBox("Tentukan Jurusan dan Semester ......?", vbOKOnly + vbInformation, "Peringatan!!")
Combo1.SetFocus
ElseIf Combo1 = "" Then
pesan = MsgBox("Tentukan jurusan ......?", vbOKOnly + vbInformation, "Peringatan!!")
Combo1.SetFocus
ElseIf Combo2 = "" Then
pesan = MsgBox("Tentukan semester ......?", vbOKOnly + vbInformation, "Peringatan!!")
Combo2.SetFocus
Else
CrystalReport1.SelectionFormula = "{tbmahasiswa.jurusan}='" & Combo1.Text & "'and {tbmahasiswa.semester}='" & Combo2.Text & "'"
CrystalReport1.ReportFileName = App.Path & "\Laporan\Report1.rpt"
CrystalReport1.RetrieveDataFiles
CrystalReport1.WindowState = crptMaximized
CrystalReport1.ReportTitle = Reportiduser
CrystalReport1.WindowTitle = "Report1"
CrystalReport1.PrintReport
Combo1 = ""
Combo2 = ""
End If
End Sub
Private Sub Command9_Click()
Dim pesan As String
pesan = MsgBox("anda yakin mau keluar", 4 + 32, "penting")
If pesan = vbYes Then
Do
Me.Left = Me.Left + 30
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width - 500
CetakDataMahasiswa.Hide

CARA MEMBUAT LAPORAN dengan crystal report

By Unknown | At 4:12 PM | Label : | 0 Comments
CARA MEMBUAT LAPORAN
1. Klik Crystal Report Tools lalu klik 2x Crystal Report, kemudian tampil seperti
pada Gambar di bawah.
Gambar 1.1 Tampilan Layar Crystal Reports
2. Pada gambar di atas pilih As a Blank Report, lalu Ok, kemudian tampil
layar Data Explorer seperti gambar dibawah ini.
Gambar 1.2 Tampilan Layar Data Explorer
3. Pada gambar diatas pilih More Data Source, lalu pilih OLE DB seperti
gambar dibawah.
Klik
Klik
44
Gambar 1.3 Tampilan Layar Data Explorer
4. Klik OLE DB, lalu pilih Make New Connection seperti pada gambar
dibawah ini.
Gambar 1.4 Tampilan Layar Data Explorer
5. Lalu klik Add, kemudian tampil layar Data Link Properties seperti pada
gambar dibawah ini.
Klik
Klik
45
Gambar 1.5 Tampilan Data Link Properties
6. Pada gambar diatas pilih Microsoft Jet 4.0 OLE DB Provider kemudian
klik Next >> lalu tampil seperti gambar dibawah ini.
Gambar 1.6 Tampilan Data Link Properties
7. Pada Gambar diatas, klik Button lalu pilih Database yang ada di Folder
Kemudian tampil layar seperti dibawah ini.
Klik
Klik
46
Gambar 1.7 Tampilan Data Link Properties
8. Pada gambar diatas, setelah Database dipilih lalu hapus D:/G: kemudian klik
Test Connection, lalu tampil gambar seperti dibawah ini.
Gambar 1.8 Tampilan Microsoft Data Link
9. Pada gambar diatas klik Ok lalu Ok lagi, kemudian tampil gambar seperti
dibawah ini.
47
Gambar 1.9 Tampilan Layar Data Explorer
10.Pada gambar diatas pilih tbMahasiswa untuk membuat laporan Data
Mahasiswa, lalu klik Close, lalu klik Close lagi.
11.Pada Menu Toolbar pilih Report, lalu pilih lagi Report expert seperti
gambar dibawah ini.
Gambar 1.10 Tampilan Layar Crystal Report (Report1)
Created By Mustar Aman, S. Kom
STMIK Insan Pembangunan,6 April 2013
Klik 2x
klik
48
12.Pada gambar diatas klik Report Expert dan tampil gambar dibawah ini.
Gambar 1.11 Tampilan Confirm Command
13.Pada gambar diatas klik Ok lalu tampil gambar dibawah ini.
Gambar 1.12 Tampilan Create Report Expert
14.Pada gambar diatas klik Next, kemudian tampil gambar dibawah ini.
Gambar 1.13 Tampilan Create Report Expert
Klik
Klik 1
Klik 2
Klik 3
Klik
49
15.Pada gambar diatas klik Add All>> lalu Next, kemudian klik Design
Report, lalu tampil gambar seperti dibawah ini.
Gambar 1.14 Tampilan laporan Data mahasiswa sebelum dijalankan
16.Pada gambar diatas designlah, seperti gambar dibawah ini.
Gambar 1.15 Tampilan laporan data mahasiswa setelah didesign
17.Dari Gambar diatas klik menu preview kemudian akan tampil seperti
gambar dibawah ini.
50
Gambar 1.16 Tampilan laporan Data Mahasiswa setelah didesign
18. Kemudian jangan lupa di Save pada satu Folder dengan program yang telah
anda buat.

baca juga

cara membuat form laporan di vb 6

cara LOGIN DENGAN DATABASE di vb 6.0

By Unknown | At 4:05 PM | Label : | 0 Comments
LOGIN DENGAN DATABASE
7.1. Form Login
Form login digunakan untuk masuk ke dalam program aplikasi. Dengan
demikian pengguna program aplikasi dapat mengakses program aplikasi sesuai
dengan hak akses yang diberikan kepada nya. Pada form login terdapat bagian
password atau sandi. Password inilah yang merupakan kunci dari masing-masing
pengguna untuk masuk kedalam system. Untuk membuat form login, lakukan
langkah-langkah sebagai berikut :
1. Tambahkan sebuah form pada proyek IP.
2. Tambahkan dua buah textbox, combo1 serta dua buah command button dan tiga
buah label.
3. Atur property objek-objek tersebut sebagai berikut :
Objek Properti Setting
Form1 Nama UserLogin
Caption Form User Login
Label1 Caption ID User
Label2 Caption Password
Label3 Caption Bagian
Text1 Nama Text1
Text
Text2 Nama text2
passwordChar *
Text
ComboBox1 Name Combo1
Text Pilih
List Admin,svp,menejer
Command1 Nama command1
Caption Login
Command2 Nama Command2
Caption Batal
40
4. Tampilan form login seperti yang terlihat pada gambar 6.1.
Gambar 7.1. Tampilan Form User Login
5. Sedangkan untuk kode programnya adalah sebagai berikut :
‘Deklarasi Koneksi dan Recordset
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim iduser, passworduser, bagian As String
Private Sub Command1_Click() (Login)
Reportpassworduser = Text2.Text
Reportiduser = Text1.Text
Dim mysql As String
mysql = "select * from tbuser where iduser = '" & Replace(Text1, "'", "''") & "' and " & _
"passworduser = '" & Replace(Text2, "'", "''") & "' and " & _
"bagian = '" & Replace(Combo1, "'", "''") & "'"
Set rs = New ADODB.Recordset
Set rs = conn.Execute(mysql)
If Not rs.EOF Then
MsgBox "Login sukses"
If Combo1.Text = "Admin" Then
Menu.menuutama(1).Enabled = True
Menu.menulogin(1).Enabled = False
Menu.menuutama(2).Enabled = False
Menu.menuutama(3).Enabled = True
Menu.menuutama(4).Enabled = True
41
Menu.menuutama(5).Enabled = False
Menu.menuutama(6).Enabled = False
Menu.menuutama(7).Enabled = False
ElseIf Combo1.Text = "Supervisor" Then
Call Menu_Tampak
Menu.menulogin(1).Enabled = False
Else: Combo1.Text = "Menejer"
Call Menu_Bisa
End If
Menu.Show
Login.Hide
Unload Me
Else
MsgBox "Chek Kembali Username,Password Dan Bagian", vbCritical
Call kosong
Text1.SetFocus
End If
End Sub
Private Sub Command6_Click() (Keluar)
Dim pesan As String
pesan = MsgBox("keluar", 4 + 32, "penting")
If pesan = vbYes Then
Do
Me.Left = Me.Left + 100
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width - 500
Unload Me
Menu.Show
End If
End Sub
Private Sub Form_Activate()
Text1.SetFocus
Me.Top = 2000
Me.Left = 5900
Me.Height = 4700
Me.Width = 4400
End Sub
42
Private Sub Form_Load()
Dim koneksi As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stmik.mdb;Persist Security Info=False"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stmik.mdb;Persist Security Info=False"
Adodc1.Refresh
End Sub

Sub kosong()
Text1 = ""
Text2 = ""
Combo1 = ""
End Sub

baca juga
cara membuat laporan dgn crystal report

cara MENAMBAH PEMAKAI ATAU USER BARU di vb 6.0

By Unknown | At 4:03 PM | Label : | 0 Comments

BAB VI
MENAMBAH PEMAKAI ATAU USER BARU
Form Untuk menambah pemakai atau user merupakan form yang digunakan untuk
menambah user baru pengguna program aplikasi. Selain menambahkan ID dan Password dari
pemakai atau user yang baru. untuk membuat form guna menambah pemakai baru, lakukan
langkah-langkah sebagai berikut :
1. Tambahkan sebuah form pada proyek STMIK.
2. Tambahkan dua buah label dan dua buah textbox dan enam buah command button.
3. Atur property objek-objek tersebut sebagai berikut.
Objek Properti Setting
Form1 Nama Login
Caption Form Tambah User
Label1 Caption ID User
Label2 Caption Password
Label3 Caption Bagian
Text1 Name text1
Text
Text2 Name Text2
Text
PasswordChar *
Text3 Name Combo1
Text Pilih
List Admin,supervisor,menejer
Command1 Name Command1
Caption &Tambah
Command2 Name Command2
Caption &Simpan
Command3 Name Command3
Caption &Edit
Command4 Name Command4
Caption &Batal
Command5 Name Command5
Caption &Hapus
Command6 Name Command6
Caption &Keluar
32
4. Tampilan form tambah pemakai atau user baru seperti yang terlihat pada Gambar 6.1.
Gambar 6.1. Tampilan Form User Baru
5. Sedangkan untuk kode programnya sebagai berikut :
‘Deklarasi koneksi dan recordset
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Call aktif
Call kosong
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = True
End Sub
33
Private Sub Command2_Click()
Dim mysql As String
Dim konfirmation As String
If Text1 <> "" Then
cnn.BeginTrans
If Text1.Enabled = True Then
pesan = MsgBox("data akan disimpan..?", vbYesNo + vbInformation, "pesan")
If pesan = vbYes Then
mysql = "insert into tbuser(iduser,passworduser,bagian)" & _
"values('" & Text1 & "', '" & Text2 & "', , '" & combo1 & "')"
cnn.Execute (mysql)
Adodc1.Refresh
End If
Else
pesan = MsgBox("data sudah ada mau disimpan ulang..?", vbYesNo + vbInformation, "pesan")
If pesan = vbYes Then
mysql = " update tbuser set " & _
" passworduser = '" & Text2 & "'," & _
" bagian= '" & combo1 & "'," & _
"where iduser = '" & Text1 & "'"
cnn.Execute (mysql)
Adodc1.Refresh
End If
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
Command1.Enabled = True
34
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Text2.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
End Sub
Private Sub Command4_Click()
cnn.Close
Set cnn = Nothing
Form_Load
Call kosong
End Sub
Private Sub Command5_Click()
Dim mysql As String
Dim konfirmasi As String
If Text1 <> "" And Text1.Enabled = False Then
35
cnn.BeginTrans
konfirmasi = MsgBox("Data akan dihapus..?", vbYesNo + vbQuestion, "pesan")
If konfirmasi = vbYes Then
mysql = "delete from tbuser where iduser='" & Text1 & "'"
cnn.Execute (mysql)
Adodc1.Refresh
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
End If
End Sub
Private Sub Command6_Click()
Dim pesan As String
pesan = MsgBox("keluar", 4 + 32, "penting")
If pesan = vbYes Then
Do
Me.Left = Me.Left + 30
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width - 500
36
Unload Me
End If
End Sub
Private Sub Form_Activate()
Me.Top = 2000
Me.Left = 5900
Me.Height = 4100
Me.Width = 7700
End Sub
Private Sub Form_Load()
Dim koneksi As String
Adodc1.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stmik.mdb;Persist Security Info=False"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\stmik.mdb;Persist Security Info=False"
Adodc1.Refresh
Call nonaktif
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
cnn.Close
Set cnn = Nothing
End Sub

Private Sub Text1_LostFocus()
Dim mysql As String
If Text1 <> "" Then
mysql = "select * from tbuser where iduser ='" & Text1 & "'"
Set rs = cnn.Execute(mysql)
If Not rs.EOF Then
Text2 = rs.Fields("passworduser")
Call nonaktif
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = True
Else
Text2 = ""
End If
End If
End Sub

Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
End Sub
Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Combo1.Enabled = true
End Sub
Sub kosong()
Text1 = ""
Text2 = ""
Combo1=””
End Sub

baca juga

 cara login  dengan database di vb 6

PEMBUATAN MENU UTAMA pada vb 6.0

By Unknown | At 3:58 PM | Label : | 0 Comments
PEMBUATAN MENU UTAMA
5.1 Menu
Menu merupakan control yang sering dipakai dalam pembuatan aplikasi database.
Kita juga akan menggunakan menu untuk membuat aplikasi persediaan. Dengan
menu, kita dapat menggunakan form-form yang akan digunakan hanya dengan
mengklik pilihan pada menu yang sesuai atau yang mengakses ke form tersebut.
Menu yang akan kita gunakan di sini adalah pull-down menu.
Pull-down menu adalah menu yang kelihatan menu utama atau judul menunya.
Untuk melihat submenu yang ada di dalamnya, anda tinggal menklik pada menu
utama. Untuk membuat sebuah pull-down menu, langkahnya sebagai berikut.
1. Klik tombol menu editor pada toolbar Visual Basic 6.0 seperti pada Gambar 5.1
Gambar 5.1 Tombol Menu Editor
Created By Mustar Aman, S. Kom.
STMIK Insan Pembangunan, 2 April 2013.
24
2. Setelah itu tampil sebuah menu editor seperti pada Gambar 5.2.
Gambar 5.2. Menu Editor
3. Selanjutnya kita akan membuat menu untuk aplikasi persediaan. Daftar
menu dan submenu dari aplikasi persediaan yang akan kita buat adalah
sebagai berikut .
Menu / Submenu Nama Index
&File menuutama 1
… &Log In menuulogin 1
…&Exit menuexit 2
&Data menuutama 2
…Data MataKuliah menumatakuliah 1
…Data Mahasiswa menumahasiswa 2
…Data Dosen menudosen 3
&KRS menuutama 3
…Pengambilan Matakuliah menupengambilanmatakuliah 1
&Laporan menuutama 4
…&Cetak Data Mahasiswa menucetakdatamahasiswa 1
…&Cetak Matakuliah yg Diambil Menumatakuliahygdiambil 2
&Add User menuutama 5
…&Tambah User menutambahuser 1
&Window menuutama 6
…&Back Up menubackup 1
25
4. Contoh pengisian menu editor adalah seperti pada Gambar 5.3.
Gambar 5.3. Mengisi Menu Editor
5. Hasil menu utama yang telah di design sama seperti pada Gambar 5.4.
Gambar 5.4. Tampilan Design Menu Utama
…&End Season menuendseason 2
&Help menuutama 7
26
6. Pembuatan Module Menu Utama
1. Klik kanan pada bagian project,lalu pilih Add kemudian klik modul.
2. Atau pada menu Project klik Add Modul.
Gambar 5.10. Menu Module
Gambar 5.11. Menu Add Modul
27
7. Setelah itu akan tampil kotak dialog Add Modul tab New, klik Open.
Gambar 5.12. Kotak dialog Add Module
8. Setelah klik open, kemudian akan menampilkan tampilan kode editor atau
project-Module (Code), seperti pada Gambar 5.13.
Gambar 5.13. Tampilan Project-Modul (Code)
28
9. Untuk kode program atau procedure yang terdapat pada module adalah
sebagai berikut :
'deklarasikan hak akses User / pengguna
Option Explicit
Public Reportiduser As String
Public Reportpass As String
Global Menuutama1, Menuutama2, Menuutama3, Menuutama4, Menuutama5,
Menuutama6,Menuutama7 As Boolean
Sub Menu_Hilang()
'buat menu tidak kelihatan
Menu.menuutama(1).Enabled = False
Menu.menuutama(2).Enabled = False
Menu.menuutama(3).Enabled = False
Menu.menuutama(4).Enabled = False
Menu.menuutama(5).Enabled = False
Menu.menuutama(6).Enabled = False
Menu.menuutama(7).Enabled = False
End Sub
Sub Menu_Tampak()
'buat menu kelihatan
Menu.menuutama(1).Enabled = True
Menu.menuutama(2).Enabled = True
Menu.menuutama(3).Enabled = True
Menu.menuutama(4).Enabled = True
Menu.menuutama(5).Enabled = True
29
Menu.menuutama(6).Enabled = True
Menu.menuutama(7).Enabled = True
End Sub
Sub Menu_Bisa()
'buat menu bisa diakses
Menu.menuutama(1).Enabled = True
Menu.menuutama(2).Enabled = False
Menu.menuutama(3).Enabled = True
Menu.menuutama(4).Enabled = True
Menu.menuCetakdatamahasiswa(1).Enabled = False
Menu.menuutama(5).Enabled = False
Menu.menuutama(6).Enabled = False
Menu.menuutama(7).Enabled = True
End Sub

baca juga

cara menambah kan user baru pda vb 6
MENAMBAH PEMAKAI ATAU USER BARU Form Untuk menambah pemakai atau user merupakan form yang digunakan untuk menambah user baru pengguna program aplikasi. Selain menambahkan ID dan Password 

PEMBUATAN DATABASE DENGAN MS ACCESS

By Unknown | At 3:56 PM | Label : | 0 Comments
BAB 11
PEMBUATAN DATABASE DENGAN MS ACCESS
Pada bagian ini kita akan mempelajari beberapa cara untuk membuat database sistem
persediaan menggunakan database Microsoft Access 2007. Database akan berisi table-tabel
yang digunakan pada aplikasi pengambilan matakuliah yang akan dibuat.
2.1 Database MS ACCESS
Pertama-tama kita akan membuat sebuah database untuk menampung table-tabel yang
digunakan dalam pengembangan aplikasi. Untuk membuat database system pengambilan
matakuliah, lakukanlah langkah-langkah sebagai berikut :
a. Jalankan Microsoft Access 2007.
Gambar 3.0. Editor Microsoft Access 2007
b. Pada editor Microsoft Access 2007 diatas, klik Blank Database dan akan tampil seperti
layar dibawah ini.
Klik Blank Database
9
Gambar 3.1.Tampilan Bank Database
c. Dari gambar diatas, klik tempat penyimpanan database misal di D:/ atau C:/ lalu buat
nama database dari file name misal stmik dan jangan lupa save as type diformat
menjadi Microsoft Access 2003.lalu klik Ok kemudian klik lagi Create.
d. Selanjutnya pada toolbar editor View, pilih menu Design View, lalu buat nama table
dengan nama tbmahasiswa. Seperti pada Gambar dibawah.
Gambar 3.2. Nama Tabel
e. kemudian klik Ok, lalu tampil layar editor seperti gambar dibawah.
Gambar 3.3. Editor Tabel
klik
10
f. Isilah nama field berserta tipe data dari field pada editor tabel.
g. Kemudian buatlah table-tabel untuk database stmik. Sebagai contoh, tbmahasiswa yang
berfungsi untuk menampung data mahasiswa. Untuk nama field dan tipe data dari table
tbmahasiswa adalah sebagai berikut :
h. Tampilan field-field table tbmahasiswa seperti yang terlihat pada Gambar dibawah.
Gambar 3.4.Field-fieldTabel tbmahasiswa
i. Kemudian buatlah Primary Key, klik npm lalu mengklik icon kunci yang terdapat pada
toolbar. Kemudian save lalu close
Created By Mustar Aman, S. Kom.
STMIK Insan Pembangunan. 4 Maret 2013.
Nama Field Tipe Data Ukuran
npm Text 10
nmmahasiswa Text 20
jurusan Text 18
prody Text 12
semester Text 8
11
BAB 111
PEMBUATAN FORM
1. Membuat Program Aplikasi VB 6.0
Untuk membuat sebuah program aplikasi dengan Visual Basic 6.0, yang harus anda lakukan
adalah membuat sebuah proyek, menambah form kedalam proyek apabila program aplikasi
anda membutuhkan lebih dari satu form, meletakan atau menambahkan objek control pada
form, menulis kode program dan mengeksekusi atau menjalankan program tersebut untuk
melihat hasilnya. Berikut ini cara-cara membangun sebuah aplikasi pada Visual Basic 6.0.
1.2 Membuat Sebuah Proyek
Pada Visual Basic 6.0 anda akan berkerja dengan proyek. Proyek yang akan dipakai di
sini adalah proyek Standar Exe. Pada waktu sebuah proyek dibuat, secara default telah
terdapat sebuah form, yaitu Form1 di dalam proyek tersebut. Untuk membuat sebuah
proyek, caranya sebagai berikut :
1. Dari Windows, jalankan program Visual Basic 6.0. Setelah itu muncul kotak dialog
New Project seperti pada Gambar di bawah ini :
Gambar 3.5 Kotak Dialog New Project
2. Pada kotak dialog New Project tab New tersebut diatas, pilih Standar Exe lalu klik
Open. Kemudian akan tampil Form seperti gambar dibawah :
12
Gambar 3.6 Tampilan IDE Visual Basic 6.0
3. Untuk membuat form master pelanggan, lakukanlah langkah-langkah sebagai berikut:
1. Tambahkan sebuah form pada project.
2. Tambahkan lima buah textbox, enam buah command button dan lima buah label.
3. Atur property objek-objek tersebut sebagai berikut:
Objek property Setting
Form1 Nama Mahasiswa
Caption Form Mahasiswa
Label1 Caption NPM
Label2 Caption Nama Mahasiswa
Label3 Caption Jurusan
Label4 Caption Prody
Label5 Caption Semester
Text1 Nama Text1
Text
Maxlength 10
Text2 Nama Text2
Text
Maxlength 20
Text3 Nama Text3
Text
Maxlength 18
Text4 Nama Text4
Text
Maxlength 8
13
Text5 Nama Text5
Text
Maxlength 10
Command1 Nama Command1
Caption &Tambah
Command2 Nama Command2
Caption &Simpan
Command3 Nama Command3
Caption &Ubah
Command4 Nama Command4
Caption &Batal
Command5 Nama Command5
Caption &Hapus
Command6 Nama Command6
Caption &Keluar
4. Tampilan dari form Data Mahasiswa seperti yang terlihat pada Gambar 3.7
Gambar 3.7 Tampilan Form Mahasiswa
14
5. Sedangkan untuk kode programnya sebagai berikut :
‘Deklarasi koneksi dan recordset
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Call aktif
Call kosong
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = True
End Sub
Private Sub Command2_Click()
Dim mysql As String
Dim konfirmation As String
If Text1 <> "" Then
cnn.BeginTrans
If Text1.Enabled = True Then
pesan = MsgBox("data akan disimpan..?", vbYesNo + vbInformation, "pesan")
If pesan = vbYes Then
‘Menambah record pada tabel
mysql = "insert into tbmahasiswa(npm,nmmahasiswas,jurusan,prody,semester)" & _
"values('" & Text1 & "', '" & Text2 & "','" & combo1 & "', '" & combo2 & "',
'" & combo3 & "')"
‘Mengeksekusi printah SQL
cnn.Execute (mysql)
Adodc1.Refresh
End If
Else
pesan = MsgBox("data sudah ada mau disimpan ulang..?", vbYesNo +
vbInformation, "pesan")
If pesan = vbYes Then
‘Mengubah record pada tabel
mysql = " update tbmahasiswa set " & _
"nmmahasiswa = '" & Text2 & "'," & _
"jurusan = '" & combo1 & "'," & _
"prody = '" & combo2 & "'," & _
15
"semester = '" & combo3 & "'" & _
"where npm = '" & Text1 & "'"
cnn.Execute (mysql)
Adodc1.Refresh
End If
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True
End If
End Sub
Private Sub Command3_Click()
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
End Sub
Private Sub Command4_Click()
cnn.Close
Set cnn = Nothing
Form_Load
Call kosong
End Sub
Private Sub Command5_Click()
Dim mysql As String
Dim konfirmasi As String
If Text1 <> "" And Text1.Enabled = False Then
16
cnn.BeginTrans
konfirmasi = MsgBox("Data akan dihapus..?", vbYesNo + vbQuestion, "pesan")
If konfirmasi = vbYes Then
‘Menghapus record pada tabel
mysql = "delete from tbmahasiswa where npm='" & Text1 & "'"
‘Mengeksekusi printah SQL
cnn.Execute (mysql)
Adodc1.Refresh
End If
cnn.CommitTrans
Adodc1.Refresh
Call nonaktif
Call kosong
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
End If
End Sub
Private Sub Command6_Click()
‘Keluar dari form
Unload Me
End Sub
Private Sub Form_Activate()
‘ ukuran dan posisi form
Me.Height = 4000
Me.Left = 2000
Me.Top = 1000
Me.Width = 7000
End Sub
Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub
17
Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
End Sub
Sub kosong()
‘Mengosongkan textbox
Text1 = ""
Text2 = ""
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0
End Sub
Private Sub Form_Load()
‘Driver ODBC Connection String
Dim koneksi As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
App.Path & "\dbpersediaan.mdb;Persist Security Info=False"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\stmik.mdb;Persist Security Info=False"
Adodc1.Refresh
Call nonaktif
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
‘Menutup koneksi
cnn.Close
Set cnn = Nothing
End Sub

Private Sub Text1_LostFocus()
Dim mysql As String
If Text1 <> "" Then
‘Mencari Kode pada Tabel
mysql = "select * from tbmahasiswa where npm ='" & Text1 & "'"
Set rs = cnn.Execute(mysql)
‘Jika kode sudah ada
If Not rs.EOF Then
‘Menampilkan field yang lain
Text2 = rs.Fields("nmmahasiswa")
Text3 = rs.Fields("jurusan")
Text4 = rs.Fields("prody")
Text5 = rs.Fields("semester")
Call nonaktif
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = True
Else
Text2 = ""
Combo1 = ""
Combo2 = ""
Combo3 = ""
End If
End If
End Sub


BAB IV
MENGKONEKSI ADODC
4.1 MENGKONEKSI ADODC DENGAN DATABASE
Untuk mengkoneksi adodc dengan database maka ikutilah langkah-langkah dibawah
ini :
1. Klik kanan adodc yg ada di tampilan form lalu pilih adodc property seperti
gambar dibawah ini.
2. Kemudian klik Adodc Property seperti diatas lalu tampil layar seperti dibawah.
21
3. Kemudian klik Build, lalu tampil layar seperti dibawah.
4. Dari gambar diatas lalu pilih Microsoft Jet 4.0 OLE DB Provider kemudian klik
next dan akan tampil seperti layar dibawah.
22
5. Kemudian pilih no.1. Select or enter a database name yaitu tempat folder
database disimpan, lalu klik Open kemudian klik Test Connection seperti diatas.
Lalu tampil seperti pada gambar dibawah.
6. Dari Gambar diatas, klik OK. Kemudian klik OK lalu klik OK sekali lagi.
7. Kemudian kembali ke layar property pages seperti dibawah lalu pilih recordsourc
23
Dari tampilan di atas lalu pilih seperti dibawah ini :
- Command type = 2-adCmdTabel
- Table or Stored Procedure Name = tbmahasiswa


baca juga
cara pembuatan menu utama vb
Menu merupakan control yang sering dipakai dalam pembuatan aplikasi database. 

PENGENALAN VISUAL BASIC 6.0

By Unknown | At 3:54 PM | Label : | 0 Comments

PENGENALAN VISUAL BASIC 6.0

2. IDE Visual Basic 6.0
Untuk dapat menggunakan Visual Basic, anda harus menggetahui IDE (Integrated
Development Environment) atau lingkungan kerja dari Visual Basic 6.0 itu sendiri.
Tampilan IDE Visual Basic 6.0 terlihat seperti Gambar 1.1.
IDE Visual Basic 6.0 debagi menjadi delapan bagian besar, yaitu menu, toolbar,
toolbox, project explorer, properties window, form layout window, form, dan kode
editor.

Gambar 1.1. Tampilan IDE Visual Basic 6.0
3
2.1 Menu
Bagian menu Visual Basic 6.0 terlihat seperti pada Gambar 1.2.
Gambar 1.2. Menu Utama VB 6
Pada bagian menu terdapat tiga belas menu utama, yaitu menu File, Edit, View,
Project, Format, Debug, Run, Query, Diagram, Tools, Add-ins, Windows, dan Help.
Untuk menggunakan menu, anda tinggal mengklik pada menu utama kemudian
memilih pada submenu.
2.2 Toolbar
Toolbar fungsinya sama seperti fungsi dari menu, hanya saja pada toolbar pilihanpilihan
berbentuk icon. Untuk memilih suatu proses yang akan dilakukan, anda
tinggal mengklik icon yang sesuai dengan proses yang anda inginkan. Bagian toolbar
terlihat seperti pada Gambar 2.2.
Gambar 2.2. Toolbar
2.3 Toolbox
Toolbox adalah tempat dimana control-kontrol diletakan. Kontrol-kontrolyang dapat
pada toolbox dipakai dalam pembuatan program aplikasi. Untuk membuat objek
pada form program aplikasi, diambil dari control-kontrolyang ada pada toolbox.
Bagian toolbox terlihat seperti pada Gambar 2.3.
4
Gambar 2.3 Toolbox
2.4 Project Explorer
Project Explorer adalah tempat untuk melihat daftar dari form dan module yang
digunakan dalam proyek. Melalui project explorer juga, anda dapat melihat form
yang akan dipakai. Bagian project explorer terlihat seperti pada Gambar 2.4.
Gambar 2.4. Project Explorer
5
2.5 Properties Window
Properties Window adalah tempat untuk property dari setiap objek control.
Properties window juga dipakai untuk mengatur property dari objek control yang
dipakai. Dengan properties window, anda dapat mengubah properti yang nantinya
akan dipakai sebagai default dari objek control pada waktu pertama kali program di
eksekusi. Bagian properties window terlihat seperti pada gambar 2.5.
Gambar 2.5. Properties window
2.6 Form Layout Window
Form Layout Window berfungsi untuk melihat posisi form pada layar monitor pada
waktu program dieksekusi. Untuk mengeser posisi form pada form layout window
sesuai dengan posisi yang anda ingin pada layar monitor. Bagian form layout
window adalah seperti pada Gambar 2.6.
Gambar 2.6. Form Layuot Window
Form1
6
2.7 Form
Form adalah tempat untuk membuat tampilan ( user interface) bagi program aplikasi
anda. Pada form, anda dapat meletakan atau menambahkan objek control. Bagian
form adalah seperti pada Gambar 2.7.
Gambar 2.7. Form
2.8 Kode Editor
Kode Editor adalah tempat dimana anda meletakan atau menuliskan kode program
dari program aplikasi anda. Bagian kode editor adalah seperti pada Gambar 2.8.
Gambar 2.8. Kode Editor
7
Untuk menggunakan kode editor, anda dapat melakukannya dengan lima cara. Cara-cara tersebut
adalah sebagai berikut :
1. Klik menu View lalu klik Code.
2. Klik ganda pada form atau objek control yang terdapat pada form.
3. Klik kanan pada form lalu klik View Code.
4. Klik kanan pada project explorer lalu klik View Code.
5. Klik icon View Code pada project explorer seperti berikut.
Icon View Code

baca juga
 cara pembuatan database acces
PEMBUATAN DATABASE DENGAN MS ACCESS Pada bagian ini kita akan mempelajari beberapa cara untuk membuat database sistem persediaan menggunakan database Microsoft Access 2007. Database akan berisi table-tabel yang digunakan pada aplikasi pengambilan matakuliah yang akan dibuat.

Wednesday, June 5, 2013

kumpulan download file update galaxy w ke ics komplit

By Unknown | At 6:47 PM | Label : | 0 Comments
release samsung galaxy wonder,samsung has bean a many time for new version android,this is ics and jellybean,is phone has initialy whith android gingerbread,the samsung was update android 2.3.6 released to,and the final them ,samsung to roll upgrade to android 4.0.4 ics.
so what,come on can you looka forward update your hp(handphone).
oke gan,,itu tdi saya mencoba ber londho ria,,tapi hehehe belum pas jd orang londo.
baiklah tak banyak basa basi gan,di sini saya akan berbagi file untuk upgrade samsung galaxy wonder anda,kalau anda sebelumnya sudah mengunduh file file nya di sini paling anda cuma akan mengunduh sedikit saja file nya,tapi jangan kawatir  gan, saya akan berbagi semua buat anda gan..
mungkin yang perlu anda butuhkan untuk mengupdate hp anda adalah file file ini,

1.file update.zip,saya yakin anda sudah punya gan,karna file ini di gunakan untuk root  android anda
,ya jika anda belum punya,silahkan unduk saja di sini.

2.file gapps/google ics 20120429. aplikasi,saya yakin anda juga pasti sudah punya kan gan,jika belum silahkan anda unduh di sini

3.nah file ini jangan sampai terlewatkan kawan,file ricovery-clockwork-6012-ancora,jika belum,monggo di unduh gan,di sini gan

4.nah ini dia file yang di tunggu tunggu,yaitu untuk costom nya gan,silahkan monggo anda panen gan,nama filenya yaitu cm-9-20130218-eksperimental-ancora.monggo gan di panen di sini

 tampilan menu










tampilan wiget







Jika semua file sudah terkumpul,simpan dalam kartu sd anda,tpi ingat jangan di exstrak,trus masukan di dalam kartu sd tapi jangan dalam folder,biarkan di luar folder saja gan
Mengenai cara cara nya silahkan anda share ke blog sebelah,tapi kalau saya mampu ya nanti saya bantu,tapi punya saya sukses kawan untuk updatenya,kalau pingin lihat tampilanya seperti ini gan


tampilan waktu load                                                                                      waktu load













tampilan menu home

maaf kalau gambar ga jelas..maklum jadul kamera nya,,heheheh...,ntar kalau agan sukses ya agan bisa lihat dengan jelas sendiri,thank dan berkunjung.





◄ Posting Baru Posting Lama ►
 
Protected by Copyscape Web Copyright Checker

Template information

Copyright © 2012. Download free area - All Rights Reserved B-Seo Versi 5 by Blog Bamz