web

Video

web

Advertisements

Tugas 4

Gambar

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

Aside

Gambar

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

Gambar

Gambar

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

Image

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

Image

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

 

 

 

 

 

 

 

 

 

 

Aside

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

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.