BITCOIN GRATIS dan Coin lainnya

BITCOIN GRATIS dan Coin lainnya

  March 21, 2021   No comments:

Bitcoin merupakan salah CryptoCurrency yang bukan merupakan hal baru lagi pada tahun ini. Namun masih banyak juga yang awam terhadap cryptocurrency. Jumlah CryptoCurrency saat ini sangat banyak. Dengan melihat sejarah Harga Bitcoin sendiri, tentunya ini menggiurkan, apalagi bisa didapatkan secara GRATIS.

Untuk mendapatkan cryptocurrency dapat dilakukan dengan 3 cara.

1. Membeli CryptoCurrency

Diindonesia sudah ada beberapa marketplace untuk melakukan transaksi jual beli cryptocurrency salah satunya adalah INDODAX yang dulunya bernama BITCOIN INDONESIA. Silahkan daftar terlebih dahulu KLIK DISINI untuk REGISTER.

2. Menambang CryptoCurrency

Menambang atau Mining ini dapat dilakukan baik perorangan maupun perusahaan. Untuk menambang Bitcoin dan Altcoin lainnya diperlukan peralatan seperti RIG yang terdiri dari Kartu Grafis atau VGA berkecepatan tinggi. Hal ini tentu memerlukan biaya yang lumayan tinggi, sehingga tidak semua orang melakukan hal ini. Dalam melakukan Penambangan Bitcoin dan Altcoin kamu harus sudah memiliki Wallet atau Wadah untuk menampung Koin yang ditambang. Wallet atau wadah ini kamu bisa memanfaatkan seperti INDODAX yang saya sebutkan di atas. 

3. GRATIS

Makna gratis ini adalah kamu tidak perlu membeli maupun menambang dengan mengeluarkan biaya. Tapi tentunya GRATIS disini bukan mendapatkan secara cuma-cuma. Kamu harus melakukan sesuatu sesuai tempat yang menyediakan Altcoin secara Gratis. Misalkan kamu harus menyelesaikan survei, Roll, Klik Iklan dan lain-lain. Dari hasil pekerjaan kamu akan diberi imbalan atau bayaran berupa Bitcoin, Ethereum, Doge, dan Altcoin lainnya. Banyak juga yang menyebut MENAMBANG secara GRATIS.

Ada beberapa situs yang bisa kamu kunjungi untuk mendapatkan Bitcoin dan Altcoin lainnya :

1. FREE BITCOIN
2. FREE ETHERIUM
3. FREE LITECOIN
4. FREE DOGECOIN
5. FREE BTC
6. FREE TRON
7. FREE CARDANO (ADA)
8. FREE RIPPE (XRP)
9. FREE DASH
10. FREE CHAINLINK
11. FREE USDT
12. FREE USD COIN
13. FREE NEO

Situs di atas adalah tempat untuk mendapatkan cryptocurrency Gratis, hal yang dilakukan adalah melakukan Roll dan ada juga yang klik iklan serta melengkapi Survey.

Peringatan :

Penulis tidak menjamin bahwa situs-situs tersebut di atas benar-benar membayar / bukan merupakan scam. Semua keputusan untuk melakukan mining atau penambangan yang terdapat pada situs ini merupakan keputusan pengguna dan tidak ada paksaan.

Read More

Memberi Password PHPMyAdmin Xampp Versi 5

Memberi Password PHPMyAdmin Xampp Versi 5

  January 24, 2021   No comments:

 Untuk mengubah password dari user root melalui xampp, terlebih dahulu kita harus masuk halaman security:

• Jika baru saja menginstal XAMPP, halaman security dapat diakses melalui halaman depan: http://localhost kemudian klik bahasa english, selanjutnya klik menu security yang ada di sebelah kiri.
  

  Gambar 1. Halaman Depan XAMPP

• Jika halaman depan sudah kita modifikasi sehingga bukan xampp lagi, halaman security dapat langsung diakses dengan mengetikkan http:localhost/security/ pada browser.

Jika berhasil maka kita akan berada pada halaman depan xampp security, seperti tampak pada gambar berikut:

Gambar 2 . Halaman Depan XAMPP Security

Selanjutnya masuk ke halaman konfigurasi security dengan mengklik link seperti Gambar 2 (yang diberi kotak merah) atau langsung mengetikkan http://localhost/security/xamppsecurity.php pada browser. Jika berhasil kita akan masuk halaman konfigurasi security yang tampak seperti pada gambar ini:

Gambar 3. Halaman Konfigurasi Security Pada XAMPP

Silakan masukkan password yang kita inginkan kemudian klik Password changing. Pada bagian phpMyAdmin authentication, kita bisa memilih http atau cookie. Jika http maka ketika membuka phpMyAdmin akan langsung muncul promt window yang meminta kita untuk memasukkan username dan password MySQL.

