Zona 314

JURUSAN yang ada disekolah kami :
 SMK/STM
- Rekayasa Perangkat Lunak
-Teknik Otomotif
- Listrik
- Multimedia

 SMK/SMEA
- Penjualan
- Akutansi
- Administrasi Perkantoran

- Penerimaan siswa baru di SMK PANMAS DEPOK tahun ajaran 2013/2014
- Penerimaan untuk siswa SMP mencapai 350 siswa baru
- SMK PANMAS mengadakan SANLAT(Pesantern Kilat) pada tanggal 31 juli - 02 agustus 2013

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option ExplicitPrivate Hasil As DoublePrivate Const opNol = 0Private Const opTambah = 1Private Const opKurang = 2Private Const opKali = 3Private Const opBagi = 4Private Operator As IntegerPrivate NilaiBaru As Boolean
' untuk menghapus karakter terakhirPrivate Sub Hapus()Dim txt As StringDim min_len As Integertxt = txtDisplay.TextIf Left$(txt, 1) = "-" Thenmin_len = 2Elsemin_len = 1End IfIf Len(txt) > min_len ThentxtDisplay.Text = Left$(txt, Len(txt) - 1)ElsetxtDisplay.Text = "0"End IfEnd Sub
' hapus angka, hasil terakhir dan operatorPrivate Sub cmdClear_Click()cmdClearEntry_ClickHasil = 0Operator = opNolEnd Sub' hapus angkaPrivate Sub cmdClearEntry_Click()txtDisplay.Text = ""End Sub' menambahkan koma (desimal)Private Sub cmdKoma_Click()If InStr(txtDisplay.Text, ".") ThenBeepElseIf NilaiBaru ThentxtDisplay.Text = "."NilaiBaru = FalseElsetxtDisplay.Text = txtDisplay.Text & "."End IfEnd IfEnd Sub
' MenghitungPrivate Sub cmdSamaDengan_Click()Dim HasilBaru As DoubleIf txtDisplay.Text = "" ThenHasilBaru = 0ElseHasilBaru = CDbl(txtDisplay.Text)End IfSelect Case OperatorCase opNolHasil = HasilBaruCase opTambahHasil = Hasil + HasilBaruCase opKurangHasil = Hasil - HasilBaruCase opKaliHasil = Hasil * HasilBaruCase opBagi'Tidak bisa dibagi nolIf HasilBaru = 0 ThenMsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"Call cmdClear_ClickElseHasil = Hasil / HasilBaruEnd IfEnd SelectOperator = opNolNilaiBaru = TruetxtDisplay.Text = Format$(Hasil)End Sub
' menuliskan angkaPrivate Sub cmdAngka_Click(Index As Integer)If NilaiBaru ThentxtDisplay.Text = Format$(Index)NilaiBaru = FalseElsetxtDisplay.Text = _txtDisplay.Text & Format$(Index)End IfEnd Sub' tombol tambah/kurang/bagi/kaliPrivate Sub cmdOperator_Click(Index As Integer)cmdSamaDengan_ClickOperator = IndexNilaiBaru = TrueEnd Sub
' merubah tanda +/-Private Sub cmdPlusMinus_Click()If NilaiBaru ThentxtDisplay.Text = "-"ElseIf Left$(txtDisplay.Text, 1) = "-" ThentxtDisplay.Text = Right$(txtDisplay.Text, 2)ElsetxtDisplay.Text = "-" & txtDisplay.TextEnd IfEnd Sub
' filter untuk angka saja yg dapat diketikkanPrivate Sub Form_KeyPress(KeyAscii As Integer)txtDisplay_KeyPress KeyAsciiEnd SubPrivate Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)txtDisplay_KeyUp KeyCode, ShiftEnd Sub' supaya kursor tetap di kananPrivate Sub txtDisplay_Change()txtDisplay.SelStart = Len(txtDisplay.Text)End SubPrivate Sub txtDisplay_GotFocus()txtDisplay_ChangeEnd Sub
' untuk mengetikkan angka di keyboardPrivate Sub txtDisplay_KeyPress(KeyAscii As Integer)Dim ch As Stringch = Chr$(KeyAscii)Select Case chCase "0"cmdAngka_Click 0Case "1"cmdAngka_Click 1Case "2"cmdAngka_Click 2Case "3"cmdAngka_Click 3Case "4"cmdAngka_Click 4Case "5"cmdAngka_Click 5Case "6"cmdAngka_Click 6Case "7"cmdAngka_Click 7Case "8"cmdAngka_Click 8Case "9"cmdAngka_Click 9Case "*", "x", "X"cmdOperator_Click opKaliCase "+"cmdOperator_Click opTambahCase vbCrLf, vbCr, "="cmdSamaDengan_ClickCase "-"cmdOperator_Click opKurangCase "."cmdKoma_ClickCase "/"cmdOperator_Click opBagiCase "C", "c"cmdClearEntry_ClickEnd SelectKeyAscii = 0End Sub
' untuk ketikan angka di numpadPrivate Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)Select Case KeyCodeCase vbKeyNumpad0cmdAngka_Click 0Case vbKeyNumpad1cmdAngka_Click 1Case vbKeyNumpad2cmdAngka_Click 2Case vbKeyNumpad3cmdAngka_Click 3Case vbKeyNumpad4cmdAngka_Click 4Case vbKeyNumpad5cmdAngka_Click 5Case vbKeyNumpad6cmdAngka_Click 6Case vbKeyNumpad7cmdAngka_Click 7Case vbKeyNumpad8cmdAngka_Click 8Case vbKeyNumpad9cmdAngka_Click 9Case vbKeyMultiplycmdOperator_Click opKaliCase vbKeyAddcmdOperator_Click opTambahCase vbKeySeparatorcmdSamaDengan_ClickCase vbKeySubtractcmdOperator_Click opKurangCase vbKeyDividecmdOperator_Click opBagiCase vbKeyDecimalcmdKoma_ClickCase vbKeyBack, vbKeyDeleteHapusEnd SelectKeyCode = 0End Sub

