Datang Lagi Dengan Segala Keluh Kesah

Lama juga gak posting, gak blogwalking, gak begadang ti peuting. Ada rasa kangen sekaligus hoream (males). Kangen karena lama gak melongok ke blog sobat-sobat (pastinya sudah mengalami banyak perubahan). Males karena rasa penat dan jumud (stagnan) tengah melanda otakku. Saking jumud-nya sampai-sampai aku bingung harus nulis apa untuk memulai blogging lagi. Padahal jika otakku lagi on, banyak tema yang bisa diangkat ke permukaan, terutama yang tengah rame dibicarakan saat ini, yaitu 9/12. Memang tema itu gak nyambung dengan deskripsi blog ini, tapi daripada gak ada tulisan sama sekali, tema 9/12 itu lebih menarik daripada cicak dan buaya yang beritanya tidak aku ikuti secara seksama, maklum di tempat diklat tak ada TV ataupun koran yang bisa aku baca. Menyedihkan memang, tapi begitulah keadaan orang yang tengah didiklat, seperti pesakitan yang dijerat pasal nyuri ayam.

Lho, kok jadi ngelantur ya? Ok deh sobat, pada postingan kali ini aku tidak akan banyak bicara. Aku hanya ingin mengucapkan banyak terima kasih kepada sobat semua yang telah begitu baik hati dengan menyempatkan diri mampir ke SC Community dan Sastra Culun. Semoga kebaikan sobat semua mendapatkan balasan dari Tuhan Yang Maha Esa dan mbah google, hehehe...

Inilah 8 Jenis Serangga dengan Tampang Seram Tapi Tidak Berbahaya Bagi Manusia

Halo!

Sobat DoroDeni.co.cc :)

1. THE GIANT HISSING COCKROACH

Hal-hal yang membuat merinding kebanyakan manusia serangga yang menjijikan, dan mereka memiliki banyak sekali varietas-nya, semakin besar seekor serangga membuat kita tambah takut untuk menyentuhnya.

Meskipun jumlah spesies serangga sebenarnya relatif kecil, dalam hal persentase, ada beberapa spesies memiliki tubuh yang besar dan sangat berbahaya. Memang beberapa jenis serangga yang seram tadi, bahkan dijadikan santapan para binatang jenis reptil, seperti kecoa Dubia Amerika Selatan.

Kecoa adalah makhluk salah satu yang menjijikan dan membuat kita amat terasa geli jika dia merayap diatas permukaan kulit kita, dan itu sangat mempengaruhi kesehatan manusia pada umumnya dan dengan jenis varietas bernama Devils Apprentice atau Death Head, spesies ini bahkan tidak terlalu mempengaruhi kesehatan manusia sama sekali karena dia tidak menggigit dan tidak memilik bau yang khas bahkan jenis ini sering dipelihara kolektor.


2. THE GIANT WETA

Meskipun tidak sedikit berbahaya untuk setiap manusia, Weta Giant benar-benar adalah bug yang akan membuat kamu ngeri untuk menyentuhnya. Memiliki panjang sekitar 20cm dan memiliki berat kurang lebih 35-40gr, serangga ini tidak menggigit ataupun melompat hanya saja untuk mengusir musuh, serangga ini memasang tampang sangar!!. Serangga ini banyak terdapat di Australia, Selatan Afrika dan Amerika Selatan.


3. THE TITAN BEETLE

Serangga sebangsa kumbang ini tampak sangat sangar dan menakutkan , Titan hanya terdapat di hutan hujan Amazon. Spesimen terbesar yang pernah diukur adalah memiliki panjang 16-17 cm, tetapi monster besar ini, sekali lagi, tidak berbahaya bagi manusia.


4. THE JERUSALEM CRICKET/ POTATO BUG

Serangga sangar ini sangat menyeramkan, bahkan sebagian orang AS sangat takut dan benci pada serangga ini. Potato Bug dapat ditemukan di sepanjang pantai Pasifik dari kedua Meksiko dan Amerika Serikat. Potato Bug memiliki rahang yang kuat. Itu bisa menimbulkan gigitan menyakitkan. Dia tidak memiliki racun apabila kamu tergigit, dan karena serangga ini sebangsa jangkrik jadi dia bisa mengeluarkan bunyi yang cukup nyaring. Dan untuk mempertahankan dirinya dari musuh maka jangkrik ini mengeluarkan bau yg tak sedap untuk mengusir musuh.


5. THE St, HELENA GIANT EARWIG

Serangga sangar ini hanya terdapat di pulau terpencil St Helena di Selatan Samudra Atlantik. Serangga ini memiliki panjang 80-100mm dan sepintas mirip kumbang. Dan kabarnya serangga ini sudah punah dan terakhir kali terlihat di tahun 1967 dan diyakini akan punah.


