program 6

 

PROGRAM6

Private Sub CmdBATAL_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

 

 

Private Sub CmdLAGI_Click()

TxtNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

TxtTM.Text = “20” & Left(TxtNPM.Text, 2)

S = Mid(TxtYHSNPM.Text, 3, 1)

If S = “1” Then

TxtJUR.Text = “Sistem Informasi”

ElseIf S = “2” Then

TxtYJUR.Text = “Manajemen Informatika”

End If

S = Mid(TxtNPM.Text, 4, 2)

If S = “01” Then

TxtPS.Text = “Strata Satu”

ElseIf S = “02” Then

TxtPS.Text = “Diploma Tiga”

End If

TxtURUT.Text = Right(TxtNPM.Text, 3)

 

End Sub

 

Private Sub Form_Activate()

TxtYNAMA.SetFocus

TxtNAMA.Text = “”

TxtNPM.Text = “”

TxtJUR.Text = “”

TxtPS.Text = “”

TxtTM.Text = “”

TxtURUT.Text = “”

 

End Sub

 

Private Sub TxtTM_Change()

 

End Sub

 

Private Sub TxtNAMA_Change()

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

End Sub

 

Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNPM.SetFocus

End If

 

End Sub

 

 

PROGRAM 5

 

 

Private Sub Cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan.Text

Case “I”

gapok = 500000000

tunjangan = 500000

Case “II”

gapok = 10000000

tunjangan = 1000000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 30000000

tunjangan = 3000000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

 

 

Private Sub Cmdbatal_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

TxtYHSNIP.SetFocus

TxtYHSNIP.Text = “”

Txtnama.Text = “”

Cbogolongan.Text = “”

Txtgapok.Text = “”

Txttunjangan.Text = “”

Txtpajak.Text = “”

Txttotal.Text = “”

End Sub

 

Private Sub Form_Load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

Private Sub Txtnip_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

 

End Sub

program 4

 

PROGRAM 4

Private Sub CboNPM_Click()

Dim NAMA, JURUSAN, HM As String

 

Select Case CboNPM.Text

Case “12201018”

NAMA = “ARIS SETIAWAN”

JURUSAN = “MANAJEMEN INRORMATIKA”

Case “12201020”

NAMA = “YOHANES KRISNAWAN”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201019”

NAMA = “DARWIN SAPUTRA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201021”

NAMA = “METALIANA”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “12201018”

NAMA = “SITI FATHONAH”

JURUSAN = “Manajemen Informatika”

End Select

TxtNAMA.Text = NAMA

TxtJURUSAN.Text = JURUSAN

TxtQUIS.SetFocus

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub CmdLAGI_Click()

CboNPM.SetFocus

CboNPM.Text = “”

TxtNAMA.Text = “”

TxtJURUSAN.Text = “”

TxtQUIS.Text = “”

TxtTUGAS.Text = “”

TxtUTS.Text = “”

TxtUAS.Text = “”

TxtNA.Text = “”

TxtHM.Text = “”

End Sub

 

Private Sub CmdPROSES_Click()

Dim NA As Integer

Dim HM As String

quis = Val(TxtQUIS.Text)

TUGAS = Val(TxtTUGAS.Text)

UTS = Val(TxtUTS.Text)

UAS = Val(TxtUAS.Text)

NA = (quis + TUGAS + UTS + UAS) / 4

TxtNA.Text = NA

 

Select Case TxtNA.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

TxtHM.Text = HM

End Sub

 

Private Sub Form_Load()

CboNPM.AddItem “12100018”

CboNPM.AddItem “12201020”

CboNPM.AddItem “12201019”

CboNPM.AddItem “12201021”

CboNPM.AddItem “12201018”

End Sub

 

 

Private Sub TxtNAMA_Change()

 

End Sub

 

Private Sub TxtQUIS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTUGAS.SetFocus

End If

End Sub

 

 

Private Sub TxtTUGAS_KeyPress(KeyAscii As Integer)

If KESASCII = 13 Then

TxtUAS.SetFocus

End If

End Sub

Private Sub TxtUAS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtUTS.SetFocus

End If

End Sub

program 3

 

PROGRAM 3

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

 

Private Sub Text1_Change()

 

End Sub

 

program 2

 

