stmikbg-dot-com

kmarin malem, tepatnya pas gw lg ngnet tiba-tiba koneksi internet putus, komputer hank, trus kluar pesan error kayak gini nih

akhirnya pusing-pusing sambil browsing pake laptop temen, akhirnya ketemu beberapa tip untuk menghilangkan error ini. kurang lebih cara untuk menghapus error ini kayak gini:

 masuk ke jendela command prompt,
lalu ketikkan Netsh,
tunggu sebentar, setelah itu
ketik WinSock Habis itu
Ketik Reset,
trus restart koputer kamu.

akhirnya komputer gw ga error lg. jadi kaloq ada kejadian yang sama kayak gw kmarin, tinggal coba cara ini…
mudah-mudahan berguna bro

Dari postingan sebelumnya by broklyn, setelah dicoba ternyata ada langkah yang lebih sederhana lagi, kita tetap menggunakan event keydown, tapi kali ini yang keydown even pada form, Bukan even keydown pada kontrol lainnya misalnya textbox, combobox atau lainnya.

Yang jadi permasalahan yakni jika kita menggunakan event keydown pada control lainnya selain form, tentu kita harus menunggu dulu control tersebut mendapatkan focus baru event keydown bisa dieksekusi, jika permasalahan seperti diatas akan timbul masalah yang lebih banyak lagi yakni kita harus membuat code sebanyak control yang ada, wah sungguh repot ya?

Jika menggunakan event keydown pada form, apa kita harus menunggu form untuk mendapatkan focus juga? Untuk masalah ini ada solusinya yakni kita set property KeyPreview menjadi True bisa diset langsung ataupun saat runtime ( event Form_Load ). Seperti pada kode dibawah ini

Private Sub Form_Load()
 DoEvents
 Me.Top = 0
 Me.Left = 2999
 Me.KeyPreview = True
End Sub

Dan pada form juga manfaatkan event keydown dan tuliskan code seperti dibawah ini

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = 113 Then
  CmdNew_Click
 ElseIf KeyCode = 114 Then
  CmdAdd_Click
 ElseIf KeyCode = 116 Then
  CmdOk_Click
 ElseIf KeyCode = 121 Then
  CmdHitung_Click
 End If
End Sub

Untuk daftar nilai integer tombol fungsi ( F1 s/d F12 ) antara lain :

'112 = F1
'113 = F2
'114 = F3
'115 = F4
'116 = F5
'117 = F6
'118 = F7
'119 = F8
'120 = F9
'121 = F10
'122 = F11
'123 = F12

Selamat mencoba, buat broklyn terima kasih atas idenya kemarin. Make a good code bro.

Semalam saya sempat ditelpon sama teman yang kerja diperbankan, kebetulan teman saya ini dibagian IT nya, dikantornya sekarang telah ada internet menggunakan sebuah provider yang lumayan cukup besar. Sebagai informasi koneksi internet yang ada dikantor teman saya ini menggunakan jalur ADSL ( connect with adsl modem), dimana konfigurasi modem ini untuk konektivitas kekomputer menggunakan konektor rj45 ( LAN Cable).

Yang jadi permasalahan bagi teman saya, yakni bagaimana biar semua komputer bisa menggunakan koneksi internet dari komputer yang terhubung dengan modem. Saya sarankan untuk membuat internet connection share pada komputer yang telah terkoneksi dengan modem. Tapi memang saya juga tidak melihat keadaan fisik dari instalasi pada jaringan kantor teman saya ini, sehingga berhari-hari dia saya buat bingung ( Sorry bro). Untuk ilustrasi konfigurasi antara komputer dengan modem adsl seperti gambar dibawah ini :

Kemungkinan konfigurasi yang diset oleh providernya hanya untuk satu pc, seperti yang diperlihatkan pada gambar dibawah ini

(more…)

Incoming search terms:

• ics sharing tidak bisa

Setelah beberapa hari pusing dengan program-program yang belum juga selesai sampe skarang bersama sang Admin, akhirnya timbul pertanyaan Gw yang berasal dari mata turun ke hati yaitu ; bagaimana caranya menggunakan HotKey (F1,F2,……..,F12) di VB 6. akhirnya dengan tekad yang kuat dan semangat yang mengebu-gebu dengan sedikit surfing d internet, ehhhh…. ketemu jg caranya menggunakan HotKey yang Gw bilang td dengan kode yang bisa kalian CoPas seperti di bawah ini :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 113 Then
     MsgBox "GARA-GARA INI TAMBAH PUSING !"
  End If
End Sub

ada juga cara untuk mengetahui berapa nilai Integer dari KeyCode tersebut, denga Kode :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF10 Then
    MsgBox (vbKeyF10) 'Bisa juga dengan Print (VbKeyF10)
  End If
End Sub

nah… sekarang kalian aga perlu pusing lagi caranya menggunakan KeyCode, tinggal CoPas Script diatas.

Incoming search terms:

• KeyCode = 113 vb6

Tepatnya kemarin pas gw lg ujian JarKom, ada soal yang menanyakan, bagaimana carannya unutk menyembunyikan file sharing pada jaringan……. klik…klak…kluk sampe boker ga bisa-bisa,,, akhirnya dapat ditemukan caranya dengan cara menambahkan string `$` pada akhir dari ( Jangan Pake Spasi ) nama folder yang akan kita sharing… Bukan di foldernya langsung, melainkan di textbox pada saat kita centang di menu SharingFile.

Efeknya luar biasa,, file yang kita sharing ternyata tidak kelihatan ketika kita search di WorkGroup. file tersebut telah d hidden karena sudah ditambahkan string `$`

ada cara untuk mendapatkan file sharing yang sudah di hidden dengan cara; misalkan pencarian menggunakan addres bar di menu explorer contoh : \\[IP] atau [Komp Name]/[Langsung Menuliskan Nama Folder Yg Di Tuju]

nahhhh…. gampang khan soooo… coba aja ( Inget di Kembangin ya )