Jaga Warung,,,, hi...hi...hii

Kami punya warung, setelah tidak bekerja diwarnet saya selain mengajar anak les, saya jugamenjaga warungmilik sendiri.
ya warungsederhana lah, ada minyak makan, sabun, makanan ringan, minuman, dan dll. saya yang menjaga dari pagi sampai sore, sambil mengajar anak les.
karena yang dirumah pagi hingga sore hanya saya dan adik saya yang cowok, tu pun kalau adik saya itu pas lagi gak kerja aja.
penghasilan warung kami tidak banyak setiap hari, karena selain tidak dipiggir jalan, warung banyak didaerah dekat rumah kami...
begitu lah kegiatan saya sehari-harinya...
gbu

Kuliah.

Saya kuliah masuk malam, pukul 17.45-21.00 malam. Tapi sampai dirumah sekitar jam 21.40 karena, pertama kali saya masuk kuliah siang, lalu semester 3 saya ambil kuliah malam karena saya kerja diwarnet,

Diwarnet saya kerja pagi jam 08.00- 17.00 sore. Lalu pulang kerja saya langsung mandi dan berangkat kuliah, soz tempat kerja gak jauh dari rumah. Makanya saya ambil kuliah malam waktu itu, tapi sekarang saya gak kerja diwarnet lagi, tapi saya tidak pindah dari jam kuliah saya, dikarena kan uda tanggung he…he..he !
Tu salah satu kegiatan saya juga kuliah, saya mau vokus dulu dengan kuliah saya.
Gbu

Ibadah / kegereja

Salah satu kegiatan saya juga ya kegereja hahahahahhhhah… kegiatan ini harus dan wajib. Saya mengikuti ibadah pemuda dimana ibadah pemudah setiap hari sabtu jam 19.00- 21.00.

Belakangan ini rajin ikut ibadah pemudah… hahahhahahah . kalau ada masalah kadang saya susah tuk ibadah. Karena saya lebih nyaman ketika saya berdoa aja dikamar sendiri, bisa lebih enak gitu lah. Bisa menangis, curhat, sama Tuhan wkwkwkwkwkkwkkwk

Memasak

Bangun pagi pukul 06.00 wib saya bangun serta kakak, adik-adik yang mau sekolah, setiap paginya kegiatan saya ya memasak air dan mengenggekin beras yang sudah dicuci tuk dimasak. Menungguh air mendidi dan beras da masak saya hidupin TV lihat berita-berita pagi hehhehehehe.

Kakak adik-adik mereka mengerjakan tugasnya masing-masing. Ada yang menyapu dan mengeluarkan motor. Adik-adik langsung pada mandi setelah selesai pekerjaan mereka. Sedangkan saya membuat the buat semuanya dirumah, ada yang teh manis panas ada juga susu panas buat adik-adik yang mau kesekolah.

Lalu saya memasak telur goreng buat sarapan mereka, tiadk setiap pagi sih menu lauk telur goreng entar yang ada mereka pada bosan… heheheheheheh
Nagi goreng juga kadang saya buatin tuk adik-adik, karena kakak gak suka sama nasi goreng maka kakak kadang tidak sering sarapan pagi. Mau gimana susu dan nasi goreng dia gak suka padahal kan bergizi. Mau gak mau kakak kadang buat sendiri tuk sarapan paginya…
Ini salah satu kegiatan saya dipagi hari…. <_>

KEGIATAN SAYA

Mengajar Anak Les

