TABEL KODE ASCII 7bit

ASCII Table: 7-bit

Decimal   Octal   Hex    Binary     Value

——-   —–   —    ——     —–

000      000    000   00000000      NUL    (Null char.)

001      001    001   00000001      SOH    (Start of Header)

002      002    002   00000010      STX    (Start of Text)

003      003    003   00000011      ETX    (End of Text)

004      004    004   00000100      EOT    (End of Transmission)

005      005    005   00000101      ENQ    (Enquiry)

006      006    006   00000110      ACK    (Acknowledgment)

007      007    007   00000111      BEL    (Bell)

008      010    008   00001000       BS    (Backspace)

009      011    009   00001001       HT    (Horizontal Tab)

010      012    00A   00001010       LF    (Line Feed)

011      013    00B   00001011       VT    (Vertical Tab)

012      014    00C   00001100       FF    (Form Feed)

013      015    00D   00001101       CR    (Carriage Return)

014      016    00E   00001110       SO    (Shift Out)

015      017    00F   00001111       SI    (Shift In)

016      020    010   00010000      DLE    (Data Link Escape)

017      021    011   00010001      DC1    (XON) (Device Control 1)

018      022    012   00010010      DC2          (Device Control 2)

019      023    013   00010011      DC3    (XOFF)(Device Control 3)

020      024    014   00010100      DC4          (Device Control 4)

021      025    015   00010101      NAK    (Negative Acknowledgement)

022      026    016   00010110      SYN    (Synchronous Idle)

023      027    017   00010111      ETB    (End of Trans. Block)

024      030    018   00011000      CAN    (Cancel)

025      031    019   00011001       EM    (End of Medium)

026      032    01A   00011010      SUB    (Substitute)

027      033    01B   00011011      ESC    (Escape)

028      034    01C   00011100       FS    (File Separator)

029      035    01D   00011101       GS    (Group Separator)

030      036    01E   00011110       RS    (Request to Send)(Record Separator)

031      037    01F   00011111       US    (Unit Separator)

032      040    020   00100000       SP    (Space)

033      041    021   00100001        !    (exclamation mark)

034      042    022   00100010        ”    (double quote)

035      043    023   00100011        #    (number sign)

036      044    024   00100100        $    (dollar sign)

037      045    025   00100101        %    (percent)

038      046    026   00100110        &    (ampersand)

039      047    027   00100111        ‘    (single quote)

040      050    028   00101000        (    (left/opening parenthesis)

041      051    029   00101001        )    (right/closing parenthesis)

042      052    02A   00101010        *    (asterisk)

043      053    02B   00101011        +    (plus)

044      054    02C   00101100        ,    (comma)

045      055    02D   00101101        –    (minus or dash)

046      056    02E   00101110        .    (dot)

047      057    02F   00101111        /    (forward slash)

048      060    030   00110000        0

049      061    031   00110001        1

050      062    032   00110010        2

051      063    033   00110011        3

052      064    034   00110100        4

053      065    035   00110101        5

054      066    036   00110110        6

055      067    037   00110111        7

056      070    038   00111000        8

057      071    039   00111001        9

058      072    03A   00111010        :    (colon)

059      073    03B   00111011        ;    (semi-colon)

060      074    03C   00111100        <    (less than)

061      075    03D   00111101        =    (equal sign)

062      076    03E   00111110        >    (greater than)

063      077    03F   00111111        ?    (question mark)

064      100    040   01000000        @    (AT symbol)

065      101    041   01000001        A

066      102    042   01000010        B

067      103    043   01000011        C

068      104    044   01000100        D

069      105    045   01000101        E

070      106    046   01000110        F

071      107    047   01000111        G

072      110    048   01001000        H

073      111    049   01001001        I

074      112    04A   01001010        J

075      113    04B   01001011        K

076      114    04C   01001100        L

077      115    04D   01001101        M

078      116    04E   01001110        N

079      117    04F   01001111        O

080      120    050   01010000        P

081      121    051   01010001        Q

082      122    052   01010010        R

083      123    053   01010011        S

084      124    054   01010100        T

085      125    055   01010101        U

086      126    056   01010110        V

087      127    057   01010111        W

088      130    058   01011000        X

089      131    059   01011001        Y

090      132    05A   01011010        Z

