Kreatif Mind

Pagi, Sore, Siang, Malam buat capa aja yang lagi baja blogku, ohya berhubung aku sudah menyelesaikan tugas akhir VB.6 ku, ha...3x walaupun hasilnya masih acak2an tapi gak apa2 toh lumayan juga daripada gak ngumpulin betul...3x !!!
Ohya aku ucapin ma kasih banyak buat :
1. Mr.Arsa yang udah ngajarin tentang seni dalam percodingan...
2. maz Dika yang udah iut berpusing-pusing ria
3. Buat asdos lainnya juga deh yang udah bantu kita
4. and temen2 tim editor tugas VB.6 ini yang udah bantu banyak buat nyari referensi tentang dunia percodingan and sebagai donatur he..3x, ups buat temen timku maaf kalau aku bilangnya tim editor kalau aku bilang tim programmers gak lucu deh cz coding aja ita belum begitu paham. paling coding yang pasti diingat adalah :

If coding=debug then
    COpas
else
    Nyontek or njiplak
end if

To the Point aja key...
disini aku mau bahas tentang project akhir vb.6 yang dikasih sama dosen aku MR.ARSA kebetulan timku dapat project tentang "RENTAL VCD/DVD" ya project yang cukup simpel tapi menegangkan kenapa menegangkan soalnya codingnya itulooooohhhh, up and down alias puangjang and memusingkan...

aku disini cuma mau bahas tentang tampilan, fungsi, and system kerjanya aja, kalau coding maaf belum begitu yakin mau bagi-bagi tapi alau beberapa okeylah...

1. key pertama dari form Login

tu gambar cuma simpel cuma pembagian hak akses aja antara ADMIN vs MEMBER biar gak tempur.
kelebihannya kalau kita pake LOGIN ADMIN kita bisa akses semua form yang ada didalamnya. tapi kalau LOGIN MEMBER cuma terbatas buat review apa yang ada didata base aja dalam kata lain gak bisa ngoprek2 datanya.

2. form utama
    nah inisih umum aja, cuma pusat dari akses kita aja dari sini kita bisa link ke form yang kita mau gituloh ceritanya...
3. form admin
    disini yang bisa ngakses cuma admin aja fungsinya cuma ( view, add, del, edit, search, save ).

4. form member
    sama aja kok fungsinya sama form admin

5. form kategori
    disini isinya cuma keterangan tentang VCD/DVD yang ada didalam database.





6. form kaset
    isinya cukup detail cih tentang keterangan VCD/DVD yang ada... ( Judul, ketegori, stock, producer, jenis, status ,fotonya juga )