Setiap hari Selasa dan kamis pagi pukul 10.00 wib, kegiatan saya mengajar anak les. Mata pelajaran yang saya ajar kan pada mereka yaitu Bahasa Indonesia/Membaca danMate-Matika. Anak les gak banyak saya mengajar mereka hanya 2 sampai 3 orang aja,,, ya lumayan lah tuk tambah-tambah uang jajan kuliah. He..he..he..
Anak les saya kelas 2 sampai kelas 4 SD, kadang saya sebel, marah, kesal, waktu mengajar mereka membaca dan berhitung. Sulit banget butuh kesabaran yang banyak deh… wkwkwkkwkwkwk
Tapi gak jadi masalah karena bermanfaat juga bagi aku, mengajar aku tuk lebih sabar dan saying kepada anak-anak, hehehehehehe upah yang aku terima dari setiap anak les itu gak banyak, anak les tu dari murid-murid dimana mama mengajar. Upah dari 1 anak les Rp 75.00/bulan. Ada 3 anak les ya hanya sekitar Rp 225.000,-. Tapi saya menerima hanya Rp 150.00/ bulan. Karena sisianya buat mama tuk tambah uang kuliah.
Ya mau gimana lagi dulu masih kerja aku masih bisa kasih ma mama Rp 200.000,- dari hasil kerja diwarnet dulu. Tapi sekarang gak lagi karena saya mau lebih vokus buat nyusun Tugas Akhir yang bentar lagi.

Pengertian Multiuser

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.

Peran Jaringan Komunikasi :

l Mengirim dan menerima pesan secara Elektronik.

2 Pertemuan Elektronik

3 Sharing dan Pendistribusian Informasi

4 Penyediaan Informasi

Pembagian Jaringan Komunikasi :

l Arsitektur Jaringan

2 Jenis-jenis Jaringan

3 Perangkat Keras Jaringan

4 Sistem Operasi Jaringan

Anatomi Program Server

Peranan utama suatu program server adalah melayani client yang berjumlah banyak yang memiliki tujuan untuk menggunakan secara bersama sumber daya yang dimiliki oleh server tersebut. Berikut ini adalah karasteristik suatu yang biasanya dimiliki oleh suatu program server.

* Menanti permintaan client. Program server menghabiskan sebagian besar waktu kerjanya secara pasif menanti permintaan client. Biasanya permintaan ini datang dalam bentuk message melalui sessi komunikasi. Beberapa server menggunakan suatu sesi khusus untuk setiap client. Server yang lainnya menggunakan session yang digunakan secara dinamis. Ada juga yang menggunakan gabungan kedua teknik ini (dedicated dan dinamis). Untuk dapat bekerja dengan baik, server harus tetap dapat bekerja ketika terjadi permintaan yang banyak (rush hour traffic).
* Melaksanakan banyak permintaan pelayanan pada saat yang bersamaan. Server harus sesegera mungkin melaksanakan pelayanan yang diminta oleh client. Hal ini berarti, client tak boleh bergantung pada proses server yang hanya memiliki thread tunggal. Server harus dapat secara konkuren menyediakan pelayanan dengan tetap menjaga integritas sumber dayanya.

KONSEP CLIENT SEVER

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

Server

Jaringan client atau server, server khusus digunakan untuk pemrosesan, penyimpanan dan manajemen data. Server bertugas menerima request dari client, mengolahnya, dan mengirimkan kembali hasilnya ke client.

Untuk itu, server membutuhkan komputer khusus dengan spesifikasi hardware yang jauh lebih baik dan bertenaga dibandingkan hardware untuk client karena komputer harus mampu melayani :

* Request secara simultan dalam jumlah besar
* Aktivitas manajemen jaringan
* Menjamin keamanan pada resource jaringan

Pengertian Client Server

Client-Server adalah arsitektur jaringan yang memisahkan client(biasanya aplikasi yang menggunakan GUI ) dengan server. Masing-masing client dapat meminta data atau informasi dari server.
Sistem client server didefinisikan sebagai sistem terdistribusi, tetapi ada beberapa perbedaan karakteristik yaitu :
1.Servis (layanan)
oHubungan antara proses yang berjalan pada mesin
yang berbeda
oPemisahan fungsi berdasarkan ide layanannya.
oServer sebagai provider, client sebagai konsumen

