CARA MERAWAT LCD PADA LAPTOP

 

 

LCD laptop merupakan sebuah komponen output yang sangat penting dalam sebuah laptop atau notebook. Bagaimana tidak, di LCD inilah semua output dari laptop akan ditampilkan, sehingga jika komponen ini rusak maka otomatis laptop tidak akan bisa dipakai sama sekali. Kerusakan LCD tidak seperti kerusakan bagian lain yang menyusun sebuah laptop, karena jika sudah rusak maka kemungkinan besar cara penanganannya adalah dengan cara diganti.

 

Kerusakan LCD laptop sendiri juga bisa disebabkan oleh banyak hal, namun bisa terbagi menjadi dua penyebab utama yaitu cacat produk dari pabrik atau karena penggunaan yang kurang benar. Untuk masalah yang pertama memang tidak banyak yang bisa dilakukan, karena memang LCD sudah mengalami cacat sedang pembuatan, sehingga bisa dibilang bahwa kerusakan yang akan terjadi hanya tinggal menunggu waktu.

Sedangkan faktor penyebab rusaknya LCD laptop yang kedua bisa diminimalisir dengan cara penggunaan dan perawatan yang benar.

Sedangkan untuk jenis masalah atau kerusakan yang sering dialami oleh LCD laptop juga beragam, misalnya tampilan yang bergaris, bergetar naik turun, warna yang semakin pudar, hingga hilangnya warna tertentu yang tidak bisa ditampilkan oleh LCD atau biasa dikenal dengan istilah missing color. Masalah tersebut umum dialami oleh LCD yang masih menggunakan backlight berupa neon atau inverter. Jika sudah mengalami gejala biasanya kerusakan semakin lama jugua akan semakin parah, dan satu-satunya cara adalah dengan menggantinya.

Berikut ini cara merawat LCD laptop yang benar, sehingga akan lebih tahan lama dan tidak mudah rusak.

1. Hindari penggunaan laptop atau notebook selama lebih dari 3 jam secara berturut-turut. Panasnya suhu LCD akan berpengaruh pada sel liquid dan komponen lain yang ada di dalamya. Jika terlalu lama terkena panas maka akan cepat aus atau rusak. Solusinya adalah dengan mematikannya sekitar 10-15 terlebih dahulu baru kemudian menyalakannya lagi.
2. Atur brightness dan contrast layar LCD pada level menengah dan cukup terang untuk bisa dibaca.
3. Hanya gunakan cairan khusus pembersih LCD untuk membersihkannya secara teratur dan jangan gunakan cairan lain terutama yang bersifat keras atau dapat merusak bahan LCD.
4. Pada menu Power Option di dalam Windows aturlah agar dalam waktu beberapa menit LCD akan mati sehingga bisa menghemat energi sekaligus mengurangi waktu nyala LCD.

Semoga artikel cara merawat LCD laptop ini bisa bermanfaat untuk anda sehingga LCD anda bisa lebih awet dan tahan lama.

Fakta Menarik Seputar Daur Ulang Kardus

Kardus (Corrugated Paper) merupakan bahan kemasan yang digunakan untuk melindungi suatu produk selama distribusi dari produsen ke konsumen. Kardus terbuat dari bahan dasar berupa kertas yang diketahui mudah sekali mengalami kerusakan. Walaupun begitu, sampah kardus tetap saja dapat menimbulkan masalah yang dapat menganggu kebersihan dan keindahan lingkungan. Di Indonesia pemanfaatan sampah kardus masih belum dilakukan dengan optimal. Padahal sampah kardus yang sudah tidak terpakai tersebut dapat dimanfaatkan kembali melalui proses daur ulang.
Sebenarnya, secara tidak langsung pengolahan daur ulang kardus ini dapat mengurangi laju kerusakan hutan. Proses daur ulang kardus tidak hanya menghasilkan kardus baru saja, melainkan dapat diolah menjadi berbagai macam produk. Salah satu contoh produk hasil daur ulang kardus ini adalah karton dupleks. Karton dupleks adalah jenis karton yang terdiri dari dua lapisan atau lebih. Umumnya lapisan pada bagian atas memiliki warna putih dengan permukaan yang rata sehingga mempunyai sifat cetak yang baik.
Tidak hanya kelebihannya saja, ternyata kardus yang dihasilkan dari hasil daur ulang juga memiliki beberapa kelemahan. Berikut beberapa fakta menarik terkait kardus daur ulang:

