coding bunga harian pada VB

Option Explicit
Dim objConnection
Dim objRecordset
Dim statuus As String
Dim databaseName As String
Dim Dirubah As Integer

Private Sub Combo1_Click()
showName Combo1.ListIndex
end sub

Private cmdDelete_Click()
Dim As Integer

a = MsgBox("Apakah anda yakin ingin menghapus data ini??",vbYesNo + vbQuestion, App.Title)
If a = vbYes Then
ObjRecordset.Open "DELETE FROM data WHERE nama'" & txtTanggal.Text & "' AND id=" & resolveld(Combo.ListIndex), databaseName, 2, 3


txtTanggal.Text = ""
txtJml_HrMengendap.Text = ""
txtJns_Tran.Text = ""
txtMuTasi.Text = ""
txtSaldo.Text = ""
UpdateCombo
End If
End Sub


Private CmdEdit_Click()
cmdSave.Enabled = True
cmdNew.Enabled = False
cmdEdit.Enabled = False
cmdDelete.Enabled = False
Combo1.Enabled = False
statuus = "ubah"
Dirubah = resolveld(Combo1.ListIndex)

txtTanggal.Locked = False
txtJml_HrMengendap.Locked = False
txtJns_Tran.Locked = False
txtMuTasi.Locked = False
txtSaldo.Locked = False

End Sub


Private Sub cmdNew_Click()
txtTanggal.Text = ""
txtJml_HrMengendap.Text = ""
txtJns_Tran.Text = ""
txtMuTasi.Text = ""
txtSaldo.Text = ""

txtTanggal.Locked = False
txtJml_HrMengendap.Locked = False
txtJns_Tran.Locked = False
txtMuTasi.Locked = False
txtSaldo.Locked = False

cmdSave.Enabled = True
cmdNew.Enabled = False
cmdEdit.Enabled = False
cmdDelete.Enabled = False
Combo1.Enabled = False
statuus = "ubah"
End Sub

Private Sub cmdSave_Click()
Dim skarang As Integer

If txtTanggal.Text <> "" Then
If statuus = "baru" Then
objRecordset.Open "SELECT id FROM data ORDER BY id ASC",databaseName, 2, 3
If ObjRecordset.RecordCount > 0 Then
objRecordset.MoveLast
skarang = objRecordset.Fields("id") + 1
Else
skarang = 1
End If
objRecordset.Close
objRecordset.Open "SELECT * FROM data", databaseName, 2, 3
objRecordset.AddNew
objRecordset.Fields("id") = skarang
Else
objRecordset.Open "SELECT * FROM data WHERe id=" & Diubah, databaseName, 2, 3
End If
objRecordset.Fields("Tanggal") = txtTanggal.Text
objRecordset.Fields("Jml_HrMengendap") = txtJml_HrMengendap.Text
objRecordset.Fields("Jns_Tran") = txtJns_Tran.Text
objRecordset.Fields("MuTasi") = txtMuTasi.Text
objRecordset.Fields("Saldo") = txtSaldo.Text
objRecordset.Update
objRecordset.close
MsgBox "DAta berhasil disimpan", vbOKOnly, App.Title


cmdSave.Enabled = False
cmdNew.Enabled = True
cmdEdit.Enabled = True
cmdDelete.Enabled = True
Combo1.Enabled = True

UpdateCombo
Else
MgsBox "Silahkan masukkan Tanggal-nya", vbOKOnly + vbCritical, App.Title
End If

txtTanggal.Locked = True
txtJml_HrMengendap.Locked = True
txtJns_Tran.Locked = True
txtMuTasi.Locked = True
txtSaldo.Locked = True

End Sub

Private Sub Form_Load()
databaseName = App.Path & "D:\Tgs Perbankan\Transaksi Rekening1.mdb"
On Error Resume Next

Set objRecordset = CreateObject("ADOCE.Recordset.3.0")
UpdateCombo
objRecordset.Open "CREATE TABLE data(id int,Tanggal Varchar(10),Jml_HrMenginap Varchar(5),Jns_Tran Varchar(6),Mutasi Varchar(8),Saldo Varchar(8))", databaseName, 2, 3


End Sub


Private Sub Form_OKClick()
Set objRecordset = Nothing
App.End
End Sub

Private Sub UpdateCombo()
Combo1.Clear
objRecordset.Open "SELECT * FROM data ORDER BY Tanggal", databaseName, 2, 3
If objRecordset.RecordCount > 0 Then
Do
Combo1.AddItem objRecordset.Fields("Combo1")
objRecordset.MoveNext
Loop Until objRecordset.EOF = True
End If
objRecordset.Close

If Combo1.ListCount > 0 Then
Combo1.ListIndex = 0
showName (0)
End If


End Sub

