QUIZ KEAMANAN KOMPUTER

1. Dalam hal aspek keamanan computer dikenal dengan istilah Non Repudiation, jelaskan pengertian Non Repudiation tersebut dan berikan contoh yang terjadi disekitar kita.  
Jawab : Non Repudiation dapat berarti suatu kondisi dimana seseorang tidak bisa menyangkal atau mengelak bahwa file atau data yang dikirim berasal dari orang tersebut ( si pengirim ), Contohnya : Pengiriman pesan singkat atau SMS pada handphone, akan tertera jelas siapa pengirimnya atau pada e – mail, akan sangat jelas dari mana e – mail tersebut dikirim.  

2. Tuliskan beberapa aspek yang harus ada dalam keamanan computer. Dan berikan penjelasan untuk masing-masing aspek.
Jawab :
- Privacy : Menjaga informasi dari orang yang tidak berhak mengakses karena data yang ada merupakan data privat atau pribadi.
-   Integrity : informasi yang telah ada tidak boleh diubah tanpa seijin pemilik informasi.
-  Authentication : Suatu informasi dinyatakan berdasarkan sebuah metode bahwa informasi betul-betul asli, atau orang yang mengakses atau memberikan informasi adalah betul-betul orang yang dimaksud.
- Availability : Lebih pada sebuah kondisi dimana tersediaan informasi ketika dibutuhkan.
- Access Control: Pengaturan akses kepada informasi.
- Non Repudiation : berarti suatu kondisi dimana seseorang tidak bisa menyangkal atau mengelak bahwa file atau data yang dikirim berasal dari orang tersebut ( si pengirim )

3.Jelaskan pengertian keamanan computer menurut John D. Howard dan menurut Gollman, berikanan alisis saudara terhadap teori mereka.
jawab :  Menurut John D. Howard dalam bukunya “An Analysis of security incidents on the internet” menyatakan bahwa: Keamanan komputer adalah tindakan pencegahan dari serangan pengguna komputer atau pengakses jaringan yang tidak bertanggung jawab. Menurut Gollmann pada tahun 1999 dalam bukunya “Computer Security” menyatakan bahwa Keamanan komputer adalah berhubungan dengan pencegahan diri dan deteksi terhadap tindakan pengganggu yang tidak dikenali dalam system komputer.  

Menurut Analisis saya : Meringkas dari kedua teori diatas saya menyimpulkan bahwa keamanan computer adalah suatu tindakan pencegahan dan pendeksian dini terhadap sebuah serangan dari pihak ke – 3 sebagai pengguna computer yang tidak mempunyai ijin akses terhadap system yang ada entah itu akses melalui jaringan maupun tindakan pengganggu.

4. Jelaskan mengapa keamanan computer diperlukan, berikan pendapat anda..minimal 5 alasan

5. Jelaskan perbedaan antara jeniss erangan Fabrication dan interruption. Dan berikan contoh tools dalam jenis serangan tersebut.  
Jawab :
- Fabrication : Sebuah metode penyerangan dengan cara mengirim suatu data atau informasi atau pesan dimana si pengirim memanfaatkan identitas orang lain.
tools : buatan sendiri
Contoh : dari serangan jenis ini adalah memasukkan pesan-pesan palsu seperti e-mail palsu / web palsu ke dalam jaringan komputer.
-  Interruption : Jenis serangan dengan teknis menghalangi informasi yang dikirim. Serangan ditujukan kepada ketersediaan (availability) dari sistem.
tools : Dos attack
 Contoh : informasi yang tidak kunjung sampai ( menjadi lambat ). 6.Jelaskan perbedaan antara kriptografi dan kriptoanalisis  
7. Sebutkan layer yang harus diamankan dalam keamanan computer, dan berikan penjelasan singkat untuk layer tersebut. 
  - Network atau jaringan dimana penggunaan firewall untuk barrier antara jaringan privat dengan jaringan eksternal,lindungi network file system.
- Kernel : Selalu update kernel system operasi dan review bugs serta kekurangan pada system operasi.
 - Password & Enkripsi yakni pengamanan pada level tampilan seperti screen saver, dan enkripsi file yang di pertukarkan dan selalu berhati-hati terhadap bruto force dengan membuat password yang baik. - System file diaman user tidak boleh mengakses perintah mengubah sytem.
 - Root penggunaan seperangkat utilitas login sebagai root.
 - Local : pemberian fasilitas user dan hak-haknya sesuai yang di perlukan.
