Gambar

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-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

PROGRAM 1 :

1.       SCRIPT  1(MENGGUNAKAN  ENTER DAN PROSES)

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

 

Advertisements

Gambar

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-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

PROGRAM 1 :

1.       SCRIPT  1(MENGGUNAKAN  ENTER DAN PROSES)

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

 

Gambar

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-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

1.       SCRIPT 3 (MENGGUNAKAN PROSES)

Private Sub Command1_Click()

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End Sub

 

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

Gambar

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-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

1.       CRIPT  2(MENGGUNAKAN ENTER)

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

 

Gambar

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-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:”Times New Roman”;
mso-bidi-theme-font:minor-bidi;}

1.       CRIPT  2(MENGGUNAKAN ENTER)

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command3_Click()

Text1.SetFocus

Text1 = “”

TXTNPM = “”

TXTJURUSAN = “”

TXTPRODI = “”

TXTTM = “”

TXTNU = “”

End Sub

 

Private Sub Command4_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TXTNPM.SetFocus

End If

End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim k, j, p As String

k = Mid(TXTNPM.Text, 3, 1)

If k = “1” Then

j = “SISTEM INFORMASI”

ElseIf k = “2” Then

j = “MANAJEMEN INFORMATIKA”

ElseIf k = “3” Then

j = “TEKNIK INFORMATIKA”

ElseIf k = “4” Then

j = “KOMPUTER AKUNTASI”

End If

TXTJURUSAN.Text = j

k = Mid(TXTNPM.Text, 4, 2)

If k = “01” Then

p = “STRATA SATU”

ElseIf k = “02” Then

p = “DIPLOMA TIGA”

ElseIf k = “03” Then

p = “DIPLOMA DUA”

ElseIf k = “04” Then

p = “DIPLOMA EMPAT”

End If

TXTPRODI.Text = p

TXTTM.Text = “20” & Left(TXTNPM.Text, 2)

TXTNU.Text = Right(TXTNPM.Text, 3)

End If

End Sub

 

Script 1

Gambar

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

Gambar

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

Gambar

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

Gambar

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

 

 

 

 

 

 

 

 

 

 

Gambar

Private Sub KELUAR_Click()

ANLOAD Me

End Sub

 

Private Sub LAGI_Click()

NPM.SetFocus

NPM = “”

NAMA = “”

ALAMAT = “”

End Sub

 

Private Sub NAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

ALAMAT.SetFocus

End If

End Sub

 

Private Sub NPM_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

NAMA.SetFocus

End If

End Sub

Private Sub BATAL_Click()

NPM.SetFocus

NPM = “”

NAMA = “”

ALAMAT = “”

End Sub