TUGAS NPM,JURUSAN DATA BASE

Gambar

 

Private Sub cmdsimpan_Click()

 

Data1.Recordset.Update

 

End Sub

 

 

 

Private Sub Command1_Click()

 

kode = Mid(txtnpm.Text, 3, 1)

 

If kode = “1″ Then

 

txtjur.Text = “Sistem Informasi”

 

ElseIf kode = “2″ Then

 

txtjur.Text = “Manajemen Informatika”

 

ElseIf kode = “3″ Then

 

txtjur.Text = “Tehnik Informatika”

 

End If

 

 

 

kode = Mid(txtnpm.Text, 4, 2)

 

If kode = “01″ Then

 

txtprodi.Text = “Strata Satu”

 

ElseIf kode = “02″ Then

 

txtprodi.Text = “Diploma Empat”

 

ElseIf kode = “03″ Then

 

txtprodi.Text = “Diploma Tiga”

 

End If

 

txtno.Text = Right(txtnpm.Text, 3)

 

txttm.Text = “20″ & Left(txtnpm.Text, 2)

 

End Sub

 

 

 

 

 

Private Sub Command2_Click()

 

Data1.Recordset.AddNew

 

txtnpm.SetFocus

 

End Sub

 

 

 

 

 

Private Sub Command4_Click()

 

Data1.Recordset.Delete

 

End Sub

 

 

 

Private Sub Command5_Click()

 

End

 

End Sub

 

 

 

TUGAS PPDE

TABEL ASCII 7 BIT

Déci

Hexa

ASCII

Nom

0 00 NUL NULl
1 01 SOH Start Of Heading
2 02 STX Start of TeXt
3 03 ETX End of TeXt
4 04 EOT End Of Transmission
5 05 ENQ ENQuire
6 06 ACK ACKnowledge
7 07 BEL BELl
8 08 BS BackSpace
9 09 HT Horizontal Tab
10 OA LF Line Feed
11 OB VT Vertical Tab
12 0C FF Form Feed
13 OD CR Carriage Return
14 OE SO Shift Out
15 OF SI Shift In
16 10 DLE Data Link Escape
17 11 DC1 Device Control 1
18 12 DC2 Device Control 2
19 13 DC3 Device Control 3
20 14 DC4 Device Control 4
21 15 NAK Negative AcKnowledge
22 16 SYN SYNchronous idle
23 17 ETB End Trans. Block
24 18 CAN CANcel
25 19 EM End Medium
26 1A SS Special Sequence
27 1B ESC ESCape
28 1C FS File Separator
29 1D GS Group Separator
30 1E RS Record Separator
31 1F US Unit Separator
32 20 SP SPace
33 21 !
34 22
35 23 #
36 24 $
37 25 %
38 26 &
39 27 Apostrophe
40 28 (
41 29 )
42 2A *
43 2B +
44 2C , Virgule
45 2D
46 2E . Point
47 2F / Slash
48 30 0
49 31 1
50 32 2
51 33 3
52 34 4
53 35 5
54 36 6
55 37 7
56 38 8
57 39 9
58 3A : Deux-points
59 3B ; Point-virgule
60 3C <
61 3D =
62 3E >
63 3F ?

Déci

Hexa

ASCII

Nom