- Fisik : Pemberian keamanan pada system secara fisik seperti perangkat computer dan jaringan.

 8. Jelaskan langkah yang perlu dilakukan untuk mengamankan computer server atau lingkungan network.

  9. Tuliskan paket aplikasi yang dapat dikategorikan serangan pada computer. Minimal 5, dan berikan penjelasan untuk masing-masing paket aplikasi tersebut.
- Trojan Horse : Sebuah program yang seakan-seakan bekerja seperti program baik- baik. Padahal ia menyembunyikan fungsi rahasia yang membahayakan sistem. Trojan juga kadang dijadikan sebutan pengganti untuk malware lain seperti bot, backdor trojan, dan downloader trojan.
- Wireshark : Penganalisis paket gratis dan sumber terbuka. Perangkat ini digunakan untuk pemecahan masalah jaringan, analisis, perangkat lunak dan pengembangan protokol komunikasi, dan pendidikan. - Spoofing : Suatu usaha dari orang yang tidak berhak misalnya dengan memalsukan identitas, untuk masuk ke suatu sistem jaringan, seakan-akan dia adalah user yang berhak.
- Nmap : Tools pemetaan jaringan (network) terbaik yang pernah ada sejauh ini.
- SQL injection : Serangan yang memanfaatkan karakter khusus seperti ‘ dan ‘ or “ yang memiliki arti khusus pada SQL server sehingga login dan password bisa dilewati.
 - Port Scanning : Usaha pelacakan port yang terbuka pada suatu sistem jaringan sehingga dapat dimanfaatkan oleh hacker untuk melakukan serangan.  

10. Tuliskan minimal 5 jenis teknik kriptografi modern, dan berikan penjelasan untuk masing-masing teknik tersebut.
- Simetris Kriptografi : Suatu bentuk tulisan rahasia yang memperhatikan keseimbangan dan menggunakan syarat-syarat tertentu yang telah ditetapkan , yang mana syarat-syarat tersebut akan dijadikan sebuah kata kunci yang hanya orang tertentu saja yang bisa membacanya.
- Asimetris Kriptografi: Suatu bentuk tulisan rahasia yang tidak memperhatikan keseimbangan dalam menyusun kalimat tersebut dan tanpa memperhatikan syarat-syarat yang telah ditetapkan dalam penyusunanya melainkan lebi9h pada kerahasiaan sampai pada orang yang dituju.
- Fungsi Hash Satu Arah: Fungsi yang menerima masukan string atau pesan yang panjangnya sembarang dan mengkonversinya menjadi string keluaran yang panjangnya tetap atau fixed.
 - Sertifikat Digital : File elektronik yang hanya bekerja sebagai paspor online. Digital Certificates dikeluarkan oleh pihak ketiga yang dikenal sebagai Certification Authority seperti VeriSign atau Thawte.
- Secure Socket Layer : Protokol berlapis. Dalam tiap lapisannya, sebuah data terdiri dari panjang, deskripsi dan isi. SSL mengambil data untuk dikirimkan, dipecahkan kedalam blok-blok yang teratur, kemudian dikompres jika perlu, menerapkan MAC, dienkripsi, dan hasilnya dikirimkan. Di tempat tujuan, data didekripsi, verifikasi, dekompres, dan disusun kembali. Hasilnya dikirimkan ke klien di atasnya.

RaSa itu InDah

Kata ini sudah sering aku dengar, sudah sering aku rasakan, cukup pula untuk aku simpan. Sebuah rasa yang terasa bergetar didadaku, rasa yang sangat dan benar - benar membuatku kebingungan. Siapa yang tak kenal dengan namanya, sangat familiar dan gampang untuk diingat, iya dia si " Kecewa " yang selalu membuat lelehan lilin di pelupuk mataku. Siapa yang tak tahu dia, rasa yang diberikanya begitu aneh, hingga aku enggan untuk menyebutnya.

Pernah kah kau kecewa?? walaupun jika ditanya bagaimana rasanya kita tak mampu menggambarkanya. Rasanya seperti sakit, tapi sakit yang indah dan membawa ke kehidupan kita yang nyata. Dan kali ini aku merasakanya lagi, seperti rintikan hujan yang mencoba mengajakku menari dalam iramanya.

