CONTOH PROGRAM SEDERHANA

abu, 28 Desember 2011

CONTOH PROGRAM SEDERHANA

Soal VB:

Pndaftaran  siswa baru di PII KOMPUTINDO 

diketahui data yang diinpu t sebagai berikut:

NO.Pendaftaran

Nama siswa

Alamat siswa

Tanggal Daftar

Gelombang

Data yang dip roses:

Uang  pembangunan dan uang seragam berdasarkan bentuk gelombang.

Jika  gelombang  pertama maka uang  pembangunan 2.800.000 uang seragam =0

Jika gelombang kedua maka uang pembangunan 3.800.000 uang seragam =250.000

Jika gelombang ketiga maka uang pembangunan 3.800.000 uang seragam =500.000

Sistem pembayaran :lunas,caw,bulan

Ketentuan biaya pendidikan dan total berdasarkan sistem pembayaran

Jika pembayaranya lunas maka ketentuan biaya pendidikan 3.400.000 total3.400.000

Jka pembayaranya caw maka ketentuan biaya pendidikan 1.200.000 total 1.200.000*3

Jika pembayaranya bulan maka ketentuan biaya pendidikan 3.500.000*12

Total bayar=uang pembangunan+uang seragam+total

PENYELESAIAN

Private Sub Combo1_CLICK()

If Combo1 = "Pertama" Then

    Text4 = 2800000

    Text5 = 0

Else

If Combo1 = "Kedua" Then

    Text4 = 3800000

    Text5 = 250000

Else

Text4 = 3800000

Text5 = 500000

End If

End If

End Sub

Private Sub Combo2_Click()

If Combo2 = "Lunas" Then

    Text6 = 3400000

    Text7 = 3400000

Else

If Combo2 = "Caw" Then

    Text6 = 1200000

    Text7 = 1200000 * 3

Else

Text6 = 350000

Text7 = 350000 * 12

End If

End If

Text8 = Val(Text4) + Val(Text5) + Val(Text7)

End Sub

Private Sub Command1_Click()

Text1 = Clear

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text5 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Combo1 = Clear

Combo2 = Clear

Text1.SetFocus

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Text1_Change()

If Not IsNumeric(Text1.Text) Then Text1 = Clear

If Len(Text1.Text) = 10 Then Text2.SetFocus

End Sub

Private Sub Text2_Change()

Dim posisi As String

posisi = Text2.SelStart

Text2 = StrConv(Text2, vbProperCase)

Text2.SelStart = posisi

End Sub

Private Sub Timer1_Timer()

JM = Format(Now(), "hh:mm:ss")

JM.ForeColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)

Form1.BackColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)

End Sub

Rabu, 21 Desember 2011

PENGERTIAN DATA BASE

Basis data

Dari Wikipedia bahasa Indonesia, ensiklopedia bebas

Pangkalan data^[1] atau basis data (bahasa Inggris: database), atau sering pula dieja basisdata, adalah kumpulan informasi yang disimpan di dalam komputer secara sistematik sehingga dapat diperiksa menggunakan suatu program komputer untuk memperoleh informasi dari basis data tersebut. Perangkat lunak yang digunakan untuk mengelola dan memanggil kueri (query) basis data disebut sistem manajemen basis data (database management system, DBMS). Sistem basis data dipelajari dalam ilmu informasi.
Istilah "basis data" berawal dari ilmu komputer. Meskipun kemudian artinya semakin luas, memasukkan hal-hal di luar bidang elektronika, artikel ini mengenai basis data komputer. Catatan yang mirip dengan basis data sebenarnya sudah ada sebelum revolusi industri yaitu dalam bentuk buku besar, kuitansi dan kumpulan data yang berhubungan dengan bisnis.
Konsep dasar dari basis data adalah kumpulan dari catatan-catatan, atau potongan dari pengetahuan. Sebuah basis data memiliki penjelasan terstruktur dari jenis fakta yang tersimpan di dalamnya: penjelasan ini disebut skema. Skema menggambarkan obyek yang diwakili suatu basis data, dan hubungan di antara obyek tersebut. Ada banyak cara untuk mengorganisasi skema, atau memodelkan struktur basis data: ini dikenal sebagai model basis data atau model data. Model yang umum digunakan sekarang adalah model relasional, yang menurut istilah layman mewakili semua informasi dalam bentuk tabel-tabel yang saling berhubungan dimana setiap tabel terdiri dari baris dan kolom (definisi yang sebenarnya menggunakan terminologi matematika). Dalam model ini, hubungan antar tabel diwakili denga menggunakan nilai yang sama antar tabel. Model yang lain seperti model hierarkis dan model jaringan menggunakan cara yang lebih eksplisit untuk mewakili hubungan antar tabel.
Istilah basis data mengacu pada koleksi dari data-data yang saling berhubungan, dan perangkat lunaknya seharusnya mengacu sebagai sistem manajemen basis data (database management system/DBMS). Jika konteksnya sudah jelas, banyak administrator dan programer menggunakan istilah basis data untuk kedua arti tersebut.

blog.re.or.id > Uncategorized > Struktur Data dan Basis Data (Database)

Struktur Data dan Basis Data (Database)

Uncategorized category

Telah diketahui bahwa secara fisik data dalam bentuk kumpulan bit dan direkam dengan basis track didalam media penyimpan eksternal. Dalam prakteknya, untuk kemudahan dalam mengakses data, data disusun dalam suatu struktur logis yang menjelaskan bahwa:

• 1. Kumpulan tabel menyusun basis data,
• 2. Tabel tersusun atas sejumlah record,
• 3. Sebuah record mengandung sejumlah field, dan
• 4. Sebuah field disimpan dalam bentuk kumpulan bit.

Pengertian masing-masing istilah diatas adalah seperti berikut:
a. Field (medan) menyatakan data terkecil yang memiliki makna. Istilah lain untuk field yaitu elemen data, kolom item, dan atribut. Contoh field yaitu nama seseorang, jumlah barang yang dibeli, dan tanggal lahir seseorang.
b. Record (rekaman) menyatakan kumpulan dari sejumlah elemen data yang saling terkait. Sebagai contoh, nama, alamat, tanggal lahir, dan jenis kelamin dari seseorang menyusun sebuah record. Istilah lain yang juga menyatakan record yaitu tupel dan baris.
c. Tabel menghimpun sejumlah record. Sebagai contoh, data pribadi dari semua pegawai disimpan dalam sebuah tabel.
d. Basis data (database) adalah suatu pengorganisasian sekumpulan data yang saling terkait sehingga memudahkan aktivitas untuk memperoleh informasi. Sebagai contoh, basis data akademis mengandung tabel-tabel yang berhubungan dengan data mahasiswa, data jurusan, data mata kuliah, data pengambilan mata kuliah pada suatu semester, dan nilai yang diperoleh mahasiswa.