CONTOH PROGRAM CATATAN BERBASIS JAVA

Contoh Program Catatan Berbasis Java - Postingan kali ini saya mau share program catatan seperti diary menggunakan netbeans. Walaupun sederhana tapi saya harap anda bisa mengembangkannya, program ini juga bisa ditandai catatan nya menggunakan warna. Jika dibuka ada yang error maka tidak perlu khawatir anda hanya perlu menambahkan jCalendar di library nya

.

Jika tertarik dengan program ini silahkan download filenya DISINI

Read More

FUNGSI KOMBINASI KEYBOARD PADA KOMPUTER

Pada kesempatan posting kali ini saya akan share kombinasi keboard yang ada di komputer, bagi sebagian orang yang "malas" untuk menggunakan mouse dan lebih memilih cara praktis dan cepat mungkin post ini bermanfaat. hehehe

oke langsung saja dibawah ini beberapa fungsi kombinasi keyboard:

CTRL+C (Copy)
CTRL+X (Cut)
CTRL+V (Paste)
CTRL+Z (Undo)
CTRL while dragging an item (Copy the selected item)
CTRL+SHIFT while dragging an item (Create a shortcut to the selected item)
CTRL+LEFT ARROW (Move the insertion point to the beginning of the previous word)
CTRL+DOWN ARROW (Move the insertion point to the beginning of the next paragraph)
CTRL+UP ARROW (Move the insertion point to the beginning of the previous paragraph)
CTRL+SHIFT with any of the arrow keys (Highlight a block of text)
CTRL+A (Select all)
CTRL+F4 (Close the active document in programs that enable you to have multiple documents open simultaneously)
CTRL+ESC (Display the Start menu)
ALT+ENTER (View the properties for the selected item)
ALT+F4 (Close the active item, or quit the active program)
ALT+ENTER (Display the properties of the selected object)
ALT+SPACEBAR (Open the shortcut menu for the active window)
ALT+SPACEBAR (Display the System menu for the active window)
ALT+Underlined letter in a menu name (Display the corresponding menu)
ALT+TAB (Switch between the open items)
ALT+ESC (Cycle through items in the order that they had been opened)
 DELETE (Delete)
SHIFT+DELETE (Delete the selected item permanently without placing the item in the Recycle Bin)
SHIFT with any of the arrow keys (Select more than one item in a window or on the desktop, or select text in a document)
SHIFT+F10 (Display the shortcut menu for the selected item)
F2 key (Rename the selected item)CTRL+RIGHT ARROW (Move the insertion point to the beginning of the next word)
F3 key (Search for a file or a folder)
F4 key (Display the Address bar list in My Computer or Windows Explorer)
F5 key (Update the active window)
F6 key (Cycle through the screen elements in a window or on the desktop)
F10 key (Activate the menu bar in the active program)
RIGHT ARROW (Open the next menu to the right, or open a submenu)
LEFT ARROW (Open the next menu to the left, or close a submenu)
BACKSPACE (View the folder one level up in My Computer or Windows Explorer)
ESC (Cancel the current task)
SHIFT when you insert a CD-ROM into the CD-ROM drive (Prevent the CD-ROM from automatically playing)
Dialog Box Keyboard Shortcuts
CTRL+TAB (Move forward through the tabs)
CTRL+SHIFT+TAB (Move backward through the tabs)
TAB (Move forward through the options)
SHIFT+TAB (Move backward through the options)
ALT+Underlined letter (Perform the corresponding command or select the corresponding option)
ENTER (Perform the command for the active option or button)
SPACEBAR (Select or clear the check box if the active option is a check box)
Arrow keys (Select a button if the active option is a group of option buttons)
F1 key (Display Help)
F4 key (Display the items in the active list)
BACKSPACE (Open a folder one level up if a folder is selected in the Save As or Open dialog box)

Microsoft Natural Keyboard Shortcuts
Windows Logo (Display or hide the Start menu)
Windows Logo+BREAK (Display the System Properties dialog box)
Windows Logo+D (Display the desktop)
Windows Logo+M (Minimize all of the windows)
Windows Logo+SHIFT+M (Restore the minimized windows)
Windows Logo+E (Open My Computer)
Windows Logo+F (Search for a file or a folder)
CTRL+Windows Logo+F (Search for computers)
Windows Logo+F1 (Display Windows Help)
Windows Logo+ L (Lock the keyboard)
Windows Logo+R (Open the Run dialog box)
Windows Logo+U (Open Utility Manager)

 Microsoft Internet Explorer Navigation