Memang banyak yang membencinya, tapi bagiku, dia menari indah dalam dadaku, berlari kesana kesini dengan senyuman yang menghiasi cahaya senja sore ini. Iya, walaupun dia bersemayam kokoh di dadaku, toh aku masih tetap bisa tersenyum dengan bahagia tentunya karena dia ingin aku lemah dan terkalahkan. Sayangnya dia salah, aku masih kokoh dan terus tersenyum bahagia agar dia mulai geram dengan sikapku.

Aku memang membenci dia, rasa yang ada tapi sayang dia bisa berlarian sedangkan aku hanya terikat disebongkah batu nisan. Keras dan sangat keras aku mencoba untuk lepas, tapi batu kematian atas pengertian dan kesempatan tak pernah mengasihhiku. Sekeras aku mencoba dia tetaptak melepaskanku hingga panas menjalar dinadiku, nadi tepat dijantunku. Hujan sangat menyayangiku, dia membasuh tubuhku dengan belaian rintikanya.

"Buat aku seperti yang kau mau", kataku pada batu kematian. Dia hanya menatapku sinis, tanpa menjawab perkataanku. Batinku tak ingin ketinggalan dalam lakon hidup ini, dia berontak dan marah. Sayangnya dia hanya berada dalam seonggok daging sahaja. Toh kalaupun dia berontak pengertian dan kesempatan tak akan hidup kembali, jiwaku pun sudah terkosongkan karena dia "kecewa" tertawa tepat dimukaku dengan bahagia.

KetiKa Memilih Tangan kanan aTau kiRi

Lama nggak nulis berasa mati suri 30 hari,,,,:D,,,,,
Hari ke - 5 Kuliah kerja Praktek,,,,,tau - tau udah semester 6,,,
Inget banget waktu ngasih surat ijin KKP buat perusahaan, ditanya HRD kamu mau ngapain??** upssss,,,,pak saya mau KKP,,,,
Berfikir sejenak dan berkata " ehhmm,,,,saya mau tau pengalaman kerja IT pak??,," dalam hati dan berfikir **kapan aquh jadi IT yak??,,:D

Rasanya aneh memang banyak hal yang terjadi dikehidupan kita, ada yang simple ada yang
rumit tergantung bagaimana kita menyikapinya,,,
Saya suka es krim tapi saya tidak suka es krim DURIAN,,,,,,,,, I hate it,,,,ya sudah saya tidak memakanya, so apa yang rumit,,,,iya bukan kehidupan yang rumit tapi pikiran kita, kapan ketika kita akan memilih dengan tangan mana kita memberi, memberi hidup kita sebuah karakter untuk berjalan,,,,seperti kita mementukan kapan kita akan menyiram bunga ketika musim kemarau, itu menentukan apakah bunga itu layak untuk hidup atau dia akan mati,,,,,

Kita punya pilihan, dan kita berhak memilih,,,**Bukan PEMILU nie,,,,:D

LANJUUUUUUUUUTTTTTTTTTTT...............

Nah Form lanjutan yg aku buat nie..........


Untuk source code :