Halo Sobat blogger :)

Program untuk membuat jam digital dengan Visual Basic merupakan program yang relatif sederhana. Hanya diperlukan sebuah form dan beberapa baris pemrograman saja.
Desainlah form seperti terlihat pada gambar 1. Kontrol timer dapat diletakkan di mana saja karena tidak akan terlihat pada saat runtime. Kemudian beberapa kontrol yang ada harus diubah nilai propertinya sesuai dengan tabel berikut:

Control Properti Nilai
Form BorderStyle 1 – Fixed Single
Caption Jam Digital
TextBox Name TxtJam
Text [kosong]
Command Button Name CmdExit
Caption E&xit
Timer Interval 1000

Tambahkan kode program ke dalam form tersebut seperti diberikan pada listing 1. Pada prinsipnya, pada saat form di load, teks pada txtJam harus menunjukkan waktu saat itu yang diberikan oleh objek Time. Kemudian setiap interval yang ditentukan pada kontrol Timer, teks pada txtJam juga diupdate sesuai dengan waktu saat itu.
Hasil eksekusi program tersebut terlihat pada gambar 2.


contoh gambar 1 :

Seperti judulnya di atas cara membuat file private kita tidak ketahuan orang lain tinggal agan praktekkan di pc agan
1. buat sebuah folder nama apa saja boleh (contoh disini : New Folder)
2. buka notepad, copy - kan script dibawah ini [kata Code tidak termasuk] ke note pad dan simpan dengan nama : "kunci.bat"
Code: 

Quote:
Quote: cls
@ECHO OFF
title Folder Private
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== password here goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
:End

pada baris if NOT %pass%== password here goto FAIL
ganti password here dengan password anda

3. nah sekarang kembali ke folder yang anda buat tadi, didalamnya ada file dengan nama "kunci.bat"
4. klik dua kali "kunci.bat", akan muncul sebuah folder dengan nama "Private"
5. copy file-file yang anda anggap perlu di privatekan ke folder "Private" tersebut
6. setelah dicopy file2 yang kita inginkan langsung klik "kunci.bat" lagi, nanti ada pertanyaan
Are you sure you want to lock the folder(Y/N) pilih Y
7. lihat hasilnya
untuk membuka folder tersebut klik dua kali "kunci.bat"
masukkan password anda Keren kan?
100% work tested by zona 314

Nah, di sini saya mempunyai 2 cara untuk mempercepat proses booting windows xp di komputer anda. Khusus untuk windows xp ya, windows 7/vista saya belum pernah coba. Simak baik2 langkah-langkahnya, jangan sampai salah ok!

Mempercepat Booting dengan Otomatis Hapus File Prefetch

Setiap kali kita booting windows, OS windows kita akan buat file simpanan dari kegiatan sebelumnya. Nah, file itu biasanya ada di folder Prefetch di direktori windows (%SystemRoot%Prefetch), atau mungkin temen pastinya dah tau kan, hehe…
Kalo di folder tersebut banyak tersimpan file2 savingan sebelum2nya bisa bikin windows kita jadi lelet pas booting/start up. Nah, dengan cara ini akan secara otomatis menghapus file2 yang tersimpan di %SystemRoot%Prefetch setiap kali kita shut down atau restart komputer.

