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

Superphone Bakal Booming di Tahun 2015 - techno.okezone.com

Superphone Bakal Booming di Tahun 2015 - techno.okezone.com

Code Program Export Data Dari Flex Grid VB 6.0 Ke Excel

Private Sub Command3_Click()
Dim IROW As Integer
Dim ICOL As Integer
Dim OBJEXCL As Excel.Application
Dim objwk As Excel.Workbook
Dim objsht As Excel.Worksheet
Dim ihead As Integer
Dim vhead As Variant
Set OBJEXCL = New Excel.Application
OBJEXCL.Application.Visible = True
Set objwk = OBJEXCL.Workbooks.Add
Set objsht = objwk.Sheets(1)
vhead = Split(MSFlexGrid1.FormatString, "|")
For ihead = 1 To UBound(vhead)
If Len(Trim(vhead(ihead))) > 0 Then objsht.Cells(1, ihead) = vhead(ihead)
Next
For IROW = 1 To MSFlexGrid1.Rows - 1
For ICOL = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Row = IROW
MSFlexGrid1.Col = ICOL
objsht.Cells(IROW + 1, ICOL) = MSFlexGrid1.Text

Next ICOL
Next IROW
'objwk.SaveAs "c:\sheet1.xls"
objwk.Close
OBJEXCL.Quit
Set objsht = Nothing
Set objwk = Nothing
Set OBJEXCL = Nothing
End Sub
Private Sub form_load()
On Error Resume Next
With MSFlexGrid1
.Row = 125
.Cols = 9
For i = 0 To .Rows - 1
For j = 0 To .Cols - 1
.TextMatrix(i, j) = (i + 1) * (j + 1)
Next j
Next i
End With

End Sub

Cara memperbaiki Harddisk Yang Rusak dengan Format Low Level

Cara Memperbaiki harddisk Rusak atau Bad Sector..!!
Yang tidak Bisa lagi Dilakukan Dengan Format Biasa, Anda Bisa Melakukannya dengan Low Level Format. dengan Langkah-langkah Sbb:
1. Download Maxtor Utility Disc di website: www.Maxtor.com/utility
2. Jalankan sama pada saat menggunakan Boottable Disc, kemudian tekan Enter
3. Kemudian Pilih Maxtor utility Disc, kemudian Pilih Low level
4. Ikuti Pertintah yang ada secara step by step

Selamat mencoba...

MEMBASMI VIRUS YANG SUDAH TIDAK BISA DIHAPUS DI REGISTRI WINDOWS

Cara Jitu Membasmi Virus Komputer dengan Virus REMOVALTool !!

Jika cara-cara yang menghapus virus dari computer dengan Menghapus Registry Windows tidak Berhasil maka, lakukan tindakan seperti berikut jika ciri-ciri kondisi computer sudah parah tejangkiti virus…..!!

1. Layar Monitor hanya terlihat gambar “$$$#$$$$G$$” gambar dolar saja pada saat pertama Booting.
2. Komputer meminta pemilihan opsi system program window yang ingin digunakan seperti safe mode, normal windows dan Last Windows setting Good performance
3. Pada point no. 2 pada saat loading pastikan program berjalan dengan sistem window safe mode walaupun anda sulit untuk memilihnya, pastikan anda pilih dengan menekan tab dari keyboard seperti ini “$$s$$Sa$fe$$$Mode kemudian tekan enter,hal ini dilkaukan bertujuan untuk mencegah virus auto shot down system computer yang lagi dibersihkan virusnya.
4. Tunggu computer anda sampai terlihat windows normal.
5. Pada kondisi ini virus tentunya tidak tinggal diam virus akan mengacak tampilan layar menjadi berbayang bisa menjadi 3 atau empat icon yang ada pada program di desktop, tapi anda jangan terkecoh pada ulah virus ini …
6. Lakukan Scan Virus dengan menggunakan Anti Virus Seadanya .. atau instalkan Anti Virus pada computer Anda dan jalankan Scan virus hal ini bertujuan untuk mengecoh cara kerja Virus….
7. Kemudian Installkan Virus Removal Tool bisa anda Down load versi gratisnya di Norman Removal Tool, Norton Removal Tool atau Kasversky Removal Tool tapi pengalaman Penulis menyarankan dengan Virus Removal Kasversky karena Removal Virus ini bisa membaca/menambah hardware termasuk yang dihidden oleh virus baik. Virus Removal Tool ini bisa Anda Download di Removal Tool Kasversky.com

Salam Bebas Virus…

Minal Aidin Walfaidin 1431 H