Chusni Kurniawan Multimedia

bergerak di bidang jasa editing video dan photo. bertempat di Lumajang Jawa Timur - chusnikurniawan.blogspot.com

Logo Sementara CK Cel Com

silahkan kunjungi website kami untuk keterangan lebih lanjut - chusnikurniawan.blogspot.com

SGNL - buat panggilan handphone hanya dengan ujung jari

inovasi baru dalam dunia ponsel, sangat sederhana, hanya dengan menyentuh telinga anda dengan ujung jari telunjuk.

SMARTPHONE DENGAN TEKNOLOGI SOLAR PANEL PHONE

smartphone ini telah ditambatkan solar panel (tenaga listrik bersumber dari matahari) untuk dijadikan sumber pengisi baterai

CARA SETTING ROUTER 2 (DUA) SEBAGAI PEMANCAR WIFI KE 2 (DUA) / LAN-LAN

anda ingin memperluas jaringan wifi anda dirumah atau dikantor? punya router tapi tidak di pakai? baiknya anda gunakan sebagai peluas jaringan wifi anda dirumah/dikantor anda

Senin, 17 Desember 2018

CARA SERVER VIRTUAL BOX DIKERJAKAN DI RUMAH via ZTE F609


assalamu'alaikum wr. wb. kepada sahabat OPERATOR semua

kali ini saya akan membahas cara agar server ARD / VIRTUAL BOX agar bisa di kerjakan dirumah via speedy atau ROUTER ZTE F609, yai

1. buka wifi (koneksikan ke wifi utama F609 bukan wifi hasil DHCP/BRIDGE)
2. klik kanan pilih "status", setelah itu klik tombol "detail"

----
jika windows 8/10 maka dilakukan dengan cara via control panel
Control Panel\Network and Internet\Network Connections\
kemudian pilih wifi adapternya, dan anda masih nyampe no 2. klik kanan pilih "status", setelah itu klik tombol "detail" (jika sudah mengerti lihat status wifi, abaikan ini)
----

3. lihat di status IPV4 Address contoh : 192.168.1.3 (catet)
4. jangan lupa buka ARD Masing-masing dulu

setelah itu,
CARA SETTING FORWARDING AGAR BISA CONNECT / bisa DIKERJAKAN DIRUMAH

5. buka ZTE F609 (192.168.1.1) user : user password : user (default)
6. pergi ke application listklik Click here to add an application.
Application Name : ARD, klik save
protocol : 1000
WAN Start Port : 1000
WAN End Port 1000
Start Mapping Port : 1000
End Mapping Port 1000
klik add
7. pergi ke Port Forwarding ( Application List ), tulis/edit sebagai berikut :
WAN Connection : omci_ipv4_pppoe_1
LAN Host IP Address : isi sesuai status IPV4 komputer server (192.168.1.3)
app name : pilih yang sudah tertera yaitu : ARD

