web

web

cara membuat web

tugas

Tugas 4

Nomor3

Private Sub Cmd1_Click()

Dim K, J, P, H, N As String

K = Mid(CMB1.Text, 3, 3)

If K = “SIM” Then

J = “SISTEM INFORMASI MANAJEMAN”

P = “YATI NUR OKTAFIA”

H = “75900″

ElseIf K = “EDP” Then

J = “ELEKTRONIK DATA PROCESSING”

P = “IMAM TARMIJI”

H = “62000″

ElseIf K = “MNJ” Then

J = “MANAJEMEN”

P = “VALENTINA MARIANA ADIWIATI”

H = “42000″

ElseIf K = “CDR” Then

J = ” COREL DRAW”

P = “RIYAN SUHANDI”

H = “53000″

ElseIf K = “RPL” Then

J = “REKAYASA PERANGKAT LUNAK”

P = “SINTA UMPU SINGA”

H = “83000″

End If

Text1.Text = J

Text2.Text = P

Text5.Text = H

 

K = Left(CMB1.Text, 1)

If K = “A” Then

N = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

N = “INDAH SURABAYA”

ElseIf K = “S” Then

N = “SALEMBA EMPAT”

ElseIf K = “E” Then

N = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

N = “MAXICOM”

End If

 

Text4.Text = N

Text3.Text = “20″ & Right(CMB1.Text, 2)

End Sub

 

Private Sub Cmd2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

End Sub

 

Private Sub Cmd3_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

CMB1.AddItem “A-SIM-01″

CMB1.AddItem “I-EDP-02″

CMB1.AddItem “S-MNJ-03″

CMB1.AddItem “E-CDR-04″

CMB1.AddItem “M-RPL-05″

End Sub

Tugas 4

Nomor2

Private Sub Combo1_Click()

Dim G, T, P, TT As Variant

Select Case Combo1.Text

Case “I”

G = 2500000

T = 250000

Case “II”

G = 2750000

T = 275000

Case “III”

G = 3000000

T = 300000

Case Else

G = 0

T = 0

End Select

TT = G + T

P = TT * 0.1

Text3.Text = G

Text4.Text = T

Text5.Text = P

Text6.Text = TT – P

End Sub

Private Sub Command1_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Combo1 = “”

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Combo1 = “”

Text5 = “”

Text6 = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

tugas 4

Nomor1

Private Sub Combo1_Click()

Dim N, J As String

Select Case Combo1.Text

Case “12201135″

N = “Uun Riyani”

J = “Manajemen Informatika”

Case “12201133″

N = “Siska Novita”

 J = “Sistem Informasi”

Case “12100493″

N = “Juni Astuti”

J = “Manajemen Informatika”

Case “12100494″

N = “Ratna Sari”

J = “Manajemen Informatika”

Case “12100495″

N = “fatma”

J = “Manajemaen Informatika”

Case “12201136″

N = “novitri”

J = “Manajemen Informatika”

Case “12100497″

N = “laila”

J = “Sistem Informasi”

Case “12201137″

N = “irawan”

J = “Sistem Informasi”

End Select

Text1.Text = N

Text2.Text = J

Text3.SetFocus

End Sub

 

Private Sub Command1_Click()

Text7.Text = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)

Text7.Text = Text7.Text / 4

If Text7.Text >= 90 Then

Text8.Text = “A”

ElseIf Text7.Text >= 80 Then

Text8.Text = “B”

ElseIf Text7.Text >= 70 Then

Text8.Text = “C”

ElseIf Text7.Text >= 60 Then

Text8.Text = “D”

ElseIf Text7.Text <= 50 Then

Text8.Text = “E”

End If

End Sub

 

Private Sub Command2_Click()

Text3.SetFocus

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

 

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “12100491″

Combo1.AddItem “12100492″

Combo1.AddItem “12100493″

Combo1.AddItem “12100494″

Combo1.AddItem “12100495″

Combo1.AddItem “12100496″

Combo1.AddItem “12100497″

Combo1.AddItem “12100498″

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 2

Script 1

 

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

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

Script 2

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

Private Sub Command1_Click()

Text2.Text = Val(Text1.Text) * 0.1

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

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End If

End Sub

Script 3

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) + Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

                        

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

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.SetFocus

End If

End Sub

 

 

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.Text = Val(Text1.Text) + Val(Text3.Text)

Text5.Text = Val(Text4.Text) * 0.1

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End If

End Sub

 

Private Sub Text4_Change()

End Sub

Script 4

Normal
0

false
false
false

EN-US
X-NONE
X-NONE

