program 6

Program 6

 

Private Sub CmdBATAL_Click()

TxtYHSNAMA.SetFocus

TxtYHSNAMA.Text = “”

TxtYHSNPM.Text = “”

TxtYHSJUR.Text = “”

TxtYHSPS.Text = “”

TxtYHSTM.Text = “”

TxtYHSURUT.Text = “”

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

 

 

Private Sub CmdLAGI_Click()

TxtYHSNAMA.SetFocus

TxtYHSNAMA.Text = “”

TxtYHSNPM.Text = “”

TxtYHSJUR.Text = “”

TxtYHSPS.Text = “”

TxtYHSTM.Text = “”

TxtYHSURUT.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

TxtYHSTM.Text = “20” & Left(TxtYHSNPM.Text, 2)

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

If S = “1” Then

TxtYHSJUR.Text = “Sistem Informasi”

ElseIf S = “2” Then

TxtYHSJUR.Text = “Manajemen Informatika”

End If

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

If S = “01” Then

TxtYHSPS.Text = “Strata Satu”

ElseIf S = “02” Then

TxtYHSPS.Text = “Diploma Tiga”

End If

TxtYHSURUT.Text = Right(TxtYHSNPM.Text, 3)

 

End Sub

 

Private Sub Form_Activate()

TxtYHSNAMA.SetFocus

TxtYHSNAMA.Text = “”

TxtYHSNPM.Text = “”

TxtYHSJUR.Text = “”

TxtYHSPS.Text = “”

TxtYHSTM.Text = “”

TxtYHSURUT.Text = “”

 

End Sub

 

Private Sub TxtTM_Change()

 

End Sub

 

Private Sub TxtYHSNAMA_Change()

If KeyAscii = 13 Then

TxtYHSNPM.SetFocus

End If

End Sub

 

Private Sub TxtYHSNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHSNPM.SetFocus

End If

 

End Sub

program 5

Pogram 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 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

 

Private Sub TxtYHSNIP_Change()

 

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

TxtYHSNAMA.Text = NAMA

TxtYHSJURUSAN.Text = JURUSAN

TxtYHSQUIS.SetFocus

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub CmdLAGI_Click()

CboNPM.SetFocus

CboNPM.Text = “”

TxtYHSNAMA.Text = “”

TxtYHSJURUSAN.Text = “”

TxtYHSQUIS.Text = “”

TxtYHSTUGAS.Text = “”

TxtYHSUTS.Text = “”

TxtYHSUAS.Text = “”

TxtYHSNA.Text = “”

TxtYHSHM.Text = “”

End Sub

 

Private Sub CmdPROSES_Click()

Dim NA As Integer

Dim HM As String

quis = Val(TxtYHSQUIS.Text)

TUGAS = Val(TxtYHSTUGAS.Text)

UTS = Val(TxtYHSUTS.Text)

UAS = Val(TxtYHSUAS.Text)

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

TxtYHSNA.Text = NA

 

Select Case TxtYHSNA.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

  TxtYHSHM.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 TxtYHSQUIS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHSTUGAS.SetFocus

End If

End Sub

 

 

Private Sub TxtYHSTUGAS_KeyPress(KeyAscii As Integer)

If KESASCII = 13 Then

TxtYHSUAS.SetFocus

End If

End Sub

Private Sub TxtYHSUAS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHSUTS.SetFocus

End If

End Sub

program 3

Program 3

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

TxtYHSNAMA.Text = NAMA

TxtYHSJURUSAN.Text = JURUSAN

TxtYHSQUIS.SetFocus

End Sub

 

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub CmdLAGI_Click()

CboNPM.SetFocus

CboNPM.Text = “”

TxtYHSNAMA.Text = “”

TxtYHSJURUSAN.Text = “”

TxtYHSQUIS.Text = “”

TxtYHSTUGAS.Text = “”

TxtYHSUTS.Text = “”

TxtYHSUAS.Text = “”

TxtYHSNA.Text = “”

TxtYHSHM.Text = “”

End Sub

 

Private Sub CmdPROSES_Click()

Dim NA As Integer

Dim HM As String

quis = Val(TxtYHSQUIS.Text)

TUGAS = Val(TxtYHSTUGAS.Text)

UTS = Val(TxtYHSUTS.Text)

UAS = Val(TxtYHSUAS.Text)

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

TxtYHSNA.Text = NA

 

Select Case TxtYHSNA.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

TxtYHSHM.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 TxtYHSQUIS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHSTUGAS.SetFocus

End If

End Sub

 

 

Private Sub TxtYHSTUGAS_KeyPress(KeyAscii As Integer)

If KESASCII = 13 Then

TxtYHSUAS.SetFocus

End If

End Sub

Private Sub TxtYHSUAS_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHSUTS.SetFocus

End If

