PROGRAM VB PADA MS ACCES

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 (Sistem Informasi Management)

SISTEM INFORMASI MANAGEMENT

Pengertian

Adalah sekumpulan hardware, software, brainware, prosedur dan atau aturan yang diorganisasikan secara intergrasi untuk mengolah data menjadi informasi yang bermanfaat guna memecahkan masalah dan pengambilan keputusan.

Komponen sistem informasi

perangkat keras (hardware)

perangkat luna (software)/ program

prosedur

orang

basis data (database)

jaringan komputer dan komunikasi data

3 macam arsitektur

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.

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.

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.

SIM (Sistem Informasi Management)

SISTEM INFORMASI MANAGEMENT

Pengertian

Adalah sekumpulan hardware, software, brainware, prosedur dan atau aturan yang diorganisasikan secara intergrasi untuk mengolah data menjadi informasi yang bermanfaat guna memecahkan masalah dan pengambilan keputusan.

Komponen sistem informasi

perangkat keras (hardware)

perangkat luna (software)/ program

prosedur

orang

basis data (database)

jaringan komputer dan komunikasi data

3 macam arsitektur

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.

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.

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.

UAS

UAS Genap 09 XI IPS MULOK : VISUAL BASIC

1. Kumpulan instruksi / perintah yang dirangkaian sehingga membentuk suatu proses dinamakan :

2. Berisi Data atau program adalah bagian definisi dari :

3. Apa yang dimaksud dengan meng-Compile instruksi program yang dibuat :

4. Prosedur adalah sekumpulan perintah yang merupakan bagian dari program yang lebih besar yang berfungsi 
  mengerjakan suatu tugas tertentu.  

 

5. Dengan melihat gambar diatas terjadi proses : 
1) Pembacaan data 
2) Pada proses utama akan terjadi pengecekan pada data yang dibaca,  
3) Apabila data yang dibaca adalah untuk segitiga, maka proses utama akan memanggil prosedur hitung luas segitiga dengan membawa nilai variable yang diperlukan oleh prosedur luas hitung segitiga.
4) Proses perhitungan luas segitiga hanya dilakukan pada prosedur tersebut.  
5) Setelah proses perhitungan maka hasil perhitungan akan dibawa kembali ke proses utama untuk dicetak hasilnya.

6. Skrip yang masih tergolong bahasa pemrograman bahasa level Rendah adalah :

7. Skrip yang masih tergolong bahasa pemrograman bahasa level menengah adalah :

8. Skrip yang masih tergolong bahasa pemrograman bahasa level tinggi adalah :

9. Flowchart berfungsi sebagai :

 

10. Dengan melihat flowchart pada gambar diatas kegunaan program diatas adalah :
  
11. Contoh Bahasa Pemrograman Berbasis Teks :

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbFD2lrA-1tRqYbQM_g854xrjvBXyCp0WRrbFaIX5jf236nYUIVKhyphenhyphentf8iYS1zMFPRY5sLyydsIgJK5Hkz5sPq7F26o8K0ePYheh9mlM-CrvzIwLGLmiqAxdrtBpAxuEP920ukLoo9_s_e/s320/ezconer.jpg

12. Dengan melihat gambar tampilan IDE VB diatas manakah yang merupakan Main ToolBar :

13. Dengan melihat gambar tampilan IDE VB diatas manakah yang merupakan Project Windows :

14. Dengan melihat gambar tampilan IDE VB diatas manakah yang merupakan Jendela Form Desainer :

15. Dengan melihat gambar tampilan IDE VB diatas manakah yang merupakan tempat untuk menulis kode. 
  Menampilkan jendela ini dengan menggunakan kombinasi Shift-F7 :

16. Fungsi jendela properties yang ditunjuk oleh bagan nomor 6 pada gambar diatas berfungsi untuk :

17. Bahasa Pemrograman Visual Basic memiliki karakter utama yakni event driven yang bermakna :

18. Berikut yang bukan termasuk Event adalah :

19. Salah satu contoh Properties yakni :

20. Yang dimaksud dengan methode adalah :





















21. Dengan Melihat gambar diatas manakah yang merupakan Method pada suatu Form :

22. Dengan Melihat gambar diatas manakah yang merupakan Event pada suatu Form :

23. Dengan Melihat gambar diatas manakah yang merupakan Property pada suatu Form :

24. Berdasarkan kegunaannya dan jenisnya, pengertian Variabel adalah

25. Berdasarkan kegunaannya dan jenisnya, pengertian Konstanta adalah
 
26. Berdasarkan kegunaannya dan jenisnya, pengertian Tipe data adalah

27. Tipe data untuk variabel atau konstanta yang digunakan untuk menyimpan nilai dalam bentuk bilangan 
  atau angka adalah :