CTRL+B (Open the Organize Favorites dialog box)
CTRL+E (Open the Search bar)
CTRL+F (Start the Find utility)
CTRL+H (Open the History bar)
CTRL+I (Open the Favorites bar)
CTRL+L (Open the Open dialog box)
CTRL+N (Start another instance of the browser with the same Web address)
CTRL+O (Open the Open dialog box, the same as CTRL+L)
CTRL+P (Open the Print dialog box)
CTRL+R (Update the current Web page)
CTRL+W (Close the current window)

Accessibility Keyboard Shortcuts
Right SHIFT for eight seconds (Switch FilterKeys either on or off)
Left ALT+left SHIFT+PRINT SCREEN (Switch High Contrast either on or off)
Left ALT+left SHIFT+NUM LOCK (Switch the MouseKeys either on or off)
SHIFT five times (Switch the StickyKeys either on or off)
NUM LOCK for five seconds (Switch the ToggleKeys either on or off)
Windows Logo +U (Open Utility Manager)

 Windows Explorer Keyboard Shortcuts
END (Display the bottom of the active window)
HOME (Display the top of the active window)
NUM LOCK+Asterisk sign (*) (Display all of the subfolders that are under the selected folder)
NUM LOCK+Plus sign (+) (Display the contents of the selected folder)
NUM LOCK+Minus sign (-) (Collapse the selected folder)
LEFT ARROW (Collapse the current selection if it is expanded, or select the parent folder)
RIGHT ARROW (Display the current selection if it is collapsed, or select the first subfolder)

Shortcut Keys for Character Map
RIGHT ARROW (Move to the right or to the beginning of the next line)
LEFT ARROW (Move to the left or to the end of the previous line)
UP ARROW (Move up one row)
DOWN ARROW (Move down one row)
PAGE UP (Move up one screen at a time)
PAGE DOWN (Move down one screen at a time)
HOME (Move to the beginning of the line)
END (Move to the end of the line)
CTRL+HOME (Move to the first character)
CTRL+END (Move to the last character)
SPACEBAR (Switch between Enlarged and Normal mode when a character is selected)

 Microsoft Management Console (MMC) Main Window Keyboard Shortcuts
CTRL+O (Open a saved console)
CTRL+N (Open a new console)
CTRL+S (Save the open console)
CTRL+M (Add or remove a console item)
CTRL+W (Open a new window)
F5 key (Update the content of all console windows)
ALT+SPACEBAR (Display the MMC window menu)
ALT+F4 (Close the console)
ALT+A (Display the Action menu)
ALT+V (Display the View menu)
ALT+F (Display the File menu)
ALT+O (Display the Favorites menu)

MMC Console Window Keyboard Shortcuts
CTRL+P (Print the current page or active pane)
ALT+Minus sign (-) (Display the window menu for the active console window)
SHIFT+F10 (Display the Action shortcut menu for the selected item)
F1 key (Open the Help topic, if any, for the selected item)
F5 key (Update the content of all console windows)
CTRL+F10 (Maximize the active console window)
CTRL+F5 (Restore the active console window)
ALT+ENTER (Display the Properties dialog box, if any, for the selected item)
F2 key (Rename the selected item)
CTRL+F4 (Close the active console window. When a console has only one console window, this shortcut closes the console)

Remote Desktop Connection Navigation
CTRL+ALT+END (Open the m*cro$oft Windows NT Security dialog box)
ALT+PAGE UP (Switch between programs from left to right)
ALT+PAGE DOWN (Switch between programs from right to left)
ALT+INSERT (Cycle through the programs in most recently used order)
ALT+HOME (Display the Start menu)
CTRL+ALT+BREAK (Switch the client computer between a window and a full screen)
ALT+DELETE (Display the Windows menu)
CTRL+ALT+Minus sign (-) (Place a snapshot of the active window in the client on the Terminal server clipboard and provide the same functionality as pressing PRINT SCREEN on a local computer.)
CTRL+ALT+Plus sign (+) (Place a snapshot of the entire client window area on the Terminal server clipboard and provide the same functionality as pressing ALT+PRINT SCREEN on a local computer.)

sumber

Read More

Windows Server 8 akan menjadi Windows Server 2012

Microsoft tengah bekerja keras untuk menghadirkan generasi terbaru sistem operasi Windows baik untuk consumer PC maupun untuk enterprise user. Perusahaan in telah menyebutkan bahwa enterprise server software terbarunya adalah Windows Server 8 yang mana akan menjadi sistem operasi server terbaru perusahaan. Namun sekarang Microsoft mengungkapkan telah memberikan nama resmi untuk generasi terbaru sistem operasi untuk enterprise user terbarunya.

