Cara Menampilkan Animasi Flash di BLog atau Web

Berikut Ini adalah cara Membuat Animasi/Banner Flash kita yang kita Simpan di Google Site,cara sbb:
1.Login di halaman http://sites.google.com dengan menggunakan google account, kalau belum punya google account dan pengen tau cara buatnya silahkan di search
2. Setelah login klik tombol create
3.Tentukan template yang akan di gunakan di sini saya menggunakan template project wiki (untuk anda terserah), kemudian isi pada isian Name your site, your site wil be located at this URL sesuai dengan keinginan anda lalu masukkan kode ferifikasi dan klik lagi tombol create
4.Setelah itu akan muncul tampilan seperti gambar di bawah yang sesuai dengan template yang di gunakan, lalu pilih
5.Klik tombol Add File

6.Pilih file yang akan di upload terserah anda mau pilih file dari komputer anda atau dari server lain yang yang telah di upload, contoh kali ini kita akan men upload
dari file computer dengan mengklik Browse lalu cari dan pilih file pada directori komputer anda
7.Setelah berhasil terupload, klik kanan pada link download file anda lalu pilih
Copy Link Location
8.Pastekan ke Notepad link yang telah di peroleh tadi,
seperti dibawah ini :


9. Code tersebut diatas kita Copykan di Blog dengan cara tambah widget dan pilih java scrip kemudian simpan
10.Test Link Flash kita... semoga berhasil..

Cara membuat Counter Otomatis dari Tanggal

Private Sub Auto()
Dim urutan As String * 10
Dim hitung As Long
With DTPenjualan.Recordset
If .RecordCount = 0 Then
urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + "0001"
Else
.MoveLast
If Left(!Nota, 6) <> Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) Then
urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + "0001"
Else
hitung = (!Nota) + 1
urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + Right("0000" & hitung, 4)
End If
End If
TNota = urutan
End With



End Sub

Code VB 6 Cara Membuat Toolbar untuk mempercantik Program Anda

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
FrmEntriAnggota.Show
Case 2
Frmpenjualan.Show
Case 3
FrmEntriBarang.Show
Case 4
Frmpembayaran.Show
Case 5
Penjualan.Show
Case 6
Frmbackup.Show
Case 7
Frmexport.Show
Case 8
Unload Me
End Select
End Sub