1. Kardus hasil daur ulang (recycle) memiliki struktur yang tidak jauh berbeda dengan kardus baru. Perbedaan kecil yang teramati hanyalah pada ketebalannya saja, yang mana kardus daur ulang memiliki struktur yang sedikit lebih tebal karena penambahan lapisan gelombang.
2. Kardus terbuat dari bahan dasar kertas, oleh sebab itu baik kardus daur ulang maupun kardus baru tetap saja tidak tahan terhadap air dan kelembaban udara yang tinggi. Kerusakan yang ditimbulkan biasanya akan membuat rekatan antar lapisan menjadi terbuka sehingga akan mempengaruhi kekuatan struktur dari kardus.
3. Daur ulang kardus dapat dilakukan dengan berbagai macam desain, bentuk, dan tujuan. Hal ini disesuaikan terhadap produk yang ingin dikemas dengan kemasan kardus. Biasanya semakin tebal struktur kardus, ditujukan untuk produk-produk yang membutuhkan perlindungan tinggi agar tidak rusak.
4. Daur ulang kardus dilakukan dengan menggunakan sistem modul saat proses perekatan. Ini dilakukan agar mempermudah penyesuaian ukuran atau bentuk yang dibutuhkan untuk membuat sebuah kardus, sehingga akan menekan banyaknya bahan kardus yang terbuang. Proses cetak sendiri dilakukan dengan menggunakan sistem cetak sablon (silk-screen printing), masking, atau hand-painting. Namun, teknik pencetakan sablon ini cukup sulit diterapkan karena permukaan material dari kardus yang tidak rata.
5. Pada dasarnya kardus adalah bahan baku yang dapat didaur ulang berkali-kali. Selain itu, penggunaan bahan-bahan lain seperti perekat berbasis air selama proses pengolahan tidak berdampak buruk terhadap lingkungan (bio-degradable).
6. Dalam proses daur ulang kardus tidak membutuhkan peralatan yang mahal dan canggih, serta tidak membutuhkan keahlian khusus, bahkan kardus dapat diolah di industri kecil sekalipun (skala rumah tangga

TIPS CARA PERAWATAN LCD TV


Televisi adalah barang primer yang ada di setiap rumah di Indonesia. Sebagai alat penghibur yang murah, Anda dapat membelinya dengan mencicil, televisi mengalami perkembangan dari jaman ke jaman. Tren televisi saat ini adalah televisi dengan LCD lebar dan datar. Dahulu layar Tv terbuat dari tabung kaca yang tebal. Namun layar TV LCD merupakan panel dtar yang tipis dan sama sekali tidak dilapisi kaca. Sehingga, layar LCD sangat rentan terhadap goresan, kotoran dan goncangan. LCD merupakan singkatan dari Liquid Crystal Display  Perawatan LCD TV tidaklah sulit untuk dilakukan di rumah. Berikut ada beberapa tips untuk membersihkan dan merawat layar LCD TV:
Perawatan LCD TV

• Layar LCD sangat rentan terhadap debu dan kotoran. Jagalah kebersihan tempat sekitar lokasi TV dari debu dan kotoran lainnya. Dabu dapat berakibat pada menurunnnya kualitas warna layar TV. Anda dapat melindungi LCD dengan lapisan pelindung (screen protector) agar terhindar dari goresan dan debu.

• Berhati-hatilah jika ingin memindahkan TV LCD dari satu tempat ke tempat lain karena LCD TV rentan terhadap goncangan dan dapat menurunkan kualitas gambar TV.

• Jagalah agar LCD TV tidak mengalami goresan benda tajam atau benda tumpul. Goresan pada layar LCD dapat mengakibatkan menurunnya kualitas gambar.

• Lepaskan sambungan listrik bila tidak dipakai. Jika dianggap perlu, tutuplah layar LCD dengan penutup khusus.

• Perawatan LCD TV yang paling penting adalah menjauhkan benda-benda elektronik lain yang memiliki gelombang elektromagnetik tinggi seperti ponsel, laptop, komputer, iPad dan lainnya.

• Jagalah suhu dan kelembaban dalam ruangan. Jangan menaruh terlalu banyak barang elektronik dalam satu ruangan, apalagi memakainya secara bersamaan. Menggunakan barang elektronik dapat meningkatkan suhu ruangan. Sediakan kipas angin atau AC untuk menyejukkan ruangan.

Membersihkan LCD TV

• Gunakan kain berserat lembut dan cairan khusus pembersih layar monitor komputer, tablet, laptop dan lainnya. Cabutlah sambungan dengan listrik terlebih dahulu. Semprotkan cairan khusus perawatan LCD TV pada kain, jangan menyemprotkan cairan pembersih langsung ke layar LCD. Gosok permukaan LCD dengan lembut dalam satu arah misalnya dari atas ke bawah atau dari kanan ke kiri.

• Selalu gunakan cairan pembersih khusus LCD. Tidak boleh menggunakan air biasa seperti air PAM karena mengandung sisa klorida. Sisa klorida

• Untuk perawatan LCD TV, sebaiknya menggunakan kain berbahan mikrofiber yang lembut dan berfitur anti gores. Hindari penggunaan kain biasa yang berserat kasar atau tisu untuk membersihkan LCD TV, karena dapat menggores permukaan layar LCD dan mengakibatkan munculnya titik di layar LCD. Titik tersebut tidak dapat menampilkan tampilan warna yang baik dan biasa disebut dead pixel.

CONTOH-CONTOH PROGRAM MATEMATIKA SEDERHANA DENGAN VB 6.0

CONTOH-CONTOH PROGRAM MATEMATIKA SEDERHANA DENGAN VB 6.0

Baiklah dalam postingan kita akan membuat program-program matematika sederhana dengan VB dimana materi ini juga sudah pernah saya bahas dalam postingan bahasa pemrograman C++, yaitu :
Program Hitung Gaji Karyawan dengan C++

Program c++ Menghitung Keliling dan Luas Segitiga 

Program c++ Menghitung Keliling dan Luas Lingkaran  

Program c++ Tarif Parkir 

C++ Menghitung Luas, Keliling Persegi Panjang Dan Lingkaran 

Baik Langsung saja bahas contoh program yang pertama menggunakan VB :

contoh 1 : Membuat Program Faktorial Dengan Vb 6.0

a.    Buatlah New Project pada software VB anda kemudian tambahkan tiga buah label, tiga commandbutton dan dua textbox pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :

Gambar Program faktorial

b.    kemudian ketikkan code/listing/script program berikut :

Private Sub Command1_Click()

Dim a, b, i As Integer

i = 1

b = Text1.Text

For a = 1 To b

i = i * a

Next

Text2.Text = i

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

c.     Run(F5) dan coba masukkan nilai faktorial 4 dimana 4!=1x2x3x4=24 berikut dapat anda lihat hasilnya pada gambar dibawah ini :

Gambar Program faktorial dengan VB 6.0

contoh 2 : Membuat Program Penghitung Determinan dan Penjumlahan, Perkalian Matriks Berordo 2x2 dengan VB 6.0

a.    Buatlah New Project pada software VB anda kemudian tambahkan 5 buah label, tiga commandbutton, 13 textbox dan 3  optionbutton pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :

Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB

b.    kemudian ketikkan code/listing/script program berikut :

Private Sub Command1_Click()

If Option2.Value = True Then

Text12.Text = Val(Text1.Text) + Val(Text8.Text)

Text11.Text = Val(Text2.Text) + Val(Text7.Text)

Text10.Text = Val(Text3.Text) + Val(Text6.Text)

Text9.Text = Val(Text4.Text) + Val(Text5.Text)

ElseIf Option3.Value = True Then

Text13.Text = (Val(Text1.Text) * Val(Text4.Text) - Val(Text2.Text) * Val(Text3.Text)) + (Val(Text8.Text) * Val(Text5.Text) - Val(Text7.Text) * Val(Text6.Text))

Else

Text12.Text = (Val(Text1.Text) * Val(Text8.Text)) + (Val(Text2.Text) * Val(Text6.Text))

Text11.Text = (Val(Text1.Text) * Val(Text7.Text)) + (Val(Text2.Text) * Val(Text5.Text))

Text10.Text = (Val(Text3.Text) * Val(Text8.Text)) + (Val(Text4.Text) * Val(Text6.Text))

Text9.Text = (Val(Text3.Text) * Val(Text7.Text)) + (Val(Text4.Text) * Val(Text5.Text))

End If

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

c.     Silahkan run(F5) program anda coba masukkan nilai pada matriks A dan matriks B kemudian pilih salah satu option lalu tekan tombol proses,,selamat mencoba !

Gambar Program Determinan, penjumlahan dan perkalian matriks dengan VB 6.0

MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC

MEMBUAT APLIKASI ACAK ANGKA (RANDOM) DENGAN VISUAL BASIC

Selamat Datang di Blog aldino, seperti biasa kita akan membuat aplikasi sederhana dengan program visual basic dimana mudah-mudahan postingan ini dapat membantu anda setidaknya menambah referensi anda.

1.  Buatlah New Project pada software VB anda kemudian tambahkan lima kontrol label, satu kontrol timer dan tiga kontrol commandbutton pada form. Atur desain form seperti pada gambar berikut : 

 Gambar Aplikasi Acak angka 

2.   Ubah properti masing-masing kontrol dengan ketentuan sebagai berikut :

 

Kontrol	Properti	Setting
Label1, Label2, Label3, Label4, Label5	Caption Border Style Font	Semua dikosongkan 1-FixedSingle Bold dan ukuran 28
Timer1	Enabled Interval	False 100
Command1	Caption	Start
Command2	Caption	Stop
Command3	Caption	Keluar

  

3.   Klik ganda kontrol Timer, kemudian ketik program berikut :

Private Sub Timer1_Timer()

'label akan menampilkan bilangan acak 0-9'

Label1.Caption = Int(Rnd * 10)

Label2.Caption = Int(Rnd * 10)

Label3.Caption = Int(Rnd * 10)

Label4.Caption = Int(Rnd * 10)

End Sub

Rnd *10 atau Random akan menghasilkan bilangan acak desimal antara

0.12457-9.21654. Sedangkan int(integer) berfungsi untuk membulatkan

bilangan yang dihasilkan dari Rnd *10 dan hasil yang nantinya ditampilkan

adalah bilangan bulat antara 0-9.

Jadi perintah diatas adalah untuk menampilkan bilangan acak angka 0-9 pada

label1, label2, label3 dan label4.

4.  Klik ganda command1 (tombol start), kemudian ketikkan kode/script/listing berikut :

Private Sub Command1_Click()

'time diaktifkan'

Timer1.Enabled = True

'mengosongkan masing-masing label'

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

End Sub

Apabila tombol start diklik maka timer1 akan difungsikan untuk menampilkan bilangan acak pada masing-masing label.

5.  Klik ganda command2 (tombol stop), kemudian ketikkan kode/script/listing berikut :

Private Sub Command2_Click()

'time tidak diaktifkan'

Timer1.Enabled = False

'label 5 akan menampilkan hasil bilangan acak'

Label5.Caption = Label1.Caption & Label2.Caption & Label3.Caption & Label4.Caption

End Sub

Apabila tombol stop diklik, maka proses acak bilangan pada label1, label2, label3 dan label4 akan dihentikan dan hasilnya akan ditampilkan pada label5.

6.  Klik ganda command3(tombol Keluar),kemudian ketikkan kode/script/listing berikut :

Private Sub Command3_Click()

End

End Sub

7.  Jalankan program (F5) dan klik tombol start untuk mulai mengacak angka    lalu tekan tombol stop untuk menghentikannya.

8.  Hasilnya seperti gambar berikut :

 Gambar Hasil Aplikasi Acak Angka  

9.  Selamat mencoba kawan,, :)

MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC

MEMBUAT PROGRAM KALKULATOR DENGAN VISUAL BASIC

selamat datang di blog ALDINO....

Bagi anda yang sering memanfaatkan kalkulator yang merupakan bagian adri aksesoris Windows, mungkin pernah berkeinginan untuk membuat kalkulator sendiri dan mungkin pula keinginan anda tersebut belum terwujud, karena anda belum tahu cara membuatnya.

          Dengan Tip berikut ini, anda akan dapat mewujudkan keinginan tersebut, karena membuat kalkulator dengan visual basic tidak sesulit bayangan anda.

1.     Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

2.      Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1(1). Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1(2). Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.

3.     Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut.

4.     Kemudian atur properti caption untuk commandButton sehingga tampilannya menjadi seperti berikut.  

5.     Agar kalkulator dapat dioperasikan, tambahkan sepuluh buah commanButton baru.

6.     Atur properti kontrol TextBox dan CommandButton baru seperti berikut.  

Kontrol	Properti
Text1	Text
Command2	Name Caption	Koma .
Command3	Name Caption	AC AC
Command4	Name Caption	Tambah +
Command5	Name Caption	Kurang -
Command6	Name Caption	Tanda +/-
Command7	Name Caption	Bagi /
Command8	Name Caption	Kali x
Command9	Name Caption	Akar Akar
Command10	Name Caption	Hasil =l
Command11	Name Caption	Kuadrat X^2

