progremer

This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 2 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Sabtu, 23 Maret 2013

membuat aplikasi penjualan tiket kendaraan

13.54    No comments
Ini Untuk Coding,,, nya selamat mencoba
Private Sub Command1_Click()
End
End Sub

Private Sub proses_Click()
'Gunakan fungsi IF untuk menguji nilai kode
    If kode.Text = "KA" Then
       jenis.Text  "Kereta Api"
       harga.Text = 125000
    ElseIf kode.Text = "KL" Then
       jenis.Text  "Kapal Laut"
       harga.Text = 250000
    ElseIf kode.Text = "KT" Then
       jenis.Text  "Kapal Terbang"
       harga.Text = 750000
    End If
'menghitung nilai Total
  total.Text = harga.Text * jml.Text
End Sub

semoga bermanfaat bagi anda para pemula
Read More

Kamis, 14 Maret 2013

Cara Merawat Baterai Laptop

07.58    1 comment

Baterai laptop? Jangan salah bukan baterai senter atau baterai radio yang murah. Jika baterai laptop sampai rusak, harganya pun cukup mahal dibandingkan dengan baterai senter xixi kecuali harga baterai senternya astronot dijamin lebih mahal dari baterai manapun haha lha kalo kehabisan baterai di bulan masak ya mampir di pasar Genteng Surabaya :-D
Oleh karena itulah, baterai laptop Anda harus dijaga dengan baik. Jangan sampai kita tidak mengetahui cara merawat baterai laptop. Agar performa baterai laptop Anda awet dan tahan lama, tidak cepat panas dan memiliki umur yang panjang dan tidak meledak! (serius nih, ada baterai laptop yang dapat meledak karena salah pemakaian) maka lakukanlah beberapa cara optimalisasi baterai laptop yang mudah berikut ini :
  1. Pastikan voltase dan ampere charger laptop Anda sesuai dengan spesifikasi laptop Anda. Adaptor sangat berpengaruh terhadap daya tahan baterai. Maka gunakanlah charger original jangan yang abal-abal. Karena dapat merusak baterai laptop karena daya listrik yang tidak seusai.
  2. Jika baterai dicharge sudah penuh, segera lepaskan charge baterai. Karena lama-kelamaan jika masih tetap ditancapkan akan mengurangi usia baterai bahkan bisa meledak (kabarnya baterai laptop sekarang sudah aman dari hal ini, tetapi toh sesuatu yang berlebihan itu tidak baik bukan?)
  3. Aktifkan icon baterai di taskbar agar Anda dapat mengontrol kondisi baterai laptop Anda.
  4. Manfaatkan layanan power option di bagian control panel windows Anda karena dapat membantu untuk mengoptimalkan kinerja baterai. Setting pada opsi portable atau laptop.
  5. Jangan membiarkan baterai Anda dalam kondisi kosong terlalu lama. Karena hal ini dapat merusak cell baterai.
Lima ini aja dulu ya :-) silakan digunakan untuk merawat baterai laptop Anda  agar lebih awet dan panjang umurnya xixixi :-)
Itulah artikel web hacker tentang Cara Mengoptimalkan Baterai Laptop Yang Mudah semoga membantu Anda. Terimakasih atas kunjungan Anda, semoga menjadikan belajar komputer online kita bermanfaat. Amin :-)
Read More

Membuat Layout Dengan CSS

07.42    No comments

Selamat Sore Sahabat IP, kali ini saya akan memberikan tutorial tentang pembuatan layout web tanpa table, tetapi menggunakan CSS. Lebih mudah dan lebih SImple, Check it out. sebernarnya sih saya juga masih belajar Hehehe,,,


Langkah Pertama Buat Sebuah Folder WEB kamu, dan buat 2 buah file yaitu:
1 style.css
2. index.html
isi index.html sebagai beikut


?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
<!--
 
<head>
 
    <link href="style.css" mce_href="style.css" rel='stylesheet' type='text/css' />
 
 
</head>
 
<body>
 
</body>
-->
    
seperti biasa, file html harus diawali dengan tag dan di akhiri dengan
Selanjutnya buatlah isi dari style.css sebagai berikut :

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
/*Untuk Merangkum Semua Elemen Web (Header/Content/Fotter) */
#wrap {
        margin:0 auto;
        width: 960px;
        height: auto;
      }
/*Akhir*/
 
#header {
            height : 195px;
            background:#c7c7c7;
}
#sidebar {
            float : left;
            width : 250px;
            height : auto;
            padding:5px;
            background:pink;
            -moz-border-radius:10px 10px 10px 10px;    
            -moz-box-shadow:0 0 3px #555555;       
 
}
#content {
            float : left;
            width : 690px;
            height : auto;
            padding:5px;
            background:#e6e7e9;
            clear:both;
}
 