JALANKAN VIRTUAL BOX
Pilih ARD/UAMBK, setelah itu ke pengaturan
pilih "Jaringan / network"
adapter1 : attach for : "host only", advanced>>>promiscuous mode: "allow all"
adapter2 : attarch for : "NAT", advanced>>>penerusan port/port forwarding [klik]:
                pengaturan di port forwarding : 
                Name : Rule1, protocol : TCP, HostIP:[kosongi], Hostport:1000,
                GuestIP:[sesuaiIPserverVDI '192.168.0.101], Guestport:80, [selesai isi, klik OK semua]

klik START untuk memulai PELUNCURAN SERVER                 

selesai.


untuk membukanya dengan cara :
http://ippublic[cari di google "my ip address"]:1000
http://180.254.55.192:1000


wassalamu'alaikum Wr Wb,, 
SALAM OPERATOR






c.kurniawan@ymail.com

Jumat, 26 Oktober 2018

cara Spin Button BISA KLIK / JALAN DI sheet YANG DI PROTEKSI (PROTECT)

saat sheet di proteksi dan ingin ngeklik spin button nya. eh... malah keluar peringatan kyk gini

cara agar spin button bisa di klik, bisa dilakukan dengan langkah-langkah dibawah ini :
1. hilangkan proteksi tentunya pada sheet yang di protect
2. blok SPINBUTTON dan SEL (SUMBER ANGKA)


3. buka"format cell (ctrl+1) kemudian pilih "Protection", 
4.hilangkan centang pada "locked"

lihat dan cobalah klik spin button yang tidak bisa di klik tadi. SELAMAT MENCOBA

c.kurniawan@ymail.com

Jumat, 31 Agustus 2018

cara membuat LOGIN excel

PERHATIAN!!!
harap bersabar dan ikuti langkah2 berikut ya?
ada pepetah mengatakan "biar lambat asal selamat"

bahan2 yang perlu di siapkan
3 LABEL =
LABEL 1 UNTUK "SILAHKAN LOGIN"
LABEL 2 UNTUK "USERNAME"
LABEL 3 UNTUK "PASSWORD"

2 TEXTBOX
TEKSBOX 1 UNTUK ISIAN USERNAME
TEXTBOX 2 UNTUK ISIAN PASSWORD

2 COMMAND BUTTON
COMMAND BUTTON 1 UNTUK KLIK LOGIN
COMMAND BUTTON 2 UNTUK CANCEL

sampai disini sudah mengerti? kalo belum coba baca lagi sebelum anda melihat di bawah ini

----------------------------

kalo sudah mengerti LANJUTTT

SILAHKAN BENTUK FORMASI LABEL, TEXTBOX, DAN COMMAND BUTTON sesuai dengan selera anda masing2.

selanjutnya yaitu : yang paling penting terletak di TEXTBOX DAN COMMAND BUTTON, karena jika salah tidak akan bekerja

ganti
TEXTBOX1 ganti dg NAMA "TxtUser"  (nanti di pengaplikasiannya tidak usah petik)
TEXTBOX1 ganti dg NAMA "TxtPswd"  (nanti di pengaplikasiannya tidak usah petik)

COMMAND BUTTON ke1 (pilih mana saja pokok untuk klik login nantinya) ganti dg "CmdLogin"
COMMAND BUTTON ganti dg "CmdCancel"

apakah sudah mengerti sampai disini?

kl belum coba lihat lagi dari atas

------------------------------------------------

kalo sudah mengerti LANJUTT

AGAR SEMUA BEKERJA
masukkan kode berikut di "frmlogin" klik kanan view code

paste kode berikut ini :


Private Sub CmdLogin_Click()

Set sh = Sheet75

If TxtUser.Value = "" Then

    MsgBox "Silahkan Masukkan User Name", vbExclamation + vbOKOnly, "Blank User Name"

    TxtUser.SetFocus

    Exit Sub

ElseIf TxtPswd.Value = "" Then

    MsgBox "Silahkan Masukkan Password", vbExclamation + vbOKOnly, "Blank Password"

    TxtPswd.SetFocus

    Exit Sub

ElseIf TxtUser.Value <> sh.Range("A2").Value Then

    MsgBox "User Name Salah/Tidak Terdaftar", vbCritical + vbOKOnly, "Error User Name"

    TxtUser.SetFocus

    Exit Sub

ElseIf TxtPswd.Value <> sh.Range("B2").Value Then

    MsgBox "Password Salah, Silahkan ulangi lagi", vbCritical + vbOKOnly, "Error Password"

    TxtPswd.SetFocus

    Exit Sub

End If

MsgBox "Selamat Anda berhasil Login", vbInformation + vbOKOnly, "Login Sukses"

Unload Me

Sheet2.Activate

End Sub



Private Sub CmdCancel_Click()

ThisWorkbook.Close savechanges:=True

End Sub



Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub



Private Sub FrmLogin_queryclose(Cancel As Integer, CloseMode As Integer)

If CloseMode <> 1 Then Cancel = True

End Sub



Private Sub CommandButton1_Click()

End Sub



Private Sub Label6_Click()

End Sub



Private Sub TxtPswd_Change()

End Sub



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode <> 1 Then Cancel = True

End Sub


UNTUK PERCOBAAN BEKERJA ATAU TIDAK COBA KLIK F5

------------

agar EXCEL HILANG SEMENTARA saat LOGIN
masukkan kode berikut di THISWORKBOOK (saat melihat kode F11)

Private Sub Workbook_Open()

Application.Visible = False

FrmLogin.Show

Application.Visible = True

End Sub
ingin tahu file nya?
silahkan unduh contoh file LOGIN EXCEL admin admin DISINI
c.kurniawan@ymail.com