2.Sharing resources (sumber daya)
oServer bisa melayani beberapa client pada waktu yang sama, dan
meregulasi akses bersama untuk share sumber daya dalam menjamin
konsistensinya.

3.Asymmetrical protocol (protokol yang tidak simetris )
Many-to-one relationship antara client dan server.Client selalu
menginisiasikan dialog melalui layanan permintaan, dan server menunggu
secara pasif request dari client.

4.Transparansi lokasi
Proses yang dilakukan server boleh terletak pada mesin yang sama atau pada
mesin yang berbeda melalui jaringan.Lokasi server harus mudah diakses dari
client.

5.Mix-and-Match
Perbedaan server client platforms

6.Pesan berbasiskan komunikasi
Interaksi server dan client melalui pengiriman pesan yang menyertakan
permintaan dan jawaban.

7.Pemisahan interface dan implementasi
Server bisa diupgrade tanpa mempengaruhi client selama interface pesan
yang diterbitkan tidak berubah.

Tentang KehidupanKu.

Nama Saya Linda Sari Nainggolan, Biasa dipanggil dengan sebutan sehari-hari Linda. Saya anak Kedua dari 6 bersaudara. 5 perempuan dan 1 laki-laki. saya tinggal dimarindal pasar III bersama Kedua Orang Tua saya kakak dan adik-adik saya. saya bangga mempunyai Orang Tua seperti mereka. Karena saya selalu diajarkan yang utama dan sampe sekarang saya tumbuh dewasa yaitu Takut Akan Tuhan. saya beragama keristen Protestan.

Waktu saya ingat masa kecil saya sangat bandel. dimana suka banget melawan kedua orang tua saya. kerjaan saya hanya taunya bermain-main aja bareng sama teman-teman.
saya sering dimarahin oleh mama saya, karena gak mau dengar nasehat mama.

menginjak SMP saya sekolah diSMP Negeri 22 Medan. Kebiasaan Bermain tidak bisa saya lupakan. saya tetap bermain bersama teman-teman saya, pUlang sekolah bukan pulang kerumah tapi main dulu. sampe sampe akdirnya papa mencari saya kesekolahan saya karena saya belum pulang sampe sore hari.
saya selalu pulang sekolah main kerumah sahabat saya, dia beragama muslim. disana saya merasakan sesuatu yang senang banget karena merasa tinggal sama keluarga saya. kedua orang tuanya baik banget sama saya. makan bareng, saya dibelikan sepatu baju dan alat tulis. saya gak dibedakan sama anaknya sendiri.
papa akhinya menjumpai saya dirumah sahabat saya. karena papa tau saya punya seorang teman yang sering sekali saya ceritakan sama mereka. Lulusan SMP tiba saya sedih harus sekolah tidak bersama sahabat saya lagi. Menangis memeluk dia erat saat perpisahan tiba. Papa sahabat saya juga memeluk saya saya terus nangis. papanya bilang sama saya. tetap semangat dan terus belajar dan jangan melawan orang tua lagi. sering-sering main kerumah.

