Crema De Ube (Puding Ubi Ungu)

Bahan:

• 250 g  ubi ungu
• 150 ml susu cair
• 100 g gula pasir
• ½ sdt garam
• Saus:
• 150 ml santan kental dari ½ butir kelapa parut
• 130 ml susu cair
• 80 ml susu kental manis
• 130 ml air
• 2 sdt tepung maizena, larutkan dalam 1 sdm air

Cara Membuat:

1. Kukus ubi ungu hingga lunak. Kupas kulitnya. Haluskan ubi. Sisihkan.
2. Panaskan susu dan gula pasir. Masukkan ubi, aduk hingga rata. Simpan adonan ini di lemari pendingin hingga padat (± 30 menit).
3. Saus: Masak santan bersama susu cair, susu kental manis,  dan larutan maizena di atas api kecil hingga panas. Masukkan air. Aduk hingga mengental. Angkat. Simpan di lemari es hingga dingin.
4. Sendokkan ubi ungu ke dalam piring atau gelas saji. Siram dengan saus santan. 

Untuk 6 porsi

by:http:www.femina.co.id

Apa sihh tuh Mesran Dot Net??

Samit-samit,,,,, pernah denger gak sih tentang Mesran[dot]net??

Mesran[dot]net merupakan sebuah website milik seorang Dosen di Stmik Budidarma. Website ini merupkan tmpat para mahasiswa yang setiap semesternya mengerjakan Quis online, dan website ini adalah salah satu website tempat belajar Bahasa pemrograman. Diwebsite ini Sahabat mimit dapat menemukan berbagai macam artikel tentang bahasa pemrograman mulai dari VB.NET, vcsharp ,Visual Basic, Prog.Pascal .Di mesran.net samit juga dapat langsung bertanya dengan berkomentar, pazti setiap pertanyaan sahabat akan dijawab.

Mesran.net merupakan salah satu dari sekian banyak website tempat belajar bahasa pemrograman yang menurut saya cukup lengkap. Di mesran.net samit juga dapat menemukan berbagai macam informasi yang tentunya berguna buat sobat, dan mesran.net merupakan tempat mahasiswa/I Budidarma belajar bahasa pemrograman.

Apalagi di Akhir semester mesran.net akan menjadi tempat yang ramai di kunjungi mahasiswa/I Budidarma, untuk melihat Nilai atau IP.

Bagi yang ingin tau lebih lanjut silahkan klik disini..

Program Latihan Listview PerhitunganPenjualan Barang

Kasus Pemrograman : latihan listview perhitungan penjualan barang

Desainlah Form seperti gambar dibawah ini :

Ketikan Di kodenya seperti dibawah:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kodebrang.Items.Add("TS001")
        kodebrang.Items.Add("TS002")
        kodebrang.Items.Add("VG001")
        kodebrang.Items.Add("VG002")

        buattabel()
    End Sub
    Sub buattabel()
        LV.Columns.Add("No.Pembelian", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Merek", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nopembelian.Text
        lst.SubItems.Add(kodebrang.Text)
        lst.SubItems.Add(namabarang.Text)
        lst.SubItems.Add(merek.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(totalharga.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub kodebrang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebrang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kodebrang.Text, 2)

        If x = "TS" Then
            merek.Text = "Toshiba"
        ElseIf x = "VG" Then
            merek.Text = "V-Gen"
        End If

        x = Microsoft.VisualBasic.Right(kodebrang.Text, 3)

        If x = "001" Then
            namabarang.Text = "Flashdisk 4GB"

        ElseIf x = "002" Then
            namabarang.Text = "Flashdisk 2GB"
        End If

        Select Case kodebrang.Text
            Case "TS001" : harga.Text = "10500"
            Case "TS002" : harga.Text = "75000"
            Case "VG001" : harga.Text = "90000"
            Case "VG002" : harga.Text = "60000"
        End Select
    End Sub

    Private Sub jumlahbeli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            totalharga.Text = Val(harga.Text) * Val(jumlahbeli.Text)
        End If
    End Sub

    Private Sub bsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click
        isitabel()
    End Sub

    Private Sub bhpssemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhpssemua.Click
        LV.Items.Clear()
    End Sub

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

    Private Sub bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click
        End
    End Sub

    Private Sub bbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbersih.Click
        nopembelian.Text = ""
        kodebrang.Text = ""
        namabarang.Text = ""
        merek.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        totalharga.Text = ""
    End Sub
End Class

Tampilan Programnya seperti ini