Mengetahui Keyascii Keyboard dengan VB 6.0

Cara mengetahi Keyascii yang di tekan pada keyboard  berikut kodenya

Private Sub Form_KeyPress(KeyAscii As Integer)
Msgbox KeyAscii
End Sub

Read More

[Vb6] Mengetahui Serial ID Cpu

Private Function CpuId() As String
Dim computer As String
Dim wmi As Variant
Dim processors As Variant
Dim cpu As Variant
Dim cpu_ids As String

    computer = "."
    Set wmi = GetObject("winmgmts:" & _
        "{impersonationLevel=impersonate}!\\" & _
        computer & "\root\cimv2")
    Set processors = wmi.ExecQuery("Select * from " & _
        "Win32_Processor")

    For Each cpu In processors
        cpu_ids = cpu_ids & ", " & cpu.ProcessorID
    Next cpu
    If Len(cpu_ids) > 0 Then cpu_ids = Mid$(cpu_ids, 3)

    CpuId = cpu_ids
End Function

Cara ke 2
Command1_Click()
Dim wmiLocator As New WbemScripting.SWbemLocator
    Dim wmiService As WbemScripting.SWbemServices
    Dim wmiProc As WbemScripting.SWbemObject
    '
    'Establish a connection to WMI
    Set wmiService = wmiLocator.ConnectServer
    '
    'Enumerate the processor IDs
    For Each wmiProc In wmiService.InstancesOf("Win32_Processor")
        MsgBox wmiProc.ProcessorID
    Next
End sub

Download Porject

Read More

[Vb6] Menghitung Jumlah Click Pada Button

Untuk mengetahui Jumlah Klik pada Tombol Masukan Kode Ini..

Private sub Command1_Click()
dim klik as integer
klik= klik+1
if klik = 3 then
msgbox "Tombol Telah Di Klik 3 kali"
end if

Download Project

Read More

[Vb6] Filter Adodc dan Datagrid

Masukan kode ini di bawah ini
fungsinya untuk menampilkan text yang di masukan di text box dan hanya itu saja yang keluar ...

If Adodc1.Recordset.RecordCount <> 0 Then 
Adodc1.Recordset.Filter = "Fieldnya '*" & txtcari.Text & "*'" 
Else 
MsgBox "Data tidak Ada!!", vbExclamation 
End If

Cara kedua :

Filter data dengan Textbox
Adodc1.Recordset.Filter = "NamaKolom like '%" + Me.Text1.Text + "%'"
‘jika anda mengetik huruf A maka data-data yang ada huruf A akan di tampilkan

Filter data dengan 2 pencarian textbox
Adodc1.Recordset.Filter = "Kolom1 like '%" + Me.Text1.Text + "%'and Kolom2 like '%" + Me.Text2.Text + "%'"

Read More

[VB6] Menghitung jumlah item pada listview

 

Buat 1 buah command button dan masukan kode di bawah untuk menghitung jumlah item yang ada pada listview

Private Sub Command1_Click()
Dim i As Integer
Dim Jumlah as string
For i = 1 To ListView1.ListItems.Count '- 1
Jumlah = (ListView1.ListItems(i).Index)  '.SubItems(1))
Next
MsgBox Jumlah
End Sub

Read More

3ds Max Membuat Objeck Bercahaya/Glow

Sudah Lama ngk update postingan 3ds max kali ini saya akan memberikan tutorial 3ds max secara gratis ,tutorial kali ini adalah membuat objeck bercahaya atau glow oke langsung aja ke tutorialnya >>Cekidot>>

Klik Pada tab Create>>Geometry>>Standart Primitive>>Sphere

 Lalu buat objek pada view perspective disini saya buat objeck sphere

 

Lalu Pada Material Editor Tekan (M) Pada Keyboard  Ubah warnanya dengan Mengklik warna Pada Kotak Diffuse

 

Lalu Pada Material Editor Pilih Material ID 1

 

Lalu Pada Rendering Pilih Environment

Lalu Pada  Tab Environment and Effects Klik (Add) >> Lalu Pilih Lends Effects

 

Setelah itu Pada Tab Lens Effects Parameter Klik Glow lalu Klik Tanda (>)

 

Lalu Pada Tab Glow Element Ubah Intensity nya jadi 60

Occulusion jadi 60 

Sizen Jadi 10

Untuk mengubah cahaya Glow nya Ubah pada Radial Color

 Berikut Hasil Akhirnya