Gambar 4. phpMyAdmin Promt Window

jika kita memilih cookie, maka ketika kita membuka phpMyAdmin, akan muncul form login di halaman depan phpMyAdmin yang tampak seperti gambar berikut:

Gambar 5. Halaman Login Pada phpMyAdmin

Read More

InputBox Tipe Password di Macro VBA Microsoft Excel

InputBox Tipe Password di Macro VBA Microsoft Excel

  May 22, 2020   1 comment:

Buatlah Sebuah Module dengan cara :

- Klik Menu Insert

- Pilih Module

setelah module dibuat, masukkan koding berikut ini :

Option Explicit
'----------------------------------
'API CONSTANTS FOR PRIVATE INPUTBOX
'----------------------------------

#If VBA7 Then
    Private Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As LongPtr, _
        ByVal ncode As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
    Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias _
        "GetModuleHandleA" (ByVal lpModuleName As String) As LongPtr
    Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
        (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr
    Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As Long
    Private Declare PtrSafe Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _
        (ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" _
        (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long
#Else
    Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
        ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare Function GetModuleHandle Lib "kernel32" Alias _
        "GetModuleHandleA" (ByVal lpModuleName As String) As Long
    Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
        (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _
        ByVal dwThreadId As Long) As Long
    Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
    Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _
        (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _
        ByVal wParam As Long, ByVal lParam As Long) As Long
    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
        (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
#End If

'Constants to be used in our API functions
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0

#If VBA7 Then
    Private hHook As LongPtr
#Else
    Private hHook As Long
#End If

'----------------------------------
'PRIVATE PASSWORDS FOR INPUTBOX
'----------------------------------

'////////////////////////////////////////////////////////////////////
'Password masked inputbox
'Allows you to hide characters entered in a VBA Inputbox.
'
'Code written by Daniel Klann
'March 2003
'64-bit modifications developed by Alexey Tseluiko 
'and Ryan Wells (wellsr.com)
'February 2019
'////////////////////////////////////////////////////////////////////

#If VBA7 Then
Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPtr
#Else
Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End If

    Dim RetVal
    Dim strClassName As String, lngBuffer As Long
    If lngCode < HC_ACTION Then
        NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
        Exit Function
    End If

    strClassName = String$(256, " ")
    lngBuffer = 255
    If lngCode = HCBT_ACTIVATE Then 'A window has been activated
        RetVal = GetClassName(wParam, strClassName, lngBuffer)
        If Left$(strClassName, RetVal) = "#32770" Then
            'This changes the edit control so that it display the password character *.
            'You can change the Asc("*") as you please.
            SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, asc("*"), &H0
        End If
    End If
    'This line will ensure that any other hooks that may be in place are
    'called correctly.
    CallNextHookEx hHook, lngCode, wParam, lParam
End Function

Function InputBoxDK(Prompt, Title) As String
#If VBA7 Then
    Dim lngModHwnd As LongPtr
#Else
    Dim lngModHwnd As Long
#End If

    Dim lngThreadID As Long
    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)
    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    InputBoxDK = InputBox(Prompt, Title)
    UnhookWindowsHookEx hHook
End Function

Untuk mencobanya silahkan buat sebuah form dan 1 buah commandbutton melalui menu Insert >> Userform :

doubleclick pada Commandbutton1 tersebut dan masukkan koding berikut ini :

 Dim x
    x = InputBoxDK("Silahkan Masukkan Password", "Password Required")
    If x <> "passwordkamu" Then
        MsgBox "Maaf Password Salah", vbInformation, "Pemberitahuan"
    Else
        MsgBox "Password Benar", vbInformation, "Pemberitahuan"
    End If

Silahkan coba Run.

Read More

Membuat Form Input VBA Microsoft Excel

Membuat Form Input VBA Microsoft Excel

  March 31, 2020   No comments:

Userform VBA Excel

Dengan mempelajari VBA Excel maka kita bisa membuat sebuah aplikasi profesional dengan mudah. VBA ini digunakan untuk mendasain sebuah Form yang mana Microsoft Excel sendirilah sebagai databasenya.

Bagi pemula tidak perlu khawatir, karena cara membuat sebuah aplikasi dengan memanfaatkan VBA Excel ini sangatlah mudah dipahami, jadi perlu memilik basic pemograman sekalipun.

Langsung saja.

1. Langkah Pertama Silahkan buka Microsoft Excelnya, kemudian Silahkan munculkan Tab Develover
Baca : Cara Memunculkan Tab Developer Micorosoft Excel

2. Buka Tab Developer Tersebut, Klik Visual Basic

3. Buatlah sebuah form (UserForm)

4. Buat lah :

• 5 LABEL
• 4  TextBox
• 1 CommandButton

5. Double Click pada Tombol Simpan, kemudian Masukkan Coding Berikut Ini :

    Dim No_Urut As Integer
    Set Aktif_Sheet = Worksheets("Sheet1")
    
    Baris_Terakhir = Aktif_Sheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

    Aktif_Sheet.Cells(Baris_Terakhir, 1) = TextBox1
    Aktif_Sheet.Cells(Baris_Terakhir, 2) = TextBox2
    Aktif_Sheet.Cells(Baris_Terakhir, 3) = TextBox3
    Aktif_Sheet.Cells(Baris_Terakhir, 4) = TextBox4

6. Silahkan di Run 


Untuk Lebih Jelasnya tentang Fungsi-Fungsi dari Coding Di atas silahkan Tonton :



#microsoftexcel #excel #vba #visualbasic #vbaexcel

Read More

Memunculkan Tab Developer yang Hilang Microsoft Excel

Memunculkan Tab Developer yang Hilang Microsoft Excel

  March 31, 2020   No comments:

Tab Developer pada excel secara default tidak ada, karena itu perlu dimunculkan terlebih dahulu. Tab Developer ini memang disediakan untuk seorang developer misalkan tujuan untuk memunculkan Tab Developer ini adalah untuk membuat Aplikasi dengan VBA Excel.

Dengan menggunakan VBA Excel kita dapat membuat sebuah aplikasi layaknya aplikasi pada umumnya.

Langkah Pertama Silahkan buka Microsoft Excelnya, kemudian Silahkan munculkan Tab Develover
cara untuk memunculkan tab Develover sebagai berikut :

Klik Tab FILE

Kemudian Pilih OPTION

Pilih CUSTOMIZE RIBBON kemudian ceklis DEVELOPER

Jika masih Kurang jelas Silahkan Tonton Video Berikut ini :

#microsoftexcel #developerexcel #vbaexcel

Read More

Cara Menambah Subscriber Youtube dengan Mudah

Cara Menambah Subscriber Youtube dengan Mudah

  September 01, 2019   1 comment:

Dijaman sekarang ini gadget sudah menyebar luas bahkan sampai ke desa pedalaman, bisa dikatakan bahwa gadget bukan lagi barang mewah melainkan suatu kebutuhan.

Pengguna gadget sering membuat video atau ngevlog dan kemudian di upload ke youtube. Banyak yang kemudian menjadi Youtuber. Youtuber sekarang bisa dikatakan sebuah pekerjaan yang sangat diminati terutama oleh kalangan kaum muda.

Tapi banyak youtuber yang pada akhirnya menyerah, karena subscriber tidak juga bertambah, ada yang frustasi untuk mendapatkan subscribers yang banyak.

Oleh karena itu, dalam blog ini saya membuat artikel tentang bagaimana menambah subscriber youtube dengan mudah, berikut caranya :

Pastikan anda sudah mendaftar di indoyousub.com, jika belum DAFTAR SEKARANG

Cara Mendaftar :
1. Buka Halaman Register

Catatan :

• Channel id : isi dengan Id channel anda. Jika bingung baca : Cara Mendapatkan Channel ID
• Email : isi dengan email anda yang aktif
• Password : isi dengan password minimal 8 karakter
• Confirm Password : Ulang password yang sama

2. Jika berhasil maka akan tampil seperti gambar di bawah ini :

3. Setting Berikan Koin Kepada Subscriber : ini adalah bayaran yang akan anda berikan kepada subscriber anda.

Semakin besar koin yang akan anda berikan, maka semakin banyak yang akan subscribe channel anda.

4. Menambah Koin Anda

• Buka menu KOIN GRATIS >> Subscribe

• Klik Tombol Subscribe dan lakukan subscribe channel youtube

• Setelah anda subscribe channel youtube, Close Popup tersebut dan tunggu, maka koin kamu akan bertambah

Semoga bermanfaat

Jika bingung caranya silahkan tonton video ini :

Read More

Membuat Tombol Simpan Vb Net dan MySql

Membuat Tombol Simpan Vb Net dan MySql

  November 26, 2017   No comments:

Ini untuk yang baru belajar pemrograman Visual Basic, video berikut ini sangat mudah diikuti, dijamin langsung bisa simpan.

Tapi anda harus sudah Tonton Video-video sebelumnya, supaya langkah demi langkah terikuti :

Berikut Video Cara menyimpan data dari VB Net ke Database MySql

Silahkan kunjungi channel Youtube kami : https://www.youtube.com/channel/UCMqvg-BUgFtRhRHUQ_MWcbw

Read More