6. THE BLACK FOAM GRASSHOPPER

Sebangsa belalang yang memiliki warna hitam dan kombinasi strip merah dan biru dan serangga terkesan sangat menakutkan bagi siapa saja yang ingin menyentuhnya. Jika Grasshopper ini merasa terancam oleh musuhnya maka dia akan mengeluarkan busa berbau busuk untuk menghalau musuhnya. Bahkan bau busuk tersebut bisa mencapai radius 1 meter dari si"grasshopper".

Belalang Busa (orang Afrika menyebutnya demikian) banyak ditemukan di Selatan Afrika. Pertanyaannya adalah, bukan orang afrika saja yg hitam tetapi seranggannya pun hitam juga (hehehee..Just Kidding Guys).


7. THE CARNIVOROUS GIANT CENTIPIDE

Lipan adalah binatang yang sangat menakutkan bagi banyak orang. Inilah invertebrata darat terbesar di dunia, memiliki rata-rata panjang 12 inci. Lipan memangsa tidak hanya pada laba-laba Tarantula, tetapi juga pada burung, tikus, kelelawar dan katak, dengan racun yang ampuh. Kalau yang tergigit adalah manusia maka efeknya tidak terlalu fatal, hanya demam dan bengkak.

Dua taring memiliki kelenjar racun, dan meskipun tidak terlalu beracun bagi manusia, racun bisa menyebabkan mual, berkeringat dan ketidaknyamanan . Monster ini sering banyak terdapat disekitar kita.


8. THE GOLIATH BIRD-EATING SPIDER

Binatang sebangsa Tarantula yang memiliki panjang kaki antara 30 cm dan berat sekitar 170g. Inilah binatang kecil yang menurut saya paling seram. coba kamu bayangkan jika binatang ini merambat di tubuh kamu?? wow!!

Tarantula ini banyak terdapat di Hutan Amerika Selatan, dan tentu saja binatang ini tidak terlalu berbahaya bagi manusia. bahkan racun yang diakibatkan lebih lemah dari lebah.

Banyak kolektor yang mengumpulkan binatang ini, padahal kalau dilihat kasat mata si spider ini memiliki bulu-bulu halus diseluruh badan dan memiliki kaki yang panjang dan membuat semua manusia menjadi takut untuk menyentuhnya.

Cara Mengunci Komputer, Laptop, Notebook dengan Flashdisk

Cara Mengunci Komputer, Laptop, Notebook dengan Flashdisk

Cara Mengunci Komputer, Laptop, Notebook dengan Flashdisk - Apabila komputer pribadi anda tidak mau diganggu orang lain karena banyak file-file atau data pribadi anda takut dibuka orang, anda dapat menguncinya dengan mengunakan software ID UB Lock Key 1.2 yang diletakkan di flashdisk. Jadi fungsi flasdisk ini nantinya yang sudah dimasuki key master dari ID UB Lock Key 1.2 dapat digunakan sebagai kunci untuk komputer/pc, laptop atau notebook anda. Apabila flashdisk ini dicabut dari komputer, maka flashdisk itu menjadi kuncinya dan untuk membukanya kembali, flasdisk tersebut harus dicolokin lagi ke komputer.Cara Mengunci Komputer
dengan Flashdisk

Untuk menjalankan, anda harus download dahulu software ID UB Lock Key 1.2, daripada anda masih harus mencari softwarenya, untuk lebih mudahnya anda klik saja link download dibawah ini.

Download ID UB Lock Key 1.2

Kalau software ID UB Lock Key 1.2 sudah anda download, lalu jalankan/install software ID UB Lock Key 1.2 key (pastikan sudah di crack dan supaya menjadi full versi).

Selanjutnya anda mulai masukkan flashdisk, lalu klik Generate key untuk mendapatkan key masternya. Kalu sudah coba anda cek isi flashdisk, nantinya akan ada file seperti ini "IDECCB-F98A.txt" atau bisa kode lain.

Untuk ngetesnya, coba lepaskan flashdisk anda dari komputer, lalu klik kanan icon yang terletak di system tray (letaknya ada di paling bawah komputer anda), selanjutnya klik "Lock the computer". Jadi apabila anda mau mengaktifkan lagi, anda tinggal colokin lagi flashdisk anda ke komputer.Cara Mengunci Komputer
dengan Flashdisk terbaru 2013

Nah selamat mencoba Mengunci Komputer, Laptop, Notebook dengan Flashdisk, semoga bermanfaat, salam : Dan baca juga info Membuat Keyboard Komputer Berlampu Disco edisi terbaru

Membuat Aplikasi Konversi Bilangan dengan VB

