mAniPulasi dAta dg cOreL drAw

Koneksi VB dg Ms Access

KONEKSI VB DENGAN MS. ACCESS 
1. Masuk ke sebuah folder/drive yang Anda inginkan.
2. Klik kanan di area kosong dan pilih New--> Text Document
3. Kemudian abaikan untuk mengubah namanya (langsung enter saja).
4. Setelah itu, jalankan file text document itu tadi (biasanya akan
masuk ke notepad) dan pilih save as dengan nama file terserah anda
tetapi extensionnya gunakan *.udlc:/ con.udl
5. Jika berhasil, maka di folder/drive itu akan muncul sebuah file baru
dengan extension udl. (File text document nya bisa anda hapus).
6. Jalankan file *.udl itu. Pada bagian tab "Provider" pilih provider
dengan nama : "Microsoft Jet 4.0 OLE DB Provider" (Ini provider untuk
database Ms Access). Lalu klik tombol Next
7. Pada tab "Connection", silahkan cari database access anda dengan
mengklik tombol browse (...) disebelah kanan. Lalu tekan tombol "Test
Connection", jika berhasil maka akan ada pesan bahwa test koneksi
berhasil, jika tidak biasanya database access yang anda pilih sedang
digunakan (coba tutup dulu saja). Selanjutnya klik tombol OK.
8. Kembali menuju file *.udl yang tadi. Sekarang klik kanan file
tersebut dan pilih Open With --> Notepad.
9. Setelah notepad terbuka anda akan melihat ada 3 baris isi dari file
tersebut. Yang akan anda gunakan untuk menghubungkan VB 6 dengan Ms
Access adalah ada pada baris ke-3. Oleh karena itu silahkan copy seluruh
baris ke tiga tersebut. (Dimulai dari tulisan provider sampai akhir baris).
----------------------------------------------------------
--Coding di VB6--