64 40 @
65 41 A
66 42 B
67 43 C
68 44 D
69 45 E
70 46 F
71 47 G
72 48 H
73 49 I
74 4A J
75 4B K
76 4C L
77 4D M
78 4E N
79 4F O
80 50 P
81 51 Q
82 52 R
83 53 S
84 54 T
85 55 U
86 56 V
87 57 W
88 58 X
89 59 Y
90 5A Z
91 5B [
92 5C \ Antislash
93 5D ]
94 5E ^ Accent circonflexe
95 5F _ Souligné
96 60 ` Accent grave
97 61 a
98 62 b
99 63 c
100 64 d
101 65 e
102 66 f
103 67 g
104 68 h
105 69 i
106 6A j
107 6B k
108 6C l
109 6D m
110 6E n
111 6F o
112 70 p
113 71 q
114 72 r
115 73 s
116 74 t
117 75 u
118 76 v
119 77 w
120 78 x
121 79 y
122 7A z
123 7B {
124 7C |
125 7D }
126 7E ~ Tilde
127 7F DEL Delete

 

MICROSOFT VISUAL BASIC

TUGAS

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub

NAMA

N.M

Private Sub Combo1_CLICK()
Dim NAMA, JURUSAN As String
Select Case Combo1.Text
Case “12201030”
NAMA = “MARIA CAMELIA”
JURUSAN = “M.INFORMATIKA”
Case “12201031”
NAMA = “NITA LINA”
JURUSAN = “M.INFORMATIKA”
Case “12201018”
NAMA = “SITI FATHONAH”
JURUSAN = “M.INFORMATIKA”
End Select
Text1.Text = NAMA
Text2.Text = JURUSAN
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Dim NA As Integer
Dim Hm As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA
Select Case Text8.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
Text8.Text = Hm
End Sub

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub FORM_LOAD()
Combo1.AddItem “12201030”
Combo1.AddItem “12201031”
Combo1.AddItem “12201018”
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
Dim NA As Integer
Dim HA As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA
Select Case Text8.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
Text8.Text = Hm
End If
End Sub

NPM

LOP

Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
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 Command4_Click()
Dim A, JS, PS, ASSTRING
Text6.Text = “20” & Left(Text2.Text, 2)
A = Mid(Text2.Text, 3, 1)
If A = “1” Then
jr = “SISTEM INFORMASI”
ElseIf A = “2” Then
jr = “manajemen informatiaka”
ElseIf A = “3” Then
jr = “teknik informasi”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
Text4.Text = jr
A = Mid(Text2.Text, 4, 2)
If A = “00” Then
PS = “strata satu”
ElseIf A = “01” Then
PS = “diploma empat”
ElseIf A = “02” Then
PS = “diploma tiga”
ElseIf A = “03” Then
PS = “diploma dua”
End If
Text5.Text = PS
Text7.Text = Right(Text2.Text, 3)
End Sub

NIDN

LKM

Private Sub Combo1_CLICK()
Dim GAPOK, PAJAK, TUNJANGAN, TOTAL As Variant
Select Case Combo1.Text
Case “I”
GAPOK = 1500000
TUNJANGAN = 150000
Case “II”
GAPOK = 2000000
TUNJANGAN = 200000
Case “III”
GAPOK = 2500000
TUNJANGAN = 250000
Case “IV”
GAPOK = 3000000
TUNJANGAN = 300000
Case Else
GAPOK = 0
TUNJANGAN = 0
End Select
TOTAL = GAPOK + TUNJANGAN
PAJAK = TOTAL * 0.1
Text3.Text = GAPOK
Text4.Text = TUNJANGAN
Text5.Text = PAJAK
Text6.Text = TOTAL – PAJAK
End Sub

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

Private Sub Command3_Click()
End
End Sub

Private Sub FORM_LOAD()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

STMIK PRINGSEWU

KHG

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check1.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

APLIKASI PERHITUNGAN GAJI

A.G

Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.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.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
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

Gambar

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

Ada tamu penting, SBY suruh pulang menterinya

beettt

Presiden Susilo Bambang Yudhoyono (SBY) menunda Sidang Kabinet Paripurna yang sedang membahas masalah anggaran dan pangan selama dua setengah jam. Para menteri, pimpinan lembaga non kementerian dan pejabat lainnya diperkenankan kembali ke kantornya masing-masing.

Meski demikian, seluruh anggota Kabinet Indonesia Bersatu II diwajibkan hadir kembali pada pukul 18.30 WIB untuk menghadiri kelanjutan pembahasan anggaran dan masalah pangan. Penundaan terpaksa dilakukan karena SBY harus menerima tamu penting.

“Sidang ditunda sementara dan akan dilanjutkan pukul 18.30 WIB. Karena presiden harus menghadiri acara penting, yakni menerima Ketua dan Anggota Asian Peace and Reconciliation Council (APRC) pada pukul 17.00 WIB,” kata Juru Bicara Presiden Julian Aldrin Pasha di Gedung Utama Kementerian Sekretariat Negara, Jakarta, Selasa (22/1).

Di tempat yang sama, Ketua Komite Ekonomi Nasional (KEN) Chairul Tanjung mengatakan, Sidang Kabinet Paripurna membahas masalah anggaran, kartel pangan dan kesenjangan sosial. Karena dianggap sangat penting, presiden ingin melanjutkan kembali sidang yang harusnya selesai pukul 16.00 WIB.

“Presentasi selesai dipresentasikan, presiden anggap penting sehingga me-reschedule, dua acara beliau dibatalkan. Pukul 18.30 WIB diminta untuk lanjutkan sidang karena materi yang dibahas penting,” tandasnya.

Ketika ditanya soal pokok-pokok pembahasan, terutama keberadaan kartel pangan yang dapat merugikan kaum petani itu, Chairul menolak memberikan informasi. “Pokoknya banyak sekali, tapi nanti setelah rapat akan bicara. Karena acara belum selesai, nanti jadi masalah,” ujarnya sembari tersenyum.

Sumber