Private Sub showName(indexNama As Integer)
If resolveld(indexNama) <> 0 Then
objRecordset.Open "SELECT * FROM data WHERe id=" & resolveld(indexNama), databaseName, 2, 3
If resolveld(indexNama) > 0 Then
txtTanggal.Text = objRecordset.Fields("Tanggal")
txtJml_HrMengendap.Text = objRecordset.Fields("Jml_HrMengendap")
txtJns_Tran.Text = objRecordset.Fields("Jns_Tran")
txtMuTasi.Text = objRecordset.Fields("MuTasi")
txtSaldo.Text = objRecordset.Fields("Saldo")

End If
objRecordset.Close
End If
End Sub

coding Chek Out pada VB

Chek Out :
Dim sngJumlah, sngLamaMenginap
Private Sub Command1_Click()
If (Text3.Text > 200000) Then
sngJumlah = Text3.Text * Text4.Text
End If
Text5.Text = sngJumlah
End Sub
Private Sub Text1_GotFocus()
Text1.Text = " "
End Sub
Private Sub Text2_Change()
intPilihan = Text2.Text
Select Case intPilihan
Case 1: Text3.Text = "Rp700000"
Case 2: Text3.Text = "Rp500000"
Case 3: Text3.Text = "Rp200000"
Case Else: Text3.Text = "Pilihan Salah"
End Select
End Sub

Laporan keuangan

Kalau kita menelusuri bentuk laporan dari beberapa perusahaan, akan kita temukan berbagai macam bentuk laporan. Laporan tersebut dapat kita golongkan ke dalam dua kelompok yaitu laporan operasional dan laporan keuangan. Laporan operasional digunakan untuk mengawasi aktivitas perusahaan dan diprint-out langsung oleh bagian yang terkait langsung dengan aktivitas tersebut serta laporan operasional sering tidak dilengkapi dengan satuan nilai mata uang. Namun tidak berarti laporan operasional tidak memerlukan satuan nilai mata uang tersebut. Bentuk laporan operasional sangat tergantung pada jenis operasional perusahaan dengan kecederungan pengukuran menggunakan satuan volume. Laporan keuangan adalah laporan yang menyangkut asset perusahaan dan perubahannya. Laporan keuangan mempunyai bentuk standar dan aturan, prosedur yang harus dipenuhi dan dibuat oleh bagian akuntansi.
Laporan akuntansi utama adalah Neraca (Balanced), Laporan Rugi laba (income statement) dan Laporan perubahan modal (Capital Statement)
Menurut PSAK No.1 Revisi 98, Pragraph 07 :
Laporan keuangan yang lengkap terdiri dari komponenkomponen berikut ini:
a) neraca,
b) laporan laba-rugi,
c) laporan perubahan ekuitas,
d) laporan arus kas,

( B ) Pembuatan Film Animasi Pendek

( B ) Pembuatan Film Animasi Pendek
Langkah-langkah Membuat Film Animasi 2D dengan menggunakan Macromedia Flash
1. Langkah awal adalah membuat konsep dan ide cerita
Mentukan tema cerita biasanya diambil dari kehidupan sehari-hari atau cerita legenda , contoh konsep cerita : Tentang pendidikan, promosi daerah / kota tujuan pariwisata, promosi tempat wisata / liburan (misalnya : kebun binatang Ragunan),promosi departemen/instansi pemerintah / BUMN/ BANK, promosi untuk anti korupsi /KPK, kampanye kesehatan ( misalnya : larangan merokok, narkoba, dll).
2. membuat Storyboard
Storyboard dapat dibuat dengan 2 cara:
a. Penggambaran cerita dalam bentuk strip (potongan-potongan gambar) sesuai perkiraan tampilan yang diharapkan di layar (seperti komik), disertai penjelasan lengkap mengenai cerita.
b. Membuat storyboard dengan simbol, (ditujukan bagi yang tidak bisa menggambar). Jadi bentuk storyboard bisa dibuat dengan simbol-simbol yang bisa dimengerti oleh orang lain.
3. Membuat gambaran Karakter pada masing-masing tokoh
 Pengamatan secara langsung ke obyek
 Sketsa tangan dengan pensil/spidol/tinta
 Gambar discan
 File gambar diimpor ke Macromedia Flash
 Gambar tersebut dijadikan panduan untuk digambar ulang menggunakan tools yang ada pada Flash (seperti: pencil tool)

4. Menggambar Latar Belakang dan objek lain
Menggambar latar belakang harus sesuai dengan jalan tema cerita yang sudah ditentukan sebelumnya dalam story board.
5. pewarnaan
warna dasar untuk menghasilkan warna-warna lain.
 Warna Primer
gabungan dari 2 warna primer
 Warna Sekunder
gabungan dari 2 warna sekunder
 Warna Tersier
tabel warna primer dan sekunder
6. Proses animasi

• animasi gerak, posisi
 Tween Motion & rotasi objek
• animasi modifikasi/perubahan bentuk objek
 Tween Shape
7. Penggabungan Animasi
Menggabungkan beberapa animasi yang terdapat pada beberapa movie clip, yang di dalam movie clip tersebut juga terdapat beberapa movie clip. Setiap movie clip berisi adegan atau cutscene yang kemudian digabungkan dengan adegan lain sehingga menjadi sebuah animasi (cerita/film).