#footer {
            color : #ffffff;
            height : 50px;
            clear : both;
            background: #111;
            background: -moz-linear-gradient(#444, #111);
            background: -webkit-gradient(linear,left bottom,left top,color-stop(0, #111),color-stop(1, #444)); 
            background: -webkit-linear-gradient(#444, #111);   
            background: -o-linear-gradient(#444, #111);
            background: -ms-linear-gradient(#444, #111);
            background: linear-gradient(#444, #111);
            padding:10px;
            border-radius:0 0 10 10;
}
oke, udah belum?
lanjut untuk yang isi index.html lagi ya.

?
1
2
3
4
5
6
7
<div id="wrap">
    <div id="header">Ini Header</div>
    <div id="content">Ini Content</div>
    <div id="sidebar">Ini Sidebar</div>
    <div id="footer">Ini Footer</div>
</div>
Letakin kode diatas diantara tag dan Kalo udah ya di save, kemudian jalanin / klik file index.html nya. Kalo ada yang mau nanya, koment dibawah ya.. ^_^

Hasilnya adalah ,,jreng,, jreng..


Read More

Selasa, 12 Maret 2013

Contoh Aplikasi Sederhana Visual Basic

07.18    No comments



  Berikut ini adalah contoh Aplikasi sederhana dengan menggunakan Visual Basic:
Selamat Mencoba..
 


Aplikasi ini terdiri dari dua bagian, yaitu :
  • Input, terdiri dari :
  1. 5 label yaitu label ID, Name, Quantity, Quality, dan Category
  2. 2 buah Textbox yaitu pada Textbox ID dan nama
  3. 1 buah NumericUpDown
  4. 1 buah radio button
  5. 1 buah combo box
  6. 3 buah button, yaitu add, update dan delete. Add berfungsi untuk menambahkan data ke output, update untuk mengupdate data jika ada data yang salah satu atau beberapa data yang diubah, dan delete untuk menghapus satu baris data.
  • Output, terdiri dari
  1. 5 label yaitu label ID, name, Qty, Quality, dan Category
  2. 5 Listbox yaitu listbox ID, name, Qty, Quality, dan Category
Adapun Codingnya adalah sebagai berikut :
Public Class Form1
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
lbID.Items.Add(tbID.Text)
lbName.Items.Add(tbName.Text)
lbQuantity.Items.Add(NumericUpDown1.Value)
If rbGood.Checked = True Then lbQuality.Items.Add(“Good”) Else lbQuality.Items.Add(“Bad”)
lbCategory.Items.Add(ComboBox1.SelectedItem)
tbID.ResetText()
tbName.ResetText()
NumericUpDown1.ResetText()
rbBad.Checked = False
rbGood.Checked = False
ComboBox1.ResetText()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
ComboBox1.Items.Add(“Paper”)
ComboBox1.Items.Add(“Plastic”)
ComboBox1.Items.Add(“Iron”)
ComboBox1.Items.Add(“Wood”)
ComboBox1.SelectedIndex = 0
End Sub
Private Sub lbID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbID.SelectedIndexChanged
For i = 0 To 100
If lbID.SelectedIndex = i Then
lbName.SelectedIndex = i
lbQuality.SelectedIndex = i
lbQuantity.SelectedIndex = i
lbCategory.SelectedIndex = i
tbID.Text = (lbID.SelectedItem)
tbName.Text = (lbName.SelectedItem)
lbQuality.Text = (lbQuality.SelectedItem)
lbQuantity.Text = (lbQuantity.SelectedItem)
lbCategory.Text = (lbCategory.SelectedItem)
NumericUpDown1.Value = (lbQuantity.SelectedItem)
End If
Next
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
lbID.Items.Remove(tbID.Text)
lbName.Items.Remove(tbName.Text)
lbQuantity.Items.Remove(NumericUpDown1.Value)
lbQuality.Items.Remove(lbQuality.Text)
lbCategory.Items.Remove(lbCategory.SelectedItem)
If tbID.Text <> lbID.SelectedItem Then
lbID.Items.Remove(lbID.SelectedItem)
lbID.Items.Add(tbID.Text)
Else
tbID.Text = (lbID.SelectedItem)
End If
If tbName.Text <> lbName.SelectedItem Then
lbName.Items.Remove(lbName.SelectedItem)
lbName.Items.Add(tbName.Text)
Else
tbName.Text = lbName.SelectedItem
End If
If NumericUpDown1.Value <> lbQuantity.SelectedItem Then
lbQuantity.Items.Remove(lbQuantity.SelectedItem)
lbQuantity.Items.Add(NumericUpDown1.Value)
Else
lbQuantity.Text = (lbQuantity.SelectedItem)
End If
If rbGood.Checked = True Then lbQuality.Items.Add(“Good”) Else lbQuality.Items.Add(“Bad”)
lbCategory.Items.Add(ComboBox1.SelectedItem)
tbID.ResetText()
tbName.ResetText()
NumericUpDown1.ResetText()
rbBad.Checked = False
rbGood.Checked = False
ComboBox1.ResetText()
End Sub
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
lbID.Items.Remove(tbID.Text)
lbName.Items.Remove(tbName.Text)
lbQuantity.Items.Remove(NumericUpDown1.Value)
lbQuality.Items.Remove(lbQuality.Text)
lbCategory.Items.Remove(ComboBox1.SelectedItem)
End Sub
End Class

jangan pernah berkata tidak bisa kalau belum di coba 
Read More