wah gk enak  sekali nie..

baru siap nyuci baju tp cuaca nya tdk bersahabat nie..

kain2 q jd d angini nie,,

waduh...

padahal udh capek td nyuci bajunya..

Minggu

hari ini aq tadi pagi selesai sarapan aq langsung siap2 berangkat ke gereja nih..

tp yang gk enaknya mati lampu pula...
untungnya pas pulang k rmh udh hidup lampunya,,

jd bisa beraktifitas nie..

sabtu

sabtu sangat menyenangkan,

karena aq bisa cpt istirahat karena kerja hanya setangah jam,
plng kerja ada KKS d rmh,

terus ada kawan2 SMA dtng membahas soal reunian nie..
hmhmhmmhm..
menyenangkan sekali kalo bisa renuian sama kwn2 lama.

hari jumat

memang menyenangkan saat menunggu hari dimana saat kita terima gaji,,

hasil kerjaan q selama satu bulan bisa juga aq rasakan..

hari senin

memang sulit rasanya jika sudah mendapatkan hari senin,

banyak kemungkinan, paling banyak dikarenakan sudah ada sempat beristirahat satu hari..

apalagi kalo cuaca hujan, makin payah di ajak kompromi mata ini,
hmhmmmmm...

Konsep Client – Server

Jaringan client atau server adalah jaringan dimana komputer client bertugas melakukan permintaan data dan server bertugas melayani permintaan tersebut.

Client

User akan membuat permintaan melalui software client. Aplikasi ini berfungsi :

• Memberikan interface bagi user untuk melakukan jobs.
• Format request data ke bentuk yang dapat dimengerti oleh server
• Menampilkan hasil yang diminta pada layar

Tujuan Sistem Multi-User :

l    Meningkatkan produktivitas dan efektivitas SDM

l Meningkatkan produktivitas dan efektivitas organisasi

l Meningkatkan Layanan kepada mereka yang tergantung pada sistem Multi-User.

Pengertian Multi User

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.

pengertian server

Pengertian server dapat kita telusuri dari asal katanya. Server berasal dari kata serve. Sebenarnya server mempunyai buanyak sekali arti. Namun arti kata serve yang relevan dengan bahasan tentang website adalah ”melayani”. Sehingga pengertian server adalah pelayan atau sesuatu yang melayani.

Jika kita telusuri di google, kita akan mengetahui bahwa definisi server adalah sebuah komputer yang bertugas untuk menyimpan file yang harus selalu terhubung dengan internet agar file tersebut dapat dilihat / digunakan oleh orang yang sedang connect dengan internet.

Kuliah

 Pada semester yang baru ini banyak dosen baru,

dan makin menegangkan karena sudah tinggal beberapa semester lagi menamatkan perkuliahan ini.

kuiah

di semester empat ini kami masuk hampir setiap hari..
kecuali di hari senin.

perkuliahan

selama saya berkuliah di Budidarma ini sudah banyak kesan - kesan,
dimana dapat teman - teman yang baik, juga mendapatkan dosen - dosen yang mau membimbing..

ada hal yang dahulunya saya kurang tau menjadi tau sekarang ini..

jati diri

nama aku : Ernawati Gea,
aku kuliah di Budidarma, dan aku sekarang semester 4 ( empat ) aku tinggal di jln. Simpang kayu besar
saya tiga bersudara.

Malam

mengapa setiap malam itu ada bulan dan pagi ada matahari..?

bagaimana jika malam itu tiba2 tidak ada ya?

mungkinkah kita mengenal akan yang namanya gelap dan mana yg namanya terang?

jika tdk ada malam maka kita pun tidak dapat istirahat?

jd in conclusion no night no sleep, so no sleep no sun rise...

hmhhmhm...
cocok kah? 

wow..

wow...

 keren sekali duit seratus ribunya bisa juga malu - malu ya,,

kenapa bisa tu matanya tutup ye..               

Perintah DOS pada Visual Basic 6.0

Terkadang kita ingin menggunakan perintah yang ada pada dos untuk melakukan sebuah kondisi, ni aku bagi caranya gampangnya, hanya beberapa baris aja kok gak panjang :

Sebelumnya siapkan sebuah form dengan satu buah command button, trus ketik code berikut:

Private sub command1_click()

sYourCommand="copy C:\vb.txt D:\vb.txt"
shell "cmd \c " & sYourCommand

End Sub

Dah cuma gitu aja code-nya.
Variabel sYourCommand adalah perintah dos yang ingin kita lakukan, pada code di atas dicontohkan kita akan menyalin file vb.txt pada C: ke D:, perintah ini bisa kita ganti dengan perintah dos yang lainnya.

Pada baris bawahnya kita menggunakan "Shell" yang berfungsi untuk memanggil aplikasi yang ada, disini kita memanggil aplikasi commnad promt, untuk memasukkan perintah dos kita menggunakan tambahan " \c " lalu kita tambahkan string tersebut dengan perintah dos yan telah kita simpan pada variabel sYourCommand.