28. Tipe data yang digunakan untuk menyimpan nilai True/False (Benar/Salah). adalah :

29. Tipe data yang digunakan untuk menyimpan text adalah :

30. Jelaskan tujuan program berikut :

  Private Sub Lblnama_DblClick()
  Lblnama.caption =“ Saya sedang Belajar Visual Basic”
  End Sub

31. Apa Perbedaan dari Combo Box dengan List Box :

32. Property Alignment pada label berfungsi untuk :

33. Tempat dimana kita membuat tampilan (user interface) dari program aplikasi dinamakan :







 

34. Dengan meilhat tampilan program diatas,komponen yang dibutuhkan adalah :



















35. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :

36. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :

37. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :









































38. Kontrol yang digunakan untuk menampilkan image dengan format: BMP, DIB (bitmap), ICO (icon), 
  CUR (cursor), WMF (metafile), EMF enhanced metafile), GIF, dan (JPEG) adalah toolbox :

39. Tool kontrol hampir ditemukan pada setiap form, dan digunakan untuk membangkitkan event proses tertentu 
  ketika pemakai melakukan klik padanya adalah :

40. Bahasa Visual Basic adalah generasi dari bahasa-bahasa sebelumnya yakni :

pusing

ughhhhhhhhhhhhhhh

kapan ya semua nie berakhirrrrrrrrr.........

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)

dear diary

ku tak tau apa yang harus ku lakukan ketika dia ingin mengakhiri semua nie hanya karena dia tak percaya dengan sang waktu. apakah kisah ku dengannya akan berakhir???????????????????

dear,,,

hai hai hai,,,
liburan pada ke mana ja nie???

me luphely

KISI~KISI UTS

MULOK : VISUAL BASIC

1. Skrip yang masih tergolong bahasa pemrograman bahasa level Rendah adalah :

0B38:0100 B402

0B38:0102 B066

0B38:0104 CD21

2. Skrip yang masih tergolong bahasa pemrograman bahasa level menengah adalah :

Mov AH,02h

Mov AL.’A’

Int 21h

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 :

Flowchart

6. Apa yang dimaksud dengan meng-Compile instruksi program yang dibuat :

Tahapan pemeriksaan terhadap program yang disusun yang akan dilakukan oleh komputer dengan menggunakan processor program atau kompiler,

Sebagai alat/program yang akan menerjemahkan program yang dimasukkan ke dalan bahasa yang dimengerti oleh komputer yang disebut object program.

7. Flowchart berfungsi sebagai :

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 :

10. Berikut yang bukan termasuk Event adalah :

Latar belakang desktop dapat diganti gambar melalui menu properties desktop

11. Salah satu contoh Properties yakni :

Warna dari window dapat juga anda atur melalui desktop

Bentuk tampilan di window dapat anda ubah melalui template(cetakan) yang disediakan

12. Yang dimaksud dengan methode adalah :

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

apabila di klik 2x pd caption akan mucul"Saya sedang Belajar Visual Basic"

14. Apa Perbedaan dari Combo Box dengan List Box :

Combo box hanya menampilkan 1 pilihan yang terlihat sebelum combo box diklik, sedangkan pad list box dapat menampilkan beberapa pilihan.

15. Property Alignment pada label berfungsi untuk :

MENGATUR RATA TEXT

16. Tempat dimana kita membuat tampilan (user interface) dari program aplikasi dinamakan :

FORM

17. Dengan meilhat tampilan program diatas,komponen yang dibutuhkan adalah :

18. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :

OPTION BUTTON

19. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :

OPTION BUTTON

20. Dengan meilhat gambar diatas, komponen yang ditunjuk oleh label A adalah :

OPTION BUTTON

friendship

Rindu seorang sahabat bagai embun yang hadir di setiap pagi
Sayang seorang sahabat bagai udara yang tak pernah habiz
Cinta seorang sahabat bagai darah yang terus mengalir dan tak kan hilang di telan oleh sang waktu

heart

...tau ah...
G
E
L
A
P
...

icenk

ehem ehem

icenk ajah

timbang bengong

hahahaha

dear diary

Kadang Qyuw jenuh dengan hidup Qyuw

Kenapa mesti kayak gini tiap saat

Kenapa harus semua ini yang Qyuw hadapi

Tapi semua kejenuhan tuw telah berakhir atas kehadiran mu

semua kegelapan terselak setelah cahaya mu menerangi semua sisi dunia Qyuw

Hanya ada 3 nama di hati Qyuw...

Kamu, kamu dan kamu

Bukan dia!!!

Jangan tinggalkan dunia Qyuw ini

Qyuw ingin bersama kamu...

S'lamanya!!!

my poem

kEtiKa

Ketika panca indra Qyuw mulai tertutup

Qyuw ingin kamu yang terakhir Qyuw lihat

