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

Jawaban Latihan Pra Kuis VBII ( Lab C )

1. Buat database : penjualan.mdb

2. Tabel yang dibutuhkan

a. Barang

Field Name           Data Type      Field Size    Keterangan
 Kdbarang                Text               5                     PK
 Nmbarang               Text               30
 Harga                     Currency
 Satuan                    Text                20

Isi data barang sebanyak 3 record

b. Transaksi

 Field Name    Data Type     Field Size   Keterangan
     Nofak           Text               10                PK
     Kdbarang      Text               30
     Jumbel         Number
     Jumharga     Currency
     Diskon         Currency
     Total           Currency

3. Design Form Transaksi

4. Ketentuan Soal:

a. Buatlah prosedure : aktif, noanaktif dan bersih

b. Klik button ADD untuk menginput data transaksi dan no. Faktur akan tampil otomatis (contoh: M201110001)

c. Pilih Kode Barang maka akan tampil nama barang, harga dan satuan secara otomatis (berdasarkan tabel barang)

d. Input Jumlah beli maka didapatkan:

Jumlah harga = harga x jumlah beliDiskon : jika jumlah beli >=5, mk diskon= 10% x jumlah hargajika jumlah beli >=3, mk diskon= 5% x jumlah hargaselain itu tidak mendapatkan diskonTotal =jumlah harga - diskon

e. Klik button SAVE untuk menyimpan data ke tabel transaksi

f. Klik button EXIT untuk menutup form

Listing Program:

Sub bersih()
tnofak = ""
dckdbarang = ""
tnmbarang = ""
tharga = ""
tsatuan = ""
tjumbel = ""
tjumharga = ""
tdiskon = ""
ttotal = ""
End Sub 

Sub aktif()
dckdbarang.Enabled = True
tjumbel.Enabled = True
End Sub 

Sub nonaktif()
tnofak.Enabled = False
dckdbarang.Enabled = False
tnmbarang.Enabled = False
tharga.Enabled = False
tsatuan.Enabled = False
tjumbel.Enabled = False
tjumharga.Enabled = False
tdiskon.Enabled = False
ttotal.Enabled = False
End Sub 

Sub nootomatis()
Dim urutan As String
Dim hitung As Long
adotran.RecordSource = "select * from transaksi"
adotran.Refresh
If adotran.Recordset.RecordCount <= 0 Then
urutan = adotran.Recordset.RecordCount + 1
tnofak.Text = "M" + Format(Date, "yymm") + Format(urutan, "000")
Else
adotran.Recordset.MoveLast
urutan = Val(Right(adotran.Recordset!nofak, 3)) + 1
tnofak.Text = "M" + Format(Date, "yymm") + Format(urutan, "000")
End If
End Sub 

Private Sub Form_Activate()
bersih
nonaktif
cmdadd.SetFocus
End Sub 

Private Sub cmdadd_Click()
aktif
bersih
nootomatis
dckdbarang.SetFocus
End Sub 

Private Sub dckdbarang_Click(Area As Integer)
adobarang.RecordSource = "select*from barang where kdbarang='" & dckdbarang & "'"
adobarang.Recordset.MoveFirst
Do While Not adobarang.Recordset.EOF
If dckdbarang.Text = adobarang.Recordset!kdbarang Then
With adobarang.Recordset
tnmbarang.Text = !nmbarang
tharga.Text = !harga
tsatuan.Text = !satuan
Exit Sub 

End With
End If
adobarang.Recordset.MoveNext
tjumbel.SetFocus
Loop
End Sub 

Private Sub tjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tjumharga.Text = tjumbel.Text * tharga.Text
If tjumbel >= 5 Then
tdiskon = 0.1 * tjumharga
Else
If tjumbel >= 3 Then
tdiskon = 0.05 * tjumharga
Else
tdiskon = 0
End If
End If
ttotal = tjumharga - tdiskon
cmdsave.SetFocus
End If
End Sub 

Private Sub cmdsave_Click()
With adotran.Recordset
.AddNew
.Fields("nofak") = tnofak.Text
.Fields("kdbarang") = dckdbarang.Text
.Fields("jumbel") = tjumbel.Text
.Fields("jumharga") = tjumharga.Text
.Fields("diskon") = tdiskon.Text
.Fields("total") = ttotal.Text
.Update
End With
adotran.RecordSource = "select* from transaksi"
adotran.Refresh
nonaktif
bersih
adotran.Refresh
End Sub 

Private Sub cmdexit_Click()
Unload Me
End Sub

Design , Sumber & Tampilan : Ahmad Sinnus
Edit & Creative Design Blog :  Hafidz 

Mebuat Slide Gambar Tapi Kaya Ada Efek Mantulnya

Beuh dari judulnya aja udah aneh , apalagi kalo udah di coba . . . pasti pada suka karena unik
yang dibutuhin langkah-lagkah nya kaya gini :