Konversi bilangan adalah perubahan bilangan yang biasanya kita kenal seperti bilangan biner, hexadesimal, desimal dan oktal. Dimana sistem bilangan ini wajib kita pahami untuk seorang mahasiswa Teknik Elektro apalagi ingin menjadi seorang Programmer.
1. Desimal
Bilangan desimal adalah bilangan yang mempunyai sepuluh simbol angka yaitu 0,1,2,3,4,5,6,7,8,9.
2. Heksadesimal
Bilangan heksadesimal adalah bilangan yang mempunyai enam belas simbol angka yaitu 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F.
3. Biner
Bilangan Biner adalah bilangan yang mempunyai dua simbol 0 dan 1
4. Oktal
Bilangan heksadesimal adalah bilangan yang mempunyai delapan simbol angka yaitu 0,1,2,3,4,5,6,7

Berikut tabel Konversi Bilangan:

Desimal	Biner	Oktal	Hexadesimal
0	0	0	0
1	1	1	1
2	10	2	2
3	11	3	3
4	100	4	4
5	101	5	5
6	110	6	6
7	111	7	7
8	1000	10	8
9	1001	11	9
10	1010	12	A
11	1011	13	B
12	1100	14	C
13	1101	15	D
14	1110	16	E
15	1111	17	F

Baiklah kita akan membuat program Aplikasi Konversi Bilangan dengan VB dimana aplikasi ini akan membantu anda mengkonversikan bilangan secara cepat dan tepat :
1. Seperti biasa buatlah New Project pada software VB anda kemudian tambahkan 11 label, 2 textbox, 2 frame, 8 optionbutton, dan 3 commandbutton.
2. Desainlah menjadi seperti gambar dibawah ini :

3. Dan setiap beri nama setiap textbox dan optionbutton seperti text warna coklat tersebut, mengganti namanya di Propertiesbar. Jika ada kekeliruan form tidak berjalan dengan sempurna :v
4. Lalu Copy code/script dibawah ini

Untuk Tombol Clearnya
Private Sub cmdclear_Click()
txtmasuk.Text = ""
txtkeluar.Caption = ""
txtmasuk.SetFocus
optdesimalm.Value = False
optbinerm.Value = False
optoktalm.Value = False
optheksam.Value = False
optdesimalk.Value = False
optbinerk.Value = False
optoktalk.Value = False
optheksak.Value = False
End Sub
Untuk Tombol Exitnya
Private Sub cmdexit_Click()
x = MsgBox("Do you want to exit now ?", vbYesNo, "Information")
If x = vbYes Then
Unload Me
Else
End If
End Sub

Untuk Tombol Konversinya
Private Sub cmdkonversi_Click()
If optbinerm.Value And optdesimalk.Value Then txtkeluar.Caption = BinToDes(txtmasuk.Text)
If optbinerm.Value And optbinerk.Value Then txtkeluar.Caption = txtmasuk.Text
If optbinerm.Value And optoktalk.Value Then txtkeluar.Caption = BinToOk(txtmasuk.Text)
If optbinerm.Value And optheksak.Value Then txtkeluar.Caption = BinToHex(txtmasuk.Text)
If optdesimalm.Value And optbinerk.Value Then txtkeluar.Caption = DesToBin(txtmasuk.Text)
If optdesimalm.Value And optdesimalk.Value Then txtkeluar.Caption = txtmasuk.Text
If optdesimalm.Value And optoktalk.Value Then txtkeluar.Caption = DesToOk(txtmasuk.Text)
If optdesimalm.Value And optheksak.Value Then txtkeluar.Caption = DesToHex(txtmasuk.Text)
If optoktalm.Value And optbinerk.Value Then txtkeluar.Caption = OkToBin(txtmasuk.Text)
If optoktalm.Value And optheksak.Value Then txtkeluar.Caption = OkToHex(txtmasuk.Text)
If optoktalm.Value And optdesimalk.Value Then txtkeluar.Caption = OkToDes(txtmasuk.Text)
If optoktalm.Value And optoktalk.Value Then txtkeluar.Caption = txtmasuk.Text
If optheksam.Value And optbinerk.Value Then txtkeluar.Caption = HexToBin(txtmasuk.Text)
If optheksam.Value And optdesimalk.Value Then txtkeluar.Caption = HexToDes(txtmasuk.Text)
If optheksam.Value And optoktalk.Value Then txtkeluar.Caption = HexToOk(txtmasuk.Text)
If optheksam.Value And optheksak.Value Then txtkeluar.Caption = txtmasuk.Text

With txtmasuk
.SelStart = 0
.SelLength = Len(txtmasuk.Text)
End With
End Sub

Public Function BinToDes(ByVal NBiner As String) As Long
Dim A As Integer
Dim B As Long
Dim Nilai As Long
On Error GoTo ErrorHandler
B = 1
For A = Len(NBiner) To 1 Step -1
If Mid(NBiner, A, 1) = "1" Then Nilai = Nilai + B
B = B * 2
Next
BinToDes = Nilai
Exit Function
ErrorHandler:
BinToDes = 0
End Function