SMA saya sekolah di Budi MURNI. Saya orangny tetap bandel dibilangi, mala SMA saya keseringan bohong sama orang tua saya. Pergi kemedan sama teman-teman. saya gak pernah lagi maen kerumah sahabat saya. dibandingkan SD, SMP, dan SMA lebih susah diaturnya saya sejak SMA. kebanyak kan bohong sejak SMA, saya sekali dapat panggilan orang tua kesekolah. teguran keras diberikan papa ma saya. sejak kelas 3 SMA. tiba waktu tu saya jatuh ketika saya kelas 3 SMA main basket ma teman-teman. saya pingsan teman-teman dan guru tidak ada yang berani mengangkat saya. lalu teman menelpon orang tua saya.
waktu itu papa menarik becak mesin, sebelumnya papa juga merasakan ada getaran gak enak tiba-tiba waktu mengantar sewanya. kakak langsung menjumpai mama kesekolah karena mama mengajar di SD, tiba-tiba ditengah jalan jampa papa. mereka langsung kesekolah. papa mengangkat saya ke kantor guru, papa meminta segelas air hangat lalu papa doa dan menuangkan sedikit air putih kemulut saya. karena itu lah semua teman dan guru kenapa gak berani angkat aku, karena waktu itu mereka melihat aku parah banget sampe sesuatu keluar dari mulut aku.
papa yakin gak ada yang mustahil bagi Tuhan. akhirnya saya sadar setelah 3 jam saya pingsan. saya merasakan tidur lama banget dan merasakan panas di seluruh atas sampe bawah seperti mandi dengan minyak kayu putih.
kedua orang tua saya langsung bawah saya kerumah sakit. dengan becak papa kami kerumah sakit. sampe rumah sakit dokter meriksa saya papa bialang saya jatuh dilapangan Basket kepala saya kena kelantai basket. setelah saya habis diperiksa dokter mengatakan kalau saya sampe munta 3x saya disuruh periksa ke rumah sakit dimedan. takutnya geger Otak. karena kepala saya masih sakit. keluar dari rumah sakit saya langsung muntah. mama dan papa sedikit takut, kami langsung pulang kerumah kepala saya masih sakit banget, saya pengen munta aja. setelah minum obat saya merasa sedikit tenang, saya langsung istirahat.
akhirnya saya kembali sekolah dan belajar sama teman-teman seperti biasa. sampe Saya LUlus SMA. saya mencoba mendaftar keperguruan negeri di UNIMED dan USU. saya tidak lolos. lalu papa menyuruh saya untuk kejakarta belajar mandiri jauh dari orang tua.
saya dijakarta 1 1/2 tahun. saya merasakan sepahit apa pun tinggal bersama orang tua sungguh nikmat dan indah, dibandingkan tinggal ma saudara. saya belajar bagaimana pahitnya kehidupan didunia. dulu saya suka membuang waktu, sekarang saya belajar bagaimana waktu itu sangatlah berharga.

masih banyak cerita dalam kehidupan saya, tapi disini dulu. GBu

Tips Visual Basic - Cara Menjalankan Program Lain Dengan Berbagai Model Jendela

Pada tips visual basic kali ini, kita akan mempraktekkan cara menjalankan program lain (seperti Notepad, Paint, dan lainnya) dengan berbagai macam model jendelanya, seperti maximized, minimized, normal, atau bahkan menyembunyikan jendelanya alias program tersebut akan berjalan di belakang layar. Juga bisa ditentukan apakah jendela program itu akan fokus atau tidak fokus.

Kita akan membuat contoh programnya dulu, di sini saya membuat sebuah project Standard Exe di Visual Basic. Kontrol-kontrolnya terdiri dari: CommandButton (cmdJalankanProgram), Textbox (txtProgram), dan ComboBox (cboModelJendela). Tampilannya seperti gambar di atas. Lalu untuk kode-kodenya adalah sebagai berikut:

Option Explicit

Private Enum enumJenisJendela
    Normal_dan_Fokus = vbNormalFocus
    Normal_Tidak_Fokus = vbNormalNoFocus
    Maximized = vbMaximizedFocus
    Minimized_dan_Fokus = vbMinimizedFocus
    Minimized_Tidak_Fokus = vbMinimizedNoFocus
    SembunyikanJendela = vbHide
End Enum
Private Sub JalankanProgram(sProgramPath As String, JenisJendela As enumJenisJendela)
    On Error GoTo Er:
    'cek jika file program tersebut tidak ada
    If Dir(sProgramPath) = "" Then
        MsgBox "File Tidak Ditemukan: " & sProgramPath
        Exit Sub
    End If
    'jalankan program
    Shell sProgramPath, JenisJendela
    Exit Sub
Er:
    MsgBox "Error menjalankan program " & sProgramPath & vbCrLf & _
        "Penjelasan: " & Err.Description, , "Error"