Microsoft mengganti nama dari sistem operasi untuk enterprise usernya yang awalnya diberi nama Windows Server 8 dengan Windows Server 2012. Raksasa software ini juga berkomitmen untuk meluncurkan OS server barunya pada tahun ini. Sistem operasi ini rencananya akan diluncurkan pada saat yang sama ketika peluncuran Windows 8.

Microsoft masih belum memberikan kerangka waktu khusus untuk peluncuran, tetapi secara luas diperkirakan akan terjadi pada bulan Oktober 2012. Windows Server 2012 tersedia dalam versi beta sekarang. Belum ada informasi kapan Microsoft akan merilis versi release candidate dari Windows Server 2012 ini.

sumber

Read More

Jump into 3D Photo Tours on Google Maps

Read More

Voice Actions in Google Maps for Android

Read More

Google Drive Tawarkan Penyimpanan Data di 'Awan'

( ITEK - Networking ) Google meluncurkan layanan baru bernama Google Drive. Layanan berbasis cloud computing atau komputasi awan ini memungkinkan pengguna menyimpan foto, dokumen dan video di server Google sehingga bisa diakses perangkat yang terkoneksi dengan web dan bisa dishare dengan mudah.

Misalnya, jika pengguna ingin mengirim email video yang direkam dengan smartphone Android, maka ia bisa menguploadnya ke aplikasi mobile Google Drive dan mengirim email link ke video itu. Jadi tak perlu mengirim file terlalu besar. Software produktivitas Google Docs juga terintegrasi dengan Drive.

"Hari ini, kami memperkenalkan Google Drive, sebuah pusat di mana Anda bisa menciptakan, share, berkolaborasi dan menyimpan," kata Sunda Picai, Senior Vice President of Chrome and Apps Google.

Kehadiran Google Drive pun menyaingi rival yang sudah lebih dulu hadir di pasar layanan penyimpanan cloud, seperti Dropbox dan Microsoft SkyDrive. Drive sendiri awalnya menawarkan storage gratis sampai 5GB.

Setelahnya, user bisa memilih upgrade dengan biaya tertentu. Yaitu 25GB dengan biaya USD 2,49 per bulan, 100 GB dengan USD 4,99 per bulan serta yang terbesar sampai 1 TB dengan ongkos USD 49,44 per bulan.

Layanan cloud saat ini memang telah menjadi populer. Google sendiri dipandang terlambat hadir dengan layanan semacam ini, namun kehadiran Google Drive bisa mengubah arah pasar.

"Facebook juga belum punya layanan cloud dan ini (Google Drive-red) bisa memicu mereka melakukan akuisisi," kata Richard Edwards, analis di Ovum? dari USAToday, Rabu (25/4/2012). Google Drive bisa diakses di sini.

sumber

Read More

Pengertian Hub, Switch, Bridge dan Router

Jika Kalian seorang mahasiswa Teknik Informatika atau Manajemen Informatika pasti tidak asing dengan istilah Hub, Switch, Bridge dan Router. Bagi orang awam mungkin malah bertanya seperti ini: "Istilah apa itu? Makanan? Minuman atau jenis obat?" Itu jelas salah besar! Hub, Switch, Bridge dan Router merupakan istilah-istilah yang terdapat dalam sebuah jaringan komputer. Mau tahu apa itu Hub, Switch, Bridge dan Router? Simak di bawah ini:

Hub

Suatu perangkat yang memiliki banyak port yang akan menghubungkan beberapa node (komputer) sehingga membentuk suatu jaringan pada topologi star.

Cara Kerja:

• Ketika sebuah paket tiba di salah satu port, paket itu akan disalin ke port-port yang lain di hub. Atau dengan kata lain hub hanya menyalin data ke semua simpul yang terhubung ke hub. Hal ini menyebabkan unjuk kerja jaringan akan lambat.
• Hub dengan spesifikasi 10/100Mbps harus berbagi bandwidth dengan masing-masing port. Jadi ketika hanya satu PC yang menggunakan, akan mendapat akses bandwith yang maksimum yang tersedia. Namun, jika beberapa PC beroperasi atau di gunakan pada jaringan tersebut, maka bandwidth akan dibagi kepada semua PC, sehingga akan menurunkan kinerja jaringan
• Download simulasi cara kerja Hub disini

Switch

• Switch bentuknya hampir sama dengan hub.
• Switch atau lebih dikenal dengan istilah LAN Switch merupakan perluasan dari konsep bridge.

Cara Kerja:

• Ada dua arsitektur dasar yang digunakan yaitu: cut-through dan store and forward.
• Switch cut trough memiliki kelebihan di sisi kecepatan karena ketika sebuah paket datang, switch hanya memperhatikan alamat tujuan sebelum diteruskan ke segmen tujuannya. Sedangkan Switch store and forward merupakan kebalikan dari switch cut-through. Switch ini menerima dan menganalisa seluruh isi paket sebelum meneruskannya ke tujuan dan untuk meneriksa satu paket memerlukan waktu, tetapi ini memungkinkan switch untuk mengetahui adanya kerusakan pada paket dan mencegahnya agar tidak mengganggu jaringan.
• Switch dengan spesifikasi 10/100Mbps akan mengalokasikan 10/100Mbps penuh untuk setiap port nya. Jadi berapapun jumlah computer yang terhubung, pengguna akan selalu memiliki bandwidth penuh.
• Download simulasi cara kerja Switch disini

Bridge

• Berfungsi menghubungkan dua buah LAN yang sejenis, sehingga dapat memiliki satu LAN yang jauh lebih besar dari ketentuan konfigurasi LAN tanpa Bridge.
• Bridge dapat menghubungkan beberapa jaringan terpisah, baik tipe jaringan yang sama maupun berbeda (seperti Ethernet dan Fast Ethernet).
• Bridge dapat menghubungkan dua LAN yang kedua-duanya menggunakan metode transmisi baseband atau broadbrand ataupun LAN dengan baseband dan LAN dengan broadband atau metode akses CSMA/CD dengan token passing dan sebagainya bergantung pada jenis Bridge yang digunakan.

Cara Kerja:

• Bridge memetakan alamat Ethernet dari setiap node atau titik yang ada pada masing-masing segmen jaringan dan hanya memperbolehkan lalulintas data yang diperlukan melintasi bridge. Ketika menerima sebuah paket, bridge menentukan segmen tujuan dan sumber. Jika segmennya sama, paket akan ditolak, dan jika segmennya berbeda, paket paket diteruskan ke segmen tujuan. Dengan demikian bridge juga mencegah pesan rusak agar tidak menyebar keluar dari satu segmen.
• Bridge bekerja pada lapisan physical layer dan data link layer, sehingga akan mempengaruhi unjuk kerja LAN bila sering terjadi komunikasi sistem yang berada di LAN yang berbeda yang terhubung oleh Bridge.
• Download simulasi cara kerja Bridge disini

Router

Berfungsi agar data sampai ke tempat tujuan pada jaringan sesuai yang dikehendaki.

Cara Kerja:

• Router bekerja dengan cara yang mirip dengan switch dan bridge. Perbedaannya, router merupakan penyaring atau filter lalu lintas data. Penyaringan dilakukan dengan menggunakan protocol tertentu. Router pada dasarnya merupakan piranti pembagi jaringan secara logical bukan fisikal.
• Router dapat memilih jalan alternatif yang terbaik (rute terbaik untuk transportasi data.), bila memang ada beberapa jalan untuk mencapai tujuan atau bila salah satu jalan ke tempat tujuan terputus karena sesuatu hal.
• Router bekerja pada lapisan physical, data link dan network layer, sehingga tidak dapat digunakan sembarangan.
• Router umumnya paling tidak terhubung ke dua jaringan., dua LAN atau WAN ke LAN dan jaringan dari ISP ( Internet Service Provider). Beberapa modem DSL dan cable modem juga memiliki fungsi router yang terintegrasi ke dalamnya sehingga memungkinkan beberapa computer membentuk jaringan dan langsung terhubung ke internet.
• Apabila hub, bridge dan switch merupakan networking device maka router merupakan internetworking device.
• Download simulasi cara kerja Router disini

Semoga Bermanfaat ...

sumber

Read More

Penyebab Komputer Sering Restart Sendiri

Jika komputer Anda sering restart sendiri, pastilah bikin greget. Apalagi kalau kita sedang bekerja, jelas ini sangat mengganggu kenyamanan kita dalam bekerja. Tapi apa sih penyebab komputer sering restart sendiri? Mungkin hal-hal di bawah ini bisa jadi jawabannya.

1. Komputer sering restart karena Processor kepanasan

Processor yang kepanasan (overheat) adalah salah satu penyebab utama komputer anda atau sering restart sendiri. Untuk mengecek terjadinya overheat pada Processor dapat dilakukan dengan beberapa cara, diantaranya:

• Melihat kondisi temperatur pada menu Hardware Monitor di BIOS
• Menggunakan program monitoring temperatur seperti misalnya CPUID Hardware Monitor
• Mengecek secara manual yaitu dengan membuka casing CPU dan meraba sendiri temperatur pada bagian Pendingin (Cooler) Processor.
• Penyebab utama dari Processor yang kepanasan ini juga terdapat beberapa hal:
• Kondisi kipas angin (fan) yang terdapat pada pendingin Processor yang sudah tidak optimal (misalnya macet karena debu)
• Menumpuknya debu pada sirip-sirip Pendingin Processor, ini adalah hal yang sering terjadi terutama apabila ruangan tempat penyimpanan komputer berdebu.
• Sudah keringnya atau bahkan tidak adanya thermal paste yang merekatkan antara Processor dan Pendinginnya.
• Kondisi ruangan tempat penyimpanan komputer yang memang panas.
• Untuk mengatasi komputer sering restart karena Procesor kepanasan (overheat) ini kita bisa melakukan beberapa hal diantaranya:
• Senantiasa membersihkan debu yang terdapat dalam Casing CPU dan Pendingin Processor. Hal ini bisa dilakukan dengan menggunakan kuas cat yang bersih dan vacum cleaner kecil.
• Menggunakan thermal paste sebagai penghubung yang merekatkan bagian Processor dan Pendingin. Untuk thermal paste yang sudah kering sebaiknya diganti.
• Menyimpan komputer diruangan yang tidak terlalu panas (lebih baik ber-AC). Seandainya terpaksa harus menyimpan komputer di ruangan yang cukup panas, maka sebaiknya lengkapi casing CPU dengan kipas angin tambahan.
• Menggunakan program monitoring temperatur seperti misalnya CPUID Hardware Monitor untuk mengetahui secara dini kondisi overheat pada Processor. Program ini dapat Anda download disini. Screenshootnya dapat dilihat pada gambar dibawah ini.

2. Komputer sering restart karena Power Supply yang kekurangan daya

Penyebab kedua komputer sering restart adalah kurangnya daya atau sudah tidak optimalnya bagian Power Supply yang mensupply daya pada CPU. Hal ini bisa terjadi misalnya karena macetnya atau matinya Kipas angin (fan) yang terdapat pada power supply, sehingga terjadi overheat pada komponen Power Supply itu sendiri. Apabila anda merasa curiga dengan performa Power Supply yang terpasang sebaiknya ganti dulu bagian power Supply ini dengan Power Supply yang terbukti berfungsi baik. Untuk keperluan komputer sekarang, sebaiknya pakailah sebuah Power Supply dengan daya minimal 530 Watt.

3. Komputer sering restart karena VGA Card rusak

Komputer sering restart sendiri juga bisa terjadi karena rusaknya bagian VGA Card yang terpasang pada slot AGP atau PCI. Biasanya VGA Card yang rusak akan terasa cepat panas pada bagian pendinginnya, selain itu tampilan gambar pada layar monitorpun menjadi rusak. Untuk itu apabila komputer Anda sering restart ada baiknya juga untuk mengecek komponen tersebut.

4. Komputer sering restart karena Hardisk bad sector

Sebuah hardisk yang rusak atau bahkan terdapat bad sector didalamnya dapat menjadi penyebab komputer menjadi hang, muncul pesan bluescreen of deadth atau komputer ga bisa booting dan me-restart terus. Untuk mencegah keruksakan sekaligus memperbaiki hardisk tersebut kita bisa menjalankan program scandisk/checkdisk, men-defrag hardisk secara teratur dan pastikan selalu mematikan komputer dengan menekan tombol shutdown.

5. Komputer sering restart karena RAM rusak

RAM yang rusak juga bisa menyebabkan komputer sering restart, hal ini pernah saya alami beberapa waktu yang lalu. Saat itu komputer selalu restart ketika dinyalakan meskipun saya telah memastikan tidak ada masalah dengan hardware yang lain, komputer tetap tidak bisa booting dan selalu restart meskipun masuk ke windows safe mode. Saya kemudian mengganti RAM yang terpasang, dan akhirnya komputer bisa berjalan normal kembali.

Semoga Bermanfaat.

sumber

Read More

5 Tips Keamanan Komputer

(ITEK - E-tips) Jika kita bicara tentang keamanan komputer, maka kita berbicara bagaimana mencegah virus komputer. Berikut 5 tips untuk menjaga keamanan komputer dari virus:

1. Gunakan AntiVirus

Tentu saja ini yang paling penting. Mau tidak mau anti virus berfungsi seperti sebuah penjaga yang akan mencegah berbagai macam virus. Jika dana kita terbatas, jangan gunakan antivirus bajakan, tapi gunakan antivirus gratis saja. Tidak kalah hebatnya dalam membasmi virus internet.

