Cara Membuat Link Exchange / Kotak Tukeran Link

 Alhamdulillah , soalnya kemarin saya coba nyari-nyari gimana caranya ngebuat kotak Link Exchange / Tukeran  Link . Tadinya saya pikir susah ga tau nya ternyata mudah kok . Hafidz Blog Akan kasih formulanya :

Berikut Langkah-Langkahnya :

1. Klick Dulu tombol like di atas hehe ( Bercanda )

sekarang serius yah ..

1. klick tombol join this site ( kalo mau Join n jadi teman di blog ini ) hihihi

beneran sekarang mah ,

pertama , kalian login dulu ke blog yang kalian punya ( Blogspot )  . . . .

kedua , klick tata letak / edit elemen . . . .

ketiga , pilih add gadget ....

keempat pilih HTML/JavaSript ( Liat gambar dan klik gambar biar terlihat jelas ) :

kelima , copy kode dibawah : ( pake Ctrl+f )

<p>Mau Tukar Link? Copy/paste code HTML berikut ke blog anda</p>
<p><a href="http://hafidz7abar.blogspot.com/" target="_blank"><img alt="Triks blog & Computer" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnCYQ3nVh5iHtEOSzCc1oay92CJOynhElKe1hJ_1ttYvURocd1PiotmSAPcp3_g6GAl3TQVtfD00V-pYLVXmH1uWbRaITOY9fIr7J5ouq1rqtclbgEIZWWWQXIxmteltXNf3z2jH93_ran/s1600/ff.jpg" border="0" /></a></p>
 <p><textarea rows="3" cols="31"><a href="http://hafidz7abar.blogspot.com" target="_blank"><img border="0" alt="Trik Blog , Ilmu Copmuter gratis ,Belajar VB , Delphi , dan Kampus" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnCYQ3nVh5iHtEOSzCc1oay92CJOynhElKe1hJ_1ttYvURocd1PiotmSAPcp3_g6GAl3TQVtfD00V-pYLVXmH1uWbRaITOY9fIr7J5ouq1rqtclbgEIZWWWQXIxmteltXNf3z2jH93_ran/s1600/ff.jpg"/></a></textarea></p>

