Pertemuan Kedua

VB WITH MS ACCESS OR MS ACCESS WITH VB ?

Membuat Koneksi Database Access menggunakan Visual Basic 6.0Untuk menjadi Programmer kita harus menguasai beberapa coding dasar dari sebuah koneksi yang sederhana. Dalam kesempatan ini saya akan membahas coding koneksi menggunakan Access yang merupakan program aplikasi database dasar yang sering digunakan di lingkungan perkantoran.
Database latihan :
Tabel barang
Kode barang
Nama barang
Harga beli
Harga jual
stok
satuan






Sebenarnya dalam pembuatan table diatas tidak terlalu diperlukan dalam pembahasan ini tetapi hanya untuk informasi belaka. Untuk memberi penjelasan kepada pembaca.Yang harus diperhatikan dalam materi ini adalah pemahaman dari coding koneksi itu sendiri.Yang pertama dilakukan adalah membuat module dahulu untuk pemanggilan koneksi dari database.Setelah membuat koneksi masukan coding sebagai berikut :
Public cn As New ADODB.Connection
Public Sub BukaDB()
Dim koneksi As String
koneksi = “provider=microsoft.jet.oledb.4.0; Data source= ” & App.Path & “\latihan.mdb;”
cn.Open koneksi
End Sub
Perhatikan kode diatas, jangan sampai asal menulis saja tetapi anda harus bisa memahaminya dengan benar, yang pertama yaitu
Public cn As New ADODB.Connection
Berfungsi untuk membuat variable bersifat public menggunakan ADODB
Dim koneksi As String
Berfungsi untuk membuat variable bersifat private bertipe string
koneksi = “provider=microsoft.jet.oledb.4.0; Data source= ” & App.Path & “\latihan.mdb;”
Merupakan kode utama dari koneksi yang dibutuhkan. Yang pertama menggunakan provider Microsoft jet oledb 4.0 yang memanggil data source/sumber data dari database latihan.mdb
cn.Open koneksi
Visual Basic ? programmer mana sih yang nggak kenal sama tool yang satu ini?
nggak usah saya sebutin apa itu Visual Basic.
Lalu Ms Access, sebuah aplikasi yang menangani database, aplikasi ini biasanya sudah satu paket dengan Microsoft Office Aplication.
Keduanya merupakan keluarga besar keturunannya Om Bill Gates. Sebagai satu keluarga maka wajarlah bila satu sama lain dapat dikombinasikan untuk saling melengkapi.
lalu mengapa aku pake judul diatas ?

Sebagai tool programming yang powerful, Visual Basic kaya akan library-library yang mendukung pengelolaan database Ms Access, meski banyak jenis data lain yang didukung (txt, xls, xml, mysql dll)
Banyak sekali aplikasi VB jadi, baik mass product maupun rancangan software house yang menggunakan Ms Access sebagai basis datanya. Dengan demikian kemampuan VB dalam mengelola database Ms Access tidak diragkan lagi.

Lalu Ms Access sendiri, adalah sebuah RDBMS (relational database management system ) yang terintegrasi dalam satu file. didalam Ms access kita sudah dapat mendefinisikan tabel, query, relation, bahkan form dan report.
Kehebatan Ms Access adalah kita dapat menyusun aplikasi secara interaktif dan profesional dengan bantuan Visual Basic for Aplication (VBA).
VBA itu apa to ? mbuh lah, lha wong saya juga nggak terlalu mudeng, tapi kayaknya tuh semacam Visual Basic yang sudah terintegrasi dengan Office Aplication (Ms Excel, Word, MS Access).
Jadi didalam Ms Access kita dapat menyisipkan kode-kode VB (misalnya di dalam form dan report) agar lebih powerfull dalam mengelola database.
Menurut saya sebenarnya ‘kekuatan’ utama Ms Access adalah VBA itu sendiri, disamping integrasi yang sangat bagus dengan aplikasi office saudaranya.

Kesimpulannya, Kita dapat membuat aplikasi pengelolaan database dengan Visual Basic yang berbasis data Ms Access, juga bisa dengan ‘pure’ Ms Access Aplication yang di bumbui dengan VBA.

lalu gimana enaknya mas djmumun ?
Relatif sih. Bagi para suhu - suhu VB mungkin tertawa dengan dengan tulisan ini. Bagaimanapun dengan Visual Basic, anda dapat membuat aplikasi yang lebih kompleks. Fitur Installer yang bagus sehingga kita bisa membuat aplikasi standalone, tanpa tergantung dengan aplikasi lain .

tapi bagi saya bila database Ms-Access (bukan data berbasis yang lain, mis mysql, oracle, dll) yang menjadi point utama, mending langsung pake Ms Access aja.
fitur - fitur nya yang interaktif dan user friendly, -apalagi dengan wizard-wizardnya - sangat membantu saya dalam membuat aplikasi secara ’sedap sekejap’.
Kalo masih kurang puas dengan wizard yang ada (biasa nih.. penyakit) anda dapat mengoprek dengan memberi kode - kode VBA.
Buka aja Visual Basic Editor, silahkan tuliskan kode - kode (kebanyakan saya sih cuman kopi paste . . . ), dan lihatlah aplikasi ms access anda nggak kalah dengan yang buatan Visual Basic.
kendalanya mungkin dalam distribusinya.
komputer pemakai musti terinstall minimal Microsoft Access Runtime atau Microsoft Office profesional