PROGRAM 2

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(Txt2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End Sub

 

Private Sub CmdULANG_Click()

Txt1 = “”

Txt2 = “”

Txt3 = “”

Txt4 = “”

Txt5 = “”

Txt6 = “”

End Sub

 

 

 

Private Sub Txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

End If

End Sub

 

 

Private Sub Txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt3.SetFocus

End If

End Sub

 

 

Private Sub TxtYHS3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim A, B, C, D, E, F As Double

Txt4.Text = Val(Txt1.Text) + Val(TxtY2.Text) – Val(Txt2.Text)

Txt5.Text = Val(Txt4.Text) * (0.1)

Txt6.Text = Val(Txt4.Text) – Val(Txt5.Text)

End If

End Sub

 

 

 

program 1

 

PROSRAM 1

 

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lbltext.FontBold = True

Else

Lbltext.FontBold = False

End If

End Sub

 

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltext.FontItalic = True

Else

Lbltext.FontItalic = False

End If

End Sub

 

Private Sub Chkstrikeout_Click()

If Chkstrikeout.Value = 1 Then

Lbltext.FontStrikethru = True

Else

Lbltext.FontStrikethru = False

End If

End Sub

 

Private Sub Chkunderline_Click()

If Chkunderline.Value = 1 Then

Lbltext.FontUnderline = True

Else

Lbltext.FontUnderline = False

End If

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Optblue_Click()

Lbltext.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

Lbltext.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

Lbltext.ForeColor = vbRed

End Sub

 

Private Sub optyellow_Click()

Lbltext.ForeColor = vbYellow

End Sub

 

PROGRAM 3

Private Sub Command1_Click()

T ext 3.Text = Val(T ext 1.Text) + Val(T ext 2.Text)

T ext 4.Text = Val(Text 1.Text) * Val(T ext 2.Text)

T ext 5.Text = Val(Text 1.Text) – Val(T ext 2.Text)

End Sub

 

 

Private Sub Command2_Click()

T ext 1.SetFocus

T ext 1 = “”

T ext 2 = “”

T ext 3 = “”

T ext 4 = “”

T ext 5 = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

Private Sub T ext 1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T ext 2.SetFocus

End If

End Sub

 

Private Sub T ext 2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

T ext 3.Text = Val(T ext 1.Text) + Val(T ext 2.Text)

T ext 4.Text = Val(Text 1.Text) * Val(Text 2.Text)

T ext 5.Text = Val(Text 1.Text) – Val(T ext 2.Text)

End If

End Sub

PROGRAM 2

PROGRAM 2

 

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

PROGRAM 1

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

NILAI TUKAR: Rupiah Melemah Jadi Rp9.690/Dolar AS

Oleh adminkepri on Jan 17th, 2013

JAKARTA–Setelah sempat menguat pada penutupan perdagangan kemarin, nilai tukar rupiah kembali terdepresiasi nilai tukar rupiah hari ini, Kamis (17/1).

Hingga pukul 10.00 WIB, nilai tukar rupiah terdepresiasi Rp22 atau 0,23% terhadap dolar AS ke level Rp9.690/US$.

Pada penutupan perdagangan kemarin, Rabu (16/1), mata uang Garuda itu ditutup menguat terhadap dollar AS sebesar Rp200 atau 2,03%% ke level Rp9.668 per dolar AS. Sepanjang hari kemarin, rupiah ditransaksikan pada kisaran Rp9.665-Rp9.884 per dolar AS.

Sementara itu, sejak awal pembukaan perdagangan hingga saat ini, rupiah ditransaksikan pada kisaran Rp9.655-Rp9.690/US$.

Dari indeks nilai tukar Bloomberg pukul 10.05 WIB diketahui dollar AS hanya menguat terhadap lima mata uang Asia yakni Jepang, Hong Kong, Indonesia, India, dan Thailand. (bisnis/Achmad Aris/spr/k59)

Nilai tukar dolar AS terhadap mata uang Asia

Kamis 17 Januari 2013

Kurs	Nilai	Perubahan	WIB
$ Australia	1,0535	-0,35%	10:07:06
$ Selandia Baru	0,8408	-0,02%	10:06:23
Yen	88,4600	+0,09%	10:06:22
$Hong Kong	7,7529	+0,01%	10:07:05
$Singapura	1,2237	-0,02%	10:07:22
$Taiwan	28,9720	-0,13%	10:03:19
Won	1.057,6000	-0,11%	10:07:11
Peso	40,6240	-0,19%	10:05:04
Rupiah	9.700,0000	+0,33%	10:04:31
Rupee	54,6937	+0,13%	01/16/2013
Yuan	6,2173	-0,02%	10:06:12
Ringgit	3,0145	-0,15%	10:06:36
Bath	29,8300	+0,07%	10:07:16

Sumber: Bloomberg