2. UPDATE!

Jangan lupa untuk selalu meng-update apapun demi keamanan komputer. Bukan hanya anti virus saja yang diupdate. SEMUANYA! Baik? Operating Systemnya, Software yang terinstall maupun driver. Tidak ada perangkat lunak atau software yang sempurna..pasti ada sebuah celah keamanan. Jangan percaya kepada programmer yang berkata “Software saya sepurna dalam keamanan komputer”

Untuk menutup lubang keamanan itu kita harus rajin melakukan update dan update. Karena virus internet juga selalu update dan update.

3. Hati-hati saat browsing

Kebanyakan virus internet menyebar dari situs porno maupun warez (mp3 ilegal, software bajakan dsb). Jika tidak mau terkena virus lebih baik jangan kesana. Ini cara terbaik dalam mencegah virus komputer.

Jika ada peringatan dari browser Anda, lebih baik acuhkan saja situs tersebut. Atau kadangkala saat berkunjung ke website semacam itu muncul kotak dialog yang isinya meminta untuk menginstall sesuatu, maka abaikan saja.

Berhati-hatilah karena biasanya situs semacam itu menggunakan permainan kata-kata seperti sedang memberikan hadiah kepada anda. Kenyataanya itu adalah sebuah virus internet yang dapat mengganggu keamanan komputer.

4. Selalu scan file yang di download

Apapun file yang Anda download walaupun itu berasal dari website yang terpercaya seperti blog ini. Itu Harus tetap diSCAN pakai anti virus.

5. Hati-hati email

Salah satu penyebaran virus internet adalah melalui email. Apalagi jika mendapat email yang berisi file seperti EXE, VBS, BAT. Ditambah lagi jika dikirim oleh orang asing, maka bisa-bisa itu adalah virus internet atau permintaan mematikan komputer lalu reboot dan muncul pesan “Selamat Harddisk anda kapasitasnya bertambah”.

sumber

Read More

Pembatasan Login Sampai Dengan 3 Kali

Pada pembahasan form login sebelumnya saya mencoba membuat form tersebut dengan mengakses form login apabila login benar maka akan program tersebut akan berjalan. ketika login yang di inputkan salah maka akan tampil pesan maaf, user dan password anda salah. Disini saya akan mencoba untuk membuat artikel pembatasan login sampai dengan tiga kali setelah itu form login yang tampil apabila melebihi tiga dan input yang di masukan salah maka form login tersebut akan stop secara otomatis.

Semoga Bermanfaat.

- Buat Terlebih dahulu variabel baru misalkan passtemp dibawah public class form1
  Dim passtemp As Integer
- Kemudian ketikan coding berikut dibawah  coding
   MsgBox("maaf, user dan password salah")

   End If

(untuk lebih lengkapnya silahkan lihat codingnya dibawah)

'pembatasan pada login sampai dengan 3 kali
'passtemp untuk menampung nilai angka yang di mulai dari angka 0 mis= 0=0+1
        passtemp = passtemp + 1
'if passtemp = 3 then adalah untuk pembatasan login lebih dari 3 kali
        If passtemp >= 3 Then
'Pesan yang tampil sudah 3 kali pada passtemp dan kemudin form login akan stop
            MsgBox("user anda tidak berhak untuk otorisasi", vbInformation + vbCritical, "Login Error")
            End
        Else
'MSgBox ini informasi pemberitahuan penggunaan login dan pada " & 3 - passtemp & " adalah pengurangan input login apabila salah memasukan user dan password
            MsgBox("Password salah. Silahkan periksa CAPS LOCK password anda" & vbCrLf & "pengisian password tersisa " & 3 - passtemp & "", vbInformation, "Login Error")
            txtpassword.Text = ""
            txtuserid.Focus()
        End If