SIM Pertama

Sistem Informasi Manajemen

Sistem informasi ialah 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:
1. Perangkat keras (hardware)
2. Perangkat lunak (software) / program
3. Prosedur
4. Orang
5. Basis data (database)
6. Jaringan komputer dan komunikasi data


Ada 3 macam arsitektur, yaitu:
1. Arsitektur tersentralisasi
Arsitektur ini sudah dikenal semenjak tahun 1960-an dengan mainframe sebagai faktor utama. Mainframe adalah komputer yang berukuran relatif besar yang ditujukan untuk menangani data yang berukuran besar, dengan ribuan terminal untuk mengakses data dengan tanggapan yang sangat cepat dan melibatkan jutaan transaksi.Implementasi dari arsitektur terpusat adalah pemrosesan data yang terpusat (biasa disebut komputasi terpusat). Semua pemrosesan data dilakukan oleh komputer yang ditempatkan didalam suatu lokasi yag ditujukan untuk melayani semua pemakai dalam organisasi. Kebanyakan perusahaan yang tidak mempunyai cabang menggunakan model seperti ini.

2. Arsitektur terdistribusi
merupakan konsep dari pemrosesan data tersebar (atau terdistribusi). Sistem pemrosesan data terdistribusi (atau biasa disebut sebagai komputasi tersebar) sebagai sistem yang terdiri atas sejumlah komputer yang tersebar pada berbagai lokasi yang dihubungkan dengan sarana telekomunikasi dengan masing-masing komputer mampu melakukan pemrosesan yang serupa secara mandiri, tetapi bisa saling berinteraksi dalam pertukaran data. Membagi sistem pemrosesan data terpusat kedalam subsistem-subsistem yang lebih kecil yang pada hakikatnya masing-masing subsistem tetap berlaku sebagai sistem pemrosesan data yang terpusat.


3. Arsitektur client / server
Pada arsitektur ini ada sebagian yang disebut client dan ada yang disebut server. Server adalah sistem atau proses yang menyediakan data atau layanan yang diminta oleh client. Secara fisik sebuah server dapat berupa komputer (mainframe, mini-komputer,workstation,ataupun PC) atau piranti lain (misalnya printer). Client mempunyai kemampuan untuk melakukan proses sendiri. Ketika sebuah client meminta suatu data ke server, server akan segera menanggapinya dengan memberikan data yang diminta ke client bersangkutan. Setelah diterima client segera melakukan pemrosesan. Sistem informasi dapat dibangun dengan menggunakan perangkat lunak gado-gado.

vb_7(trafic lights)

Nie script na!!!!!!!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

kisi-kisi

SOAL VISUAL BASIC
MULOK : VISUAL BASIC
1. Skrip yang masih tergolong bahasa pemrograman bahasa level Rendah adalah :
2. Skrip yang masih tergolong bahasa pemrograman bahasa level menengah adalah :
3. Skrip yang masih tergolong bahasa pemrograman bahasa level tinggi adalah :
4. Berisi Data atau program adalah bagian definisi dari :
5. Kumpulan instruksi / perintah yang dirangkaian sehingga membentuk suatu proses dinamakan :
6. Apa yang dimaksud dengan meng-Compile instruksi program yang dibuat :

7. Flowchart berfungsi sebagai :
8. Contoh Bahasa Pemrograman Berbasis Teks, kecuali:
9. Bahasa Pemrograman Visual Basic memiliki karakter utama yakni event driven yang bermakna :
10. Berikut yang bukan termasuk Event adalah :
11. Salah satu contoh Properties yakni :
12. Yang dimaksud dengan methode adalah :
13. Jelaskan tujuan program berikut :
Private Sub Lblnama_DblClick()
Lblnama.caption =“ Saya sedang Belajar Visual Basic”
End Sub
14. Apa Perbedaan dari Combo Box dengan List Box :
15. Property Alignment pada label berfungsi untuk :
16. Tempat dimana kita membuat tampilan (user interface) dari program aplikasi dinamakan :




17. Dengan meilhat tampilan program diatas,komponen yang dibutuhkan adalah :
18. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :
19. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :
20. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :

chapter_6

INI NIE SCRIP NA........

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 SubPrivate 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)

kerjaan pling ueeenak

gue boseeeeeen
gue jenuuuuuuuuuh
gue soentoeq enaknya ngapain ya????????

mungkin nyang 1 ni enak

z
z
z
z
z
z
z
z
zz
z
z
z
z
zz
zz
z
z
z
z

vb chapter_5

yang mw mainan ular-ularan qm bisa download ni n kalo mw buat ndiri qm bisa download di http://www.planetsourcecode.com/