091      133    05B   01011011        [    (left/opening bracket)

092      134    05C   01011100        \    (back slash)

093      135    05D   01011101        ]    (right/closing bracket)

094      136    05E   01011110        ^    (caret/circumflex)

095      137    05F   01011111        _    (underscore)

096      140    060   01100000        `

097      141    061   01100001        a

098      142    062   01100010        b

099      143    063   01100011        c

100      144    064   01100100        d

101      145    065   01100101        e

102      146    066   01100110        f

103      147    067   01100111        g

104      150    068   01101000        h

105      151    069   01101001        i

106      152    06A   01101010        j

107      153    06B   01101011        k

108      154    06C   01101100        l

109      155    06D   01101101        m

110      156    06E   01101110        n

111      157    06F   01101111        o

112      160    070   01110000        p

113      161    071   01110001        q

114      162    072   01110010        r

115      163    073   01110011        s

116      164    074   01110100        t

117      165    075   01110101        u

118      166    076   01110110        v

119      167    077   01110111        w

120      170    078   01111000        x

121      171    079   01111001        y

122      172    07A   01111010        z

123      173    07B   01111011        {    (left/opening brace)

124      174    07C   01111100        |    (vertical bar)

125      175    07D   01111101        }    (right/closing brace)

126      176    07E   01111110        ~    (tilde)

127      177    07F   01111111      DEL    (delete)

 

vb 6

Private Sub Combo1_Click()

Dim nama, jurusan, HM As String

Select Case Combo1.Text

Case “12100188”

Text1 = “ERNI GUSTINA”

Text2 = “Sistem Informasi”

Case “12100197”

Text1 = “SHOFIATUN KHOIRIAN”

Text2 = “Manajemen Informatika”

Case “12100192”

Text1 = “FITRI NOVITA R”

Text2 = “Tehnik Informatika”

End Select

Text1.Text = Text1

Text2.Text = Text2

Text3.SetFocus

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 Command1_Click()

Dim NA As Integer

Dim HM As String

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

Text8.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 Form_Load()

Combo1.AddItem “12100188”

Combo1.AddItem “12100197”

Combo1.AddItem “12100192”

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

VB 5

Private Sub Command1_Click()

Dim A, JB, TT, PE, HG

Text4.Text = “20” & Right(Text1.Text, 2)

A = Mid(Text1.Text, 3, 3)

If A = “SIM” Then

Text2.Text = “sistem informasi manajemen”

Text3.Text = “Andra Setiawan”

Text6.Text = 75900

ElseIf A = “EDP” Then

Text2.Text = “elektronik data prosessing”

Text3.Text = “Desi Istiqomah”

Text6.Text = 62000

ElseIf A = “MNJ” Then

Text2.Text = “manajemen”

Text3.Text = “Sendy Fitrajaya”

Text6.Text = 42000

ElseIf A = “CDR” Then

Text2.Text = “corel-drau”

Text3.Text = “Tri Indahsari”

Text6.Text = 53000

ElseIf A = “RPL” Then

Text2.Text = “rekayasa perangkat lunak”

Text3.Text = “Ernita”

Text6.Text = 83000

End If

A = Left(Text1.Text, 1)

If A = “A” Then

Text5.Text = “andi offset yogyakarta”

ElseIf A = “I” Then

Text5.Text = “indah surabaya”

ElseIf A = “S” Then

Text5.Text = “salemba empat”

ElseIf A = “E” Then

Text5.Text = “elek media komputindo”

ElseIf A = “M” Then

Text5.Text = “maxicom”

End If

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()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

VB 4

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.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 Command1_Click()

Dim S As String

Text5.Text = “20” & Left(Text2.Text, 2)

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

If S = “1” Then

Text3.Text = “Sistem Informasi”

ElseIf S = “2” Then

Text3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Text3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Text3.Text = “Manajemen & Komp. Akuntansi”

End If

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

If S = “00” Then

Text4.Text = “Strata Satu”

ElseIf S = “01” Then

Text4.Text = “Diploma Tiga”

ElseIf S = “02” Then

Text4.Text = “Diploma Empat”

ElseIf S = “03” Then

Text4.Text = “Diploma Dua”

End If

Text6.Text = Right(Text2.Text, 3)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

VB3

Private Sub Form_load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

Combo1.AddItem “IV”

End Sub

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.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 combo1_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Combo1.Text

Case “1”

Text3 = 1500000

Text4 = 150000

Case “II”

Text3 = 2000000

Text4 = 200000

Case “III”

Text3 = 2500000

Text4 = 250000

Case “IV”

Text3 = 3000000

Text4 = 300000

Case Else

Text3 = 0

Text4 = 0

End Select

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

Text5 = Val(Text6.Text) * 0.1

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

End Sub

Private Sub text1_keypress(keyascii As Integer)

If keyascii = 13 Then

Text2.SetFocus

End If

End Sub

VB 2

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

Private Sub Check2_Click()
Label2.Caption = Text2.Text
End Sub

VB 2

Private Sub Chkbold_Click()
If Chkbold.Value = 1 Then
lbltexs.FontBold = True
Else
lbltexs.FontBold = False
End If
End Sub
Private Sub Chkitalic_Click()
If Chkitalic.Value = 1 Then
lbltexs.FontItalic = True
Else
lbltexs.FontItalic = False
End If
End Sub
Private Sub Chkunderline_Click()
If Chkunderline.Value = 1 Then
lbltexs.FontUnderline = True
Else
lbltexs.FontUnderline = False
End If
End Sub
Private Sub Chkstrikethru_(clik)
If Chkstrikethru.Value = 1 Then
lblteks.FontStrikethru = True
Else
lblteks.FontStrikethru = False
End If
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Optred_Click()
lbltexs.ForeColor = vbRed
End Sub
Private Sub Optgreen_Click()
lbltexs.ForeColor = vbGreen
End Sub
Private Sub Optblue_Click()
lbltexs.ForeColor = vbBlue
End Sub
Private Sub Optyellow_Click()
lbltexs.ForeColor = vbYellow
End Sub

VISUAL BASIC

Private Sub Command1_Click()
Dim A, G, KS, T, S, B, J, GP
Text4.Text = Left(Text11, 4)
A = Mid(Text11.Text, 5, 1)
If A = “A” Then
Text1.Text = “A”
Text5.Text = “manager”
Text7.Text = 4000000
Text8.Text = 1025000
ElseIf A = “B” Then
Text1.Text = “B”
Text5.Text = “ka. seksi”
Text7.Text = 3500000
Text8.Text = 975000
ElseIf A = “C” Then
Text1.Text = “C”
Text5.Text = “staf”
Text7.Text = 3000000
Text8.Text = 925000
End If
A = Mid(Text11.Text, 7, 1)
If A = “S” Then
Text2.Text = “S”
Text3.Text = “singgle”
ElseIf A = “M” Then
Text2.Text = “M”
Text3.Text = “menikah”
ElseIf A = “M” Then
Text2.Text = “J”
Text3.Text = “janda”
ElseIf A = “D” Then
Text2.Text = “D”
Text3.Text = “duda”
End If
A = Right(Text11.Text, 3)
If A = “KEU” Then
Text6.Text = “accounting”
ElseIf A = “ADM” Then
Text6.Text = “administrasi”
ElseIf A = “SDM” Then
Text6.Text = “general attair”
ElseIf A = “EDP” Then
Text6.Text = “it unit”
ElseIf A = “SPM” Then
Text6.Text = “securiti”
End If
Text9.Text = Val((Text7.Text) + Val(Text8.Text))
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

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

 

Private Sub cmdhitung_Click()
Dim a, b, c As Double
a = Val(txtnilai1.Text)
b = Val(txtnilai2.Text)
c = (a * b)
txthasil.Text = c
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtnilai1.SetFocus
txtnilai1 = “”
txtnilai2 = “”
txthasil = “”
End Sub

Private Sub txtnilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnilai2.SetFocus
End If
End Sub

Private Sub txtnilai2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthasil.SetFocus
End If
End Sub

Private Sub cmdhitung_Click()
Dim a, b, c As Double
a = Val(txtawal.Text)
b = (a * 0.1)
c = (a – b)
Txtdiskon.Text = b
Txtakhir.Text = c
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdulangi_Click()
txtawal.SetFocus
txtawal = “”
Txtdiskon = “”
Txtakhir = “”
End Sub
Private Sub txtawal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtdiskon.SetFocus
End If
End Sub

Private Sub txtdiskon_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtakhir.SetFocus
End If
End Sub