Berikut adalah codingnya:

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim kon As New MySqlConnection(strkon)

    Dim perintah As New MySqlCommand

    Dim cek As MySqlDataReader

    Dim passtemp As Integer

    ' enter untuk membuat kursor pada textbox menjadi berurutan

    ' ------------------------------------------------------

    Private Sub txtuserid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtuserid.KeyDown

        Select Case e.KeyCode

            Case Keys.Enter

                txtpassword.Focus()

        End Select

    End Sub

    Private Sub txtpassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtpassword.KeyDown

        Select Case e.KeyCode

            Case Keys.Enter

                Button1.Focus()

        End Select

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * from loguser where userpass=MD5('" & txtpassword.Text & "')and username='" & txtuserid.Text & "' "

        cek = perintah.ExecuteReader

        cek.Read()

        If cek.HasRows Then

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("maaf, user dan password salah")

        End If

        'pembatasan pada login sampai dengan 3 kali

        passtemp = passtemp + 1

        If passtemp = 3 Then

            MsgBox("user anda tidak berhak untuk otorisasi", vbInformation + vbCritical, "Login Error")

            End

        Else

            MsgBox("Password salah. Silahkan periksa CAPS LOCK password anda" & vbCrLf & "pengisian password tersisa " & 3 - passtemp & "", vbInformation, "Login Error")

            txtpassword.Text = ""

            txtuserid.Focus()

        End If

        cek.Close()

        kon.Close()

        txtpassword.Text = ""

    End Sub

    'double click timer1 untuk membuat label menjadi warna warni setting timer enabled= true dan interval = 100

    '----------------------------------------------------------------------------------------------------------

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label3.ForeColor = System.Drawing.ColorTranslator.FromOle(RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255))

    End Sub

End Class

Read More

Penggunaan ListBox1, MenuStrip dan FileIO (Lanjutan Input Gambar ke PictureBox di VB.NET)

Pada pembahasan kali ini, kita akan mempelajari komponen: ListBox, MenuStrip dan sedikit mengenai FileIO. Berikut detail pengetahuan tentang komponen yang digunakan:

ListBox1

- Cara menghapus items

- Cara mengetahui item apa yang dipilih dalam string

- Cara mengetahui apakah Item terpilih atau indexnya berubah

PictureBox

- Cara menghapus gambar di PictureBox

- Cara mengubah gambar

- Cara menampilkan gambar dengan Stretch

MenuStrip

- Cara Membuat Menu Item

- Cara Memanggil Form pada Menu Item 

FileIO

- Cara mencari file tertentu

- Cara menemukan lokasi MyPictures yang aktif sekarang

Caranya yaitu:

1. Tambahkan pada form komponen berikut ini: ListBox1, MenuStrip1 dan Button2  (text= exit), Button3 (text= tampil list)

2. Klik MenuStrip untuk penamaan file seperti pada contoh gambar di atas, Untuk Codingan MenuStrip Double click. 

3. Tambahkan coding program berikut ini:

'button2

----------

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub

'MenuStrip

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

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        Form1.Show()

    End Sub

'listbox click

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

    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click

        ' mengubah gambar PictureBox1 sesuai dengan item ListBox1 dan pada label

        PictureBox1.ImageLocation = ListBox1.SelectedItem

        Call ListBox1_SelectedIndexChanged(sender, e)

        Label1.Text = "Nama file: " & ListBox1.SelectedItem

End Sub

'listbox selectedindexchanged

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

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        ' mengubah gambar PictureBox1 sesuai dengan item ListBox1

        PictureBox1.ImageLocation = ListBox1.SelectedItem

    End Sub

'button3 click

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        ' menghapus items

        ListBox1.Items.Clear()

        ' menghapus gambar yang sudah di load

        PictureBox1.ImageLocation = ""

        ' mencari gambar jpg, gif dan bmp di folder MyPictures

        For Each Gambar As String In _

            My.Computer.FileSystem.GetFiles( _

            My.Computer.FileSystem.SpecialDirectories.MyPictures, _

            FileIO.SearchOption.SearchAllSubDirectories, _

            "*.jpg*", "*.gif", "*.bmp*")

            ' menambah path gambar yang ketemu di ListBox

            ListBox1.Items.Add(Gambar)

        Next

        ' Beritahu kalau tidak ada gambar di MyPictures

        If ListBox1.Items.Count < 1 Then

            MsgBox("Tidak ada gambar di file MyPictures", _

            MsgBoxStyle.Information, "Hasil Pencarian")

        End If

    End Sub

Read More

Creating an Installer Using Visual Basic 6.0

Downloand Latihan Installer: Click Here

1. Click on the Start Menu > Microsoft Visual Studio 6.0 > Microsoft Visual Studio 6.0 Tools > Package & Deployment Wizard. 

2. Click on the “Browse” button next to the “Select Project” combo box, to select your project.

3. Select the actual Project Solution File in the screen provided and hit Open.

4. Click on the Package Icon To Continue.

5. On the “Package and Deployment Wizard” Screen, select “Standard Setup Package” and hit “Next” button.

6. Choose the folder where you want your setup package to be created, and click “Next”.

7. If the folder you are selecting does not exist, you will receive a prompt asking you if you want to create it. Click on “Yes” to continue.