End Sub

 

 

 

 

program 2

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

 

Private Sub Cmdproses_Click()

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

TxtYHS4.Text = Val(TxtYHS1.Text) + Val(TxtYHS2.Text) – Val(TxtYHS2.Text)

TxtYHS5.Text = Val(TxtYHS4.Text) * (0.1)

TxtYHS6.Text = Val(TxtYHS4.Text) – Val(TxtYHS5.Text)

End Sub

 

Private Sub CmdULANG_Click()

TxtYHS1 = “”

TxtYHS2 = “”

TxtYHS3 = “”

TxtYHS4 = “”

TxtYHS5 = “”

TxtYHS6 = “”

End Sub

 

 

 

Private Sub TxtYHS1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHS2.SetFocus

End If

End Sub

 

 

Private Sub TxtYHS2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHS3.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

TxtYHS4.Text = Val(TxtYHS1.Text) + Val(TxtYHS2.Text) – Val(TxtYHS2.Text)

TxtYHS5.Text = Val(TxtYHS4.Text) * (0.1)

TxtYHS6.Text = Val(TxtYHS4.Text) – Val(TxtYHS5.Text)

End If

End Sub

 

Program 2

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

PROGRAM 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 2

PROGRAM SETELAH DISKON

Private Sub CmdHASIL_Click()

TxtYHS2.Text = Val(TxtYHS1.Text) * 0.1

TxtYHS3.Text = Val(TxtYHS1.Text) – Val(TxtYHS2.Text)

End Sub

Private Sub CmdKELUAR_Click()

Unload Me

End Sub

Private Sub CmdLAGI_Click()

TxtYHS1.SetFocus

TxtYHS1 = “”

TxtYHS2 = “”

TxtYHS3 = “”

End Sub

Private Sub TxtYHS1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHS2.Text = Val(TxtYHS1.Text) * 0.1

TxtYHS3.Text = Val(TxtYHS1.Text) – Val(TxtYHS2.Text)

End If

End Sub

PROGRAM 3

PROGRAM3

Private Sub Command1_Click()

TxtYHS3.Text = Val(TxtYHS1.Text) + Val(TxtYHS2.Text)

TxtYHS4.Text = Val(TxtYHS1.Text) * Val(TxtYHS2.Text)

TxtYHS5.Text = Val(TxtYHS1.Text) – Val(TxtYHS2.Text)

End Sub

Private Sub Command2_Click()

TxtYHS1.SetFocus

TxtYHS1 = “”

TxtYHS2 = “”

TxtYHS3 = “”

TxtYHS4 = “”

TxtYHS5 = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub TxtYHS1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHS2.SetFocus

End If

End Sub

Private Sub TxtYHS2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHS3.Text = Val(TxtYHS1.Text) + Val(TxtYHS2.Text)

TxtYHS4.Text = Val(TxtYHS1.Text) * Val(TxtYHS2.Text)

TxtYHS5.Text = Val(TxtYHS1.Text) – Val(TxtYHS2.Text)

End If

End Sub

PORGRAM 1

PROGRAM 1

 

Private Sub CmdHASIL_Click()

TxtYHSBIL3.Text = Val(TxtYHSBIL1.Text) * Val(TxtYHSBIL2.Text)

End Sub

 

 

 

Private Sub CmdKEMBALI_Click()

Unload Me

End Sub

 

Private Sub CmdLAGI_Click()

TxtYHSBIL1.SetFocus

TxtYHSBIL1.Text = “”

TxtYHSBIL2.Text = “”

TxtYHSBIL3.Text = “”

End Sub

 

Private Sub TxtYHSBIL1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHSBIL2.SetFocus

End If

End Sub

 

 

 

Private Sub TxtYHSBIL2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtYHSBIL3.Text = Val(TxtYHSBIL1.Text) * Val(TxtYHSBIL2.Text)

End If

 

End Sub

7 Makanan Khas Indonesia Yang Terkenal

 

7 Makanan Khas Indonesia Yang Terkenal

 Seperti yang kita ketahui Indonesia terdiri dari banyak suku yang masing-masing memeiliki ciri khas tersendiri. Terutama pada ciri khas makanannya. Sehingga hal tersebut menjadikan Indonesia memiliki berbagai macam makanan khas. Nah wajib untuk kita mengetahui bahkan mencicipi makanan khas tanah air tersebut. Berikut adalah 7 makanan khas Indonesia yang terkenal.

 

 

1. Soto Betawi

 

Soto Betawi merupakan soto yang populer di daerah Jakarta. Seperti halnya soto Madura dan soto sulung, soto Betawi juga menggunakan jerohan. Selain jerohan, seringkali organ-organ lain juga disertakan, seperti mata, torpedo, dan juga hati.

 

 

 

 

 

 

2. Nasi Goreng

 

