Latihan Peggunaan ListView

Pada kesempatan kali ini kita akan membahas mengenai penggunaan ListView
Pertama tama kita buat tampilan seperti berikut










Berikut Code Programnya

Public Class LatihanListView
'membuat variabel arrray
Dim listtxt(3) As String
Dim listitem As ListViewItem

'setting kolom listview
Sub setlistview()
ListView1.View = View.Details
'untuk menentukan kolom
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 150, 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
'memasukkan nilai variabel array
listtxt(0) = Trim(TextBox1.Text)
listtxt(1) = Trim(TextBox2.Text)
listtxt(2) = Trim(TextBox3.Text)
'untuk memasukkan ke listview dari variabel
listitem = New ListViewItem(listtxt)
ListView1.Items.Add(listitem)
End Sub

Private Sub LatihanListView_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Call setlistview()
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
'untuk mengambil nilai dari listview
'e >>> berasal dari ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs
TextBox4.Text = e.Item.Text
End Sub
End Class

Jika tampilan dan sintak programnya sudah dibuat maka selanjutnya jika dijalankan programnya akan ditampilkan seperti











Coba masukkan data, misal seperti berikut ini,











Maka data yang dientry setelah di klik tombol simpan maka akan ditampilkan di dalam listview, kemudian coba klik NPM, maka pilihan tersebut akan ditampilkan di TextBox sebelah kanan tengah.

Latihan Form Input Data

Kali ini kita akan membuat form input data mahasiswa.
Untuk lebih jelasnya kita ikuti langkah sebagai berikut:
1. buka program VB anda
2. buat project baru dan buat design form yang kita inginkan misalnya seperti di bawah ini














3. masukkan code program seperti ini

Public Class Form1

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call isicombo() ' memanggil methode isicombo
Call bersih() ' memanggil methode bersih
End Sub

Sub isicombo() ' memasukkan data ke dalam combo box
ComboBox1.Items.Add("06. Teknik Informatika")
ComboBox1.Items.Add("07. Sistem Informasi")
ComboBox1.Items.Add("26. Manajemen informasi")
ComboBox1.Items.Add("67. Komputer Akuntansi")
ComboBox1.Items.Add("05. Teknik Komputer")
End Sub

Sub bersih() ' menghapus semua data yang dientri dalam textbox
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = "06. Teknik Informatika" ' data ini menjadi default di combo box
End Sub

Sub normal() ' kondisi normal dari tombol tombol
Button1.Text = "Tambah"
Button1.Enabled = True
Button2.Text = "Ubah"
Button2.Enabled = True
Button3.Text = "Hapus"
Button3.Enabled = True
Button4.Text = "Keluar"
Button4.Enabled = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Tambah" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus() 'kursor akan ke textbox1
Else
ListBox1.Items.Add(Trim(TextBox1.Text) + " " + Trim(TextBox2.Text) + " " + Trim(TextBox3.Text) + " " + Trim(TextBox4.Text) + " " + Trim(ComboBox1.Text))
Button1.Text = "Simpan"
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'untuk keluar dan batal
If Button4.Text = "Keluar" Then
Me.Close() ' menutup form diri sendiri (keluar)
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 = "Ubah" Then
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
TextBox1.Focus()
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Hapus" Then
Button1.Enabled = False
Button2.Enabled = False
Button3.Text = "Ok"
Button4.Enabled = False
End If
End Sub
End Class

4. jika program dijalankan sebagai berikut

Renungkanlah

تَزَوَّدْ مِنَ التَّقْوَى فَإِنَّكَ لاَ تَدْرِي*** إِذَا جَنَّ لَيْلٌ هَلْ تَعِيْشُ إِلَى الْفَجْرِ

Berbekallah ketakwaan karena sesungguhnya engkau tidak tahu…

Jika malam telah tiba apakah engkau masih bisa hidup hingga pagi hari

وَكَمْ مِنْ صَحِيْحٍ مَاتَ مِنْ غَيْرِ عِلَّةٍ *** وَكَمْ مِنْ عَلِيْلٍ عَاشَ حِيْناً مِنَ الدَّهْرِ

Betapa banyak orang yang sehat kemudian meninggal tanpa didahului sakit…

Dan betapa banyak orang yang sakit yang masih bisa hidup beberapa lama

