FIREFOX 14 terBaru

Versi final firefox 14 ini telah resmi di rilis pada tanggal 18 Juli 2012 dan browser terbaik milik mozzila ini pun sudah bisa di download GRATIS alias free. firefox ini tersedia untuk sistem oprasi microsoft windows antara lain : * XP * VISTA * maupun SEVEN (7) Untuk LiNUX dan MAC OS juga tersedia. Dan untuk Pengguna android juga sudah di siapkan bagi agan yang sudah terbiasa menggunakan firefox. Bahasa yang di dukung lebih dari 70 bahasa di dunia. Buat agan - agan yang penasaran ingin mencoba firefox 14, donwload segera atau update firefox agan dengan yang baru. * Langsung donwload filenya pada gambar di bawah ini :

Adapu beberapa tambahan fitur - fitur serta perbaikan keamanan yang dilakukan pada firefox 14 ini antaralain : * dukungan fitur full screen untuk MAC OS X 10.7 Lion * Plugin atau pengaya tambahan dapat dikonfigurasi dengan klik mouse. * Dukungan fitur pointer Lock API untun pengembangan. * Berbagai perbaikan keamanan dan bug. SelaMAt Mencoba agan sekalian,,,,,,,, OM Shanti,,, Shanti,,, Shanti OM

Tes Animasi

setelah lama berusaha mencari widget-widget animasi lucu bergerak dan menarik dari berbagai situs untuk anda dalam memasang animasi di sudut atau pojok blog dan membuat tampilan blog anda semakin segar dengan adanya animasi yang bergerak di sudut blog, akhirnya ketemu juga widget-widget yang lucu dan unik yang pastinya bergerak atau berformat gif ,pada kumpulan widget animasi bergerak ini anda bisa membuat animasi bergerak di pojok blog anda, mungkin di antara kalian ada juga yang senang dengan animasi - animasi lucu yang bergerak ini untuk di pasang di sudut blog kalian. tapi tentu saja di setiap situs-situs tersebut tidak semua animasi bergerak sama oleh karena itu dalam postingan kali ini saya akan memberikan kumpulan postingan animasi bergerak yang lucu dan gokil dari berbagai situs yang telah saya kunjungi .silakan kalian kalau mau copas kode-kode script berikut di blog kalian . sebelum kalian meng copas kode kode tersebut .. sebaiknya kalian mengikuti tutorial cara memasang animasi pada blog berikut ini . untuk memasang widget widget animasi bergerak seperti naruto dan onepiece pada blog kalian ..( tepatnya animasi- animasi bergerak tersebut akan ada di sudut pojok bawah pada blog kalian ).dan kalian dapat merubah lokasi penempatannya/ukuran gambarnya sesuai dengan tempat/ukuran favorit anda .!!!

MENYELAMATKAN HARDISK

Sebenarnya saya sering menemui kasus ini, yaitu harddisk Seagate yang konslet. Konsletnya harddisk ini menyebabkan power supply juga mati atau ke protek dan komputer pun tidak bisa dihidupkan. Mungkin anda pernah atau sedang mengalami hal ini, yaitu harddisk seagate anda konslet, padahal banyak data yang tersimpan didalam harddisk tersebut. Bagaimana cara service harddisk seagate yang konslet ???? Berikut ini saya akan mencoba sharing tentang cara service harddisk seagate yang konslet. Penyebab Harddisk Seagate yang Konslet : Adanya kelebihan tegangan dari power supply yang menuju ke harddisk (Over Voltage) Persiapan Alat : Obeng bintang : untuk membuka sekrup board harddisk. Multitester : untuk cek komponen dioda yang konslet. Solder dan Timah / tenol : digunakan untuk mengganti komponen yg rusak. Spare part dioda 1A - 2A : beli ditoko elektronik. Cara Service Harddisk Seagate yang Konslet : Untuk harddisk konslet yang letak komponennya ada di bagian dalam, anda perlu membuka sekrup di boardnya. *Untuk harddisk konslet yang komponen sudah terlihat secara langsung, anda tidak perlu membuka boardnya. *Konslet pada harddisk Seagate ini sering terjadi di bagian DIODA pengaman tegangan 12 volt nya. Tegangan 12 voltnya yaitu kabel power suply yang berwarna kuning. Sedangkan kabel merah tegangannya 5 volt. Kadang DIODA pengaman tegangan 5 volt juga pernah konslet tapi jarang. #Cek DIODA pengaman tegangan 12 voltnya. cek juga DIODA pengaman 5 voltnya. lihat pada gambar. #Segera ganti dioda harddisk yang konslet tersebut.dengan dioda 1-2 Ampere, beli di toko elektronik banyak. Perhatikan posisi anoda dan katodanya. Sebenarnya dengan hanya melepas dioda yang rusak tanpa menggantinya, Harddisk anda akan kembali normal. Akan tetapi cara ini tidak saya anjurkan, karena tanpa dioda berarti tanpa proteksi kalau ada over voltage / kelebihan tegangan. #Harddisk siap di coba. Saya tidak bisa menjamin cara ini berhasil 100%, karena bisa jadi chipset harddisk sudah ikut konslet / rusak. Tapi dari pengalaman Saya, sudah banyak harddisk terutama merk Seagate yang bisa kembali normal lagi. SaLAm RAH_Qua

