Minggu, 17 Juni 2012
Sabtu, 28 Januari 2012
Quis Online Soal No.3
Postingan 2 :
Jawaban soal no.3 (elysa yamin)
listing program dibawah ini mengarah pada SOAL INI
Listing program
SERVER
Dim ClientIndex As Byte
Dim cRequest As Integer
Dim cData As String
Dim i As Integer
Dim iGD As Integer
Sub MulaiServer()
WS(0).LocalPort = 3000
WS(0).Listen
cRequest = 1
ClientIndex = 1
End Sub
Private Sub Form_Load()
MulaiServer
GD.Rows = 41
For i = 1 To 40
GD.Col = 0
GD.Row = i
GD.Text = i
Next i
iGD = 1
End Sub
Private Sub Timer1_Timer()
For i = 1 To GD.Rows - 1
GD.Row = i
GD.Col = 4
If GD.Text = "START" Then
GD.Col = 3
GD.Text = Time
End If
Next i
End Sub
Private Sub Timer2_Timer()
WS.SendData "PAKAI-" & Pakai.Value & "/" & 3000
End Sub
Private Sub WS_ConnectionRequest(index As Integer, ByVal requestID As Long)
Load WS(cRequest)
WS(cRequest).Close
WS(cRequest).Accept requestID
cRequest = cRequest + 1 '
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
WS(index).GetData cData, vbString, bytesTotal
Call CekData(index)
End Sub
Sub CekData(index)
Dim kata() As String
kata = Split(cData, "-")
Select Case kata(0)
Case "START"
GD.Row = iGD
GD.Col = 1
GD.Text = kata(1) 'WS(index).RemoteHostIP
GD.Col = 2
GD.Text = Time
GD.Col = 4
GD.Text = "START"
GD.Col = 5
GD.Text = kata(2)
iGD = iGD
Case "STOP"
For i = 1 To GD.Rows - 1
GD.Row = i
GD.Col = 1
If GD.Text = kata(1) Then
GD.Col = 4
GD.Text = "STOP"
End If
Next i
End Select
End Sub
Private Sub WS_Error(index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
WS(index).Close
End Sub
PROGRAM CLIENT
Dim IPS As String
Dim User As String
Private Sub Command1_Click()
WS.SendData "START-" & User & "-ElysaYamin"
End Sub
Private Sub Command2_Click()
WS.SendData "STOP-" & User
End Sub
Private Sub Form_Load()
IPS = "127.0.0.1"
User = WS.LocalIP
WS.Connect IPS, 3000
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
WS.GetData xKirim, vbString, bytesTotal
Call CheckData
End Sub
Sub CheckData()
xdata1 = Split(xKirim, "-")
xdata2 = Split(xdata1(1), "/")
Select Case xdata1(0)
Case "PAKAI"
mulai.Value = xdata2(0)
selesai.Value = xdata2(1)
pakai.Value = xdata2(2)
biaya.Text = (Val(Hour(pakai.Value) * 60) + Val(Minute(pakai.Value) * 50))
End Select
Quis Online No.2
SERVER
MODULE
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public SQL As String
Sub opendb()
If db.State = adStateOpen Then db.Close
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Sony\My Documents\belajar server\test2.mdb;Persist Security Info=False"
End Sub
Sub clearform(f As Form)
Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next
End Sub
Sub center(f As Form)
f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub
Sub rubahcmd(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
f.cmdproses(0).Enabled = L0
f.cmdproses(1).Enabled = L1
f.cmdproses(2).Enabled = L2
f.cmdproses(3).Enabled = L3
End Sub
LISTING PROGRAM SERVER
Private Sub cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kode.SetFocus
Case 1
If cmdproses(1).Caption = "&Simpan" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("yakin RECORD barang akan dihapus...!", vbQuestion + vbYesNo, "barang")
If X = vbYes Then prosesDB 2
Call hapus
kode.SetFocus
Case 3
Call hapus
kode.SetFocus
Case 4
Unload Me
End Select
End Sub
Sub hapus()
kode.Enabled = True
clearform Me
Call rubahcmd(Me, True, False, False, False)
cmdproses(1).Caption = " &Simpan"
End Sub
Private Sub Form_Load()
Call opendb
Call hapus
mulaiserver
End Sub
Sub prosesDB(log As Byte)
Select Case log
Case 0
SQL = "INSERT INTO barang(kode,nama,harga)" & _
"values('" & kode.Text & _
"','" & nama.Text & _
"','" & harga.Text & "')"
Case 1
SQL = "UPDATE barang SET nama='" & nama.Text & "'," & _
"harga='" & harga.Text & "' " & _
"WHERE kode='" & kode.Text & "'"
Case 2
SQL = "DELETE FROM barang WHERE kode='" & kode.Text & "'"
End Select
MsgBox "Pemrosesan record Database telah berhasil....!!", vbInformation, "Data Barang"
db.BeginTrans
db.Execute SQL, adCmdTable
db.CommitTrans
Call hapus
Adodc1.Refresh
kode.SetFocus
End Sub
Sub tampilbarang()
On Error Resume Next
kode.Text = rs!kode
nama.Text = rs!nama
harga.Text = rs!harga
End Sub
Private Sub kode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kode.Text = "" Then
MsgBox "Masukkan Kode Barang!", vbInformation, "Barang"
kode.SetFocus
Exit Sub
End If
SQL = " SELECT * FROM barang WHERE kode='" & kode.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
tampilbarang
Call rubahcmd(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kode.Enabled = False
Else
X = kode.Text
Call hapus
kode.Text = X
Call rubahcmd(Me, False, True, False, True)
cmdproses(1).Caption = "&Simpan"
End If
nama.SetFocus
End If
End Sub
Sub mulaiserver()
ws.LocalPort = 1000
ws.Listen
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
Me.Caption = "server-client" & ws.RemoteHostIP & "connect"
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim xkirim As String
Dim xData1() As String
Dim xData2() As String
ws.GetData xkirim, vbString, bytesTotal
xData1 = Split(xkirim, "-")
Select Case xData1(0)
Case "SEARCH"
SQL = " delete * FROM barang " & _
" where kode= '" & xData1(1) & "'"
SQL = "SELECT * FROM barang WHERE kode='" & xData1(1) & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
ws.SendData "RECORD-" & rs!nama & "/" & rs!harga
Else
ws.SendData "NOTHING-DATA"
End If
Case "INSERT"
Case "EDIT"
Case "DELETE"
SQL = " delete * FROM barang " & _
" where kode= '" & xData1(1) & "'"
db.BeginTrans
db.Execute SQL, adCmdTable
db.CommitTrans
Adodc1.Refresh
ws.SendData "DEL-xxx"
Case "UPDATE"
db.BeginTrans
db.Execute xData1(1), adCmdTable
db.CommitTrans
End Select
End Sub
Hasil Program
CLIENT
MODULE
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public SQL As String
Sub opendb()
If db.State = adStateOpen Then db.Close
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Sriwahyu-a562c3\vb2\vb\test.mdb;Persist Security Info=False"
End Sub
Sub clearform(f As Form)
Dim ctl As Control
For Each ctl In f
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is ComboBox Then ctl.Text = ""
Next
End Sub
Sub center(f As Form)
f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4
End Sub
Sub rubahcmd(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
f.cmdproses(0).Enabled = L0
f.cmdproses(1).Enabled = L1
f.cmdproses(2).Enabled = L2
f.cmdproses(3).Enabled = L3
End Sub
LISTING PROGRAM SERVER
Private Sub cmdproses_Click(Index As Integer)
Select Case Index
Case 0
Call hapus
kode.SetFocus
Case 1
If cmdproses(1).Caption = "&Simpan" Then
Call prosesDB(0)
Else
Call prosesDB(1)
End If
Case 2
X = MsgBox("yakin RECORD barang akan dihapus...!", vbQuestion + vbYesNo, "barang")
If X = vbYes Then prosesDB 2
Call hapus
kode.SetFocus
Case 3
Call hapus
kode.SetFocus
Case 4
Unload Me
End Select
End Sub
Sub hapus()
kode.Enabled = True
clearform Me
Call rubahcmd(Me, True, False, False, False)
cmdproses(1).Caption = " &Simpan"
End Sub
Private Sub Form_Load()
Call opendb
Call hapus
mulaiserver
End Sub
Sub prosesDB(log As Byte)
Select Case log
Case 0
SQL = "INSERT INTO barang(kode,nama,harga)" & _
"values('" & kode.Text & _
"','" & nama.Text & _
"','" & harga.Text & "')"
Case 1
SQL = "UPDATE barang SET nama='" & nama.Text & "'," & _
"harga='" & harga.Text & "' " & _
"WHERE kode='" & kode.Text & "'"
Case 2
SQL = "DELETE FROM barang WHERE kode='" & kode.Text & "'"
End Select
MsgBox "Pemrosesan record Database telah berhasil....!!", vbInformation, "Data Barang"
db.BeginTrans
db.Execute SQL, adCmdTable
db.CommitTrans
Call hapus
Adodc1.Refresh
kode.SetFocus
End Sub
Sub tampilbarang()
On Error Resume Next
kode.Text = rs!kode
nama.Text = rs!nama
harga.Text = rs!harga
End Sub
Private Sub kode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If kode.Text = "" Then
MsgBox "Masukkan Kode Barang!", vbInformation, "Barang"
kode.SetFocus
Exit Sub
End If
SQL = " SELECT * FROM barang WHERE kode='" & kode.Text & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
tampilbarang
Call rubahcmd(Me, False, True, True, True)
cmdproses(1).Caption = "&Edit"
kode.Enabled = False
Else
X = kode.Text
Call hapus
kode.Text = X
Call rubahcmd(Me, False, True, False, True)
cmdproses(1).Caption = "&Simpan"
End If
nama.SetFocus
End If
End Sub
Sub mulaiserver()
ws.LocalPort = 1000
ws.Listen
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
Me.Caption = "server-client" & ws.RemoteHostIP & "connect"
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim xkirim As String
Dim xData1() As String
Dim xData2() As String
ws.GetData xkirim, vbString, bytesTotal
xData1 = Split(xkirim, "-")
Select Case xData1(0)
Case "SEARCH"
SQL = " delete * FROM barang " & _
" where kode= '" & xData1(1) & "'"
SQL = "SELECT * FROM barang WHERE kode='" & xData1(1) & "'"
If rs.State = adStateOpen Then rs.Close
rs.Open SQL, db, adOpenDynamic, adLockOptimistic
If rs.RecordCount <> 0 Then
ws.SendData "RECORD-" & rs!nama & "/" & rs!harga
Else
ws.SendData "NOTHING-DATA"
End If
Case "INSERT"
Case "EDIT"
Case "DELETE"
SQL = " delete * FROM barang " & _
" where kode= '" & xData1(1) & "'"
db.BeginTrans
db.Execute SQL, adCmdTable
db.CommitTrans
Adodc1.Refresh
ws.SendData "DEL-xxx"
Case "UPDATE"
db.BeginTrans
db.Execute xData1(1), adCmdTable
db.CommitTrans
End Select
End Sub
Jumat, 27 Januari 2012
Cara Mengatasi Masuk Angin
Sebelum menuju Cara Mengatasi Masuk Angin, saya ingin meminta maaf terlebih dulu kepada semua pengunjung blog ini karna selama 3 bulan lebih saya tidak menelurkan postingan, dikarenakan kesibukan saya dikampus (alhamdulillah minggu depan mau ujian sidang Tugas Akhir). Tak lupa juga kepada yang telah meninggalkan kometar diblog ini, maaf komentarnya tidak saya balas.
Mengawali perjumpaan kita ditahun 2011 ini, saya akan menuliskan tips untuk mengobati masuk angin.
Sebenarnya apa sih masuk angin itu? dana apa penyebab masuk angin?
Masuk angin! Sebenarnya, angin tidak benar-benar masuk ke dalam tubuh. Yang benar adalah, tiupan angin menyebabkan suhu tubuh menurun. Lalu, muncul gejala seperti pusing, meriang, pegal-pegal, perut kembung, batuk-pilek dan demam. Dalam dunia kedokteran, istilah masuk angin adalah bagian dari gejala flu, khususnya yang sering terjadi pada pergantian musim (pancaroba).
Untuk mengatasi penyakit masuk angin ini, saya akan menuliskan beberapa resep tradisional yang tidak ada salahnya untuk anda coba.
Obat Untuk Masuk Angin ke-1
Bahan:
- Daun Jinten (5 lembar)
- Air Panas (1/2 gelas)
Pemakaian:
Cuci bersih daun jinten, kemudian haluskan. Masukan (seduh ) daun jinten yang sudah halus tersebut pada 1/2 gelas air panas. Saring ramuan tersebut dan minum 1 kali sehari.
Obat Untuk Masuk Angin ke-2
Bahan:
- Daun kayu putih kering (6-10 gram)
- Air (2 gelas)
Pemekaian:
Rebus daun kayu putih dalam 2 gelas air, hingga tersisa 1 gelas. setelah dingin, saring airnya dan minum 1 kali sehari.
[Ramuan obat untuk masuk angin diatas bisa juga digunakan untuk mengobati perut kembung].
Sekian Cara mengatasi masuk angin yang alami dan murah, semoga bisa bermanfaat bagi anda yang sedang mengalami masalah dengan penyakit masuk angin dan perut kembung.
Mengawali perjumpaan kita ditahun 2011 ini, saya akan menuliskan tips untuk mengobati masuk angin.
Sebenarnya apa sih masuk angin itu? dana apa penyebab masuk angin?
Masuk angin! Sebenarnya, angin tidak benar-benar masuk ke dalam tubuh. Yang benar adalah, tiupan angin menyebabkan suhu tubuh menurun. Lalu, muncul gejala seperti pusing, meriang, pegal-pegal, perut kembung, batuk-pilek dan demam. Dalam dunia kedokteran, istilah masuk angin adalah bagian dari gejala flu, khususnya yang sering terjadi pada pergantian musim (pancaroba).
Untuk mengatasi penyakit masuk angin ini, saya akan menuliskan beberapa resep tradisional yang tidak ada salahnya untuk anda coba.
Obat Untuk Masuk Angin ke-1
Bahan:
- Daun Jinten (5 lembar)
- Air Panas (1/2 gelas)
Pemakaian:
Cuci bersih daun jinten, kemudian haluskan. Masukan (seduh ) daun jinten yang sudah halus tersebut pada 1/2 gelas air panas. Saring ramuan tersebut dan minum 1 kali sehari.
Obat Untuk Masuk Angin ke-2
Bahan:
- Daun kayu putih kering (6-10 gram)
- Air (2 gelas)
Pemekaian:
Rebus daun kayu putih dalam 2 gelas air, hingga tersisa 1 gelas. setelah dingin, saring airnya dan minum 1 kali sehari.
[Ramuan obat untuk masuk angin diatas bisa juga digunakan untuk mengobati perut kembung].
Sekian Cara mengatasi masuk angin yang alami dan murah, semoga bisa bermanfaat bagi anda yang sedang mengalami masalah dengan penyakit masuk angin dan perut kembung.
Kamis, 26 Januari 2012
sistem basis data
PENGERTIAN SISTEM BASIS DATA
Basis data terdiri dari 2 kata, yaitu basis & data. Basis dapat diartikan sebagai markas / gudang, tempat berkumpul. Sedangkan data adalah fakta yang mewakili suatu objek seperti manusia, barang, hewan peristiwa, keadaan dan sebagainya, yang direkam dalam bentuk angka, huruf simbol, teks gambar, bunyi atau kombinasinya.
Basis data sendiri dapat di definisikan dalam sejumlah sudut pandang seperti :
1. Himpunan kelompok data / arsip yang saling berhubungan yang diorganisasi sedemikian rupa agar kelak dapat dimanfaatkan kembali dengan cepat & mudah.
2. Kumpulan data yang saling berhubungan yang disimpan secara bersama sedemikian rupa dan tanpa pengulangan/ penumpukan (redundansi), untuk memenuhi berbagai kebutuhan.
3. Kumpulan file/ tabel /arsip yang saling berhubungan yang disimpan dalam media penyimpanan elektronis.
• Basis data (database) adalah kumpulan dari berbagai data yang saling berhubungan satu dengan yang lainnya. Basis data tersimpan di perangkat keras, serta dimanipulasi dengan menggunakan perangkat lunak. Pendefinisian basis data meliputi spesifikasi dari tipe data, struktur dan batasan dari data atau informasi yang akan disimpan. Database merupakan salah satu komponen yang penting dalam sistem informasi, karena merupakan basis dalam menyediakan informasi pada para pengguna atau user.
• Penyusunan basis data meliputi proses memasukkan data kedalam media penyimpanan data dan diatur dengan menggunakan perangkat Sistem Manajemen Basis Data (Database Management System DBMS). Manipulasi basis data meliputi pembuatan pernyataan (query) untuk mendapatkan informasi tertentu, melakukan pembaharuan atau penggantian (update) data, serta pembuatan report data.
• Tujuan utama DBMS adalah untuk menyediakan tinjauan abstrak dari data bagi user. Jadi sistem menyembunyikan informasi mengenai bagaimana data disimpan dan dirawat, tetapi data tetap dapat diambil dengan efisien. Pertimbangan efisien yang digunakan adalah bagaimana merancang struktur data yang kompleks, tetapi tetap dapat digunakan oleh pengguna yang masih awam, tanpa mengetahui kompleksitas struktur data. Basis data menjadi penting karena munculnya beberapa masalah bila tidak menggunakan data yang terpusat, seperti adanya duplikasi data, hubungan antar data tidak jelas, organisasi data dan update menjadi rumit.
Jadi tujuan dari pengaturan data dengan menggunakan basis data adalah :
• Menyediakan penyimpanan data untuk dapat digunakan oleh organisasi saat sekarang dan masa yang akan datang.
• Kemudahan pemasukan data, sehingga meringankan tugas operator dan menyangkut pula waktu yang diperlukan oleh pemakai untuk mendapatkan data serta hak-hak yang dimiliki terhadap data yang ditangani.
• Pengendalian data untuk setiap siklus agar data selalu up-to-date dan dapat mencerminkan perubahan spesifik yang terjadi di setiap sistem.
• Pengamanan data terhadap kemungkinan penambahan, pengubahan, pengerusakan dan gangguan-gangguan lain.
Alasan mengapa mempelajari basisdata :
1. Perpindahan dari komputasi ke informasi
2. Himpunan elemen data semakin banyak dan beragam
· Perpustakaan digital. Video interaktif
· Kebutuhan untuk memperluas DBMS
3. DBMS mencakup bidang ilmu lain
Sistem operasi, bahasa pemrograman, teori komputasi, AI, logika, multimedia.
Operasi dasar pembuatan Basis data :
· Pembuatan Basis Data (Create Database)
· Yang identik dengan pembuatan lemari arsip yang baru.
· Penghapusan Basis Data (Drop Database)
· Yang identik dengan perusakan lemari arsip (sekaligus beserta isinya, jika ada)
· Pembuatan File/Table baru ke suatu basis data (Create Table)
· Yang identik dengan penambahan map arsip baru ke sebuah lemari arsip yang telah ada.
· Penghapusan File/Table dari suatu basis data (Drop Table)
· Yang identik dengan perusakan map arsip lama yang ada di sebuah lemari arsip.
· Penambahan data baru ke suatu file/table di sebuah basis data (insert)
· Identik dengan penambahan lembaran arsip baru kesebuah map arsip.
· Pengambilan data dari sebuah file/table (Retrieve/Search)
· Identik dengan pencarian lembaran arsip dari sebuah map arsip.
· Pengubahan data dari sebuah file/table (Update)
· Identik dengan perbaikan isi lembaran arsip yang ada di sebuah map arsip.
· Penghapusan data dari sebuah file/table (Delete)
· Identik dengan penghapusan sebuah lembaran arsip yang ada di sebuah map arsip.
B. Hirarki Data
Berdasarkan tingkat kompleksitas nilai data, tingkatan data dapat disusun kedalam sebuah hirarki, mulai dari yang paling sederhana hingga yang paling komplek.
1. Basis data, merupakan sekumpulan dari bermacam-macam tipe record yang memiliki hubungan antar record.
2. Berkas/file, merupakan sekumpulan rekaman data yang berkaitan denngan suatu objek.
3. Record , merupakan sekumpulan field/atribut/data item yang saling berhubungan terhadap obyek tertentu
a. Fixed length record, semua field dalam record memiliki ukuran yang tetap.
b. Variabel length record, field-field dalam record dapat memiliki ukuran berbeda (metode penandaan yang digunakan adalah : end of record marker, indikator panjang, dan tabel posisi record)
4. Field/atribut/data item, merupakan unit terkecil yang disebut data,yang tidak dapat dipecah lagi menjadi unit lain yang bermakna.
a. Fixed length field, memiliki ukuran yang tetap
b. Variabel length field, field-field dalam record dapat memiliki ukuran berbeda.
5. Byte, adalah bagian terkecil yang dialamatkan dalam memori.
Byte merupakan sekumpulan bit yang secara konvensional terdiri atas kombinasi delapan bit yang menyatakan sebuah karakter dalam memori (I byte= I karakter)
6. Bit, adalah sistem binner yang terdiri atas dua macam nilai, yaitu 0 dan 1. sistem binner merupakan dasar yang dapat digunakan untuk komunikasi antara manusia dan mesin, yang merupakan serangkaian komponen elektronik dan hanya dapat membedakan 2 macam keadaan, yaitu ada tegangan dan tidak ada tegangan yang masuk ke rangkaian tersebut.
. Konsep DBMS (database management system)
Database Management System (DBMS) merupakan paket program (Software) yang dibuat agar memudahkan dan mengefisienkan pemasukan, pengeditan, penghapusan dan pengambilan informasi terhadap database.
Software yang tergolong kedalam DBMS antara lain, Microsoft SQL, MySQL, Oracle, MS. Access, dan lain-lain
K omponen utama DBMS :
1. Perangkat keras
Berupa komputer dan bagian-bagian didalamnya, seperti prosesor, memori & harddisk. Komponen inilah yang melakukan pemrosesan dan juga untuk menyimpan basis data.
2. Basisdata
Sebuah DBMS dapat memiliki beberapa basisdata, setiap basis data dapat berisi sejumlah obyek basisdata (file,tabel,indeks dsb). Disamping berisi data,setiap basisdata juga menyimpan definisi struktur (baik untuk basis data maupun obyek-obyeknya secara detail).
3. Perangkat lunak
Perangkat lunak ini terdiri dari sistem operasi dan perangkat lunak/program pengelola basisdata. Perangkat lunak inilah yang akan menentukan bagaimana data diorganisasi,disimpan, diubah dan diambil kembali. Ia juga menerapkan mekanisme pengamanan data, pemakaian data secara bersama, pemaksaan keakuratan/konsistensi data, dan sebagainya.
Contoh perangkat lunak DBMS : MS access, SQL Server, Oracle dsb.
4. Pengguna/user
Pengguna dapat digolongkan menjadi 3 :
· Pengguna akhir / end user, Dapat dibagi menjadi 2 :
a. Pengguna aplikasi : adalah orang yang mengoperasikan program aplikasi yang dibuat oleh pemrogram aplikasi.
b. Pengguna interaktif : adalah orang yg dpt memberikan perintah-perintah pada antar muka basisdata, misalnya SELECT, INSERT dan sebagainya.
· Pemrogram aplikasi adalah orang yang membuat program aplikasi yang menggunakan basisdata.
· Administrator database / DBS (database administrator) adalah orang yang bertanggungjawab terhadap pengelolaan basisdata.
Jumat, 20 Januari 2012
Rancangan Data Pegawai
1. Pengertian jaringan Client – Server
Server adalah komputer yang menyediakan fasilitas bagi komputer- komputer lain di dalam jaringan
client adalah komputer-komputer yang menerima atau menggunakan fasilitas yang disediakan oleh server.
Server di jaringan tipe client-server disebut dengan Dedicated Server karena murni berperan sebagai server yang menyediakan fasilitas kepada workstation dan server tersebut tidak dapat berperan sebagai workstation.
2. Program server
Langkah - langkah pembuatan program server yang menggunakan program Microsoft Office Acces 2003 dan program Microsoft Visual Basic 6.0 yaitu :
a. Rancanglah pembuatan data base pada program Microsoft Office Acces 2003.
Nama database : Laporan data pengawai
Nama table : Data
Start, program, pilih Microsoft Office Acces 2003. Pada sebelah kanan bawah tampilan terdapat icon – icon. Klik create a new file. Ketik blank database. Lalu ketik nama database Mahasiswa dengan nama tabel data. Double klik table data isilah field name dan data typenya. Seperti tampilan dibawah ini.
b. Start, program, pilih Microsoft Visual Basic 6.0, Microsoft Visual Basic 6.0, standard Exe, klik Open.
c. Rancang tampilan pada Form Login
Ketik listing program pada form login.
Private Sub Command1_Click()
If user.Text = "lindawati" And password.Text = "0902146" Then
MDIForm1.Show
ElseIf user.Text = "" & password.Text = "" Then
MsgBox "Silahkan masukkan password login", vbCritical, "info"
user.SetFocus
Else
MsgBox "Password yang anda inputkan salah", vbCritical, "info"
user.Text = ""
password.Text = ""
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Sabtu, 07 Januari 2012
kegiatan sehari-hari
saya seorang mahasiswa budidarma medan, saya tinggal dijl.sm raja, sebagai anak kos aktifitas sehari-hari saya hanya di mulai dengan pagi hari saya berangkat kuliah. mengikuti pelajaran yang di berikan oleh dosen, jika ada tugas yang di berikan oleh dosen biasanya saya mengerjakan tugas tersebut bersama teman-teman saya, dan tidak semua tugas saya kerjakan dengan teman-teman saya, hanya tugas - tugas kelompok saja.
setelah pulang kuliah saya biasanya menonton televisi sambil makan siang dan sehabis itu saya tidur siang sampai ke jam 16.00 , kemudian saya memebersihkan kamar kos saya lalu saya mandi...
dan pada malam harinya biasanya saya nonton televisi dan terkadang keluar sebentar kekos teman lainya sekedar untuk mengobrol dengan teman-teman.
dan inilah aktifitas saya sehari-hari...
MULTI SELULER
Sistem Multi-User adalah suatu sistem dimana lebih dari satu user menggunakan secara bersama satu atau lebih perangkat keras, piranti lunak dan data/ informasi , orang dan prosedur melalui masing-masing komputer atau workstation.
Tujuan Sistem Multi-User :
l Meningkatkan produktivitas dan efektivitas SDM
2 Meningkatkan produktivitas dan efektivitas organisasi
3 Meningkatkan Layanan kepada mereka yang tergantung pada sistem Multi-User.
Pengertian Jaringan Komunikasi :
l Jaringan memungkinkan manusia dan organisasi-organisasi untuk mengirim dan menggunakan secara bersama data dan informasi dengan melampaui pembatas jarak.
2 Komunikasi adalah proses pengirim data dan informasi melalui jaringan komunikasi.
3 Jaringan Komunikasi merupakan seperangkat lokasi-lokasi yang terdiri dari perangkat keras, program dan informasi yang terhubung satu sama lain sebagai satu sistem yang mengirim dan menerima data / informasi.
l Node adalah station komunikasi di dalam jaringan.
Peran Jaringan Komunikasi :
l Mengirim dan menerima pesan secara Elektronik.
2 Pertemuan Elektronik
3 Sharing dan Pendistribusian Informasi
4 Penyediaan Informasi
Langganan:
Postingan (Atom)