Public Class Data_Pengecekan
Sub recording()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "Insert into pengecekan(nocek,noterima,kode_sup,kode_mat,nama_mat,type,nama_pet,jumlah,tgl_cek,qtyNG,qtyOK,status)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & DateTimePicker1.Value & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "')"
tampil2.ExecuteNonQuery()
End Sub
Sub kodesama()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from pengecekan where nocek='" & TextBox1.Text & "'"
tampilkan = tampil2.ExecuteReader()
If tampilkan.HasRows = True Then
hasilcek = "True"
Else
hasilcek = "False"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Save"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
If TextBox5.Text = "" Then Exit Sub
If TextBox6.Text = "" Then Exit Sub
If TextBox7.Text = "" Then Exit Sub
If TextBox8.Text = "" Then Exit Sub
If TextBox9.Text = "" Then Exit Sub
If TextBox10.Text = "" Then Exit Sub
If TextBox11.Text = "" Then Exit Sub
Call kodesama()
If hasilcek = "True" Then
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ", MsgBoxStyle.Critical, "Input data")
Else
Call recording()
End If
Call bersih()
End If
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
End Sub
Sub hapusrecord()
If Button3.Text = "Hapus" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
If TextBox5.Text = "" Then Exit Sub
If TextBox6.Text = "" Then Exit Sub
If TextBox7.Text = "" Then Exit Sub
If TextBox8.Text = "" Then Exit Sub
If DateTimePicker1.Value = "" Then Exit Sub
If TextBox9.Text = "" Then Exit Sub
If TextBox10.Text = "" Then Exit Sub
If TextBox11.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from pengecekan where nocek='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapusrecord()
End Sub
Sub edittable()
If Button2.Text = "Edit" Then
Button2.Text = "Simpan"
Button2.Enabled = True
Button1.Text = "Input"
Button1.Enabled = False
Button3.Text = " Hapus"
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
If TextBox4.Text = "" Then Exit Sub
If TextBox5.Text = "" Then Exit Sub
If TextBox6.Text = "" Then Exit Sub
If TextBox7.Text = "" Then Exit Sub
If TextBox8.Text = "" Then Exit Sub
If DateTimePicker1.Value = "" Then Exit Sub
If TextBox9.Text = "" Then Exit Sub
If TextBox10.Text = "" Then Exit Sub
If TextBox11.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update pengecekan set noterima='" & TextBox2.Text & "',kode_sup='" & TextBox3.Text & "',kode_mat='" & TextBox4.Text & "',nama_mat='" & TextBox5.Text & "',type='" & TextBox6.Text & "',nama_pet='" & TextBox7.Text & "',jumlah='" & TextBox8.Text & "',tgl_cek='" & DateTimePicker1.Value & "',qtyNG='" & TextBox9.Text & "' ,qtyOK='" & TextBox10.Text & "',status='" & TextBox11.Text & "',where nocek='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call edittable()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = "true"
Button2.Text = "Edit"
Button2.Enabled = "true"
Button3.Text = "Hapus"
Button3.Enabled = "true"
Button4.Text = "Keluar"
Button4.Enabled = "true"
End Sub
Private Sub Data_Pengecekan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
End Sub
End Class



Nah, Form Lainnya :


Terus source codenya :

Public Class Data_Material
Dim tgl As Date
Sub recording()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "Insert into datamaterial (kode_mat,nama_mat,Qty,tgl,type)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Value & "','" & TextBox4.Text & "')"
tampil2.ExecuteNonQuery()
End Sub
Sub kodesama()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from datamaterial where kode_mat='" & TextBox1.Text & "'"
tampilkan = tampil2.ExecuteReader()
If tampilkan.HasRows = True Then
hasilcek = "True"
Else
hasilcek = "False"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Save"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
Call kodesama()
If hasilcek = "True" Then
MsgBox("Data sudah ada , silahkan cek data yang akan diinput ")
Else
Call recording()
End If
Call bersih()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call edittable()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapusrecord()
End Sub
Sub edittable()
tgl = DateTimePicker1.Value
If Button2.Text = "Edit" Then
Button2.Text = "Simpan"
Button1.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update datamaterial set nama_mat='" & TextBox2.Text & "',Qty='" & TextBox3.Text & "',type= '" & TextBox4.Text & "',tgl='" & DateTimePicker1.Value & "' where kode_sup='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Sub hapusrecord()
If Button3.Text = "HAPUS" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from datamaterial where kode_mat='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub normal()
Button1.Text = "Input"
Button1.Enabled = "true"

Button2.Text = "Edit"
Button2.Enabled = "true"

Button3.Text = "Hapus"
Button3.Enabled = "true"

Button4.Text = "Keluar"
Button4.Enabled = "true"
End Sub
Private Sub Data_Material_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
End Sub
End Class

Buat ApliKAsi DG VB.Net

Kali ini kita akn membuat sebuah aplikasi input data, dimana aplikasi ini memakai sistem Login untuk masuk.
Langsung aja, pertama buat database sebagai penympan data, karena program ini sangat bergantung pada database, sangat penting untuk diperhatikan karena tanpa database pogram ini tidak akan jalan.

Langkap pertama buat database, sesuai isi Foem, pada kasus ini saya membuat database databarang dengan field yang disesuaikan oleh form. Saya menggunakan Visual Studio 2008, dan SQL Server 2008.

Pertama buatlah module untuk koneksi antara VB dan Database dengan source code

Imports System.Data
Imports System.Data.Sql

Module Module_UTS
Public database As New OleDb.OleDbConnection
Public tampil2 As New OleDb.OleDbCommand
Public tampilkan As OleDb.OleDbDataReader
Public hasilcek As String

Public Sub bukakoneksi()
database.Close()
Try
database.ConnectionString = "provider=sqloledb.1;integrated security=SSPI;persist security info=false; initial catalog=DataBarang;data source=."
database.Open()
Catch ex As Exception
MessageBox.Show("koneksi gagal")
End Try
End Sub