Dan ketika panca indra Qyuw mulai menatap sang surya

Qyuw ingin kamu yang pertamakali Qyuw rasakandalam

Setiap aliran darah Qyuw

Ketika tanah mulai merayu Qyuw untuk kembali bersama-Nya

Dan akar pun mulai melilit Qyuw untuk segera bersama-Nya

Qyuw ingin kamu yang terakhir Qyuw lihat

dear diary

hai...

ketemu agy nie...

hehehe...

pingin aja tuliz2...

habiz na Qyuw suntuk

hihihihihi....

salam chabbiey

Guardian Angel

dear diary

Di sini Q berdiri dan di sini Q menghembuskan nafas. Q hanyalah seorang gadis kecil yang tak tau apa pun. Q tak tau bahwa di sana ada orang yang begitu menyayangi Q. Tapi Q justru tak menhiraukannya. Q menganggapnya sebagai angin lalu. Q tak tau apa yang harus Q lakukan. Q hanya bisa menyakitinya. Karena Q telah memiliki seseorang yang Q cintai. So... Q hanya menganggapnya sebagai seorang saudara. T bisa lebih dari itu.

Q punya kehidupan Q sendiri. Q punya seseorang yang Q cintai. Tak ada yang bisa merubahnya. Tak ada yang bisa memisahkan kami. Walau Q dan dia masih terpisah jauh. Tapi Q yakin bahwa tak lama lagi dia akan segera berada di sisi Q.

dear diary

ini dalah sebuah cerita yang membuat ku bingung.
tapi nie juja kesalahan ku.
ada seorang cowok yang ngotot ja pingin ma q.
padahal dia tau bahwa Q dah pnya cowok.
so... Q hanya menganggap dia adik cz dia masih SMP.

dia gak trima akan hal itu.

sehingga dia melakukan hal yang gak Q duka
Q percaya ma dia tapi dia udah ngebalas semua itu dengan kekecewaan.
Q gak pernah nyangka dia kayak gt

akhir na...
kami gak salinng kmunikasi.

Q sebeeeeeeeeeeeelllllllllllllll bangetzzzzzzzzzzzzzz

vb chapter_5

alhamdulillah

dan nie scrip na:

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

vb chapter_4

wah dah yang ke empat nie

nie scrip na

Option ExplicitDim days As Long '<-Stores the number of days elapsed from 1/1/1900 to current month and yearDim i As Integer Private Sub cmdGenerate_Click()On Error GoTo Error_handle 'On error, goto to end of functiondays = 0For i = 0 To 34 Label1(i).Caption = "" 'Clear all the labelsNext i For i = 1900 To txtYear.Text - 1 If i Mod 4 = 0 Then 'If leap year then count 366 days days = days + 366 Else 'else 365 days days = days + 365 End IfNext i For i = 1 To txtMonth.Text - 1 If i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12 Then 'For January,March,May....,December count 31 days days = days + 31 ElseIf (i = 4 Or i = 6 Or i = 9 Or i = 11) Then 'For April,June,September,November count 30 days days = days + 30 ElseIf (i = 2 And txtYear.Text Mod 4 = 0) Then 'If month is February and year is leap year count 29 days days = days + 29 Else 'If month is February and year is not a leap year, count 28 days days = days + 28 End If Next i If (i = 1 Or i = 3 Or i = 5 Or i = 7 Or i = 8 Or i = 10 Or i = 12) Then show_calender 31 'Show calender with 31 days ElseIf (i = 4 Or i = 6 Or i = 9 Or i = 11) Then show_calender 30 'Show calender with 30 days ElseIf (i = 2 And txtYear.Text Mod 4 = 0) Then show_calender 29 'Show calender with 29 days Else show_calender 28 'Show calender with 28 days End IfError_handle:End Sub Private Function show_calender(n As Integer) '//<- n stores the number of days to displayDim i, k As Integerk = days Mod 7 'Divide days with 7, the remainder give the current dayFor i = 1 To n Label1(k).Caption = i 'Display the number in calender format k = k + 1 If k = 35 Then k = 0Next iEnd Function

vb chapter_3

NIE SCRIPNYA !!!!!!!!!!!!!!!

