Mi Goreng Siram

Mi Goreng Siram

 

Bahan Mie Goreng Siram :

150 gram mi telur, rebus, tiriskan, goreng, remahkan
Bahan saus Mie Goreng Siram:
2 siung bawang putih, memarkan
1/2 buah bawang bombay, iris panjang
1 cm jahe, cincang
100 gram daging giling
100 gram jamur merang, belah dua
50 gram kapri, siangi
2 sendok makan saus tiram
1/2 sendok makan kecap ikan
1/2 sendok teh garam
1/2 sendok teh merica bubuk
1/4 sendok teh gula pasir
750 ml air
2 sendok makan tepung sagu dan 2 sendok makan air, larutkan untuk pengental
1 butir telur, kocok lepas
1 sendok makan minyak untuk menumis


Cara Membuat Mie Goreng Siram :

• Tumis bawang putih, bawang bombay, dan jahe sampai harum. Tambahkan daging giling. Aduk sampai berubah warna.
• Masukkan jamur merang, kapri, saus tiram, kecap ikan, garam, merica bubuk, dan gula pasir. Aduk rata.
• Tuang air,  didihkan, kentalkan dengan larutan tepung sagu. Masak sampai meletup-letup. Tambahkan kocokan telur.  Aduk sampai berambut.

Sajikan mi dengan siraman saus.

Read more : http://resep.recipesmaster.com/mi-goreng-siram.html#ixzz2Xi1W3vGu

 

contoh penghitungan gaji

Contoh Penghitungan Gaji 

Ketentuan Soal :
1. Nama Di input 
2. Jabatan di input , 
Jabatan        Gaji       Tunjangan
Direktur       3000000    10 % dari gaji
Manager        2000000    5% dari gaji
Karyawan       1000000    2% dari gaji
OB             800000     1% dari gaji

3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn
  
Jawabannya:

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan     : ‘); readln(nama);
Write(‘Masukkan Jabatan  : ‘); readln(jabatan);
If  (jabatan=’Direktur’) or (jabatan=’direktur’) then
     Begin
 Gaji:=3000000;
 Tunj:=0.1* gaji;
     End
Else If  (jabatan=’Manager’) or (jabatan=’manager’) then
     Begin
 Gaji:=2000000;
 Tunj:=0.05* gaji;
     End