8. You will be given a list of files that need to be included in your installer based on your application’s code and references. If you need to add any additional files like documentation, you can do it on this screen. Else, click next to continue.

9. The next screen will allow you to break down the installer file into multiple smaller files (in case you want to distribute your application on a floppy disk for example). If file size is not an issue, select “Single Cap” and hit “Next” to continue.

10. Enter a title for your installer application and hit “Next”.

11. Next, you will be asked what type of shortcut and where you want to place on your user’s Start Menu. Accept the default, and hit “Next” to continue.

12. Accept the Install location and hit “Next”. This is where the executable files are grabbed from.

13. Next, you will be given the option to install your application’s dependencies as shared installs. This means that if for example another program needs to use the MDAC database connectivity besides YOUR application, it will be able to do that. Check all the boxes provided and hit “Next” to continue.

14. Lastly, the setup wizard will ask you what name you want to give the setup application you just created. Enter a name desired and hit the “Finish” button.

15. The wizard will go through and create the installer for you. Once done, it will display a report telling you the location of the installer that looks like this:

You will have the option of saving this displayed report if you need to. If not, hit close to finish the setup.

16. Navigate to the directory specified in the report above, where your installer was created, here is what you will see.

17. Zip up everything you see in that directory into a zip file. This is the installer that you distribute to your users by either allowing them to download it from your website or by burning it to a CD and mailing it to them. They will have to run the “setup.exe” file to begin the installation.

The actual setup screen that the users will see will look like this:

sumber

Read More

Input Gambar Ke PictureBox di VB.NET

Pada kali ini saya akan mencoba untuk membuat artikel tentag vb.net khususnya mengenai bagaimana cara input gambar di VB.NET. Memang ada perbedaan yang cukup besar antara VB6 dan VB.NET dalam cara untuk menginput gambar. Dimana pada VB6, anda hanya perlu perintah LoadPicture untuk menginput gambar, sedangkan pada VB.NET, ada satu perbedaan yang sangat besar. Anda harus menggunakan Library System.Drawing untuk bisa menampilkan gambar.

Berikut adalah langkah untuk membuat program berikut seperti di atas:

1. Buat Project baru, dan tambahkan komponen berikut ini

- OpenFileDialog1

- PictureBox1

- CheckBox1

- Button1

- Label1

untuk PictureBox1, ubahlah atribut BorderStyle menjadi Fixed3D, begitu juga dengan Label1, ubah atribut BorderStyle menjadi Fixed3D dan ubah juga atribut AutoSize menjadi false.

Sesuaikan dengan tampilan desain berikut ini:

2. Selanjutnya, anda masuk ke dalam jendela kode program. Anda harus mengimpor System.Drawing.Bitmap supaya bisa menggunakan function FromFile. Tambahkan pada bagian paling atas program anda:

Imports System.Drawing.Bitmap

3. Selanjutnya, tambahkan kode pada event Form1_Load, berikut kodenya:

 ' pengaturan OpenFileDialog1

 OpenFileDialog1.Title = "Masukkan foto anda"

 OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg"

 ' pengaturan PictureBox supaya tampilannya strecthimage

 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

4. Lalu tambahkan event Button1_Click pada Button1, kodenya:

If OpenFileDialog1.ShowDialog Then

 PictureBox1.Image = FromFile(OpenFileDialog1.FileName)

 Call CheckBox1_CheckedChanged(sender, e)

 Label1.Text = "Nama file: " & OpenFileDialog1.FileName

End If

5. Tambahkan pula pada CheckBox1_CheckedChanged:

 If CheckBox1.CheckState = CheckState.Checked Then

   PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

 Else

   PictureBox1.SizeMode = PictureBoxSizeMode.Normal

 End If

6. OK, simpan proyek anda dan tekan tombol F5 untuk mencoba program anda. Untuk jelasnya perhatikan kode program selengkapnya berikut ini:

Imports System.Drawing.Bitmap

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If OpenFileDialog1.ShowDialog Then

            PictureBox1.Image = FromFile(OpenFileDialog1.FileName)

            Call CheckBox1_CheckedChanged(sender, e)

            Label1.Text = "Nama file: " & OpenFileDialog1.FileName

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' pengaturan OpenFileDialog1

        OpenFileDialog1.Title = "Masukkan foto anda"

        OpenFileDialog1.Filter = "JPEG File|*.jpg;*.jpeg"

        ' pengaturan PictureBox supaya tampilannya strecthimage

        PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.CheckState = CheckState.Checked Then

            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

        Else

            PictureBox1.SizeMode = PictureBoxSizeMode.Normal

        End If

    End Sub

End Class

Read More