Public Function DesToBin(ByVal NDesimal As Long) As String
Dim C As Byte
Dim D As Long
Dim Nilai As String
On Error GoTo ErrorHandler
D = (2 ^ 31) - 1
While D > 0
If NDesimal - D >= 0 Then
NDesimal = NDesimal - D
Nilai = Nilai & "1"
Else
If Val(Nilai) > 0 Then Nilai = Nilai & "0"
End If
D = D / 2
Wend
DesToBin = Nilai
Exit Function
ErrorHandler:
DesToBin = 0
End Function

Public Function DesToHex(ByVal NDesimal As Long) As String
DesToHex = Hex(NDesimal)
End Function

Public Function HexToDes(ByVal NHexa As String) As Long
Dim E As Integer
Dim Nilai As Long
Dim F As Long
Dim CharNilai As Byte
On Error GoTo ErrorHandler
For E = Len(NHexa) To 1 Step -1
Select Case Mid(NHexa, E, 1)
Case "0" To "9": CharNilai = CInt(Mid(NHexa, E, 1))
Case Else: CharNilai = Asc(Mid(NHexa, E, 1)) - 55
End Select
Nilai = Nilai + ((16 ^ F) * CharNilai)
F = F + 1
Next E
HexToDes = Nilai
Exit Function
ErrorHandler:
HexToDes = 0
End Function
Public Function DesToOk(ByVal NDesimal As Long) As String
DesToOk = Oct(NDesimal)
End Function

Public Function OkToDes(ByVal NOktal As String) As Long
Dim G As Integer
Dim H As Long
Dim Nilai As Long
On Error GoTo ErrorHandler
For G = Len(NOktal) To 1 Step -1
Nilai = Nilai + (8 ^ H) * CInt(Mid(NOktal, G, 1))
H = H + 1
Next G
OkToDes = Nilai
Exit Function
ErrorHandler:
OkToDes = 0
End Function

Public Function BinToOk(ByVal bin As Long) As String
BinToOk = DesToOk(BinToDes(bin))
End Function

Public Function BinToHex(ByVal NBiner As Long) As String
BinToHex = DesToHex(BinToDes(NBiner))
End Function

Public Function OkToBin(ByVal NOktal As Double) As String
OkToBin = DesToBin(OkToDes(NOktal))
End Function
Public Function OkToHex(ByVal NOktal As Double) As String
OkToHex = DesToHex(OkToDes(NOktal))
End Function

Public Function HexToBin(ByVal NHexa As String) As String
HexToBin = DesToBin(HexToDes(NHexa))
End Function

Public Function HexToOk(ByVal NHexa As String) As Double
HexToOk = DesToOk(HexToDes(NHexa))
End Function

Private Sub FrKonBil_Load()
Welcome = MsgBox("Konversi Bilangan by Chimpunk!", vbInformation, "Thanks to XTKJD")
If Welcom = okvb Then
Unload Me
Else
OpenURL "http://blogspot.com", Me.hWnd
End If
Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
txtmasuk.Text = ""
txtkeluar.Caption = ""

End Sub

Private Sub Form_Load()

End Sub

5. Lalu Paste code/script tadi ke Jendela Code, (View Code).
6. Coba Run/Play form tadi.
7. Tadaaa! udah jadi. Selamat bereksperimen Gan

Cara Merubah Tulisan Poskan Komentar dengan Gambar

Cara Merubah Tulisan Poskan Komentar dengan Gambar - Pada postingan kali ini saya akan share kepada sobat yaitu Cara Merubah Tulisan Poskan Komentar dengan Gambar. Pasti banyak yang tidak tahu gimana sih cara merubah/mengganti tulisan poskan komentar yang terdapat di atas kolom komentar dengan gambar. Nah, berikut Langkah - langkah Cara Merubah Tulisan Poskan Komentar dengan Gambar : 

1. Login ke Blogger sobat. 

2. Pilih menu Rancangan => Edit HTML => Centang Expand Template Widget 

3. Cari kode <data:postCommentMsg/> (Tekan Ctrl+f untuk mempermudah pencarian kode)

4. Biasanya kode diatas terdapat dua, ganti keduanya dengan kode dibawah ini

<img src=http://i1108.photobucket.com/albums/h405/christian410/sderd.jpg alt=Gambar Komentar/>

Keterangan : Yang berwarna Merah adalah URL gambarnya, sobat dapat menggantinya dengan URL gambar sobat.

Yang berwarna Biru ganti dengan tulisan sesuai keinginan sobat :)

5. Terakhir Klik Simpan Template. 

Semoga Bermanfaat :)