End Sub
Private Sub cmdJalankanProgram_Click()
    If cboModelJendela.ListIndex = 0 Then JalankanProgram txtProgram.Text, Normal_dan_Fokus
    If cboModelJendela.ListIndex = 1 Then JalankanProgram txtProgram.Text, Normal_Tidak_Fokus
    If cboModelJendela.ListIndex = 2 Then JalankanProgram txtProgram.Text, Maximized
    If cboModelJendela.ListIndex = 3 Then JalankanProgram txtProgram.Text, Minimized_dan_Fokus
    If cboModelJendela.ListIndex = 4 Then JalankanProgram txtProgram.Text, Minimized_Tidak_Fokus
    If cboModelJendela.ListIndex = 5 Then JalankanProgram txtProgram.Text, SembunyikanJendela
End Sub

Private Sub Form_Load()
    cboModelJendela.AddItem "Normal dan Fokus"
    cboModelJendela.AddItem "Normal, Tidak Fokus"
    cboModelJendela.AddItem "Maximized"
    cboModelJendela.AddItem "Minimized dan Fokus"
    cboModelJendela.AddItem "Minimized, Tidak Fokus"
    cboModelJendela.AddItem "Sembunyikan Jendela"
    cboModelJendela.ListIndex = 0
End Sub
Keterangan:
Fungsi utamanya adalah pada teks berwarna biru.
Warna merah adalah listing kode untuk tombol cmdJalankanProgram (CommandButton).
Warna merah muda adalah kode untuk Form.

Saat dijalankan, isikan nama file program lengkap bersama pathnya, lalu pilih jenis jendelanya, kemudian klik tombol Jalankan.
Keterangan Untuk Model Jendela:
- Fokus / Tidak fokus : menunjukkan apakah jendela program akan aktif (berada di depan jendela program lain) atau tidak.
- Normal : Tampilan standar jendela
- Maximized : Jendela akan menutupi seluruh desktop kecuali Taskbar.
- Minimized : Jendela program tidak terlihat tetapi tombol program masih ada di Taskbar. Dengan meng-klik tombol program di taskbar maka jendelanya akan muncul kembali.
- Sembunyikan jendela : Jendela program tidak terlihat begitu pula tombolnya di taskbar. Untuk menutup programnya, anda harus membuka Task Manager, caranya tekan CTRL+ALT+DEL. Lalu pada jendela Task Manager, klik tab Processes, lalu cari dan pilih program yang dijalankan, kemudian klik tombol End Process. Tampilan Task Manager seperti berikut ini:

  

Tips Visual Basic - Enkripsi / Dekripsi (Penyandian) Password dan Teks

Dalam tips VB kali ini, kita akan mencoba menyandikan teks atau password. Penyandian sangat diperlukan, agar setiap kata-kata yang rahasia yang tidak boleh diketahui oleh orang lain bisa dengan aman disimpan baik didalam program EXE ataupun dalam file lain. Jadi kalau ada yang coba-coba membongkar file EXE atau file penting lainnya yang telah disandikan, maka orang tersebut tidak akan dengan mudah mendapatkan teks aslinya. Kecuali kalau ia memang seorang hacker yang sangat tangguh.

Banyak teknik penyandian (enkripsi) yang telah dikembangkan saat ini, mulai dari yang sangat sederhana sampai pada yang amat kompleks dan aman. Dalam tips kali ini diberikan sebuah teknik sederhana namun kiranya sudah cukup aman untuk sebuah program kecil-kecilan. Teknik ini adalah kreasi dari John Clark Craig, bersumber dari bukunya yang berjudul Microsoft Visual Basic 4.0 Developer's Workshop Edisi Ketiga. Enkripsi ini adalah simetris, artinya teks yang telah dienkripsi bisa dikembalikan ke teks asalnya (dekripsi).