ni scripnya

Private Declare Function GetTickCount Lib "kernel32" () As Long 'this function lets us not use timer'timers are bad :) 'main body... each part of the snake has X and YPrivate Type PartX As IntegerY As IntegerEnd Type 'Dynamic array to store part coordinatesDim Part() As Part 'Velocity in X and Y direction of the snakeDim vX As Integer, vY As IntegerDim i As Integer 'for loopsDim CS As Single 'cell size Dim FX As Integer, FY As Integer 'food coordinatesDim X As Integer, Y As Integer Dim bRunning As Boolean, died As Boolean Private Sub Form_Load()Randomize 'random generation 'Initialize controls******************Picture1.BackColor = vbWhitePicture1.ScaleMode = 3 'pixels CS = 20 'cell size in pixelsX = Int(Picture1.ScaleWidth / CS)Y = Int(Picture1.ScaleHeight / CS) Picture1.AutoRedraw = TruePicture1.ScaleWidth = X * CSPicture1.ScaleHeight = Y * CS Me.WindowState = 2Me.Show DrawGrid Picture1, CS'************************************* died = False'set up the gameReDim Part(0)Part(0).X = 0Part(0).Y = 0 FX = Int(Rnd * X)FY = Int(Rnd * Y)'go to main loopbRunning = TrueMainLoopEnd Sub Sub MainLoop()Do While bRunning = True Update Draw WAIT (50) 'increasing this number makes game slowerLoop Unload MeEnd Sub Sub Update()'MOVE PARTSFor i = UBound(Part) To 1 Step -1 Part(i).X = Part(i - 1).X Part(i).Y = Part(i - 1).YNext i 'MOVE HEADPart(0).X = Part(0).X + vXPart(0).Y = Part(0).Y + vY 'HAS HE GONE OUT OF BOUNDS ?If Part(0).X <>= X Or Part(0).Y <>= Y Thendied = TrueEnd If 'HAS HE CRASHED INTO HIMSELF ?For i = 1 To UBound(Part)If Part(i).X = Part(0).X And Part(i).Y = Part(0).Y Thendied = TrueEnd IfNext i 'DID HE EAT FOOD ?If Part(0).X = FX And Part(0).Y = FY Then ReDim Preserve Part(UBound(Part) + 1) Part(UBound(Part)).X = -CS Part(UBound(Part)).Y = -CS FX = Int(Rnd * X) FY = Int(Rnd * Y) Form1.Caption = "Parts: " & UBound(Part)End If 'IS HE DEAD ?If died = True Then NewGameEnd Sub Sub Draw() 'DRAW WHITENESS Rectangle 0, 0, X * CS, Y * CS, vbWhite 'DRAW SNAKE. PARTS IN BLUE, HEAD IN GREEN For i = 1 To UBound(Part) Rectangle Part(i).X * CS, Part(i).Y * CS, Part(i).X * CS + CS, Part(i).Y * CS + CS, vbBlue Next i Rectangle Part(0).X * CS, Part(0).Y * CS, Part(0).X * CS + CS, Part(0).Y * CS + CS, vbGreen 'DRAW FOOD Rectangle FX * CS, FY * CS, FX * CS + CS, FY * CS + CS, vbRed DrawGrid Picture1, CSEnd Sub Sub Rectangle(X1 As Integer, Y1 As Integer, X2 As Integer, Y2 As Integer, color As Long) Picture1.Line (X1, Y1)-(X2, Y2), color, BFEnd Sub Sub NewGame()'SET UP NEW GAMEdied = False ReDim Part(0)Part(0).X = 0Part(0).Y = 0 vX = 0vY = 0 FX = Int(Rnd * X)FY = Int(Rnd * Y)End Sub Sub DrawGrid(Pic As Control, CS As Single) '************************************************************************** 'DRAW GRID '************************************************************************** Dim i As Integer, Across As Single, Up As Single Across = Pic.ScaleWidth / CS Up = Pic.ScaleHeight / CS For i = 0 To Across Pic.Line (i * CS, 0)-(i * CS, Up * CS) Next i For i = 0 To Up Pic.Line (0, i * CS)-(Across * CS, i * CS) Next iEnd Sub Sub WAIT(Tim As Integer) '************************************************************************** 'WAIT FUNCTION '************************************************************************** Dim LastWait As Long LastWait = GetTickCount Do While Tim > GetTickCount - LastWait DoEvents LoopEnd Sub Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)'USER KEYPRESSES HANDLED HERESelect Case KeyCodeCase vbKeyRightvX = 1vY = 0Case vbKeyLeftvX = -1vY = 0Case vbKeyUpvX = 0vY = -1Case vbKeyDownvX = 0vY = 1End SelectEnd Sub Private Sub Picture1_KeyPress(KeyAscii As Integer)'27 is ESC. IF user presses ESC, QUITIf KeyAscii = 27 Then bRunning = FalseEnd Sub Private Sub Form_Unload(Cancel As Integer)'This function can be left outEndEnd Sub