Read More

Mengatasi masalah Komputer tetapi layar tidak tampil

Langkah pertama cek Memory.

Memory mempunyai pengaruh yang besar terhadap kinerja suatu komputer, dari awal komputer hidup sudah membutuhkan memory.
Sesuai pengalaman saya memperbaiki komputer, ini disebabkan oleh memory yang rusak. Setelah ganti memory, komputer kembali berjalan normal.
Langkah kedua cek Power Supply.
Bila langkah pertama belum/tidak berhasil, silahkan cek power supply, apakah power supply telah berfungsi dengan normal atau tidak. Biasanya tegangan (beda potensial) tidak ada di bagian tertentu di mother board. Bila anda punya keahlian khususnya dalam bidang elektronika, anda bisa cek kabel-kabel output power supply apakah tegangan yang dihasilkan sudah sesuai atau tidak, untuk mengetahui berapa tegangan yang dikeluarkan oleh kabel-kabel biasanya tertulis di badan power supply, anda bisa lihat dan mengukur menggunakan AVO meter, tetapi bila anda tidak tahu cara-cara diatas, silahkan ganti power supply dengan yang baru. Sekedar mengingatkan bahwa power supply pentium III berbeda dengan power supply pentium IV.
Langkah ketiga cek VGA dan Mother Board (main board).
Bila langkah pertama dan kedua belum/tidak berhasil silahkan cek mother board komputer anda. Sebelumnya cek terlebih dahulu VGA card, processor, lalu mother board. Sebagai pengalaman, komputer  saya pernah rusak mother boardnya, segala cara telah dilakukan, dicoba di komputer lain memang tidak menampilkan apa-apa, setelah ganti mother board maka semua berjalan dengan baik.
Komputer sering restart
Ini juga adalah pengalaman saya secara pribadi.
Bila komputer sering restart, penyebabnya dibagi dalam 2 kategori besar yaitu Hardware dan Software Komputer :
1. Hardware Komputer, yaitu :
a. Memory
Memory mempunyai pengaruh yang besar terhadap kinerja suatu komputer, bila komputer tidak menampilkan apa-apa bisa karena memory, atau komputer sering restart bisa juga karena memory.
Solusi: Coba ganti dengan memory lain.
Dalam banyak kasus, hal ini berhasil.
b. Power Supply
Bila Komputer sering restart, bisa juga dikarenakan Power Supply.
Solusi: Bila anda mempunyai keahlian dalam bidang elektronika dan/atau anda bisa mengukur tegangan pada kabel-kabel output power supply, silahkan anda coba dan memperbaiki power supply tersebut. Bila tidak, coba ganti dengan power supply lain, sebaiknya dengan yang baru.
Sesuai pengalaman, komputer tidak lagi restart.
c. Processor
Panas yang berlebihan dapat membuat komputer restart atau shutdown dengan sendiri. Heat sink (plat pendingin) yang menempel pada IC Processor perlu ditambahin pasta.
Solusi: Beli pasta processor di toko komputer lalu tambahkan pasta pada heat sink yang menempel pada IC Processor. Hati-hati dalam mengerjakan ini, jangan sampai processor anda jadi korban.
Sesuai pengalaman saya di warnet, hal ini berhasil dan komputer tidak lagi restart. Sangat disarankan agar anda menambahkan kipas pada casing komputer untuk membuang panas dan membuat dingin hardware dalam komputer anda.
d. Hardware tidak cocok/tidak compatible
Bisa juga dikarenakan ada hardware yang dipasang yang tidak compatible dengan hardware lainnya.
Solusi: Cabut/ganti hardware tersebut, bila anda bisa masuk windows cobalah lihat di “Device Manager”, disana akan terlihat semua hardware yang terpasang pada komputer. Bagi pengguna windows XP, untuk masuk ke Device Manager caranya: klik kanan my computer – Properties – Hardware – Device Manager.
2. Software Komputer, yaitu :
Disebabkan oleh “VIRUS” (kemungkinan besar), bisa juga dikarenakan software yang tidak cocok dengan hardware yang dipasang pada komputer. Untuk menangkal virus gunakanlah software yang bisa membekukan system anda, seperti Deepfreeze, Norton goback, dan lain-lain.

Read More

Cara membuat tv jadi lcd Komputer

Nama Alatnya adalah VGA TO RCA
Alat ini berguna Meng-convert dari port VGA komputer/laptop ke port RCA

Read More