9 Tips Menghilangkan Jerawat

Jerawat akan lebih menyiksa lagi karena sering muncul pada masa pubertas yang katanya sebagian besar orang adalah masa yang paling indah, masa2 pacaran. bagaimana kita bisa punya pacar jika wajah kita merupakan sarang jerawat? Pasti sulit sekali bukan? Berikut ini tips yang akan membuat jerawat anda hilang dan tidak akan mengganggu penampilan anda lagi :

1. Mencuci wajah 2 kali sehari Tips menghilangkan jerawat yang pertama adalah dengan cara mencuci wajah 2 kali sehari. Mencuci wajah 2 kali sehari akan membantu menghilangkan minyak di permukaan kulit kita. Jika kita jarang membersihkannya, maka bakteri penyebab jerawat akan hidup subur di wajah kita. Namun ingat..jangan mencuci wajah apalagi menggosok wajah secara berlebihan karena malah akan meningkatkan produksi minyak sobaceous yang dapat menyebabkan masalah kulit pada wajah. Cucilah wajah 2 kali sehari dengan menggunakan sabun yang lembut.

2. Sesuaikan kosmetik dengan jenis kulit anda

Jika kulit anda berminyak maka gunakanlah kosmetik untuk kulit berminyak, jika kosmetik yang anda gunakan tidak sesuai dengan jenis kulit anda..jerawat akan segera mendatangi kulit wajah anda. Jadi berhati-hatilah dalam memilih kosmetik.

3. sebisa mungkin hindari kosmetik yang berminyak.

secara alami wajah kita akan menmproduksi minyak, bahkan kulit kering sekalipun. Jadi sebisa mungkin hindarilah hindarilah menggunakan kosmetik yang berlebihan karena minyak dan debu akan menjadi media bakteri penyebab jerawat untuk bermukim di wajah kita.

4. Keringkan wajah kita dengan handuk yang bersih setelah cuci muka atau mandi, karena bakteri juga menyukai tempat yang lembab dan hangat.

5. Minum air putih

Hampir 70% kulit kita terdiri dari air, dengan minum air minimal 2 liter sehari, maka kulit kita akan selalu fit dan sehat.

6. gunakan pelembab kulit

Menggunakan pelembab akan membantu menyehatkan kulit kita, terutama dari kulit kering dan pecah2. Namun pelembab disini bukan berarti pelembab yang berminyak..sekarang sudah banyak produk kosmetik yang berbahan dasar air.

7. selalu pastikan kulit anda bersih sebelum tidur.

Selalu cuci muka anda sebelum tidur agar kulit beregenerasi dengan baik.

8. Sering-seringlah makan sayur dan buah.

sayur2an mengandung banyak vitamin yang menyehatkan kulit kita. Perbanyaklah makan sayur atau buah, terutama yang mengandung vitamin E. Dengan kulit yang sehat, maka jerawat akan sukar untuk tumbuh dan berkembang.

9. Tidur yang cukup dan teratur.

Kulit juga sama seperti kita, butuh istirahat. Jadi biasakanlah untuk tidur yang cukup dan teratur. Karena saat kita tidur, kulit akan beregenerasi dan membuang racun2 yang berbahaya sehingga saat kita bangun keesokan harinya kulit kita akan kebali segar.

9 cara menghilangkan jerawat diatas merupakan tips menghilangkan jerawat yang sangat mudah untuk diikuti. Jika anda melakukannya dengan teratur dan disiplin, bukan tidak mungkin jerawat di wajah anda akan berangsur-angsur hilang..dan wajah anda menjadi mulus lagi serta bebas jerawat. Semoga tips menghilangkan jerawat ini bermanfaat bagi anda.

http://www.pusatgratis.com/info/9-tips-menghilangkan-jerawat.html

Iklan

Sourch Code DbTest (Tugas Yahoo 6, 280312)


Private Sub CMBPS_Change()
Select Case CMBPS.Text
Case “STRATA SATU”
Case “DIPLOMA 3”
Case “DIPLOMA 2”
Case “DIPLOMA 1”
End Select
End Sub
Private Sub CMDB_Click()
TXTNPM.Text = “”
TXTNM.Text = “”
CMBPS.Text = “”
TXTN1.Text = “”
TXTN2.Text = “”
TXTN3.Text = “”
TXTRATA.Text = “”
TXTHM.Text = “”
End Sub

Private Sub CMDEND_Click(Index As Integer)
End
End Sub