فَكَمْ مِنْ فَتًى أَمْسَى وَأَصْبَحَ ضَاحِكًا *** وَقَدْ نُسِجَتْ أَكْفَانُهُ وَهُوَ لاَ يَدْرِي

Betapa banyak pemuda yang tertawa di pagi dan petang hari

Padahal kafan mereka sedang ditenun dalam keadaan mereka tidak sadar

وَكَمْ مِنْ صِغَارٍ يُرْتَجَى طُوْلُ عُمْرِهِمْ *** وَقَدْ أُدْخِلَتْ أَجْسَامُهُمْ ظُلْمَةَ الْقَبْرِ

Betapa banyak anak-anak yang diharapkan panjang umur…

Padahal tubuh mereka telah dimasukkan dalam kegelapan kuburan

وَكَمْ مِنْ عَرُوْسٍ زَيَّنُوْهَا لِزَوْجِهَا *** وَقَدْ قُبِضَتْ أَرْوَاحُهُمْ لَيْلَةَ الْقَدْرِ

Betapa banyak mempelai wanita yang dirias untuk dipersembahkan kepada mempelai lelaki…

Padahal ruh mereka telah dicabut tatkala di malam lailatul qodar

TugasVB

Pada kesempatan kali ini akan kita bahas mengenai suatu program untuk menampilkan suatu bilangan dengan menggunakan perintah For. Dapat kita lihat di atas tampilan programnya.
Kemudian akan kita jelaskan bagian code programnya sebagai berikut :

Public Class Form1
Untuk Button Proses 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer >>> Membuat variabel i dengan tipe data integer
ListBox1.Items.Clear() >>> Menghapus data yang ada di ListBox1
For i = 1 To Val(TextBox1.Text) >>> Untuk i bernilai 1 hingga batas bilangan yang dimasukkan di TextBox1
If i Mod 7 = 0 Then >>> jika nilai i dibagi 7 memiliki sisa 0 kemudian lakukan penghitungan
If i Mod 4 = 0 Then >>> jika nilai i dibagi 4 memiliki sisa 0 kemudian
ListBox1.Items.Add(i) >>> cetak/tampilkan bilangan tersebut di ListBox1
End If
End If
Next
End Sub


Untuk Button Proses 2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer >>> Membuat variabel i dengan tipe data integer
ListBox2.Items.Clear() >>> Menghapus data yang ada di ListBox2
For i = 1 To Val(TextBox1.Text) >>> Untuk i bernilai 1 hingga batas bilangan yang dimasukkan di TextBox1
If i Mod 4 = 3 Then >>> jika nilai i dibagi 4 memiliki sisa 3 kemudian
ListBox2.Items.Add(i) >>> cetak/tampilkan bilangan tersebut di ListBox2
End If
Next
End Sub
End Class

Dari program di atas, jika dijalankan akan ditampilkan sebagai berikut:










Untuk Proses 1 jika nilai batasan bilangan 100 maka bilangan yang habis dibagi 7 dan 4 akan ditampilkan bilangan 28, 56, dan 84.
Untuk Proses 2 jika nilai batasan bilangan 100 maka bilangan yang jika dibagi 4 memiliki sisa bagi 3 akan ditampilkan bilangan 3, 7, 11, 15, 19, 23, 27, dan seterusnya.

Latihan penggunaan ComboBox dan For

Code program

Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
ComboBox1.Items.Add(TextBox1.Text)
End If
End Sub

Penjelasan :
Combo Box akan menyimpan data yang telah diisikan melalui TextBox1 dengan perintah enter
If e.KeyChar = Chr(13) Then >>> Ketika menisikan data di TextBox1 kemudian di Enter maka
ComboBox1.Items.Add(TextBox1.Text) >>> ComboBox1 akan mengambil/menyimpan data TextBox1
Maka akan ditampilkan sebagai berikut:








Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
For i = 4 To Val(TextBox2.Text)
If i Mod 2 = 0 Then
ListBox1.Items.Add(i)
Else
ListBox1.Items.Add(i)
End If
Next
End Sub