7.     Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :

8.     Buka jendela kode, lalu ketikkan kode berikut ini:

Private pilihan As String

Private x As Double

Private y As Double

Private Sub AC_Click()

Text1.Text = ""

y = x = 0

Tanda.Enabled = False

End Sub

Private Sub Akar_Click()

If x < 0 Then

Text1.Text = "Angka Tidak Boleh Negatif Coy"

Else

Text1.Text = Sqr(x)

End If

End Sub

Private Sub Bagi_Click()

Text1.Text = ""

pilihan = "bagi"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text & Command1(Index).Caption

x = Text1.Text

Tanda.Enabled = True

End Sub

Private Sub Form_Load()

Tanda.Enabled = False

End Sub

Private Sub Hasil_Click()

If pilihan = "tambah" Then

x = y + x

Text1.Text = x

ElseIf pilihan = "kurang" Then

x = y - x

Text1.Text = x

ElseIf pilihan = "kali" Then

x = y * x

Text1.Text = x

ElseIf pilihan = "bagi" And x <> 0 Then

x = y / x

Text1.Text = x

Else

Text1.Text = "Tidak Terdefinisi"

End If

End Sub

Private Sub Kali_Click()

Text1.Text = ""

pilihan = "kali"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Koma_Click()

If Text1.Text = "" Then