Private Sub CMDH_Click()
TXTNPM.Text = “”
TXTNM.Text = “”
CMBPS.Text = “”
TXTN1.Text = “”
TXTN2.Text = “”
TXTN3.Text = “”
TXTRATA.Text = “”
TXTHM.Text = “”
End Sub

Private Sub CMDP_Click()
TXTRATA.Text = (Val(TXTN1.Text) + Val(TXTN2.Text) + Val(TXTN3.Text)) / 3
If TXTRATA.Text >= 85 Then
TXTHM.Text = “A”
ElseIf TXTRATA.Text >= 75 Then
TXTHM.Text = “B”
ElseIf TXTRATA.Text >= 65 Then
TXTHM.Text = “C”
ElseIf TXTRATA.Text >= 45 Then
TXTHM.Text = “D”
ElseIf TXTRATA.Text < 45 Then
TXTHM = “E”
End If
End Sub
Private Sub CMDS_Click(Index As Integer)
Data1.Refresh
With Data1.Recordset
.AddNew
.Fields(“NPM”) = TXTNPM.Text
.Fields(“NAMA MAHASISWA”) = TXTNM.Text
.Fields(“PROGRAM STUDY”) = CMBPS.Text
.Fields(“NILAI 1”) = TXTN1.Text
.Fields(“NILAI 2”) = TXTN2.Text
.Fields(“NILAI 3”) = TXTN3.Text
.Fields(“NILAI RATA-RATA”) = TXTRATA.Text
.Fields(“HURUF MUTU”) = TXTHM.Text
.Update
End With
End Sub

Private Sub Form_Load()
CMBPS.AddItem “STRATA SATU”
CMBPS.AddItem “DIPLOMA 3”
CMBPS.AddItem “DIPLOMA 2”
CMBPS.AddItem “DIPLOMA 1”
End Sub
Private Sub TXTN1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then TXTN2.SetFocus
End Sub
Private Sub TXTN2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then TXTN3.SetFocus
End Sub

Private Sub TXTNM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then CMBPS.SetFocus
End Sub
Private Sub TXTNPM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then TXTNM.SetFocus
End Sub

Program PT.Pulang Petang Setiap Hari

Dim nik As String

Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtgol.Text = “”
txtks.Text = “”
txtst.Text = “”
txth.Text = “”
txtj.Text = “”
txtb.Text = “”
txtgp.Text = “”
txttnj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command2_Click()
txtgol.Text = “”
txtks.Text = “”
txtst.Text = “”
txth.Text = “”
txtj.Text = “”
txtb.Text = “”
txtgp.Text = “”
txttnj.Text = “”
txttg.Text = “”
End Sub
Private Sub cmdproses_Click()
nik = Mid(txtnik.Text, 9, 1)
If nik = “A” Then
txtgol.Text = “A”
txtj.Text = “MANAJER”
txtgp.Text = “3000000”
txttnj.Text = “875000”
ElseIf nik = “B” Then
txtgol.Text = “B”
txtj.Text = “KA.SEKSI”
txtgp.Text = “2500000”
txttnj.Text = “525000”
ElseIf nik = “C” Then
txtgol.Text = “C”
txtj.Text = “STAFF”
txtgp.Text = “2000000”
txttnj.Text = “325000”
End If

nik = Mid(txtnik.Text, 5, 4)
txth.Text = nik
nik = Left(txtnik.Text, 3)
If nik = “SDM” Then
txtb.Text = “General Affair”
ElseIf nik = “KEU” Then
txtb.Text = “Akounting”
ElseIf nik = “ADM” Then
txtb.Text = “Administrasi”
ElseIf nik = “SPM” Then
txtb.Text = “scurity”
ElseIf nik = “EDP” Then
txtb.Text = “IT Unit”

End If

nik = Right(txtnik.Text, 1)
If nik = “S” Then
txtst.Text = “SINGLE”
txtks.Text = “S”
ElseIf nik = “M” Then
txtst.Text = “MENIKAH”
txtks.Text = “M”
ElseIf nik = “D” Then
txtst.Text = “DUDA”
txtks.Text = “D”
ElseIf nik = “J” Then
txtst.Text = “JANDA”
txtks.Text = “J”
End If

txttg.Text = Val(txtgp.Text) + Val(txttnj.Text)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub

Aplikasi Stok Barang