Option Explicit Private Hasil As Double Private Const opNol = 0 Private Const opTambah = 1 Private Const opKurang = 2 Private Const opKali = 3 Private Const opBagi = 4 Private Operator As Integer Private NilaiBaru As Boolean ' untuk menghapus karakter terakhir Private Sub Hapus() Dim txt As String Dim min_len As Integer txt = txtDisplay.Text If Left$(txt, 1) = "-" Then min_len = 2 Else min_len = 1 End If If Len(txt) > min_len Then txtDisplay.Text = Left$(txt, Len(txt) - 1) Else txtDisplay.Text = "0" End If End Sub ' hapus angka, hasil terakhir dan operator Private Sub cmdClear_Click() cmdClearEntry_Click Hasil = 0 Operator = opNol End Sub ' hapus angka Private Sub cmdClearEntry_Click() txtDisplay.Text = "" End Sub ' menambahkan koma (desimal) Private Sub cmdKoma_Click() If InStr(txtDisplay.Text, ".") Then Beep Else If NilaiBaru Then txtDisplay.Text = "." " NilaiBaru = False Else txtDisplay.Text = txtDisplay.Text & "." End If End If End Sub ' Menghitung Private Sub cmdSamaDengan_Click() Dim HasilBaru As Double If txtDisplay.Text = "" Then HasilBaru = 0 Else HasilBaru = CDbl(txtDisplay.Text) End If Select Case Operator Case opNol Hasil = HasilBaru Case opTambah Hasil = Hasil + HasilBaru Case opKurang Hasil = Hasil - HasilBaru Case opKali Hasil = Hasil * HasilBaru Case opBagi 'Tidak bisa dibagi nol If HasilBaru = 0 Then MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR" Call cmdClear_Click Else Hasil = Hasil / HasilBaru End If End Select Operator = opNol NilaiBaru = True txtDisplay.Text = Format$(Hasil) End Sub ' menuliskan angka Private Sub cmdAngka_Click(Index As Integer) If NilaiBaru Then txtDisplay.Text = Format$(Index) NilaiBaru = False Else txtDisplay.Text = _ txtDisplay.Text & Format$(Index) End If End Sub ' tombol tambah/kurang/bagi/kali Private Sub cmdOperator_Click(Index As Integer) cmdSamaDengan_Click Operator = Index NilaiBaru = True End Sub ' merubah tanda +/- Private Sub cmdPlusMinus_Click() If NilaiBaru Then txtDisplay.Text = "-" ElseIf Left$(txtDisplay.Text, 1) = "-" Then txtDisplay.Text = Right$(txtDisplay.Text, 2) Else Artikel Populer IlmuKomputer.Com Copyright © 2005 IlmuKomputer.Com txtDisplay.Text = "-" & txtDisplay.Text End If End Sub ' filter untuk angka saja yg dapat diketikkan Private Sub Form_KeyPress(KeyAscii As Integer) txtDisplay_KeyPress KeyAscii End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) txtDisplay_KeyUp KeyCode, Shift End Sub ' supaya kursor tetap di kanan Private Sub txtDisplay_Change() txtDisplay.SelStart = Len(txtDisplay.Text) End Sub Private Sub txtDisplay_GotFocus() txtDisplay_Change End Sub ' untuk mengetikkan angka di keyboard Private Sub txtDisplay_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr$(KeyAscii) Select Case ch Case "0" cmdAngka_Click 0 Case "1" cmdAngka_Click 1 Case "2" cmdAngka_Click 2 Case "3" cmdAngka_Click 3 Case "4" cmdAngka_Click 4 Case "5" cmdAngka_Click 5 Case "6" cmdAngka_Click 6 Case "7" cmdAngka_Click 7 Case "8" cmdAngka_Click 8 Case "9" cmdAngka_Click 9 Case "*", "x", "X" cmdOperator_Click opKali Case "+" " cmdOperator_Click opTambah Case vbCrLf, vbCr, "=" " cmdSamaDengan_Click Case "-" " cmdOperator_Click opKurang Case "." " cmdKoma_Click Case "/" " cmdOperator_Click opBagi Case "C", "c" cmdClearEntry_Click End Select KeyAscii = 0 End Sub ' untuk ketikan angka di numpad Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyNumpad0 cmdAngka_Click 0 Case vbKeyNumpad1 cmdAngka_Click 1 Case vbKeyNumpad2 cmdAngka_Click 2 Case vbKeyNumpad3 cmdAngka_Click 3 Case vbKeyNumpad4 cmdAngka_Click 4 Case vbKeyNumpad5 cmdAngka_Click 5 Case vbKeyNumpad6 cmdAngka_Click 6 Case vbKeyNumpad7 cmdAngka_Click 7 Case vbKeyNumpad8 cmdAngka_Click 8 Case vbKeyNumpad9 cmdAngka_Click 9 Case vbKeyMultiply cmdOperator_Click opKali Case vbKeyAdd cmdOperator_Click opTambah Case vbKeySeparator cmdSamaDengan_Click Case vbKeySubtract cmdOperator_Click opKurang Case vbKeyDivide cmdOperator_Click opBagi Case vbKeyDecimal cmdKoma_Click Case vbKeyBack, vbKeyDelete Hapus End Select KeyCode = 0 End Sub Private Sub Text1_Change() End Sub

vb chapter 2

puji syukur alhamdulillah

kepada Allah SWT