7.form transaksi penyewaan

    isinya buat data transaksilah tapi didalamnya ada kolaborasi beberapa field data yang diambil dari (Tb_Kaset, Tb_Kategori,Tb_admin, Tb_member, Tb_Sewa,Tb_detail_sewa. yang secara otomatis akan mengupdate data yang ada pada tabel2 tersebut terutama pada Tb_kaset akan secara otomatis melakukan pengurangan stock barang.

8. form Transaksi pengembalian
    fungsinya hampir sama cih dengan form transaksi penyewaan bedanya dikit kok, cuma di Tb_kaset akan melakukan update penambahan stok kaset secara otomatis.

9. report
    pasti tahulah fungsi report ya buat laporan tercetak lah jadi kita bisa tahu secara detail apa yang sebelumnya kita isi dalam data gitu brow....
jadi report gak usah dijelasin panjang dan lebar baget krna fungsinya sama aja... cuma gitu2 aja...

10. exit
    kalau gak tahu coding and fungsinya kebangetan and kata bang Haji Rhoma irama "Ter...la...luu...???"


tapi disini yang seru dari form utama adalah dengan ditampilkannya slide foto secara otomatis saat form aktif, jadi kita bisa tahu info film terbaru gitu coyyy.

kalau codingnya ntar aja coz masih dalam masa perbaikan coz targetnya to slide cuma buat nampilin TOP TEN MOVIE aja/ jadi kamu lihat di next artikel aja key.

key gitu dulu aku dah ngantuk kapan2 nyusul lagu deh detail tentang programnya coz programnya masih belum selsai jadi gak bisa posting secara maksimal tapi kalau semua nya dah beres, ntar aku kasih "TRIK LUCU MEMBUAT ANIMASI DI VB.6"

'Deskripsi: Membuat suatu efek ledakan pada pemunculan awal suatu form.
'Pembuat : Masino Sinaga, http://www.visualbasicindonesia.com
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Module, dan 1 Commandbutton.
' 2. Copy-kan coding berikut ke dalam editor Module/Form ybt.
'----------------------------------------------------------------------------------

'--- Coding ini di Module...
#If Win16 Then
Type RECT
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type
#Else
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
#End If

#If Win16 Then
Declare Sub GetWindowRect Lib "User" (ByVal hwnd As Integer, lpRect As RECT)
Declare Function GetDC Lib "User" (ByVal hwnd As Integer) As Integer
Declare Function ReleaseDC Lib "User" (ByVal hwnd As Integer, ByVal hdc As _
Integer) As Integer
Declare Sub SetBkColor Lib "GDI" (ByVal hdc As Integer, ByVal crColor As Long)
Declare Sub Rectangle Lib "GDI" (ByVal hdc As Integer, ByVal X1 As Integer, _
ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)
Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer
Declare Function SelectObject Lib "GDI" (ByVal hdc As Integer, ByVal hObject _
As Integer) As Integer
Declare Sub DeleteObject Lib "GDI" (ByVal hObject As Integer)
#Else
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
lpRect As RECT) As Long
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal _
hdc As Long) As Long
Declare Function SetBkColor Lib "gdi32" (ByVal hdc As Long, ByVal _
crColor As Long) As Long
Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
Declare Function SelectObject Lib "user32" (ByVal hdc As Long, ByVal hObject _
As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
#End If

Sub ExplodeForm(f As Form, Movement As Integer)
Dim myRect As RECT
Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
Dim TheScreen As Long
Dim Brush As Long
GetWindowRect f.hwnd, myRect
formWidth = (myRect.Right - myRect.Left)
formHeight = myRect.Bottom - myRect.Top
TheScreen = GetDC(0)
Brush = CreateSolidBrush(f.BackColor)
For i = 1 To Movement
Cx = formWidth * (i / Movement)
Cy = formHeight * (i / Movement)
X = myRect.Left + (formWidth - Cx) / 2
Y = myRect.Top + (formHeight - Cy) / 2
Rectangle TheScreen, X, Y, X + Cx, Y + Cy
Next i
X = ReleaseDC(0, TheScreen)
DeleteObject (Brush)
End Sub

Public Sub ImplodeForm(f As Form, Movement As Integer)
Dim myRect As RECT
Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy%
Dim TheScreen As Long
Dim Brush As Long
GetWindowRect f.hwnd, myRect
formWidth = (myRect.Right - myRect.Left)
formHeight = myRect.Bottom - myRect.Top
TheScreen = GetDC(0)
Brush = CreateSolidBrush(f.BackColor)
For i = Movement To 1 Step -1
Cx = formWidth * (i / Movement)
Cy = formHeight * (i / Movement)
X = myRect.Left + (formWidth - Cx) / 2
Y = myRect.Top + (formHeight - Cy) / 2
Rectangle TheScreen, X, Y, X + Cx, Y + Cy
Next i
X = ReleaseDC(0, TheScreen)
DeleteObject (Brush)
End Sub
'--- Batas coding di Module...

'--- Coding ini di Form...
Private Sub Command1_Click()
'Ganti '500' di bawah dengan kecepatan dari efek ledakan form.
Call ImplodeForm(Me, 500)
End
Set Form1 = Nothing
End Sub

Private Sub Form_Load()
Call ExplodeForm(Me, 500) 'ledakan form
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call ImplodeForm(Me, 500) 'pengembalian form
End Sub

Linus Torvalds lahir di Helsinki, Finlandia, pada tanggal 28 Desember 1969. ketika usianya baru 10 tahun dia sudah mulai berkecimpung dalam urusan pembuatan pemrograman computer melalui komputer Commoore VIC-20 milik kakeknya.
Pada tahun 1988, Linus kuliah di university of Helsinky, Finlandia. Disana dia mulai mengenal pemrograman C. Untuk lebih memperdalam ilmunya, Linus kemudian membelil sebuah komputer yang kala itu masih menggunakan MS-DOS buatan microsoft sebagai sistem operasinya. Tapi, kala itu Linus justru lebih tertarik pada komputer milik universitasnya yang menggunakan sistem operasi UNIX. Ia pun coba mengembangkan sistem operasi yang memadai untuk PC UNIX. Beberapa bulan kemudian Linus berhasil membuat versi kasarnya yang diberi nama Linux. Nama Linux mungkin saja merupakan akronimdari Linus dan UNIX.
Untuk memperkenalkan sistem operasi barunya tersebut, Linus mem-posting pesan melalui internet kepada para pengguna PC di seluruh dunia. Bahkan Linus membuat software-nya untuk dapat di download secara gratis. Dan sebagaimana biasa dilakukan oleh sesama pengembang software saat itu, dia merilis source code-nya, yang berarti bahwa semua orang yang memiliki pengetahuan tentang pemrograman komputer dapat memodifikasi Linux untuk disesuaikan dengan tujuan mereka masing-masing.
Mengoperasikan Linux memang membutuhkan kecerdasan tekhnik yang cukup, sebab pengoperasiannya tidak semudah menggunakan sistem operasi yang lebih populer, seperti windows, Mac milik Apple komputer, atau OS/2 milik IBM. Namun, karena para volunteer developer memuji sendiri akan kualitasnya, Linux menjadi cukup dikenal dengan keunggulan sebagi sistem yang efisien dan jarang sekali terjadi crash atau seperti kebanyakan orang menyebutnya dengan hang (sistem tiba-tiba berhenti).
Pada akhir tahun 1990, Linux mulai mendapatkan sambutan yang cukup besar dari pengguna PC. Bahkan para pesaing Microsoft sangat tertarik dan mulai ikut mengembangkan Linux. Perusahaan sperti Nestcafe Communication, Corel, Oracle, Intel, dan perusahaan-perusahaan lain mengumumkan bahwa mereka berencana untuk mendukung Linux sebagai alternatif sistem operasi yang murah sekaligus andal.
Linux di negara-negara berkembang mengalami kemajuan yang sangat pesat. Harga perangkat lunak bisa mencapai 100 dollar AS atau lebih. Di negara yang rata-rata penghasilan per tahunnya antara 200-300 dollar AS, uang 100 dollar AS sangatlah besar. Dengan adanya Linux, semua berubah. Karena Linux dapat digunakan pada komputer yang tergolong lama, dia menjadi alternatif paling cocok bagi komputer beranggaran kecil. Di negara-negara Asia, Afrika, dan Amerika Latin, Linux adalah jalan keluar bagi penggemar komputer.
Karena keterbukaan pada sistem source codenya, banyak kelompok pengembang yang ikut memperbaiki segala fiturnya, sekaligus memindahkan berbagai aplikasi agar berjalan di Linux. Salah satu hasilnya yaitu adanya perubahan dari sistem operasi Linux yang tadinya cenderung kurang asing menjadi user friendly. Semua itu dimungkinkan berkat adanya KDE dan GNOME. Berkat kedua sistem operasi ini, tampilan desktop Linux lebih menarik dan mampu mengubah persepsi dunia tentang Linux.
Pemanfaatan sistem operasi Linux juga kini sudah diterapkan pada superkomputer dunia seperti The Tetragrid, sebuah megakomputer dari Amerika yang dapat menghitung lebih dari 13 triliun kalkulasi per detik (13.6 TeraFLOPS – Floating Operations Per Second). Tetragrid dapat dimanfaatkan untuk mencari solusi dari masalah matematika kompleks dan simulasi, dari astronomi dan riset kanker hingga ramalan cuaca.
Yang lainnya, yaitu Evolocity. Juga dari Amerika, sebuah komputer yang dapat berjalan dengan kecepatan maksimum 9.2 TeraFLOPS, menjadikannya sebagai salah satu dari lima superkomputer tercepat di dunia. Bahkan dalam waktu yang sama, Linus mengambil posisi di Transmeta corp., yang dimiliki salah satu pendirinya, Paul Allen. Di situ, Linus bekerja dalam sebuah projek yang sangat rahasia, yang diasumsikan oleh banyak komunitas high-tech akan berkembang menjadi sebuajh kekuatan yang bisa menjadi sumber serangan di masa depan bagi kerajaan Microsoft.
Ketika mulai diperkenalkan, sistem operasi Linux tidak mempunyai logo. Para pengembang pun bertanya-tanya dan mengusulkan agar Linux diberi logo sebagai identitasnya. Kemudian terpilihlah penguin Tux (Torvalds Unix) sebagai logonya. Logo itu dirancang oleh seniman Larry Ewing.
Terpilihnya logo penguin berdasarkan pengalaman Linus pada waktu berlibur, ia pergi ke daerah selatan. Disana dia bertemu seekor penguin pendek yang menggigit jarinya. Kejadian lucu ini merupakan awal terpilihnya penguin sebagai logo sistem operasi ciptaannya. Hingga sekarang, logo Linux sudah terkenal ke berbagai penjuru dunia. Orang lebih mudah mengenal segala produk yang berbau Linux hanya dengan melihat logo yang unik nan lucu ini.

1. Buka notepad anda lalu ketik / Co-Past aja Script dibawah ini :

2. Terakhir tinggal di SAVE AS-
3. Simpan dengan nama Regedit.JS
4. nama Regedit boleh diganti Ex : katrok.js yang penting ekstensi ( .JS ) selalu diikutan kalau enggak ya sama aja program gak akan jalan.
5. Rasakan Sensasinya
   
6. Terima kasih atas perhatiannya and Thanks