/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin-top:0cm;
mso-para-margin-right:0cm;
mso-para-margin-bottom:10.0pt;
mso-para-margin-left:0cm;
line-height:115%;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:”Calibri”,”sans-serif”;
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:”Times New Roman”;
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

 

Private Sub Command2_Click()

Text4.Text = Val(Text1.Text) – Val(Text2.Text)

End Sub

 

Private Sub Command3_Click()

Text5.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

 

Private Sub Command4_Click()

Text6.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Command5_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Text4.Text = Val(Text1.Text) – Val(Text2.Text)

Text5.Text = Val(Text1.Text) / Val(Text2.Text)

Text6.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

 

Private Sub Command6_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

 

Private Sub Command7_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub

 

Private Sub Command8_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

 

 

 

 

 

 

 

 

 

 

Cara Menghilangkan Komedo Secara Alami

Cara Menghilangkan Komedo Secara Alami – Komedo yang sering membandel yang menggangu penampilan anda bisa sangat mudah dihilangkan dengan cara alami. berikut ini elangajib akan berbagi cara untuk menghilangkan komedo secara alami.

Cara Menghilangkan Komedo Secara Alami

 

1. Cuci wajah Anda sehari sekali dengan menggunakan air hangat yang sudah dicampur garam, garam akan mengurangi minyak berlebih pada wajah, dalam kata lain membantu menghilangkan komedo.
2. Patahkan batang lidah buaya lalu oleskan lendirnya ke area berkomedo, lidah buaya akan menghaluskan kulit dan mempercepat proses penyembuhan kulit, hasilnya, kulit lebih segar dan halus tanpa komedo.
3. Usapkan es batu di sekitar area berkomedo kira-kira 10 menit, es batu ini akan membuat pori-pori kulit mengecil hingga komedo tidak mudah menembusnya.
4. Minum lebih banyak air putih, air putih membantu membersihkan sistem pencernaan dan membuat kulit lebih halus dan bercahaya.
5. Campurkan sebutir putih telur lalu tambahkan 1 sendok teh madu, oleskan pada wajah dan biarkan mengering selama 20-30 menit, kemudian bersihkan wajah dengan air hangat, cara ini dilakukan untuk mengurangi komedo sekaligus membantu mencegah kemunculan komedo baru.

NUSANTARA

H-1 Pilgub Sumut, Selebaran Sudutkan Gatot-Erry Beredar

Wahyudi Siregar – Okezone

Rabu, 06 Maret 2013 13:56 wib

Browser anda tidak mendukung iFrame

Selebaran berbentuk kupon atas nama PKS (foto: Ist)

MEDAN – Setelah Kantor DPW PKS dilempar petasan oleh orang tidak kenal pada Selasa malam, kini giliran pasangan calon gubernur yang diusung dalam Pilgub Sumut 2013, menjadi sasaran kampanye hitam. PKS mengusung pasangan Gatot Pujonugroho dan Tengku Erry Nuradi (Ganteng) dalam pesta demokrasi lima tahunan sekali itu.

Pantauan Okezone, beredar selebaran yang menyatakan bahwa Gatot Pujonugroho memiliki banyak Isteri. Di samping itu ada pula selebaran yang menyatakan jika pasangan Ganteng sebagai pemimpin pengkhianat yang menghalalkan segala cara untuk mendapatkan jabatan. Teranyar, beredar pula kupon pembagian sembako dan uang tunai oleh PKS.

Ketua DPW PKS Sumut Muhammad Hafez mengatakan, keberadaan isu yang memojokkan pasangan Ganteng tidaklah benar. Menuruntya, tindakan itu bentuk kegamangan rival politik dalam pilgub lantaran pasangan Ganteng diproyeksikan unggul satu putaran oleh sejumlah lembaga servei.

“Saya pikir beberapa bukan merupakan isu lama, yang sebelumnya juga sudah dibantah, dan tidak terbukti. Kalau menurut saya, orang-orang yang menyebarkan kampanye hitam ini, ya lawan politik kami juga, yang gamang mengahapi situasi akhir-akhir ini. Kita serahkan saja lah pada Kepolisian dan Panwaslu. Kita mau fokus memenangkan pasangan GanTeng dulu,” ujarnya di Medan, Rabu (6/3/2013).

Pemilihan Gubernur Sumatera Utara akan berlangsung Kamis, 7 Maret 2013 dengan diikuti oleh lima pasangan calon. Secara berurutan mereka adalah, Gus Irawan-Soekirman, Effendi Simbolon-Jumiran Abdi, Chairuman Harahap-Fadly Nurzal, Amri Tambunan-RE Nainggolan dan Gatot Pujonugroho-Tengku Erry Nuradi.