Tampilkan postingan dengan label Tutorial & Trik. Tampilkan semua postingan
Gua ( Zona 314 ) mau berbagi Cara buat auto like Beranda nih pake Google Script :)
Sumber Blog kawan Gw : Zona Devil
oke pertama lu harus punya
Akun Facebook ( wakwakkaw masa iya lu mau buat auto like kga punya FB )
Akun Gmail
Rokok dan kopi ( wakwakwak kaga wajib , tapi biar enjoy aje :3 )
Pertama lu login Facebook dulu Terus ambil Token, Bebas dimana aja, sorry gw kaga ada aplikasi buat ngambil token :D
Kedua Copy nih Script Auto Like ( Script Dibawah )
- Trus Edit bagian Token nya
- Buka Google Script
- Buat project baru
- Paste disitu
- trus setting tiggernya sesuai keinginan lalu Save
Judul Spoiler:
Terimakasih telah berkunjung diblog gua, Kalau bingung bisa tanya langsung ke gw Riyan
Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:
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
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 :
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 :
contoh gambar 2:
Listing 3. Membuat Jam Digital
Masukkan Code Jam Digitalnya Seperti contoh Di Bawah Ini !
Masukkan Code Jam Digitalnya Seperti contoh Di Bawah Ini !
Private Sub cmdExit_Click()
End
End Sub
Private Sub Form_Load()
txtJam.Text = Time
End Sub
Private Sub Timer1_Timer()
txtJam.Text = Time
End Sub
End
End Sub
Private Sub Form_Load()
txtJam.Text = Time
End Sub
Private Sub Timer1_Timer()
txtJam.Text = Time
End Sub
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
Jangan lupa Tinggalkan Komentar anda ya di blog ini (Y)
Oke, waktunya berbagi tips dan trik. Kali ini saya ingin share tips mempercepat booting xp. Apa itu booting? Booting dapat diartikan sebagai proses pada saat kita menghidupkan komputer sampai akhirnya sistem operasi mengambil alih proses. Dalam proses peralihan tersebut pastinya memakan waktu, tergantung spek komputer juga. Untuk yang spesifikasi komputernya tinggi mungkin proses booting tidak terlalu terasa. Tapi untuk spesifikasi komputer yang rendah, mungkin sedikit mengganggu ketika proses booting terlalu lama. Apa lagi saat kita di buru waktu, sedang booting windows kita lama. Yang ada jengkel dan maki2 komputer/laptop kita. hehe..
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.
- Pertama buka notepad atau ketik di run notepad
- ketik dalam notepad dengan isian : “del c:windowsprefetchntosboot-*.* /q” (tanpa tanda petik) dan save as dengan nama “ntosboot.bat” di C:
- Buka Run n ketik “gpedit.msc”
- Dobel klik “Windows Settings” di “Computer Configuration” lalu dobel klik lag di “Shutdown” di sebelah kanannya
- Di jendela baru, klik “add, Browse”, trus pilih file “ntosboot.bat” yang tadi kita buat, klik open
- Klik “OK”, “Apply” trus “OK” lagi n exit
- Masuk run lagi, trus ketik “devmgmt.msc”
- Dobel klik di “IDE ATA/ATAPI controllers”
- Klik kanan di “Primary IDE Channel” trus pilih “Properties”
- Pilih “Advanced Settings” di tab, kemudian di “device type” pilih “autodetect” (biasanya sih emang auto detect, tapi sekedar untuk chek aja, dan klik “OK”;
- Trus di “Secondary IDE channel”, klikm kanan pilih “Properties” trus ulangi ajah kyak langkah nomor sepuluh tadi
- 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:
- 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. - Setelah jendela Registry Editor terbuka, arahkan pada
"HKEY_LOCAL_MACHINESOFTWAREMicrosoftDfrgBootOptimizeFunction". - Pilih
"Enable"dari daftar yang terdapat pada bagian kanan. - Klik kanan, kemudian pilih
"Modify". - Ubah nilai ke
"Y"untuk mengaktifkan dan"N"untuk menon-aktifkannya. - Restart komputer Anda.