1. Pertama buka notepad  atau ketik di run notepad
2. ketik dalam notepad dengan isian : “del c:windowsprefetchntosboot-*.* /q” (tanpa tanda petik) dan  save as dengan nama “ntosboot.bat” di C:
3. Buka Run n ketik “gpedit.msc”
4. Dobel klik “Windows Settings” di “Computer Configuration” lalu dobel klik lag di “Shutdown” di sebelah kanannya
5. Di jendela baru, klik “add, Browse”, trus pilih file “ntosboot.bat” yang tadi kita buat, klik open
6. Klik “OK”, “Apply” trus “OK” lagi n exit
7. Masuk run lagi, trus ketik “devmgmt.msc”
8. Dobel klik di “IDE ATA/ATAPI controllers”
9. Klik kanan di “Primary IDE Channel” trus pilih “Properties”
10. Pilih “Advanced Settings” di tab, kemudian di “device type” pilih “autodetect” (biasanya sih emang auto detect, tapi sekedar untuk chek aja, dan klik “OK”;
11. Trus di “Secondary IDE channel”, klikm kanan pilih “Properties” trus ulangi ajah kyak langkah nomor sepuluh tadi
12. Selesai… reboot komputer, dijamin pasti lebih cepat.

Memperercepat booting dengan defrag boot

Untuk cara yang kedua ini adalah dengan melakukan boot defrag. Boot defrag dapat mempercepat proses starup windows dengan menempatkan boot file pada posisi yang berdekatan antara satu dan lainnya. Fitur ini sebenanya sudah secara default berjalan pada windows xp. Tapi jika anda pernah meng-upgrade windows xp anda, maka fitur ini tidak akan berfungsi. Untuk itu anda harus mengaktifkannya secara manual.
Untuk dapat mengaktifkan fitur tersebut, Anda dapat mengikuti langkah berikut:

1. Tekan tombol Start, kemudian pilih Run. Anda juga dapat membuka jendela Run dengan menekan kombinasi tombol Windows + R. Pada kotak yang tersedia, ketik "regedit"tanpa tanda petik, untuk membuka jendela Registry Editor. Setelah itu, tekan tombol Enter.
2. Setelah jendela Registry Editor terbuka, arahkan pada"HKEY_LOCAL_MACHINESOFTWAREMicrosoftDfrgBootOptimizeFunction".
3. Pilih "Enable" dari daftar yang terdapat pada bagian kanan.
4. Klik kanan, kemudian pilih "Modify".
5. Ubah nilai ke "Y" untuk mengaktifkan dan "N" untuk menon-aktifkannya.
6. Restart komputer Anda.

 Ya gua mau share cara membuat burung twitter terbang di blog.

Cara nya :

1 . login blog ente gan :p

2.  Pergi ke Layout

3. Add Gadget terus > Html/Javascript

<!-- floating twitter Bird -->
<script type="text/javascript" src="http://bloggerpeer.googlecode.com/files/tripleflap.js"></script>
<script type="text/javascript">
var birdSprite="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJQesVKDMJXfUgtH2J_nDBpJa0QNVE3S-XXg6rY5_scD4rqTuvEXRPEWF71vnm7V3CMFcnY2tRJ5WY_O5ZIHoTOUnX1y-VWAeadhNwpo-YBJrqNlc7tSPyLli8u6_aqiRsvrZ9tWBQydY/s1600/Blue+bird.png";
var targetElems=new Array("img","hr","table","td","div","input","textarea","button","select","ul","ol","li","h1","h2","h3","h4","p","code","object","a","b","strong","span");
var twitterAccount = "http://twitter.com/Username";
var tweetThisText = "Twitter - UserID http://pm-314.blogspot.com/";
tripleflapInit();
</script>

6. edit bagian "username sama "userID"

Halo gan ..
Gua mau share Software nih , nama software nya prosess hacker.
guna nya software ini kaya task manager. tapi ini lebih canggih (menurut gua)

Langsung aja gan di download software nya

Download : Klik di sini

Jangan lupa tinggalkan komentar ya gan..
dan di follow ya blog ini :)

Gan gua mau share sesuatu nih. 
gua mau share cara buat jam di blog. ini mah contoh aja kaya jam Garuda indonesia

Ikuti langkah - langkah ini ya ^_^

1. login blog agan dulu 
2. script nya : di sini
3. Pergi ke Layout
4. add a gedget
5. pilih " HTML/JavaScript "
6. paste script yang udah di download
7. save dah..