==> Jangan Lupa ganti Tulisan Berwarna Hijau pada kode di atas dengan ==> link  Blog Kalian (contoh :http://hafidz7abar.blogspot.com ) , ==> Url Gambar Kalian ( contoh : https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnCYQ3nVh5iHtEOSzCc1oay92CJOynhElKe1hJ_1ttYvURocd1PiotmSAPcp3_g6GAl3TQVtfD00V-pYLVXmH1uWbRaITOY9fIr7J5ouq1rqtclbgEIZWWWQXIxmteltXNf3z2jH93_ran/s1600/ff.jpg ) sama deskripsi ==> blog kalian yah ( Contoh :  Trik Blog , Ilmu Copmuter gratis ,Belajar VB , Delphi , dan Kampus )<==

kalo sudah di ganti terus langkah selanjutnya 

paste kan ( pake Ctrl+V ) kedalam box yang ada di HTML/JavaScript Tersebut , contoh ( lihat gambar )

Kalo udah klik simpan , dan lihat hasilnya di blog kalian . kalo berhasil contohnya akan seperti ini ( gambar di Hafidz Blog ) :

Mau Tukar Link? Copy/paste code HTML berikut ke blog anda



<a href="http://hafidz7abar.blogspot.com" target="_blank"><img border="0" alt="Trik Blog , Ilmu Copmuter gratis ,Belajar VB , Delphi , dan Kampus" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhnCYQ3nVh5iHtEOSzCc1oay92CJOynhElKe1hJ_1ttYvURocd1PiotmSAPcp3_g6GAl3TQVtfD00V-pYLVXmH1uWbRaITOY9fIr7J5ouq1rqtclbgEIZWWWQXIxmteltXNf3z2jH93_ran/s1600/ff.jpg"/></a>

Cara Ngumpetin File / Hiden

Bagi yang pengen tau caranya ngumpetin file biar gak ketuan orang lain n biar gak di buka .
biasanya file rahasia biar orang lain ga bisa buka sembarangan cz kan udah di umpetin , yaudah langsung aja praktek :

1. Kita ke Windows Explorer ( Bukan Dora / Peppy yah tapi windows ) caranya liat gambar :

2. Kita Cari File yang pengen kita umpetin / hiden terus klik kanan abis itu klik properties : Caranya Liat gambar ( di klick gambarnya biar jelas );

3. Teru kalo udah di beri tanda centang pada HIDEN nya :  Caranya Liat gambar
 ( di klick gambarnya biar jelas );

4. Klick organize terus pilih foldera and search option: Caranya Liat gambar ( di klick gambarnya biar jelas ); 

5. terakhir pilih view terus pilih don't show folder , files , or driver Caranya Liat gambar ( di klick gambarnya biar jelas );

Okeh sekarang file kita udah ga keliatan lagi deh ...
kalo mau di tampilin lagi , tinggal pilih organize - Folder search option - view - show folder , files , or driver - apply - ok

demikian ilmu sharring dari saya semoga bermanfaat ,

aamiin ......
bagi like nya yah hehe

Cara Membuat Link Sahabat

Ehm dari pada sepi ga ada updatetan ,
Saya akan meng-update bagaimana caranya membuat Link Sahabat :
1. Baca Basmallah ,
2. Klick Tata Letak , Caranya kaya gini : ( Klick Gambar Di bawah )

3. Klick Add Gadget

4. Pilih HTML/JavaScript

5. Copy-in (Ctrl+C) kode di bawah ini terus masukin di HTML/Java Script tsb :

<div style="overflow: auto; width: 200px; height: 100px; text-align: center; background:#ffff;">
<a href="http://Alamat Web / Blog Teman Kalian" target="_blank">Masukan Nama Judulnya</a><br/>
<a href="http://Alamat Web / Blog Teman Kalian" target="_blank">Masukan Nama Judulnya</a><br/>

<a href="http://Alamat Web / Blog Teman Kalian" target="_blank">Masukan Nama Judulnya</a><br/>

kalo Mau Nambahin lagi yah tinggal di copy aja sesuai kebutuhan

yang Warna Merah kalian Ubah Yah sama alamat link temen kalian sama Masukin nama Judul link nya

terus klik simpan

selamat mencoba

Jawaban Quis VBII (Lab C)

1. Buat database : mahasiswa.mdb

2. Tabel yang dibutuhkan

a. Mahasiswa 

Field Name    Data Type     Field Size    Keterangan

        Nim             Text              8                 PK

       Nama           Text             30             

      Jurusan          Text             30

Isi data mahasiswa sebanyak 3 record

b. Kuliah 

Field Name     Data Type     Field Size    Keterangan

Kodematkul       Text                 3                PK

Nmmatkul          Text                30

Isi data kuliah sebanyak 3 record

c. Nilai 

Field Name     Data Type    Field Size    Keterangan

    Nim                Text               8                PK

Kodematkul        Text               3               

    Nilai             Number

   Grade               Text              1

    Ket                  Text             20

3. Design Form Mahasiswa

4. Ketentuan Soal:

a. Buatlah prosedure : aktif, noanaktif dan bersih

b. Klik button ADD untuk menginput data mahasiswa

c. Pilih NIM maka nama dan jurusan akan tampil otomatis

d. Pilih Kode Mata kuliah maka akan tampil nama mata kuliah secara otomatis

e. Input Nilai maka grade dan keterangan akan tampil otomatis

Jika nilai 85-100 maka grade=A dan keterangan=Sangat baik
Jika nilai 70-84 maka grade=B dan keterangan=Baik
Jika nilai 60-69 maka grade=C dan keterangan=Cukup
Jika nilai 50-59 maka grade=D dan keterangan=Kurang
Jika nilai 0-49 maka grade=E dan keterangan=Buruk

f. Klik button SAVE untuk menyimpan data ke tabel nilai

g. Klik button EXIT untuk menutup form

Komponen yang ditambahkan:

1. Data combo 2 buah(Microsoft Data List Controls 6.0 (OLEDB))

Properties : 

a. Rowsource  adomhs

Listfield  nim

b. Rowsource  adokuliah

Listfield  kodematkul

2. MSHFLexGrid 1 buah

Properties : DataSource adonilai

3. Adodc 3 buah

Koneksi Adodc

Pada jendela properties pilih ConnectionString

Maka akan tampil jendela PropertyPages sbb.

a. Pilih use connection string Build Microsoft Jet 4.0 OLE DB ProviderNext

b. Tampil jendela data link properties

c. Pada select or enter a database name klik ... (ke folder database mahasiswa.mdb yang telah dibuat sebelumnya  open)

Klik Test Connection  Ok Ok

Setelah itu pada jendela Properties pilih RecordSource

Tampil jendela Property pages

Properties : 

a. Name adomhs

ConnectionString mahasiswa.mdb

RecordSource  select * from mahasiswa

b. Name adokuliah

ConnectionString mahasiswa.mdb

RecordSource  select * from kuliah

c. Name adonilai

ConnectionString mahasiswa.mdb

RecordSource  select * from nilai

Listing Program:

Sub bersih()

tnama = ""

tjur = ""

tnmmatkul = ""

tnilai = ""

tgrade = ""

tket = ""

dcnim = ""

dckode = ""

End Sub

Sub aktif()

dcnim.Enabled = True

dckode.Enabled = True

tnilai.Enabled = True

End Sub

Sub nonaktif()

dcnim.Enabled = False

tnama.Enabled = False

tjur.Enabled = False

dckode.Enabled = False

tnmmatkul.Enabled = False

tnilai.Enabled = False

tgrade.Enabled = False

tket.Enabled = False

End Sub

Private Sub Form_Activate()

bersih

nonaktif

cmdadd.SetFocus

End Sub

Private Sub cmdadd_Click()

aktif

dcnim.SetFocus

End Sub

Private Sub dcnim_Click(Area As Integer)

adomhs.RecordSource = "select*from mahasiswa where nim='" & dcnim & "'"

adomhs.Recordset.MoveFirst

Do While Not adomhs.Recordset.EOF

If dcnim.Text = adomhs.Recordset!nim Then

With adomhs.Recordset

tnama.Text = !nama

tjur.Text = !jurusan

Exit Sub

End With

End If

adomhs.Recordset.MoveNext

dckode.SetFocus

Loop

End Sub

Private Sub dckode_Click(Area As Integer)

adokuliah.RecordSource = "select*from kuliah where kodematkul='" & dckode & "'"

adokuliah.Recordset.MoveFirst

Do While Not adokuliah.Recordset.EOF

If dckode.Text = adokuliah.Recordset!kodematkul Then

With adokuliah.Recordset

tnmmatkul.Text = !nmmatkul

Exit Sub

End With

End If

adokuliah.Recordset.MoveNext

tnilai.SetFocus

Loop

End Sub

Private Sub cmdsave_Click()

With adonilai.Recordset

.AddNew

.Fields("nim") = dcnim.Text

.Fields("kodematkul") = dckode.Text

.Fields("nilai") = tnilai.Text

.Fields("grade") = tgrade.Text

.Fields("ket") = tket.Text

.Update

End With

adonilai.RecordSource = "select* from nilai"

adonilai.Refresh

nonaktif

adonilai.Refresh

bersih

End Sub

Private Sub tnilai_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
If (tnilai >= 85) Then
tgrade = "A"
tket = "Sangat Baik"
Else
If (tnilai >= 70) Then
tgrade = "B"
tket = "Baik"
Else
If (tnilai >= 60) Then
tgrade = "C"
tket = "Cukup"
Else
If (tnilai >= 50) Then
tgrade = "D"
tket = "Kurang"
Else
tgrade = "E"
tket = "Buruk"
End If
End If
End If
End If
End If
End Sub

Private Sub cmdexit_Click()

Unload Me

End Sub

Sumber : Ahmad Sinnun (ahdsin.us)

Memindahkan / Menyalin PDF ke word

   okeh , saya akan berbagi ilmu lagi nih secara gratis ( tanpa di pungut bayaran ) tapi tetep pahala mah dapet karena udah berbagi ilmu hehehe

langsung aja , berikut adalah caranya :
1.Buka PDF yang ingin di salin ke ms.wordnya
2. Ubah tamilan kursor ( padahal ga di ubah gapapa si , cuman biar postingannya agak panjangan aja hehe)

3. Klick File - export -word documennt ( klick Gambar di bawah biar lebih jelas (ukuran sebenarnya)  )

dan ekarang PDF dah behasil kita salin ke word , cuma masalahnya kalo yang ada gambarnya ga tampil di wordnya karena kan itu bukan satu kesatuan .

Tapi tenang aja hafidz ganteng punya solusinya hehe , langkahnya :
1. klick gambar yang mau di salin sampai berwana gelap terus klick kanan abis itu copy image ( klick gambar di bawah biar jelas )

2. Paste kan di tempat yang kita inginkan di document word yang ingin kita buat tadi

atau kalo yang mau copy semua gambar sekaligus , hafidz keren juga punya solusinya :

klick advanced -  document processing - export all image ( salin semua gambar )

okeh demikian ilmu yang dapat saya berikan , kalo ada yang mau di tanyakan silahkan tinggalkan komentar nanti kalo saya bisa jawab saya posting dan saya sebutkan nama anda bila anda beruntung hehe

created by : Hafidz Jabar @  hafidz7abar.blogspot.com