Om Swastiastu

Puji syukur kehadirat Tuhan Yang Maha Esa(Ida Sang Hyang Widi Wasa) atas rahmat serta petunjuknya,Sehingga Saya dapat mengisi pada halaman website ini untuk dijadikan sebagai sarana ajang ide-ide kreatif, Ilmu pengetahuan, Puisi, Periklanan dan lain sebagainya. Mari kita manfaatkan tekhnologi yang semakin berkembang pesat ini kearah yang positif agar selalu di Lindungi Tuhan(Ida Sang Hyang Widi Wasa)''Astungkara'',  Tujuan utama website ini adalah berbagi Ilmu Pengetahuan dan bisa bermanfaat bagi semua kalangan.

Memunculkan Field Gambar

Sedikiit berbagi.. Mungkin Teman2 ada yang kesulitan mengenai memunculkan file Image Database Acces ke VB. Saya menggunakan dua Cara untuk mewujudkan hal tersebut diantaranya adalah :

1. Me-Load Gambar dalam Kontrol Image dari String Alamat Gambar yang telah ada di Field Database, jadi Field dalam tabel bertype Text. Keuntungannya Database berukuran lebih Kecil dibanding cara kedua.
2. Meload Gambar Dari Field yang bertype OLE Object kedalam kontrol Image. Keuntungannya semua gambar dalam satu database sehingga dapat sebagai pustaka gambar.




Kali ini kita akan menggunakan cara yang kedua, Buat Database Acces bernama "terserahData.mdb" terdiri atas satu Tabel yaitu "TblPhotoSaja" dan di dalamnya buat field Type Ole Object beri nama "Image",serta satu field lagi Bertype AutoNumber berinama "Id", Langsung saja ^_^ ini saourcenya..

Copy Paste Code Dibawah Ini Dalam form

Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private lpFSHigh As Long
Private strfilepath As String
Private Buffer As String
Private Const OF_READ = &H0&
Private db As ADODB.Connection
Private WithEvents adoPrimaryRSImageName As Recordset

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Function GetFile(ByRef frm As Form) As String
Dim OFName As OPENFILENAME
OFName.lStructSize = Len(OFName)
'Set the parent window
OFName.hwndOwner = frm.hWnd
'Set the application's instance
OFName.hInstance = App.hInstance
'Select a filter
OFName.lpstrFilter = "Bitmap (*.bmp)" + Chr$(0) + _
"*.bmp" + Chr$(0) + _
"Jpg (*.jpg)" + Chr$(0) + _
"*.jpg" + Chr$(0) + _
"Icons (*.ico)" + Chr$(0) + _
"*.ico" + Chr$(0) + _
"Windows Metafiles (*.wmf)" + Chr$(0) + _
"*.wmf" + Chr$(0) + _
"Jpeg (*.jpeg)" + Chr$(0) + _
"*.jpeg" + Chr$(0) + _
"Gif (*.gif)" + Chr$(0) + _
"*.gif" + Chr$(0) + _
"All Files (*.*)" + Chr$(0) + _
"*.*" + Chr$(0)
'create a buffer for the file
OFName.lpstrFile = Space$(254)
'set the maximum length of a returned file
OFName.nMaxFile = 255
'Create a buffer for the file title
OFName.lpstrFileTitle = Space$(254)
'Set the maximum length of a returned file title
OFName.nMaxFileTitle = 255
'Set the initial directory
'OFName.lpstrInitialDir = "C:\" 'Commented so that the box opens on the last directory browsed
'Set the title
OFName.lpstrTitle = "Open Dialog Box"
'No flags
OFName.Flags = 0
'Show the 'Open File'-dialog
If GetOpenFileName(OFName) Then
GetFile = Trim$(OFName.lpstrFile)
Else
GetFile = ""
End If
End Function