Berikut ini adalah kodenya (beberapa kodenya telah saya rubah sedikit untuk penyesuaian)
Function Cipher(TXT As String, Optional A As Integer, Optional B As Integer, Optional RV As Integer)
    Static R As Long
    Static M As Long
    Static N As Long
    Const BN As Long = 32768
    Dim I As Integer, C As Integer, D As Integer
    If IsMissing(RV) = False Then R = RV
    If IsMissing(A) Then
        If M = 0 Then M = 69
    Else
        M = (A * 4 + 1) Mod BN
    End If
    If IsMissing(B) Then
        If N = 0 Then N = 47
    Else
        N = (B * 2 + 1) Mod BN
    End If
'proses setiap karakter
    For I = 1 To Len(TXT)
        C = Asc(Mid$(TXT, I, 1))
        'modifikasi khusus teks yg bisa dibaca saja
        Select Case C
        Case 48 To 57
            D = C - 48
        Case 63 To 90
            D = C - 53
        Case 97 To 122
            D = C - 59
        Case Else
            D = -1
        End Select
        If D >= 0 Then
            R = (R * M + N) Mod BN
            D = (R And 63) Xor D
            Select Case D
            Case 0 To 9
                C = D + 48
            Case 10 To 37
                C = D + 53
            Case 38 To 63
                C = D + 59
            End Select
            Mid$(TXT, I, 1) = Chr$(C)
        End If
    Next I
    Cipher = TXT
End Function

Perhatikan teks berwarna merah di atas (parameternya), TXT adalah teks yang akan dienkripsi/dekripsi. Sedangkan nilai A, B, dan RV bisa anda ganti-ganti. Setiap perubahan nilai A,B atau RV akan menghasilkan teks hasil enkripsi yang berbeda. Jadi anda bisa mengkombinasikannya.

Karena enkripsi ini adalah simetris, maka jika teks hasil enkripsi anda masukkan kembali ke fungsi di atas, akan menghasilkan teks aslinya kembali (tentunya menggunakan nilai A, B, dan RV yang sama dengan saat mengenkripsi).

Contoh menggunakan fungsi di atas adalah seperti berikut:
txtHasilEnkripsi.Text = Cipher(txtSumber.Text, 4, 6, 9)  
txtHasilDekripsi.Text = Cipher(txtHasilEnkripsi.Text, 4, 6, 9)

Tips Visual Basic: Menyimpan dan Mengambil Setting Aplikasi di Registry Windows

Visual Basic telah menyediakan dua buah fungsi untuk menyimpan dan mengambil data (konfigurasi) di registry, yaitu:

Untuk mengambil data dari registry:
GetSetting(AppName As String, Section As String, Key As String, [Default]) As String
Keterangan:
AppName = nama aplikasi anda.
Section = bagian atau bisa disebut sebagai folder
Key = nama setting
Default = nilai kembalian jika setting tidak ditemukan. Ini bisa dikosongkan.

Untuk menyimpan data ke registry:
SaveSetting(AppName As String, Section As String, Key As String, Setting As String) 
Keterangan:
AppName = nama aplikasi anda.
Section = bagian atau bisa disebut sebagai folder
Key = nama setting
Setting = nilai dari setting
 

Bahasa VB