Penjelasan :
Dim i As Integer >>> Membuat variabel i dengan tipe data integer
ListBox1.Items.Clear() >>> Menghapus data yang ada di ListBox1
For i = 4 To Val(TextBox2.Text) >>> Untuk i bernilai 4 hingga batas bilangan yang dimasukkan di TextBox2 misal 20
If i Mod 2 = 0 Then >>> jika nilai i dibagi 2 memiliki sisa 0 maka
ListBox1.Items.Add(i) >>> cetak/tampilkan di ListBox1
Else >>> jika tidak
ListBox1.Items.Add(i) >>> cetak/tampilkan di ListBox1
End If
Next >>> program akan melakukan pengulangan hingga nilai c = batas bilangan di TextBox2 yaitu 20
End Sub

Maka akan ditampilkan sebagai berikut:













Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a, b, c As Integer
a = 4
b = 7
For c = 4 To Val(TextBox2.Text)
If c Mod a = 0 Then
ListBox1.Items.Add(c)
a = c
Else
If c Mod b = 0 Then
ListBox1.Items.Add(c)
b = c
End If
End If
Next
End Sub
End Class

Penjelasan :
Dim a, b, c As Integer >>> Membuat variabel a, b, c dengan tipe data integer
a = 4 >>> nilai awal a adalah 4
b = 7 >>> nilai awal b adalah 7
For c = 4 To Val(TextBox2.Text) >>>untuk c bernilai 4 hingga batas bilangan di TextBox2 misal 20
If c Mod a = 0 Then >>> jika c dibagi a bernilai 0 kemudian
ListBox1.Items.Add(c) >>> cetak/tampilkan nilai c tersebut
a = c >>> nilai a selanjutnya adalah sama dengan c
Else >>> jika tidak lakukan
If c Mod b = 0 Then >>> jika c dibagi b bernilai 0 kemudian
ListBox1.Items.Add(c) >>> cetak/tampilkan nilai c tersebut
b = c >>> nilai b selanjutnya adalah sama dengan c
End If
End If
Next >>> program akan melakukan pengulangan hingga nilai c = batas bilangan di TextBox2 yaitu 20
End Sub

Maka akan ditampilkan sebagai berikut:

Ukuran kartu nama

Berikut adalah beberapa ukuran kartu nama yang sering dipakai (gbr hanya ilustrasi, tidak mencerminkan ukuran sebenarnya).

Kami mencetak semua ukuran, termasuk yang tidak ada di daftar ini ( max 88 x 53 mm)

Untuk Indonesia, ukuran paling umum adalah 88 x 53 mm.

Wah punyaku mana?

Berikut para finalis design logo media tren.com bagus bagus juga




















Selamat buat para finalis.....
untuh lebih jelasnya kunjungi www.mediatren.com

Wah ternyata pemenangnya kaya gini designnya















Selamat deh buat pemenangnya

Hasil karyaku

Design grafis

Saat melihat pengumuman pemenang sayembara logo keketuaan Indonesia di ASEAN 2011 yang di-publish di website Kementrian Luar Negeri RI (www.deplu.go.id), saya hanya bisa mengatakan “selamat”.
Berikut ini logo yang menjadi juara pertama, harapan satu, dan harapan dua. Selamat kepada yang bersangkutan.

(Pemenang) Edi Jatmiko, Mahasiswa Desain Komunikasi Visual, Fakultas Seni Rupa, Institut Seni Indonesia, Yogyakarta.

(Pemenang Harapan I) Michael Nathaniel Kurniawan, Dosen Desain Komunikasi Visual, Universitas Ciputra, Surabaya.

(Pemenang Harapan II) Joko Sumariyanto, Karyawan Seksi PE B Casting Wheel PT. Astra Honda Motor, Cikarang Barat, Bekasi.

Awalnya saya pesimis ndak bakal menang tapi setelah melihat pengumumannya. wah ndak disangka-sangka dan pada akhirnya Alhamdulillah dapat nominasi juga hehehehe, mudah mudahnya kedepannya bisa lebih baik. Padahal tidak punya basic design grafis cuma iseng-iseng berhadiah wkwkwkwkwkwk. Kalau dilihat dari lawannya aja dah begitu berat, soalnya orang yang emang dah terjun di dunia design seperti 2 orang pemenang lainnya yaitu mahasiswa dan dosen design grafis. dibanding ma saya hanya kuli pabrik ya cukup menggembirakan juga. Bagi saya emang bener bener iseng-iseng berhadiah. Kedepannya harus semakin baik n bisa jadi designer yang profesional tidak hanya iseng-iseng doang.....