Private Sub SaveBitmap(ByRef adoRS As ADODB.Recordset, ByVal strField As String, ByVal SourceFile As String)
'This sub copies the actual file into a byte array.
'This byte array is then used as the value for
'the field having an image data type
Dim Arr() As Byte
Dim Pointer As Long
Dim SizeOfThefile As Long
Pointer = lOpen(SourceFile, OF_READ)
'size of the file
SizeOfThefile = GetFileSize(Pointer, lpFSHigh)
lclose Pointer
'Resize the array, then fill it with
'the entire contents of the field
ReDim Arr(SizeOfThefile)
Open SourceFile For Binary Access Read As #1
Get #1, , Arr
Close #1
adoRS(strField).Value = Arr
Exit Sub
End Sub

Private Sub cmdFirst_Click()
If adoPrimaryRSImageName.BOF And adoPrimaryRSImageName.RecordCount = 0 Then
MsgBox "Anda Tidak Memiliki Data Record, Klik Tombol " & """" & "Tambah Record" & """" & " untuk Membuat Record."
Else
adoPrimaryRSImageName.MoveFirst
End If
End Sub

Private Sub cmdLast_Click()
If adoPrimaryRSImageName.EOF And adoPrimaryRSImageName.RecordCount = 0 Then
MsgBox "Anda Tidak Memiliki Data Record."
Else
adoPrimaryRSImageName.MoveLast
End If
End Sub

Private Sub cmdNext_Click()
If adoPrimaryRSImageName.EOF And adoPrimaryRSImageName.RecordCount = 0 Then
MsgBox "Anda Tidak Memiliki Data Record."
End If
If Not adoPrimaryRSImageName.EOF Then adoPrimaryRSImageName.MoveNext
If adoPrimaryRSImageName.EOF And Not adoPrimaryRSImageName.RecordCount = 0 Then
Beep
adoPrimaryRSImageName.MoveLast
End If
End Sub

Private Sub cmdPrevious_Click()
If adoPrimaryRSImageName.BOF And adoPrimaryRSImageName.RecordCount = 0 Then
MsgBox "Anda Tidak Memiliki Data Record"
End If
If Not adoPrimaryRSImageName.BOF Then adoPrimaryRSImageName.MovePrevious
If adoPrimaryRSImageName.BOF And Not adoPrimaryRSImageName.RecordCount = 0 Then
Beep
adoPrimaryRSImageName.MoveFirst
End If
End Sub

Private Sub CariSimpanImage_Click()
strfilepath = GetFile(Me)
If strfilepath <> "" Then
Image1.Picture = LoadPicture(strfilepath)
SaveBitmap adoPrimaryRSImageName, "Image", strfilepath
End If
End Sub

Sub Koneksi()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\BioData.mdb"
Set adoPrimaryRSImageName = New ADODB.Recordset
adoPrimaryRSImageName.Open "TblPhotoSaja", db, adOpenDynamic, adLockOptimistic
Set Image1.DataSource = adoPrimaryRSImageName
End Sub

Private Sub Form_Load()
Koneksi
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set db = Nothing
Set adoPrimaryRSImageName = Nothing
Unload Me
End Sub