Nasi goreng makanan yang dibuat dari nasi yang digoreng dengan bumbu dan bahan-bahan lainnya. Nasi goreng adalah makanan populer di Asia Timur dan Asia Tenggara.

 

Nasi adalah sebuah bagian penting dari masakan tradisional Tionghoa, menurut catatan sejarah sudah mulai ada sejak 4000 SM. Nasi goreng kemudian tersebar ke Asia Tenggara dibawa oleh perantau-perantau Tionghoa yang menetap di sana dan menciptakan nasi goreng khas lokal yang didasarkan atas perbedaan bumbu-bumbu dan cara menggoreng. Nasi goreng sebenarnya muncul dari beberapa sifat dalam kebudayaan Tionghoa, yang tidak suka mencicipi makanan dingin dan juga membuang sisa makanan beberapa hari sebelumnya. Makanya, nasi yang dingin itu kemudian digoreng untuk dihidangkan kembali di meja makan.

 

 

3. Nasi Kuning

 

Nasi kuning adalah makanan khas Indonesia. Makanan ini terbuat dari beras yang dimasak bersama dengan kunyit serta santan dan rempah-rempah. Dengan ditambahkannya bumbu-bumbu dan santan, nasi kuning memiliki rasa yang lebih gurih daripada nasi putih. Nasi kuning adalah salah satu variasi dari nasi putih yang sering digunakan sebagai tumpeng. Nasi kuning biasa disajikan dengan bermacam lauk-pauk khas Indonesia.

 

Dalam tradisi Indonesia warna nasi kuning melambangkan gunung emas yang bermakna kekayaan, kemakmuran serta moral yang luhur. Oleh sebab itu nasi kuning sering disajikan pada peristiwa syukuran dan peristiwa-peristiwa gembira seperti kelahiran, pernikahan dan tunangan. Dalam tradisi Bali, warna kuning adalah salah satu dari empat warna keramat yang ada, disamping putih, merah dan hitam. Nasi kuning oleh karena itu sering dijadikan sajian pada upacara kuningan.

 

 

4. Pecel lele

 

Pecel lele (atau Pecek lele) di Indonesia adalah nama sebuah makanan yang terbuat dari ikan lele. Biasanya yang dimaksud adalah ikan lele yang digoreng kering dengan minyak dan lalu disajikan dengan sambal tomat dan lalapan. Lalapan biasa terdiri dari kemangi, kubis, ketimun dan kacang panjang. Pecel lele adalah sebuah makanan yang murah dan meriah. Makanan ini sangat digemari di pulau Jawa sebagai alternatif masakan ayam, terutama ayam goreng.

 

 

 

 

 

 

 

5. Gudeg

 

 Gudeg (bahasa Jawa gudheg) adalah makanan khas Yogyakarta dan Jawa Tengah yang terbuat dari nangka muda yang dimasak dengan santan. Perlu waktu berjam-jam untuk membuat masakan ini. Warna coklat biasanya dihasilkan oleh daun jati yang dimasak bersamaan. Gudeg dimakan dengan nasi dan disajikan dengan kuah santan kental (areh), ayam kampung, telur, tahu dan sambal goreng krecek.

Ada berbagai varian gudeg, antara lain:

 

Gudeg kering, yaitu gudeg yang disajikan dengan areh kental, jauh lebih kental daripada santan pada masakan padang.

Gudeg basah, yaitu gudeg yang disajikan dengan areh encer.

Gudeg Solo, yaitu gudeg yang arehnya berwarna putih.

6. Ketoprak

 

Ketoprak adalah salah satu jenis makanan khas Indonesia dengan menggunakan ketupat yang mudah dijumpai. Biasanya ketupat dijajakan menggunakan kereta dorong di jalan-jalan atau di kaki lima.

 

Komponen utamanya adalah tahu, bihun, ketimun, tauge dan bisa juga pakai telur rebus yang dilengkapi dengan saus kacang, kecap, dan taburan bawang merah goreng. Dapat pula dihidangkan dengan tambahan kerupuk atau emping melinjo. Beberapa versi ada pula yang menyertakan tempe sebagai komponennya.

 

 

 

 7. Gado-gado

 

Gado-gado adalah salah satu makanan yang berasal dari Indonesia yang berupa sayur-sayuran yang direbus dan dicampur jadi satu, dengan bumbu kacang atau saus dari kacang tanah yang dihaluskan disertai irisan telur dan di atasnya ditaburkan bawang goreng. Sedikit emping goreng atau kerupuk (ada juga yang memakai kerupuk udang) juga ditambahkan.

 

Gado-gado dapat dimakan begitu saja seperti salad dengan bumbu/saus kacang, tapi juga dapat dimakan beserta nasi putih atau kadang-kadang juga disajikan dengan lontong.