Text1.Text = "0."

Else

Text1.Text = Text1.Text & "."

End If

End Sub

Private Sub Kuadrat_Click()

Text1.Text = x ^ 2

End Sub

Private Sub Kurang_Click()

Text1.Text = ""

pilihan = "kurang"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Tambah_Click()

Text1.Text = ""

pilihan = "tambah"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Tanda_Click()

If x < 0 Then

Text1.Text = -x

x = -x

Else

Text1.Text = "-" & Text1.Text

x = -x

End If

End Sub

 9.     Selamat Mencoba.....! :)

MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC

MEMBUAT PROGRAM SIMULASI LAMPU LALU LINTAS DENGAN VISUAL BASIC

Selamat Datang di Blog aldino, seperti biasa kita akan membuat aplikasi sederhana dengan program visual basic dimana mudah-mudahan postingan ini dapat membantu anda setidaknya menambah referensi anda.

1.     Langkah pertama buka program Visual Basic

2.     Pilih standar.exe untuk New Project kemudian Klik Open

3.     Tambahkan 5 Label 1 label untuk judul dan 4 label untuk waktu masing-masing simpang, 4 frame untuk masing-masing simpang dan 12 shape dimana atur properti fillstyle mendaji solid dan fillcolor pilih warna yang sesuai serta satu buah timer dan desainlah menjadi seperti gambar dibawah ini :

