Pengumuman PSB RSBI 2009

Ditulis oleh THOMAS DWI BUDISANTOSO

PENGUMUMAN PENERIMAAN SISWA BARU RSBI SMA NEGERI 1 KEPANJEN TAHUN AJARAN 2009 - 2010 unduh disini

VB dengan Ms Acces

Membuat Koneksi Database Access menggunakan Visual Basic 6.0
Untuk 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 barangKode barangNama barangHarga beliHarga jualstoksatuanSebenarnya 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.ConnectionPublic Sub BukaDB()Dim koneksi As Stringkoneksi = “provider=microsoft.jet.oledb.4.0; Data source= ” & App.Path & “\latihan.mdb;”cn.Open koneksiEnd SubPerhatikan kode diatas, jangan sampai asal menulis saja tetapi anda harus bisa memahaminya dengan benar, yang pertama yaituPublic cn As New ADODB.ConnectionBerfungsi untuk membuat variable bersifat public menggunakan ADODBDim koneksi As StringBerfungsi untuk membuat variable bersifat private bertipe stringkoneksi = “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.mdbcn.Open koneksiVisual 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

Membuat fungsi koneksi ke database Ms Access di vb, berikut contohnya

Code:
Function Konek()
As Boolean On Error GoTo out
Set koneksi = New ADODB.Connection
koneksi. Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\toko.mdb;Persist Security Info=False"
koneksi.CursorLocation = adUseClient
Konek = True
out:
End Function


cara menggunakannya contoh

Code:

Private Sub Form_Load()
If Not Konek() Then
MsgBox "Gagal koneksi ke database!", vbCritical
End
End If
End Sub

Hubungan VB dengan Database

Hubungan Visual Basic dan Sumber Database

Microsoft Visual Basic 6.0 merupakan salah satu bahasa pemrograman berbasis visual yang popular dan canggih yang ada di lingkungan Windows. Teknologi akses data yang dimiliki oleh Visual Basic 6.0 yaitu teknologi ActiveX Data Object atau yang lebih dikenal dengan nama ADO. ADO adalah teknologi terbaru dari Microsoft untuk memanipulasi informasi dari database relasional dan non relasional. ADO mampu mengintegrasikan program aplikasi database yang kita bangun dengan berbagai sumber data seperti Microsoft Access, SQL Server, ODBC, Oracle dan lain sebagainya.

Microsoft ActiveX Data Object (ADO) memungkinkan kita untuk membangun aplikasi client/server yang dapat mengakses dan memanipulasi data dari sebuah server dengan terlebih dahulu menentukan provider OLE DB-nya. Selain itu juga ADO mendukung dalam pembuatan aplikasi berbasis Web. Keuntungan utamanya adalah mudah untuk digunakan, high speed dan penggunaan memory yang kecil. Keistimewaan ADO yang lainnya yaitu Remote Data Service (RDS), dimana kita dapat memindahkan data dari sebuah server ke sebuah aplikasi client atau Web page, memanipulasi data dari client dan mengembalikannya ke server. Dengan adanya ADO, program aplikasi yang dibuat mampu berkomunikasi dengan Object Linking and Embeded Database (OLE DB) yang memungkinkan kita membaca dan mengolah data secara langsung tanpa perlu mengkonversinya terlebih dahulu. ADO merupakan sebuah Component Object Model (COM) yaitu sebuah komponen interface otomatis yang dapat digunakan dalam beberapa bahasa pemrograman di antaranya Microsoft Visual Basic 6.0, VB Script, Jscript, Visual C++ dan Visual J++. Sebagian besar versi ADO yang ada terpisah dari Microsoft Data Access Component.

Teknologi Akses Data Visual Basic Non-ADO

Pada versi sebelumnya, Visual Basic masih menggunakan teknologi Data Access Objects (DAO) untuk mengakses database. Dulu DAO sering digunakan untuk mengakses database yang dibuat menggunakan Microsoft Access 97.

Permasalahan

Kontrol Data DAO pada Visual Basic 6.0, pada dasarnya dirancang untuk mesin database Jet 3.51, yaitu Microsoft Access 97. Namun sekarang ini database Microsoft Access telah ditingkatkan dengan dikeluarkannya Microsoft Access 2000 dan XP dengan mesin Jet 4.0. Kontrol Data tersebut tidak mampu menangani hubungan koneksi dengan database mesin Jet 4.0 atau pun jenis lainnya.
Pesan kesalahan yang akan tampil jika kita menggunakan Kontrol Data dengan pengaturan pada windows property record source dengan database bermesin Jet 4.0, terlihat seperti berikut:

“Unrecognized database format C:\DATA\Biblio2000.mdb”
Pesan kesalahan di atas muncul karena adanya perbedaan pada mesin database yang digunakan. Microsoft Access 97 dibuat dengan menggunakan mesin database, yaitu Jet.3.51/3.6. sedangkan Microsoft Access 2000 menggunakan mesin database Jet 4.0. Kemampuan yang dimiliki DAO, yaitu control Data standart pada Visual Basic hanya untuk mengakses mesin database dengan Jet 3.51/3.6 bukan Jet 4.0.

Penyelesaian dengan ADO