Private Sub Command1_Click()
Dim KB As String
KB = Text1.Text
KB = Right(Text1.Text, 1)
If KB = “T” Then
Text2.Text = “Tape”
Text6.Text = “275000”
ElseIf KB = “S” Then
Text2.Text = “Sound Sistem”
Text6.Text = “350000”
ElseIf KB = “C” Then
Text2.Text = “Compact”
Text6.Text = “480000”
End If
Text3.SetFocus
Text4.Text = Val(Text3.Text) – Val(Text5.Text)
Text7.Text = Val(Text5.Text) * Val(Text6.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Penjualan Tiket Kereta Api

Private Sub Command1_CLICK()
Dim Kd As String
Kd = Text1.Text
Kd = Left(Text1.Text, 3)
If Kd = “BIM” Then
Text3.Text = “BIMA”
Text2.Text = “50000”
Text4.Text = “16.00”
ElseIf Kd = “EKO” Then
Text3.Text = “EKONOMI”
Text2.Text = “35000”
Text4.Text = “19.00”
ElseIf Kd = “MUT” Then
Text3.Text = “MUTIARA”
Text2.Text = “23000”
Text4.Text = “17.00”
ElseIf Kd = “SEN” Then
Text3.Text = “SENJA”
Text2.Text = “15000”
Text4.Text = “20.00”
End If
Text5.SetFocus
Text6.Text = Val(Text5.Text) * (Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Aplikasi Huruf Mutu Mahasiswa

Private Sub Combo1_click()
Dim Nm, Jur As String
Select Case Combo1.Text
Case “11100042”
Nm = “FITRIYANI”
Jur = “SISTEM INFORMASI”
Case “11200077”
Nm = “PUSPTA DEWI”
Jur = “MANAJEMEN INFORMATIKA”
Case “11300078”
Nm = “SEPTIANA”
Jur = “TEHNIK INFORMATIKA”
Case “11100079”
Nm = “TOTO ISWANTO”
Jur = “SISTEM INFORMASI”
Case “11200081”
Nm = “SUPRAPTO”
Jur = “MANAJEMEN INFORMATIKA”
Case “11300082”
Nm = “NOVI SUSANTI”
Jur = “TEHNIK INFORMAIKA”
Case “11100084”
Nm = “SUKMAWATI”
Jur = “SISTEM INFORMASI”
Case “11200085”
Nm = “LENI APRIANI”
Jur = “MANAJEMEN INFORMATIKA”
Case “11300086”
Nm = “NURMALITA SARI”
Jur = “TEHNIK INFORMATIKA”
Case “11200087”
Nm = “HENI LESTARI”
Jur = “MANAJEMEN INFORMATIKA”
End Select
Text2.Text = Jur
Text1.Text = Nm
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Text7.Text = (Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
If Val(Text7.Text) > 80 And Val(Text7.Text) <= 100 Then
Text8.Text = “A”
ElseIf Val(Text7.Text) > 70 And Val(Text7.Text) <= 80 Then
Text8.Text = “B”
ElseIf Val(Text7.Text) > 60 And Val(Text7.Text) <= 70 Then
Text8.Text = “C”
ElseIf Val(Text7.Text) > 50 And Val(Text7.Text) <= 60 Then
Text8.Text = “D”
ElseIf Val(Text7.Text) <= 50 Then
Text8.Text = “E”
End If
End Sub

Private Sub Command2_Click()
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “11100042”
Combo1.AddItem “11200077”
Combo1.AddItem “11300078”
Combo1.AddItem “11100079”
Combo1.AddItem “11200081”
Combo1.AddItem “11300082”
Combo1.AddItem “11100084”
Combo1.AddItem “11200085”
Combo1.AddItem “11300086”
Combo1.AddItem “11200087”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub

Aplikasi Perhitungan Gaji

Private Sub Command1_Click()
Text4 = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5 = 10 * Val(Text4.Text) / 100
Text6 = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Perhitungan Harga Setelah Discount 10%

Private Sub Command1_Click()
Text2 = 10 * Val(Text1.Text) / 100
Text3 = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Property Test

Private Sub Check1_Click()
Label2.FontBold = True

End Sub

Private Sub Check2_Click()
Label2.FontItalic = True

End Sub

Private Sub Command1_Click()
Label2 = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Font Style & Font Colour

Private Sub Check1_Click()
Label1.FontBold = True
End Sub

Private Sub Check3_Click()
Label1.FontStrikethru = True
End Sub

Private Sub Check4_Click()
Label1.FontUnderline = True
End Sub

Private Sub Check5_Click()
Label1.FontItalic = True
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub

Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub

Private Sub Option5_Click()
Label1.ForeColor = vbGreen
End Sub