8. Pengsian Suara
Suara untuk animasi dapat diperoleh dengan merekam sendiri atau mengedit file suara dengan software pengedit suara (audio editor).

9. Konversi Animasi Flash (SWF) ke VCD
Agar film animasi bisa ditampilkan di televisi, maka harus dikonversi ke dalam format VCD. Tahapannya file Flash harus dipublish menjadi SWF > dikonversi ke AVI > dikonversi menjuadi VCD (.DAT) agar bisa dimainkan di VCD Player.
Untuk konversi SWF ke AVI di Macromedia Flash MX dibutuhkan software tambahan yaitu SWF2Video.

( A ) Pembuatan Film Animasi Pendek

( A ) Pembuatan Film Animasi Pendek
Banyak sekali jenis software untuk membuat animasi film pendek yaitu Flash, 3D max, Adobe Premiere dan banyak lagi yang lain. Dalam proses animasi banyak sekali orang yang terlibat didalamnya. Antara lain yaitu orang yang mengurusi hal-hal seperti menggambarkan rintik hujan, petir, asap, dan lain-lain adalah Spesial efek. Walaupun sudah ada komputer untuk mengurusi hal ini, beberapa studio animasi tidak ingin meninggalkan efek-efek yang digambar dengan tangan. Keuntungan efek yang masih digambar dengan tangan antara lain adalah dimungkinkannya stylization efek, yaitu gambaran efek-efek yang bisa disesuaikan dengan gaya artistik arahan sutradara atau art director film tersebut.
Sulih suara sebuah film dapat dilakukan sebelum atau sesudah film itu selesai, akan tetapi untuk hasil yang bagus biasanya Sulih suara sebuah film dilakukan sesudah film itu telah selesai dibuat. Scoring atau penataan latar musik film, biasanya dilakukan saat filmnya sudah akan segera selesai produksinya seperti dalam film-film live-action.

( B ) Pembuatan Edukatif berbasis Multimedia

( B ) Pembuatan Edukatif berbasis Multimedia
Guru mempunyai kompetensi dalam pembuatan desain presentasi multimedia yang meliputi desain pesan dan penguasaan tool multimedia projector. Dalam pembuatan CD interaktif berbagai mata pelajaran yang dikuasainya untuk digunakan dalam PBM. Guru pada umumnya harus mempunyai kompetensi dalam penguasaan internet dasar dan pemanfaatan internet sebagai sumber belajar efektif Agar guru dapat optimal dalam pembuatan web blog dan desain web untuk E-Learning dan learning management System (LMS).
Diintegrasikan dalam kegiatan pembelajaran yaitu pembuatan desain presentasi multimedia yang meliputi desain pesan dan penguasaan tool multimedia projector, pembuatan CD interaktif berbagai mata pelajaran, internet dasar dan pemanfaatan internet sebagai sumber belajar yang efektif, pembuatan web blog dan pembuatan desain web untuk E-learning dan learning management system (LMS). Jenis-jenis kegiatan pengembangan kompetensi guru meliputi SD/MI,SMP/MTS,SMA/MA dan SMK dalam penguasaan ICT untuk diintegrasikan dalam kegiatan pembelajaran, yakni: pelatihan pembuatan desain presentasi multimedia yang meliputi desain pesan dan penguasaan tool multimedia projector,

( A ) Pembuatan Edukatif berbasis Multimedia

( A ) Pembuatan Edukatif berbasis Multimedia
Multimedia adalah kombinasi dari komputer dan Video (Rosch,1996) atau Multimedia secara umum merupakan kombinasi tiga elemen, yaitu suara, gambar, dan teks(McCormick,1996) atau Multimedia adalah kombinasi dari paling sedikit dua media input atau output dari data, media ini dapat audio(suara, musik), animasi, vidio, teks, grafik dan gambar (Turban dkk,2002) atau Multimedia merupakan alat yang dapat menciptakan presentasi yang dinamis atau interktif yang mengkombinasikan teks, grafik, animasi, audio,dan gambar vidio (Robin dan Linda, 2001).
Flash adalah salah satu aplikasi yang banyak digunakan untuk pembuatan edukatif interaktif berbasis multikmedia. CD Interaktif adalah salah satu contoh dari topic tersebut, salah satu media pengenalan atau promosi yang banyak berkembang saat ini, dimana media interaktif memiliki kelebihan dalam Visualisasi, Animasi, Content serta interaktifitas, sehingga orang yang melihat akan bisa merasakan dan berinteraksi langsung dengan informasi yang ingin disampaikan.
Pembuatan CD Interaktif sangatlah mudah dibuat oleh mahasiswa. Teknik pemecahan MODULER file akan mempercepat pembuatan maupun editing. Dimana kita tidak lagi berhadapan dengan code script yang merumitkan untuk membuat media menjadi interaktif.