End Module

Kemudian test apakah koneksi sudah pas. lalu buat form - formny terlebih dahulu, sebagai contoh :



Form ini dibuat dengan source code :

Public Class Data_Supplier
Sub recording()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "Insert into supplier (kode_sup,nama_sup,alamat)values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "
tampil2.ExecuteNonQuery()
End Sub
Sub kodesama()
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = "select * from supplier where kode_sup='" & TextBox1.Text & "'"
tampilkan = tampil2.ExecuteReader()
If tampilkan.HasRows = True Then
hasilcek = "True"
Else
hasilcek = "False"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "INPUT" Then
Button1.Text = "SAVE"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
Call kodesama()
If hasilcek = "True" Then
MsgBox("Data yang anda input telah ada, silahkan coba lagi")
Else
Call recording()
End If
Call bersih()
End If
End Sub
Sub normal()
Button1.Text = "INPUT"
Button1.Enabled = "true"
Button2.Text = "EDIT"
Button2.Enabled = "true"
Button3.Text = "HAPUS"
Button3.Enabled = "true"
Button4.Text = "KELUAR"
Button4.Enabled = "true"
End Sub


Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "KELUAR" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub edittable()
If Button2.Text = "EDIT" Then
Button2.Text = "SIMPAN"
Button1.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Update supplier set nama_sup='" & TextBox2.Text & "',alamat='" & TextBox3.Text & "' where kode_sup='" & TextBox1.Text & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call edittable()
End Sub
Sub hapusrecord()
If Button3.Text = "HAPUS" Then
TextBox1.Text = " "
Button3.Text = "Ok"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
Else
If TextBox1.Text = "" Then Exit Sub
If TextBox2.Text = "" Then Exit Sub
If TextBox3.Text = "" Then Exit Sub
Try
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " Delete from supplier where kode_sup='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()
Call bersih()
TextBox1.Focus()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Call hapusrecord()
End Sub
Private Sub Data_Supplier_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
If Button1.Text = "INPUT" Then
Call recording()
If hasilcek = False Then
TextBox2.Focus()
Else
MsgBox("Kode Sudah ada, silahkan ganti kode lain", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Informasi")
tampilkan = tampil2.ExecuteReader
Call bukakoneksi()
tampil2.Connection = database
tampil2.CommandType = CommandType.Text
tampil2.CommandText = " select* from supplier where kode_sup='" & Trim(TextBox1.Text) & "'"
tampil2.ExecuteNonQuery()

If tampilkan.HasRows = True Then
While tampilkan.Read()
If (IsDBNull(tampilkan("kode_sup"))) Then
TextBox1.Focus()
Else
TextBox2.Text = tampilkan("nama_sup")
TextBox2.Focus()
End If
End While
Else
MsgBox("Data tidak diketemukan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Tambah Data")
End If
End If
End If
End If
End Sub

End Class



Keseluruhan form sesungguhnya hampir sama source codenya. Nah sekarang lihat pada form Login :




dengan source code :

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "Rida" And PasswordTextBox.Text = "aku" Then
MDIParent1.Show()
Me.Visible = False
Else
MsgBox("login gagal, silahkan ulangi lagi")
End If
End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
End Sub

untuk koneksinya, jangan lupa untuk buat MDParent,



, dengan source code :
Imports System.Windows.Forms

Public Class MDIParent1

Private Sub ShowNewForm(ByVal sender As Object, ByVal e As EventArgs) Handles NewToolStripMenuItem.Click, NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
' Create a new instance of the child form.
Dim ChildForm As New System.Windows.Forms.Form
' Make it a child of this MDI form before showing it.
ChildForm.MdiParent = Me

m_ChildFormNumber += 1
ChildForm.Text = "Window " & m_ChildFormNumber

ChildForm.Show()
End Sub

Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: Add code here to open the file.
End If
End Sub

Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles SaveAsToolStripMenuItem.Click
Dim SaveFileDialog As New SaveFileDialog
SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
SaveFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = SaveFileDialog.FileName
' TODO: Add code here to save the current contents of the form to a file.
End If
End Sub


Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub

Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CutToolStripMenuItem.Click
' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
End Sub

Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CopyToolStripMenuItem.Click
' Use My.Computer.Clipboard to insert the selected text or images into the clipboard
End Sub

Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PasteToolStripMenuItem.Click
'Use My.Computer.Clipboard.GetText() or My.Computer.Clipboard.GetData to retrieve information from the clipboard.
End Sub

Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ToolBarToolStripMenuItem.Click
Me.ToolStrip.Visible = Me.ToolBarToolStripMenuItem.Checked
End Sub

Private Sub StatusBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles StatusBarToolStripMenuItem.Click
Me.StatusStrip.Visible = Me.StatusBarToolStripMenuItem.Checked
End Sub

Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub

Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub

Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub

Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ArrangeIconsToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub

Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CloseAllToolStripMenuItem.Click
' Close all child forms of the parent.
For Each ChildForm As Form In Me.MdiChildren
ChildForm.Close()
Next
End Sub

Private m_ChildFormNumber As Integer

Private Sub DatabSupplierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatabSupplierToolStripMenuItem.Click
Data_Supplier.Show()
End Sub

Private Sub DataMaterialToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataMaterialToolStripMenuItem.Click
Data_Material.Show()
End Sub

Private Sub DataPetugasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPetugasToolStripMenuItem.Click
Data_Petugas.Show()
End Sub

Private Sub DataPengecekanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPengecekanToolStripMenuItem.Click
Data_Pengecekan.Show()
End Sub
End Class


Nah untuk form yang lain sejujurnya g jauh beda k..............^_^

PUZZLE...........

Buat tampilany......




Buat Codingnya :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text
End If
End If
cek()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text
End If
cek()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text
End If
End If
cek()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button1.Visible = True
Button4.Visible = False
Button1.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button4.Visible = False
Button5.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button7.Visible = True
Button4.Visible = False
Button7.Text = Button4.Text
End If
cek()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button3.Visible = True
Button6.Visible = False
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button6.Visible = False
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button6.Visible = False
Button5.Text = Button6.Text
End If
cek()
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button7.Visible = False Then
Button7.Visible = True
Button8.Visible = False
Button7.Text = Button8.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button8.Visible = False
Button9.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button8.Visible = False
Button5.Text = Button8.Text
End If
cek()
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button8.Visible = False Then
Button8.Visible = True
Button7.Visible = False
Button8.Text = Button7.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button7.Visible = False
Button4.Text = Button7.Text
End If
End If
cek()
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button6.Visible = True
Button9.Visible = False
Button6.Text = Button9.Text
Else
If Button8.Visible = False Then
Button8.Visible = True
Button9.Visible = False
Button8.Text = Button9.Text
End If
End If
cek()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button2.Visible = True
Button5.Visible = False
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button4.Visible = True
Button5.Visible = False
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button6.Visible = True
Button5.Visible = False
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button8.Visible = True
Button5.Visible = False
Button8.Text = Button5.Text
End If
cek()
End Sub
Private Sub cek()
If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4") Then
If (Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7") Then
If (Button8.Text = "8") Then
MessageBox.Show("Selesai")
End If
End If
End If
End Sub



Ini adalah permainan enable pada button, angka bisa diubah sesuai selera......

Selamat mencoba.......^^

BELAJAR LISTVIEW!!!

UTS telah Tiba............!!!
Semangat Belajar......


Disuruh bikin tampilan aplikasi, Alhamdulillah kelar juga, ngentri satu contoh tampilanya ea....



Itu adalah contoh tampilan dari form data supllier, bikin dulu desainya baru codingnya, nah ini dia coding pada masing2 button:

Pada tampilan ini ada 5 button dengan Coding pada tiap – tiap button :
a. Button1 = Save

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click “Event yang kita berikan
If Button1.Text = "SAVE" Then
Button1.Text = "TAMBAH"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
Button5.Text = "FIND"
TextBox1.Focus() “Kursor akan otomatis pada Textbox1
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
item = New ListViewItem(isitext)
ListView1.Items.Add(item) “ data akan ditampilkan pada ListView
Call bersih()
TextBox1.Focus()
End If

Disinilah terjadi pengaturan Enable yaitu tampilan button pada saat diberikan event klik, apakah button akan muncul jika Enable = True dan button akan tidak muncul jika Enable = False . Dengan focus kursor pada Textbox1.

Untuk Sintak isitext(0) = Trim (TextBox1.Text) dengan ketentuan bahwa Array pada kolom pertama di ListView akan diisi oleh data yang berada pada Textbox 1, yang perlu diingat bahwa array dimulai dengan angka 0. Begitu seterusnya sampai pada array kolom yang diinginkan, jangan Lupa untuk mendeklarasikan Array pada kolom ListView terlebih dahulu pada awal Sintak Class.
Dim isitext(3) As String
Yang berarti isitext = nama array ; (3) = jumlah array / kolom ; As string = Tipe data adalah string. Deklarasi yang lain adalah
Dim item As ListViewItem
Yang berarti item adalah nama item – item yang akan muncul pada ListView
Call bersih()
Pada sintak diatas berarti bahwa kita memanggil method bersih yang sebelum telah kita buat pada Sub Class bersih.
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Yang berarti pada kondisi bersih maka isi pada tiap – tiap Textbox akan kosong atau tidak ada data didalamnya.
Pada Form ini jangan lupa untuk buat Sub yang berisi tampilan pada ListView. Tampilan ini akn muncul saat Form diaktifkan.
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("KD_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("NM_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 200, HorizontalAlignment.Left)
End Sub
Pada sub ini berisi nama – nama kolom yang akan muncul pada ListView dengan pengaturan ( Nama kolom , Panjang kolom , jenis tata letak huruf, Letak rata huruf ) .
Sintak ini akan dipanggil ketika mengaktifkan Form dengan cara klik 2 kali pada form dan pilih Event Activated pada kolom event.
Private Sub Data_Supplier_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Activated
Call bersih()
Call tampilan()
End Sub

b. Button2 = Edit
Pada Button ini hanya terjadi pengaturan Enable yaitu tampilan button pada saat diberikan event klik, apakah button akan muncul jika Enable = True dan button akan tidak muncul jika Enable = False dikarenakan materi yang disampaikan belum pada edit data di database.

If Button2.Text = "EDIT" Then
Button2.Text = "SIMPAN"
Button1.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
End If


c. Button3 = Hapus

Private Sub Button3_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button3.Click
Call bersih()
End Sub
Dimana telah dijelaskan sebelumnya tentang method bersih maka pada button ini hanya berisi pemanggilan method beersih untuk mengosongkan isi pada Textbox.

d. Button4 = Keluar
If Button4.Text = "KELUAR" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
Pada button ini dijelaskan jika text pada button “Keluar” maka akan terjadi Me.close yaitu Form akan menutup dengan sendirinya atau keluar dari aplikasi, jika terhubung dengan form Menu maka akan kembali pada form Menu.
Untuk call normal buatlah terlebih dulu Sub pada Class yang sama sub normal dengan isi enable dari tiap – tiap button.
Sub normal()
Button1.Text = "SAVE"
Button1.Enabled = "true"

Button2.Text = "EDIT"
Button2.Enabled = "true"

Button3.Text = "HAPUS"
Button3.Enabled = "true"

Button4.Text = "KELUAR"
Button4.Enabled = "true"

Button5.Text = "FIND"
End Sub

e. Button5 = Find
Pada button ini penulis belum mengisi sintak dikarenakan materi yang belum mencukupi.


Nah Nie Coding utuhnya:

Public Class Data_Supplier
Dim item As ListViewItem
Dim isitext(3) As String

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox4.Text = e.Item.Text
End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("KD_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("NM_SUPPLIER", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 200, HorizontalAlignment.Left)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "SAVE" Then
Button1.Text = "TAMBAH"
Button2.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
Button5.Text = "FIND"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
item = New ListViewItem(isitext)
ListView1.Items.Add(item)

Call bersih()
TextBox1.Focus()

End If
End Sub
Sub normal()
Button1.Text = "SAVE"
Button1.Enabled = "true"

Button2.Text = "EDIT"
Button2.Enabled = "true"

Button3.Text = "HAPUS"
Button3.Enabled = "true"

Button4.Text = "KELUAR"
Button4.Enabled = "true"

Button5.Text = "FIND"
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "KELUAR" Then
Me.Close()
Else
Call bersih()
Call normal()
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "EDIT" Then
Button2.Text = "SIMPAN"
Button1.Enabled = "false"
Button3.Enabled = "false"
Button4.Text = "BATAL"
TextBox1.Focus()
Else

End If
End Sub

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

Private Sub Data_Supplier_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call tampilan()
End Sub

End Class



Gampang2 susah ea......semua akan gampang klo kita menikmatinya.....
Klo ada yang mo nambahin boleh dech....^_^
Ditunggu sharenya ea.......