Bahasa VB, bahasa apa tuh?
Ya, mungkin teman-teman yang kurang tau (gak tau) tentang programming komputer akan bertanya seperti itu. Soalnya, di sekolah yang ada itu bahasa Arab, bahasa Indonesia, bahasa Inggris, atau mungkin ada yang bahasa Jerman.
Bahasa VB (Visual Basic) itu adalah salah satu bahasa komputer (wah…, komputer punya bahasa sendiri ya?!), tepatnya bahasa program. Biasanya programmer VB membuat programnya dengan ini. Maksud programmer VB di sini adalah pembuat program, yang menggunakan Visual Basic (VB). Microsoft Visual Basic 6.0, itu lah nama teman yang kiranya bisa menemani dalam membuat program VB.
Sebelum mengenal Microsoft Visual Basic 6.0, saya sempat bertemu dengan yang namanya Visual Basic Editor.
Mau bertemu dengan Visual Basic Editor juga?
Buka Microsoft Word (tau kan di mana Microsoft Word berada? itu lho, klik kanan, New, Microsoft Word Document, dan setelah terbuka silakan lanjutkan membaca), lalu pilih Tools (yang ada di atas itu lho), pada Tools kita pilih Macro, dan pada Macro kita pilih Visual Basic Editor, atau lebih cepatnya bisa pencet Alt+F11. (penulis menggunakan Microsoft Office Word 2003).
Cukup sampai di sini penjelasan Visual Basic Editor yang menggunakan Microsoft Office Word 2003, soalnya selanjutnya sama dengan Microsoft Visual Basic 6.0 yang akan dilanjutkan dari tulisan ini. (selamat membaca!).
Nah, karena belum mengenal Microsoft Visual Basic 6.0, jadi setelah download Microsoft Visual Basic 6.0 dan kenal, saya gunakan Microsoft Visual Basic 6.0 saja untuk pembelajaran lebih lanjut.

Langsung saja kita ke contoh:
Pada VB (tentunya sudah terbuka dan siap untuk digunakan), pilih UserForm atau Form, maka akan tersedia sebuah Form (bentuk, isian) kosong yang siap untuk kita isi. Coba kita isi dengan CommandBotton yang ada pada ToolBox (kotak peralatan) yang ada di samping Form kita, kalau tidak ada, cari dengan View (yang ada di atas itu lho), dan temukan yang namanya ToolBox. CommandBotton berbentuk segi empat, polos. (nanti ada tulisan CommandBotton yang ngasih tau kalau kita jalankan korsur mouse ke arahnya). Setelah CommandBotton ditemukan, coba deh kita masukkan dia ke Form kita tadi (n’tah diseret atau dibentuk seperti membuat kotak pada Microsoft Word), nanti dia dikasih nama CommandBotton1 atau Command1. Setelah dia masuk di dalam Form1 punya kita tadi, coba diklik dobel (double click) pada CommandBotton1 atau Command1, nanti ada tulisan “Private Sub CommandButton1_Click() - End Sub” atau “Private Sub Command1_Click() - End Sub”. Nah, di situ kita masukkan kode (kode program tentnya), biasanya saya sebut dengan VBS (Visual Basic Script, atau tulisan kode Visual Basic).
Coba deh kita isi dengan kode (script) seperti di bawah ini (bisa dicopy kalo malas nulisnya):
MsgBox "Wah…, belajar VB ya?" & vbCrLf & _
"Kayaknya seru nih!" & vbCrLf & _
"Selamat belajar ya!" & vbCrLf & _
"]*_^[", vbInformation, ".::Warning (Peringatan) dari bekabe.blogspot.com::."
Ingat, letakkan contoh kode tulisan di atas di antara “Private Sub” dan “End Sub”, tepatnya “di atas dari End Sub, dibawah dari Private Sub
Setelah itu, kita pilih Run (yang berada di atas itu lho), dan cari tuisan “Start”, atau “Run Sub/UserForm”, atau lebih cepatnya bisa kita pencet tombol “F5” pada keyboard, dan tinggal klik saja “CommandBotton1 atau Command1”.
“Selamat! Anda telah berhasil membuat sebuah kotak informasi dari VB”
Ya, itu lah yang dapat saya ucapkan ketika Anda telah berhasil membuatnya!
Berhubung saat ini saya bukan programmer (cos, belum bisa bikin program aplikasi, yang exe tuh maunya), jadi hanya itu yang dapat saya bagi. Insya Allah kalau saja sudah jadi programmer VB, akan saya bagikan apa yang saya ketahui tentang membuat program dari VB.








