Image

Advertisements
Aside | Posted on by | Tagged , , , , , , | Leave a comment

Image

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = 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

Aside | Posted on by | Leave a comment

Image

Private Sub Chkbold_Click()
If Chkbold.Value = 1 Then
Lblteks.FontBold = True
Else
Lblteks.FontBold = False
End If
End Sub

Private Sub Chkitalic_Click()
If Chkitalic.Value = 1 Then
Lblteks.FontItalic = True
Else
Lblteks.FontItalic = False
End If
End Sub

Private Sub Chkstrike_Click()
If Chkstrike.Value = 1 Then
Lblteks.FontStrikethru = True
Else
Lblteks.FontStrikethru = False
End If
End Sub

Private Sub chkunder_Click()
If chkunder.Value = 1 Then
Lblteks.FontUnderline = True
Else
Lblteks.FontUnderline = False
End If
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

Private Sub OptBlue_Click()
Lblteks.ForeColor = vbBlue

End Sub

Private Sub OptGreen_Click()
Lblteks.ForeColor = vbGreen

End Sub

Private Sub OptRed_Click()
Lblteks.ForeColor = vbRed

End Sub

Private Sub OptYellow_Click()
Lblteks.ForeColor = vbYellow

End Sub

Aside | Posted on by | Leave a comment

TUGAS VISUAL BASIC

TUGAS1

Image

Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

 

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

 

Private Sub Command3_Click()
Unload Me
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.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub

TUGAS 2

Image

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
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.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub

 

 

 Tugas 3

Image

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

 

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

 

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

 

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

 

Private Sub Command5_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub

 

Private Sub Command6_Click()
Unload Me
End Sub

 

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

tugas 4

 

 Image

Private Sub Command1_Click()
Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
End Sub

 

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

 

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

 

Private Sub Command4_Click()
Unload Me
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

 

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

tugas 5

Image

Private Sub Command1_Click()
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.1
End If
End Sub

 

 

 

 

 

 

 

Posted in Uncategorized | Leave a comment

CARA MEMAKAI JILBAB SEGI EMPAT MODERN

Sabtu, 13 Oktober 2012 di 02:35 WIB

Setelah kemarin saya mengulas cara memakai jilab paris, Sekarang saya akan berbagi trik cara memakai jilbab segi empat.

Cara Memakai Jilbab Segi Empat

Cara Memakai Jilbab :

  1. Pakailah jilbab segiempat seperti biasa
  2. Lipatlah jilbab segiempat tadi menjadi bentuk segitiga dan pasanglah salah satu ujung jilbab tersebut tepat dibawah dagu dengan dililit kemudian rapikan dengan menggunakan peniti.
  3. Pasanglan jilbab segi empat yang kedua dengan menggunakan cara yang pertama tadi.
  4. Setelah selesai ekor jilbab yang pertama diangkat keatas jilbab yang kedua tadi, lalu rapikanlah menggunakan jarum pentul.
  5. Sisa ujung dari jilbab kedua ini akan kita buat ke bentuk bunga, yaitu dengan cara memilin jilbab kedua tadi menyerupai bunga.
  6. Setelah selesai kunci dengan jarum pentul.
  7. Lakukanlah terus sampai ujung jilbab tersebut habis dan berubah bentuk menjadi bunga.
Posted in Uncategorized | Leave a comment

Manfaat Air Putih Untuk Kesehatan dan Kecantikan kulit

 

Sabtu, 29 September 2012

Sebagian besar tubuh kita merupakan cairan dan lebih dari 50 persen. Sumber cairan yang paling mudah kita dapat adalah air putih atau air mineral dan tahukah anda bahwa banyak manfaat air putih untuk kesehatan dan kecantikan kulit. Oleh karena itu, para ahli kesehatan menghimbau agar kita minum air putih 2 liter per hari atau setara dengan 8 gelas per harinya.

Mengapa kita perlu minum air putih? Karena cairan tersebut dibutuhkan untuk mengganti cairan tubuh yang hilang lewat keringat, air seni, pernapasan dan sekresi. Setiap orang membutuhkan cairan yang berbeda-beda karena banyak faktor yang mempengaruhinya diantaranya iklim. Orang yang berada di iklim panas akan cenderung membutuhkan banyak cairan daripada orang yang hidup di iklim dingin.

Sangat pentingnya cairan untuk tubuh, jadi sebaiknya anda penuhi kebutuhan cairan tubuh anda dengan minum air putih. Nah, untuk lebih jelasnya tentang pentingnya air putih, pada kesempatan kali ini admin akan mengulas sedikit mengenai manfaat air putih untuk kesehatan dan kecantikan kulit.

manfaat air putih

Berikut manfaat air putih untuk kesehatan dan kecantikan kulit

1. Memperlancar sistem pencernaan
Jika kebutuhan cairan dalam tubuh anda terpenuhi, maka anda akan terhindar dari konstipasi karena cairan dalam proses pencernaan selain membantu penyerapan nutrisi juga berfungsi untuk membentuk massa kotoran manusia.

2. Mencegah batu ginjal
Batu ginjal sebenarnya disebabkan karena garam dan garam itu menurut teori larut dalam air. Dengan memenuhi kebutuhan air dalam tubuh, maka batu ginjal akan larut dan ikut keluar dengan air seni.

3. Mencegah keriput dini
Salah satu faktor terjadinya keriput dini adalah karena kulit terlalu kering. Dengan minum air putih yang cukup, kelembaban kulit anda akan terjaga. Kelembaban tersebut dapat menjaga elastisitas kulit sehingga anda akan terhindar dari keriput dini.

Selain yang disebutkan di atas, manfaat air putih sebenarnya masih banyak lagi baik untuk kesehatan ataupun untuk kecantikan anda. Semoga beberapa penjelasan di atas mengenai manfaat air putih untuk kesehatan dan kecantikan kulit dapat bermanfaat untuk anda.

 

Advertisements

Posted in Uncategorized | Leave a comment

Entertainment

Eza Gionino Aniaya Ardina Rasti Setelah Minta Balikan

Prih Prawesti Febriani – detikhot

Kamis, 10/01/2013 19:11 WIB
Browser anda tidak mendukung iFrame

Ardina Rasti (rachman/detikhot)

Jakarta – Meski telah dianiaya, Ardina Rasti tetap memaafkan Eza karena masih mencintainya. Kepada Rasti, bintang sinetron ‘Putih Abu-Abu’ itu berjanji tak akan mengulanginya lagi. Namun, janji cuma sekadar janji.

Rasti pun mengalami hal serupa pada Juni 2012. Rasti mengungkapkan, dirinya memang bertengkar dengan Eza beberapa hari sebelum kejadian. Saat itu Eza melarangnya untuk syuting film dan FTV.

“Dia coba larang-larang saya ambil FTV dan layar lebar. Sampai akhirnya saya tetap maksa ambil job, karena nggak bisa bayar listrik dan cicilan,” tuturnya.

Rasti mengakui hubungan mereka sempat putus akibatnya kejadian itu. Setelah Rasti pulang dari lokasi syuting di Puncak, Eza pun berusaha menemuinya untuk minta balikan.

“Sepulang dari Puncak dia muncul dengan alasan menyesal putus dengan saya. Dia minta balikan, dan ke rumah saya. Ternyata dia bukan minta balik tapi melakukan tindakan penganiayaan selama 2 jam,” ujarnya.

Setelah penganiayaan kedua itu, Rasti pun tak mau lagi berhubungan dengan Eza.

 

Posted in Uncategorized | Leave a comment