Else If  (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
     Begin
 Gaji:=1000000;
 Tunj:=0.1* gaji;
     End
Else 
     Begin
 Gaji:=800000;
 Tunj:=0.1* gaji;
     End;
Writeln(‘Gaji Bersih      : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan      : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 %      :  Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji   :  Rp.‘,total:9:2);
Readln;

PASCAL

program_baris
uses crt;
var i,j,k,n integer;
begin
        writeln('masukkan angka=');readln(n);
        for i:=1 then
        write(i)
       else
       begin
       for k:=2 to i do
       j:=1;
       repeat
       write(i);
      inc(j);
      until j=k;
      writeln(i);
       end;
    end;
end.

output:
masukkan 5
1
12
123
1234
12345

lISTVIEW 2

Public Class Form1

    Dim LST As ListViewItem

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Select Case kode.Text

            Case "TS001"

                Microsoft.VisualBasic.Right(kode.Text, 3)

                nama.Text = "Flashdisk 4GB"

                Microsoft.VisualBasic.Left(kode.Text, 2)

                merk.Text = "Toshiba"

            Case "TS002"

                Microsoft.VisualBasic.Right(kode.Text, 3)

                nama.Text = "Flashdisk 2GB"

                Microsoft.VisualBasic.Left(kode.Text, 2)

                merk.Text = "Toshiba"

            Case "VG001"

                Microsoft.VisualBasic.Right(kode.Text, 3)

                nama.Text = "Flashdisk 4GB"

                Microsoft.VisualBasic.Left(kode.Text, 2)

                merk.Text = "V-Gen"

            Case "VG002"

                Microsoft.VisualBasic.Right(kode.Text, 3)

                nama.Text = "Flashdisk 2GB"

                Microsoft.VisualBasic.Left(kode.Text, 2)

                merk.Text = "V-gen"

        End Select

        If kode.Text = "TS001" Then

            harga.Text = "105000"

        ElseIf kode.Text = "TS002" Then

            harga.Text = "75000"

        ElseIf kode.Text = "VG001" Then

            harga.Text = "90000"

        ElseIf kode.Text = "VG002" Then

            harga.Text = "60000"

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kode.Items.Add("TS001")

        kode.Items.Add("TS002")

        kode.Items.Add("VG001")

        kode.Items.Add("VG002")

        buat_table()

        kosong()

    End Sub

    Sub buat_table()

        With LV

            .Items.Clear()

            .FullRowSelect = True

            .GridLines = True

            .View = View.Details

            .Columns.Add("No Pembelian", 100)

            .Columns.Add("Kode Barang", 100)

            .Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)

            .Columns.Add("Merk", 100, HorizontalAlignment.Left)

            .Columns.Add(" Harga ", 100, HorizontalAlignment.Left)

            .Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)

            .Columns.Add("Total Harga", 100, HorizontalAlignment.Left)

        End With

    End Sub

    Sub simpan()

        LST = Me.lv.Items.Add(Me.no.Text)

        LST.SubItems.Add(Me.kode.Text)

        LST.SubItems.Add(Me.nama.Text)

        LST.SubItems.Add(Me.merk.Text)

        LST.SubItems.Add(Me.harga.Text)

        LST.SubItems.Add(Me.jumlah.Text)

        LST.SubItems.Add(Me.tharga.Text)

    End Sub

    Sub kosong()

        nama.Text = ""

        no.Text = ""

        kode.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        tharga.Text = ""

        no.Focus()

    End Sub

  

  

    Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click

        If lv.SelectedItems.Count <> 0 Then

            lv.Items.Remove(lv.SelectedItems(0))

        Else

            MsgBox("maaf anda belum" & "memilih yang mana mau dihapus")

        End If

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Call simpan()

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        kosong()

        no.Focus()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Dim tanya As String

        tanya = MsgBox("Apakah Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If tanya = vbYes Then

            Me.Close()

        Else

            Exit Sub

        End If

    End Sub

    Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click

        lv.Items.Clear()

    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        tharga.Text = Val(jumlah.Text) * Val(harga.Text)

    End Sub

End Class

lISTVIEW

 Public Class Form1

    Dim LST As ListViewItem

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged

        Dim x As String

        tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

        If x = "1" Then

            jenjang.Text = "Diploma I"

        ElseIf x = "2" Then

            jenjang.Text = "Diploma III"

        ElseIf x = "3" Then

            jenjang.Text = "Strata I"

        End If

        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If x = "01" Then

            jurusan.Text = "Manajemen Informatika"

        ElseIf x = "02" Then

            jurusan.Text = "Sistem Informasi"

        ElseIf x = "03" Then

            jurusan.Text = "Teknik Komputer"

        ElseIf x = "04" Then

            jurusan.Text = "Akuntansi"

        End If

    End Sub

    Private Sub nangka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nangka.TextChanged

        If nangka.Text >= 90 Then

            nhuruf.Text = "A"

        ElseIf nangka.Text >= 80 Then

            nhuruf.Text = "B"

        ElseIf nangka.Text >= 70 Then

            nhuruf.Text = "C"

        ElseIf nangka.Text = "60" Then

            nhuruf.Text = "D"

        Else

            nhuruf.Text = "E"

        End If

    End Sub

KASUS PENGGAJIAN PADA VB.NET

kasus penggajian

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Nama.Focus()
        Jabatan.Items.Add("Mandor")
        Jabatan.Items.Add("Kepala Bagian")
        Jabatan.Items.Add("Staf")
        Status.Items.Add("Menikah")
        Status.Items.Add("Belum Menikah")
        Call buattabel()


    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        Select Case Jabatan.Text
            Case "Mandor"
                Gaji.Text = 1750000
                Pajak.Text = 0.015 * Val(Gaji.Text)
            Case "Staf"
                Gaji.Text = 1250000
                Pajak.Text = 0.015 * Val(Gaji.Text)
            Case "Kepala Bagian"
                Gaji.Text = 2500000
                Pajak.Text = 0.015 * Val(Gaji.Text)

        End Select
        Status.Focus()

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        Dim y As String
        y = Status.Text = "Menikah"
        If Jabatan.Text = "Mandor" Then
            Tunjangan.Text = 0.09 * 1750000
        ElseIf Jabatan.Text = "Staf" Then
            Tunjangan.Text = 0.09 * 1250000
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            Tunjangan.Text = 0.09 * 2500000

        End If
        If Status.Text = "Belum Menikah" Then
            Tunjangan.Text = 0

        End If
        Jumlah.Focus()
    End Sub




    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged
        If Jumlah.Text = "1" Then
            Tunjangan_anak.Text = 0.03 * Val(Gaji.Text)
        ElseIf Jumlah.Text = "2" Then
            Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)
        Else
            Tunjangan_anak.Text = 0.07 * Val(Gaji.Text)

        End If
    End Sub
    Private Sub jam_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jam.TextChanged
        If Jabatan.Text = "Mandor" Then
            Upah.Text = 7500 * Val(Jam.Text)
        ElseIf Jabatan.Text = "Staf" Then
            Upah.Text = 5000 * Val(Jam.Text)
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            Upah.Text = 10000 * Val(Jam.Text)

        End If


    End Sub
    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhitung.Click
        Total.Text = Val(Gaji.Text) + Val(Tunjangan.Text) + Val(Tunjangan_anak.Text) + Val(Upah.Text) - Val(Pajak.Text)


    End Sub
    Sub buattabel()
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Right)
        LV.Columns.Add("Jumlah Anak", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangan anak", 120, HorizontalAlignment.Right)
        LV.Columns.Add("Pajak", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Jam Lembur", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Right)
        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.FullRowSelect = True
        LV.GridLines = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nama.Text
        lst.SubItems.Add(Jabatan.Text)
        lst.SubItems.Add(Status.Text)
        lst.SubItems.Add(Gaji.Text)
        lst.SubItems.Add(Tunjangan.Text)
        lst.SubItems.Add(Jumlah.Text)
        lst.SubItems.Add(Tunjangan_anak.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(jam.Text)
        lst.SubItems.Add(Upah.Text)
        lst.SubItems.Add(Total.Text)
        LV.Items.Add(lst)

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
        Nama.Text = ""
        Jabatan.Text = ""
        Status.Text = ""
        Gaji.Text = ""
        Tunjangan.Text = ""
        Jumlah.Text = ""
        Tunjangan_anak.Text = ""
        Pajak.Text = ""
        Jam.Text = ""
        Upah.Text = ""
        Total.Text = ""

        Nama.Focus()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        Call isitabel()
        Nama.Text = ""
        Jabatan.Text = ""
        Status.Text = ""
        Gaji.Text = ""
        Tunjangan.Text = ""
        Jumlah.Text = ""
        Tunjangan_anak.Text = ""
        Pajak.Text = ""
        Jam.Text = ""
        Upah.Text = ""
        Total.Text = ""

        Nama.Focus()

    End Sub

    Private Sub btnhapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_semua.Click
        LV.Items.Clear()


    End Sub

    Private Sub btnhapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus_data.Click
        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        Dim x As String
        x = MsgBox("Anda Yakin Ingin Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
        If x = vbYes Then
            Close()

        End If
    End Sub
End Class

Gulai Ikan Mas

Bahan :
500 g ikan mas segar
1 sdm air jeruk nipis
500 ml santan dari 1 butir kelapa parut
1 batang serai, memarkan
1 lembar daun salam
3 lembar daun jeruk purut
2 potong asam kandis
10 helai kacang panjang, potong 10 cm
Haluskan :
6 butir bawang merah
3 siung bawang putih
2 cm kunyit
2 cm jahe
2 cm lengkuas
2 sdt garam
Cara membuat :
Siangi ikan mas, potong menjadi 2 atau 3 bagian.
Lumuri dengan air keruk nipis. Sisihkan.
Didihkan santan bersama bumbu halus, daun salam, daun jeruk, serai dan asam kandis.
Masukkan ikan mas dan kacang panjang. Masak hingga kuah kental dan berminyak.

Read more : http://resep.recipesmaster.com/gulai-ikan-mas.html#ixzz2Xi03iiXs