Permasalahan di atas terjadi karena perbedaan pada mesin database, dan dapat ditangani jika kita menggunakan ADO, yaitu dengan menambah control tambahan Adodc (ActiveX Data Objects Data Control) sebagai interface untuk mengakses database, baik itu database yang dibuat dengan Microsoft Access, SQL Server, Oracle dan lain sebagainya.

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.

'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

UTS

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 :

Indonesia Maju

Sebenarnya orang Indonesia itu ga bego,tapi males2...
Kalo orang Indonesia memepunyai pandangan masa depan yang realistis,dan mau mencoba atau lebih bersikap kreatif,maka saya yakin Indonesia tidak lama lagi akan jadi negara yang maju.
Bersiaplah untuk maju,kawan...

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


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

  (untuk mengatur tempat ackan dengan kode)'For Random Placement use this code:
Image1(NewElement).Top = CInt(Form1.Height * Rnd (menentukan letak acakan))
Image1(NewElement).Left = CInt(Form1.Width * Rnd (menentukan letak acakan))
NewElement = NewElement + 1 ( Menambah komponen dengan berurutan satu persatu)  
'==================================================
"

End Sub

Private Sub Form_Load (menampilkan pesan sesuai dengan properties yang di input melalui komponen yang kita buat)()
NewElement = 1 (jumlah komponen yang ditambahkan secara berurutan)
End Sub (mengakhiri)

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 (jumlah komponen yg ditambahkan secara berurutan)
End Sub (mengakhiri)

chapppter 5

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 Y
Private Type Part
X As Integer
Y As Integer
End Type

'Dynamic array to store part coordinates
Dim Part() As Part

'Velocity in X and Y direction of the snake
Dim vX As Integer, vY As Integer
Dim i As Integer 'for loops
Dim CS As Single 'cell size

Dim FX As Integer, FY As Integer 'food coordinates
Dim X As Integer, Y As Integer

Dim bRunning As Boolean, died As Boolean

Private Sub Form_Load()
Randomize 'random generation

'Initialize controls******************
Picture1.BackColor = vbWhite
Picture1.ScaleMode = 3 'pixels

CS = 20 'cell size in pixels
X = Int(Picture1.ScaleWidth / CS)
Y = Int(Picture1.ScaleHeight / CS)

Picture1.AutoRedraw = True
Picture1.ScaleWidth = X * CS
Picture1.ScaleHeight = Y * CS

Me.WindowState = 2
Me.Show

DrawGrid Picture1, CS
'*************************************

died = False
'set up the game
ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0

FX = Int(Rnd * X)
FY = Int(Rnd * Y)
'go to main loop
bRunning = True
MainLoop
End Sub

Sub MainLoop()
Do While bRunning = True
Update
Draw
WAIT (50) 'increasing this number makes game slower
Loop

Unload Me
End Sub

Sub Update()
'MOVE PARTS
For i = UBound(Part) To 1 Step -1
Part(i).X = Part(i - 1).X
Part(i).Y = Part(i - 1).Y
Next i

'MOVE HEAD
Part(0).X = Part(0).X + vX
Part(0).Y = Part(0).Y + vY

'HAS HE GONE OUT OF BOUNDS ?
If Part(0).X <>= X Or Part(0).Y <>= Y Then
died = True
End 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 Then
died = True
End If
Next 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 NewGame
End 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, CS
End 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, BF
End Sub

Sub NewGame()
'SET UP NEW GAME
died = False

ReDim Part(0)
Part(0).X = 0
Part(0).Y = 0

vX = 0
vY = 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 i
End Sub

Sub WAIT(Tim As Integer)
'**************************************************************************
'WAIT FUNCTION
'**************************************************************************
Dim LastWait As Long
LastWait = GetTickCount

Do While Tim > GetTickCount - LastWait
DoEvents
Loop
End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
'USER KEYPRESSES HANDLED HERE
Select Case KeyCode
Case vbKeyRight
vX = 1
vY = 0
Case vbKeyLeft
vX = -1
vY = 0
Case vbKeyUp
vX = 0
vY = -1
Case vbKeyDown
vX = 0
vY = 1
End Select
End Sub

Private Sub Picture1_KeyPress(KeyAscii As Integer)
'27 is ESC. IF user presses ESC, QUIT
If KeyAscii = 27 Then bRunning = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
'This function can be left out
End
End Sub

chapppter 4

Option Explicit
Dim days As Long '<-Stores the number of days elapsed from 1/1/1900 to current month and year
Dim i As Integer

Private Sub cmdGenerate_Click()
On Error GoTo Error_handle 'On error, goto to end of function
days = 0
For i = 0 To 34
 Label1(i).Caption = "" 'Clear all the labels
Next 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 If
Next 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 If
Error_handle:
End Sub

Private Function show_calender(n As Integer) '//<- n stores the number of days to display
Dim i, k As Integer
k = days Mod 7 'Divide days with 7, the remainder give the current day
For i = 1 To n
 Label1(k).Caption = i 'Display the number in calender format
 k = k + 1
 If k = 35 Then k = 0
Next i
End Function

Private Sub txtMonth_Change()

End Sub

belaJar VB

belaJar VB