perintah kondisi IF pada Visual Basic 6.0

  Perintah kondisi if ini digunakan untuk melakukan pengecekan suatu kondisi apabila kondisi tersebut bernilai TRUE. Untuk lebih jelasnya perhatikan bentuk syntax sederhana di bawah ini:
 IF(kondisi) THEN(statement)
  END IF

atau

IF(kondisi) THEN
(statement)
END IF

Penjelasan:
Bila (kondisi) bernilai TRUE, maka (statement) akan di jalankan.

Bentuk syntax jika ada satu kondisi yang bernilai FALSE:
IF(kondisi) THEN
(statement1)
ELSE
(statement2)
END IF

Penjelasan:
Bila (kondisi) bernilai TRUE, maka (statement1) akan di jalankan. Tetapi jika (kondisi) bernilai FALSE, maka (statement2) yang akan di jalankan.

Bentuk syntax jika ada satu atau lebih kondisi yang bernilai FALSE:
IF(kondisi1) THEN
(statement1)
ELSE IF(kondisi2) THEN
(statement2)
ELSE
(statement3)
END IF

Penjelasan:
Bila (kondisi1) bernilai TRUE, maka (statement1) akan di jalankan. Tetapi jika (kondisi1) bernilai FALSE, maka (statement2) yang akan di jalankan. Jika (kondisi2) bernilai FALSE, maka (statement3) yang akan di jalankan.

ya inilah sekilas mengenai perintah kondisi IF pada visual basic 6. 

Perintah Dasar Sql (Mysql) pada Visual Basic 6.0

    Perintah SQL Pada Visual Basic 6
    Oleh : Ernawati Gea
1. Instal mysql-essential-5.1.29-rc-win32
2. Instal mysql-connector-odbc-5.1.5-win32
3. Setting ODBC
   a. Klik Start, All Program, Control Panel, Administrative Tools, Data Source (ODBC)
   b. Pada ODBC Data source Administrator
      - Klik System DSN, klik ADD
      - Pilih ODBC Mysql 5.1 Driver, Lalu klik Finish
     Data source Name : ODBC_stock
     Server : Localhost
     User : root
     Pasword : ******
    Database : stock
- Klik Test, maka tampil “connection successfull”
- Klik OK,
4. Aktifkan Microsoft Visual Basic 6
5. Pilih VB Enterprise Edition Control, lalu klik Open
6. Pada layar kerja VB Klik Project, Klik Add Module, Klik Open
Ketik Listing program berikut :
Public kondb As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strconnect As String
Public strsql As String
Sub Pindah(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys “{Tab}”
End If
End Sub
Public Function konek()
strconnect = “Provider = MSDASQL.1;persist security info = false; data source =odbc_stock;user id=root;pwd=”
If kondb.State = adStateOpen Then
kondb.Close
Set kondb = New ADODB.Connection
Set rs = New ADODB.Recordset
kondb.Open strconnect
Else
kondb.Open strconnect
End If
End Function
7. Klik File, Klik Save, lalu ketik mod_stock (module), form_barang (form1), stock (Project)
8. Aktifkan form 1 dengan cara klik Project Explorer, Klik Forms, lalu double klik Form 1 (Form1))
9. Buatlah sebuah form seperti gambar di bawah ini yang terdiri dari : label, textbox, datagrid dan CommanDButton

10. Apabila setelah selesai membuat form ketikan listing berikut dengan cara :
    a. Double klik pada object form lalu ketikkan : (Form Load)
Private Sub Form_Load()
konek
kondb.CursorLocation = adUseClient
strsql = “SELECT * FROM BARANG”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub
    b. Kembali ke form dan double klik tombol simpan : (command1)
Private Sub Command1_Click()
strsql = “insert into barang values (‘” + Text1.Text + “‘,’” + Text2.Text + “‘,’” + Text3.Text + “‘,’” + Text4.Text + “‘)”
Set rs = kondb.Execute(strsql)
End Sub
   c. Kembali ke form dan double klik tombol Hapus : (command2)
Private Sub Command2_Click()
strsql = “delete from barang where kode_Barang =’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
   d. Kembali ke form dan double klik tombol Edit : (command3)
Private Sub Command3_Click()
strsql = “update barang set nama_Barang =’” + Text2.Text + “‘,satuan_barang = ‘” + Text3.Text + “‘ where kode_Barang=’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
   e. Kembali ke form dan double klik tombol Keluar : (command4)
Private Sub Command4_Click()
Unload me
End Sub
   f. Kembali ke form dan double klik textbox kode barang : (text1) ganti event dari change menjadi key press
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = “select * from barang where kode_barang =’” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
If rs.EOF Then
Text2.SetFocus
Else
Text2.Text = rs!nama_Barang
Text3.Text = rs!satuan_Barang
Text4.Text = rs!stok_barang
End If
End If
End Sub