4.     Ubah Properti Interval pada control Timer dengan memasang nilai 1000 dan dalam keadaan false.

5.     Masukkan kode program seperti dibawah ini :

Private Sub tunda()

a = Timer

Do While Timer < 1 + a

DoEvents

Loop

End Sub

Private Sub Form_Load()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

For i = 0 To 10

Label1(0).Caption = 11 - i

Label1(1).Caption = 21 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 0 Then

Shape10.FillColor = &HC0C0&

Shape1.FillColor = &HC0&

Shape2.FillColor = vbYellow

Shape5.FillColor = vbRed

Shape8.FillColor = vbRed

Shape11.FillColor = vbRed

Else

Shape12.FillColor = &H8000&

Shape2.FillColor = &HC0C0&

Shape3.FillColor = vbGreen

End If

tunda

Next i

For i = 10 To 20

Label1(0).Caption = 51 - i

Label1(1).Caption = 21 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 10 Then

Shape5.FillColor = &HC0&

Shape3.FillColor = &H8000&

Shape2.FillColor = vbYellow

Shape4.FillColor = vbYellow

Else

Shape2.FillColor = &HC0C0&

Shape4.FillColor = &HC0C0&

Shape1.FillColor = vbRed

Shape5.FillColor = &HC0&

Shape6.FillColor = vbGreen

End If

tunda

Next i

For i = 20 To 30

Label1(0).Caption = 51 - i

Label1(1).Caption = 61 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 20 Then

Shape8.FillColor = &HC0&

Shape6.FillColor = &H8000&

Shape4.FillColor = vbYellow

Shape7.FillColor = vbYellow

Else

Shape4.FillColor = &HC0C0&

Shape7.FillColor = &HC0C0&

Shape5.FillColor = vbRed

Shape8.FillColor = &HC0&

Shape9.FillColor = vbGreen

End If

tunda

Next i

For i = 30 To 40

Label1(0).Caption = 51 - i

Label1(1).Caption = 61 - i

Label1(2).Caption = 71 - i

Label1(3).Caption = 41 - i

If i = 30 Then

Shape11.FillColor = &HC0&

Shape9.FillColor = &H8000&

Shape7.FillColor = vbYellow

Shape10.FillColor = vbYellow

ElseIf i = 40 Then

Shape2.FillColor = vbYellow

Shape10.FillColor = vbYellow

Shape12.FillColor = &H8000&

Shape1.FillColor = &HC0&

Else

Shape7.FillColor = &HC0C0&

Shape10.FillColor = &HC0C0&

Shape8.FillColor = vbRed

Shape11.FillColor = &HC0&

Shape12.FillColor = vbGreen

End If

tunda

Next i

End Sub

Selamat Mencoba.... :)