Ilmu yang baik adalah ilmu yang bermanfaat
Bagiku, ilmu terlalu berat untuk ku pikul sendiri
Karena ku tak tahu sampai kapan perjalananku bisa ku tempuh
Entah esok
Atau lusa
Sehingga ilmu tak berarti lagi di hari itu 

Script untuk Pembuatan Tabel

Tabel JENIS

CREATE TABLE JENIS (

KODE_TRAINING varchar2(3) PRIMARY KEY,

TRAINING varchar2(30),

JUMLAHJAM  number (2),

               NIP  varchar2(10) REFERENCES DOSEN(NIP));

Tabel TRAINING

CREATE TABLE TRAINING (

TANGGAL DATE,

KODE_TRAINING varchar2(3) REFERENCES

JENIS(KODE_TRAINING),

NRP  varchar2(10) REFERENCES SISWA(NRP),

PRIMARY KEY (TANGGAL,KODE_TRAINING));

Koneksi dengan
Oracle Data Control (ORADC) 

Untuk menggunakan koneksi ORADC ini terlebih dahulu menyiapkan atau mengaktifkan komponen obyek ini dengan memilih menu Project >> Components lalu pilihlah  komponen Oracle Data Control untuk koneksi database dengan ORADC, Microsoft DataBound Grid untuk tabel grid dengan koneksi ADO, dan Microsoft 

Properti yang harus diisikan dalam obyek koneksi database dengan ORADC ini antara lain:

Database, diisi dengan nama hostname dari server database Oracle yang digunakan.

Connection, diisi dengan nama user dan password yang dipisahkan dengan tanda garis 

miring.

               Record Source, diisi dengan perintah SQL untuk memilih suatu query atau tabel.

Entry Data Mahasiswa 

 Buat form entry dengan menempatkan component dan object seperti berikut :

Dengan nama component sebagai berikut :

  Textbox

  Textbox

  Textbox

  Textbox

  Dbgrid

   Oradc

   CommandButton  cmdsimpan

    CommandButton  cmdhapus

Entry Data Mahasiswa

 

 

PostgreSQL to VB

Tutorial kali ini kita akan membahas bagaimana mengolah data menggunakan database PostgreSQl dengan Visual Basic... Seperti gambar diatas...

Componen: Datagrid..
Buat Database: lihat gambar dibawah ini...

 setelah database penjualan di buat, maka untuk membuat table pada PostgreSQL, ikuti langkah dibawah ini..
Connect to database penjualan
==============================

Buat table
===============================

untuk dapat di akses dengan visual basic, kita harus menghubungkan database penjualan ke dalam Driver ODBC, seperti gambar dibawah ini:

Buat DSN

Ok .. kembali ke Visual basic..
isikan source code di bawah ini:

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset


Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set CN = New ADODB.Connection
'cara pertama
CN.Open "Driver={PostgreSQL ANSI};Server=localhost;Port=5432;Database=penjualan;Uid=postgres;Pwd=mahmud;"
'cara ke dua
'CN.Open "DSN=inventory;" & _
"UID=postgres;" & _
"PWD=mahmud;" & _
"database=penjualan"
TData
End Sub

Private Sub TData()
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open "SELECT * from Pelanggan", CN, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = RS
DataGrid1.Refresh
End Sub

=================================================================================

Sahabat jadi Cinta

Tidak ada yang berubah J tentang persahabatan kita, lakukan apapun yang kamu mau, tapi aku tidak akan merubahnya. Sayang dan perhatian yang aku kasih ke kamu, tidak lebih dari perasaan sayangku terhadap sahabat/saudara. Dari remaja kita bersahabat, dari kita tidak tau arti kata sahabat, dari kita belum tau cara menghargai perasaan, dari sebelum kita mengerti arti cinta. Tapi persahabatan itu lebih penting buatku. J, aku ngerti tapi tolong hargai persahabatan kita selama ini. Apa aku harus menghindar lagi seperti 5 tahun lalu?.

Aku tau kamu nggak baca ini, maaf…