1. Login dulu ke blogernya masing-masin ( punya sendiri yah jangan minjem )
2. Klik Edit laman /  Lainya ( disamping entry ) / template (terserah tuh mau yang mana)
3. edit HTML
4. Cari kode </head> terus copast kode yang di bawah ini ( pake Ctrl+C ) terus paste di atas code </head>
     tadi
nih kodenya :

<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js" type="text/javascript"></script>

terus di save , abis itu kita ke tata letak .....
-kalo udah terus klik add gadget / tambah gadget
terus copy kode di bawah n paste di kolom kosong di HTML/javasriptnya ( bukan di judul , kalo judul terserah mau namain apa aja bebas)

<script src=" http://kodecode.googlecode.com/files/animation1.js " type="text/javascript"></script><script src="http://kodecode.googlecode.com/files/animation2.js" type="text/javascript"></script><script src="http://kodecode.googlecode.com/files/animation3.js" type="text/javascript"></script><style type="text/css">.amdhas { height: 232px; width: 432px; padding:0; margin:0; overflow: hidden; -webkit-box-shadow: 2px 2px 4px #000;-moz-box-shadow: 2px 2px 4px #000;-moz-border-radius: 10px; -webkit-border-radius: 10px;}.amdhas img { height: 200px; width: 400px; padding: 15px; border: 1px solid #ccc; background-color: #f8f8ff;-webkit-border-radius: 10px;-moz-border-radius: 10px;}</style><div class="amdhas" id="ke2"> 

<img height="200" src="URL
GAMBAR DI SINI" width="400" /> 

<img height="200" src="URL
GAMBAR DI SINI" width="400" /> 

<img height="200" src="URL
GAMBAR DI SINI" width="400" /> 

</div><script type="text/javascript">$('#ke2').cycle({fx:'scrollDown',speedIn: 2000,speedOut: 500,easeIn:'bounceout',easeOut:

'backin',delay:-2000});</script> 

 kalo mau nambah gambar , kalian buat lagi script yang googlecode/animation1.js jadi animation2.js . animation3.js .......,,dst,,
sama Url Gambar di sini nya juga di ganti sama URL gambar kalian ( Cara Ngedapetin Url gambar klick kanan pada mouse tepat di gambar yang kalian inginkan terus pilih salin url gambar / copy image location )

imgheight adalah ukuran gambar, bisa di atur
sesuai selera
URL GAMBAR DI SINI adalah alamat gambar

Analisa Biaya dan Manfaat

Analisa Biaya dan Manfaat

            Tekhnik yang digunakan untuk menilai layak atau tidaknya suatu sisfo  (Sistem Informasi)

Komponennya :

1.      Komponen Biaya

2.      Komponen Manfaat

Klasifikasi Biaya Untuk Bangsisfo:

1.      Biaya pengadaan (procurement cost), yakni biaya yang termasuksehubungan untuk memperoleh perangkat keras dan biasanya digunakan di tahun pertama.

2.      Biaya Persiapan Operasi (star- up cost), yaitu sehubungan dengan semua biaya untuk membuat sistem siap sioperasikan

^catt: Biaya pada saat sistem dibuat.

3.      Biaya Proyek (project-related ccost),yaitu biaya yang berhubungan dengan biaya-biaya untuk mengembangkan sistem termasuk penerapannya.

Biaya [royek tersebuat adalah biaya pada tahap analisa sistem dan biaya penerapan sistem.

4.      Biaya Operasi (ongoing cost ) dan biaya perawatan (maintenance cost)

Biaya Operasi yaitu biaya yang dikeluarkan untuk mengoperasikan sistem supaya dapat beroperasi.

Biaya Perawatan yaitu biaya yang  dikeluarkan untuk merawat sistem dalam masa operasinya.

Komponen Manfaat :

1.      Manfaat mengurangi biaya

2.      Manfaat mengurangi kesalahan

3.      manfaat meningkatkan aktifitas

4.      manfaat menigkatkan perencanaan dan pengendalian manajemen

Klasifikasi Manfaat Sisfo :

1.      Keuntungan Berwujud (Tangible Benefits ) contoh : Bonus Akkhir Tahun , Mendapat Hadiah Mobil , dll

2.      Keuntungan Tidak Berwujud (Intangible Benefits )  contoh : memperoleh penghargaan dari MURI , Dapat Membeli Barang Mewah (bukan dari barangnya namun dari rasa di segani oleh orang lain )

Metode Analisis Biaya /Manfaat :

           

            Didalam menganalisa suatu investasi terdapat dua aliran kas , yaitu aliran kas keluar (cash Outflow ) dan aliran kas masuk (cas inflow ). Untuk Aliran kas masuk sering dihubungkan dengan proceed , yaitu keuntungan bersih setelah pajak ditambah dengan depresiasi

Untuk melakukan analisis biaya/manfaat digunakan metode:

1. Metode periode pengembalian (payback period)

            Yaitu metode dengan menggunakan penilaian suatu proyek investasi dengan dasar lamanya investasi tersebut dapat ditutup dengan aliran-aliran kas masuk.

PP = NP / P

Keterangan :

PP = PP : Periode Pengembalian

NP : Nilai Proyek                                

P : Proceed

2. Metode pengembalian investasi (return of investmen)

            Digunakan untuk pengembalian investasi yang digunakan untuk mengukur prosentase manfaat yang

dihasilkan oleh proyek dibandingkan dengan biaya yang dikeluarkan.

Keterangan :

Rumus: ROI =  ((TM – TB ) / TBx) 100%

                                    

TM : Total Manfaat

TB : Total Biaya                                                                

Contoh kasus :

1. Suatu Proyek Sistem Informasi memiliki Nilai Proyek (NP) sebesar Rp. 150,000,000.00.-, dengan umur ekonomis proyek selama 4 th, dimana proceed tetap yaitu Rp. 65,000,000.00 setiap tahun. Tentukan nilai Periode Pengembaliannya!

2. Suatu Proyek Sistem Informasi memiliki Nilai Proyek (NP) sebesar Rp. 180,000,000.00.-, dengan umur ekonomis proyek selama 4 th, serta tingkat bunga sebesar 21% dimana proceed setiap tahunnya adalah sbb :

P th-1 35,000,000.00

P th-2 48,000,000.00

P th-3 61,000,000.00

P th-4 74,000,000.00

Sedangkan manfaat setiap tahunnya adalah sbb :

M th-1 48,000,000.00

M th-2 63,000,000.00

M th-3 78,000,000.00

M th-4 93,000,000.00

Sedangkan biaya setiap tahunnya adalah sbb :

B th-0 180,000,000.00

B th-1 33,000,000.00

B th-2 40,000,000.00

B th-3 53,000,000.00

B th-4 68,000,000.00

Jawab :

1.      Rumus Proyek Pengembalian : PP = NP / P

PP  = 150.000.000 /  65.000.000 =  2,30769230769231

2.      a. Rumus Proyek Pengembalian : PP = NP / P

(th1) PP = 180.000.000 / 35.000.000 = 5,142857143

(th2) PP = 180.000.000 / 48.000.000 = 3,75

(th3) PP = 180.000.000 / 61.000.000 = 2,950819672

(th4) PP = 180.000.000 / 74.000.000 = 2,432432432

b.Rumus ROI  : ( (TM – TB) /TB) x 100%

(th1) ROI= ((48.000.000-40.000.000)/33.000.000) x 100% = 45,45454545

(th2) ROI= ((63.000.000-40.000.000)/40.000.000) x 100%  = 57,5

(th3) ROI= ((78.000.000-53.000.000)/53.000.000) x 100%  = 47,16981132

(th4) ROI= ((93.000.000-68.000.000)/68.000.000) x 100%  = 36,76470588

Untuk Lebih Mudahnya kita Dapat Membuat rumus Tersebut Menggunakan Program Delphi :

Nilai Proyek = enp

Proceed =ep

Hasil = h1

hapus =h2

hasil Proyek Pengembalian (PP) = ehasil1

Total Manfaat =etm

Total Biaya =etb

Hasil =h3

hapus=h4

hasil ROI = ehasil2

Listingnya :

procedure TForm1.bh1Click(Sender: TObject);

var

a,b,c:real;

begin

etm.SetFocus;

a:=strtofloat(enp.Text);

b:=strtofloat(ep.text);

c:=a/b;

ehasil1.Text:=floattostr(c);

end;

procedure TForm1.bexitClick(Sender: TObject);

begin

if (application.MessageBox('Mau Keluar Ente ?','Informasi',MB_YESNO)=IDYES)then

close;

end;

procedure TForm1.bh2Click(Sender: TObject);

begin

enp.Text:='';

ep.Text:='';

ehasil1.Text:='0';

end;

procedure TForm1.bh3Click(Sender: TObject);

var

a,b,c:real;

begin

a:=strtofloat(etb.text);

b:=strtofloat(etm.Text);

c:=((b-a)/a)*100;

ehasil2.Text:=floattostr(c);

end;

procedure TForm1.bh4Click(Sender: TObject);

begin

etb.Text:='';

etm.Text:='';

ehasil2.Text:='0';

end;

end.

Kurang lebih seperti itu yang bisa saya share , Semoga bermanfaat di Indahnya Berbagi 

Assalammualaikum

Sumber : Diploma Tiga Bina Saran Informatika
Design dan Edit : Hafidz Jabar @ hafidz7abar.blogspot.com