1. Pada source code vb 6 anda, silahkan pilih menu Project -->
References. Lalu cari "Microsoft ActiveX Data Objects 2.x Library".
Maksud dari 'x' disamping adalah versinya. Biasanya ada v 2.1, 2.2, 2.3,
dst. Pilih versi dibawah satu versi yang tertinggi. Misal yg
tertinggi 2.6 maka biasanya saya memilih yang 2.5 (Soalnya waktu saya
lihat di bagian Location nya (ada dibagian bawah) yang versi tertinggi
memiliki versi file yang lebih rendah. Misalnya v 2.6 filenya
"msado15.tlb" sedangkan yg v 2.5 filenya "msado25.tlb". Saya sendiri
masih bingung dengan hal ini. Jadi sebaiknya anda memilih satu versi
dibawah versi tertinggi.

2. Kemudian untuk lebih mudahnya, anda bisa tambahkan sebuah modul dalam
source code vb 6 anda. Dan tuliskan coding dibawah ini:
~~~~~~~~~~~~~~~~~Batas Awal Coding~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*Public con As New ADODB.Connection
Public rs As ADODB.Recordset
Public src As String*

*Sub BukaKoneksi()
Set con = New ADODB.Connection
con.Open "(baris ke 3 yang anda copy tadi tanpa tanda kurung)"*

' contohnya : con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\My Documents\My Project\Proyek Keni\db_blackcute.mdb;Persist
Security Info=False"
' untuk flexibilitas program anda, sebaiknya anda pindahkan
database anda menjadi satu folder dengan source code vb6 anda. Jika anda
mengikuti saran saya, maka
' coding untuk koneksi sedikit diubah menjadi :

'* con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
app.path & "\db_blackcute.mdb;Persist Security Info=False*
' dengan demikian dimanapun anda jalankan program anda maka anda
tidak perlu mengkonfigurasi secara manual lokasi databasenya.
*End Sub

Sub buka_rs()
Set rs = New ADODB.Recordset
rs.Open src, con, 1, 3

End Sub*
~~~~~~~~~~~~~~~~~~~~Batas Akhir Coding~~~~~~~~~~~~~~~~~~~~~~~~~~~
3. Setelah coding diatas anda masukkan ke dalam modul. Maka sekarang
anda sudah bisa bermain-main dengan database access anda melalui VB 6.
4. Contoh penggunaannya :

* Private Sub Form_Load()*
*BukaKoneksi* 'untuk membuka jalur komunikasi dengan
database anda

*src = "" * from MsBarang"* 'perintah sql untuk
membuka/memanipulasi tabel pada database anda
*buka_rs* 'menjalankan perintah sql diatas.

*end sub*
5. Jadi yang perlu anda perhatikan dalam coding diatas adalah, sub
"BukaKoneksi" pada modul hanya akan kita letakkan pada Form_Load di
masing-masing form. Sedangkan untuk variabel 'src' dan sub "buka_rs"
bisa anda gunakan dimanapun dalam source code vb 6 anda untuk
membuka/memanipulasi tabel2 yang ada di database anda. Ingat !! variabel
'src' selalu bergandengan dengan sub "buka_rs". Karena sub "buka_rs"
membutuhkan isi dari variabel 'src' untuk melakukan tugasnya.

Arsitektur pada Sistem Informasi Manajemen

Arsitektur Tersentralisasi
1. Dikenal semenjak tahun 19608
2. Mainframe sebagai aktor utama2
3. Pemrosesan data yang terpusat (komputasi terpusat)

Arsitektur Desentralisasi
1. Pemrosesan data tersebar (terdistribusi) atau disebut komputasi tersebar
2. Terdiri atas sejumlah komputer yang tersebar pada berbagai lokasi
3. Dihubungkan dengan sarana telekomunikasi
4. Masing-masing komputer mampu melakukan pemrosesan yang serupa secara mandiri
5. Bisa saling berinteraksi dalam pertukaran data

Aristektur Desentralisasi
Membagi sistem pemrosesan data terpusat ke dalam subsistem-subsistem yang lebih kecil yang pada hakikatnya masing-masing subsistem tetap berlaku sebagai sistem pemrosesan data yang terpusat

Sistem Informasi Manajemen

SISTEM INFORMASI MANAJEMEN 
Sistem Informasi Manajemen adalah sekumpulan hardware, software, brainware, prosedur dan atau aturan yang diorganisasikan secara integral untuk mengolah data menjadi informasi yang bermanfaat guna memecahkan masalah dan pengambilan keputusan.

Komponen Sistem Informasi

Komponen keras ( Hardware )
Perangkat lunak ( Software ) atau program
Prosedur
Orang
Basis Data ( Database )
Jaringan Komputer dan Komunikasi Data

3 Macam Arsitektur dalam Sistem Informasi
Arsitektur tersentralisasi
Arsitektur terdistribusi
Arsitektur Client / Server

'the following constants are used to give the lights a certain colorConst Off = &H8000000FConst Red = vbRedConst Green = vbGreenConst Orange = &H80C0FF'a simple traffic junction of two perpendicular crossing streets'consists of 4 traffic poles. Each traffic pole has a green, orange'and red light. There is always just one light on per pole.'The traffic lights control on one of those junctions has just 4'statusses. The current status is stored in the variable "Status".Dim Status As Integer'The time a status lasts, is derived from the following constants, which'indicate the time in seconds.Const TimeForStatus1 = 5Const TimeForStatus2 = 3Const TimeForStatus3 = 5Const TimeForStatus4 = 3Private Sub SetStatus(ByVal intStatus As Integer)'Set the status variable to the new statusStatus = intStatus'Turn off all the lightsshpLamp1Groen.FillColor = OffshpLamp1Oranje.FillColor = OffshpLamp1Rood.FillColor = OffshpLamp2Groen.FillColor = OffshpLamp2Oranje.FillColor = OffshpLamp2Rood.FillColor = OffshpLamp3Groen.FillColor = OffshpLamp3Oranje.FillColor = OffshpLamp3Rood.FillColor = OffshpLamp4Groen.FillColor = OffshpLamp4Oranje.FillColor = OffshpLamp4Rood.FillColor = Off'Turn on the appropriate lights with the correct color,'depending on the current statusSelect Case intStatus 'or "Select Case Status", won't make any differenceCase 1shpLamp1Rood.FillColor = RedshpLamp2Groen.FillColor = GreenshpLamp3Rood.FillColor = RedshpLamp4Groen.FillColor = GreenTimer1.Interval = TimeForStatus1 * 1000Case 2shpLamp1Rood.FillColor = RedshpLamp2Oranje.FillColor = OrangeshpLamp3Rood.FillColor = RedshpLamp4Oranje.FillColor = OrangeTimer1.Interval = TimeForStatus2 * 1000Case 3shpLamp1Groen.FillColor = GreenshpLamp2Rood.FillColor = RedshpLamp3Groen.FillColor = GreenshpLamp4Rood.FillColor = RedTimer1.Interval = TimeForStatus3 * 1000Case 4shpLamp1Oranje.FillColor = OrangeshpLamp2Rood.FillColor = RedshpLamp3Oranje.FillColor = OrangeshpLamp4Rood.FillColor = RedTimer1.Interval = TimeForStatus4 * 1000End Select'We need to call the following subroutineRefreshLightsEnd SubPrivate Sub RefreshLights()'This subroutine makes sure that de data on the screen is'displayed correctlyshpLamp1Groen.RefreshshpLamp1Oranje.RefreshshpLamp1Rood.RefreshshpLamp2Groen.RefreshshpLamp2Oranje.RefreshshpLamp2Rood.RefreshshpLamp3Groen.RefreshshpLamp3Oranje.RefreshshpLamp3Rood.RefreshshpLamp4Groen.RefreshshpLamp4Oranje.RefreshshpLamp4Rood.RefreshEnd SubPrivate Sub Form_Load()'When the programs starts, it starts with status 1SetStatus 1'Initializing the timer will start the timer1_timer subroutine after the'set interval has elapsed (in milliseconds)Timer1.Interval = TimeForStatus1 * 1000End SubPrivate Sub Timer1_Timer()'Change to the next statusStatus = Status + 1'If the next status is 5 then we need to change it back to oneIf Status = 5 Then Status = 1SetStatus StatusEnd Sub

MULOK : VISUAL BASIC
1. Skrip yang masih tergolong bahasa pemrograman bahasa level Rendah adalah : 0B38:0100 B402
2. Skrip yang masih tergolong bahasa pemrograman bahasa level menengah adalah : Mov AH,02h
3. Skrip yang masih tergolong bahasa pemrograman bahasa level tinggi adalah : Write(‘A’);
4. Berisi Data atau program adalah bagian definisi dari : file
5. Kumpulan instruksi / perintah yang dirangkaian sehingga membentuk suatu proses dinamakan :program
6. Apa yang dimaksud dengan meng-Compile instruksi program yang dibuat : memeriksa program yang telah disusun
7. Flowchart berfungsi sebagai : alat bantu yang berupa simbol – simbol yang saling dihubungkan sehingga dapat menggambarkan alur pikir sebuah program atau permasalahan yang akan diproses dengan progam komputer.
8. Contoh Bahasa Pemrograman Berbasis Teks, kecuali: Visual basic
9. Bahasa Pemrograman Visual Basic memiliki karakter utama yakni event driven yang bermakna : Program menunggu user menjalankan program
10. Berikut yang bukan termasuk Event adalah : Merubah tampilan window
11. Salah satu contoh Properties yakni : Bentuk tampilan di window dapat anda ubah melalui template(cetakan) yang disediakan.
12. Yang dimaksud dengan methode adalah : susunan perintah yang dikerjakan bila event dijalankan
13. Jelaskan tujuan program berikut : Private Sub Lblnama_DblClick()Lblnama.caption =“ Saya sedang Belajar Visual Basic”End Sub
Jika diklik 2 kali maka akan ditampilkan “Saya sedang Belajar Visual Basic.
14. Apa Perbedaan dari Combo Box dengan List Box :Combo box tampilannya hanya satu sedangkan List box menampilkan beberapa pilihan.
15. Property Alignment pada label berfungsi untuk :Mengatur tata letak teks.16. Tempat dimana kita membuat tampilan (user interface) dari program aplikasi dinamakan :properties17. Dengan melihat tampilan program diatas,komponen yang dibutuhkan adalah :
18. Dengan melihat gambar diatas, komponen yang ditunjuk oleh label A adalah :
19. Dengan melihat gambar diatas, komponen yang ditunjuk oleh label A adalah :
20. Dengan melihat gambar diatas, komponen yang ditunjuk oleh label A adalah :

tUgAs TaMbaHan

Chapter6

Dim NewElement As Integer (membuat variable / elemen baru sebagai integer)

Private Sub Form_Click (membuat bentuk klik yang bisa diinput gambar) ()
Load Image1(NewElement)
Image1(NewElement).Visible = True
(menentukan letak gambar)'Image1(NewElement).Top = Image1(NewElement - 1).Top
'Image1(NewElement).Left = Image1(NewElement - 1).Left + 495
( Menambah komponen dengan berurutan satu persatu)'NewElement = NewElement + 1


'==================================================

(utk mengatur tmpt ackan dng kode)'For Random Placement use this code:
Image1(NewElement).Top = CInt(Form1.Height * Rnd (menentkan ltak ackan))
Image1(NewElement).Left = CInt(Form1.Width * Rnd (menentkan ltak ackan))
NewElement = NewElement + 1 ( Menambah komponen dengan berurutan satu persatu)
'==================================================
"

End Sub

Private Sub Form_Load (menmplkan pesn sesuai dng properties isi_pesan dan judl_pesn yg di input melalui komponen yg kita buat)()
NewElement = 1 (jml komponen yg ditmbahkan secra berurutn)
End Sub (mengakhiri)

Random

mOdErN's pEoPlE

someone dapat dikatakan mOdErN's PeOpLe jika orang tersebut mempunyai sikap:

1. bersikap disiplin
   
2. bersikap terbuka
3. punya perncanaan for his live
4. punya jangkauan for masa depan
5. menghargai waktu
6. menghargai ham
7. bersikap rasional
8. mengahargai pendapat orang lain  n brani mengemukakan pendapatnya
9. mempercayai hakikat teknoloki n ilmu pengetahuan yang dapat digunakan oleh manusia

what can we do?

agar jadwal harian kita tidak kacau?

1. mulailah dari pagi. ketika bangun tidur, awalilah dengan berdo'a. kemudian pikirkan apa yg akan anda lakukan hari ini.
2. catatlah kegiatan-kegiatan yg anda lakuakn dalam buku agenda or buku harian.
3. buatlah prioritas kegiatan mulai yg penting, biasa maupun yg tak begitu penting sertakan juga sasaran anda agar dapat membuat strategi untuk menyelesaikan pekerjaan anda.
4. lakukan semua yg tlah anda jadwalkan hari ini dengan niat ikhlas & senang hati.
5. setelah seharian menyelesaikan jadwal anda, evaluasilah barangkali ada yg perlu diperbaiki.
6. siapkan jadwal untuk hari esok dengan berbekal hari ini & kemarin untuk menggapai impian & masa depan.
   

do u know?

dO yOu kNoW ?
al an otak kita memerlukan memori tambahan!
dengan meningkatnya kesibukan manusia di era mutakhir ini, rasanya sangat tidak efektif bila manusia bekerja scara konvesional. hal yg sering terjadi adalah ketidakmampuan kita mengingat apa yang sering kita lakukan (aLiAs lUpA gicu!).
lupa mrpkn keadaan dimana otak kita tidak bisa mengingat apa yg akan kita kemukakan, bukan berarti hilang cause tersimpan dalam bagian otak bawah. kalo dalam sistem komputer data ada di harddisk but hard diakses processor lianna kekurangan memori.
rasa-rasax otak kita memerlukan memori tambahan. apa perlu dicangkok ya ?mungkin saja ratusan tahun lagi.tetapi ada cara yang efektif yaitu dengan bantuan note in book , papan ataupun media lain yang bisa dibaca .now,hampir smua hp memiliki fasilitas agenda or pengingat pengingat/ janji.sebuah memori yg baik but from sekian hp yg dimiliki kelihatannya just kalangan tertentu yg menggunakan agenda tsb. terlebih lagi keberadaan pena & kertas serta papan yg berlimpah seharusnya membantu mengatasi kesibukan kita.for sebuah kesuksesan marilah berpikir kreatif & efektif with bantuan yg ada disekitar kita.

uza's poenya.