Tugas SI.P-1203

  ini design nya :

 

berikut ini adalah carany :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("13111000")
        npm.Items.Add("13111001")
        npm.Items.Add("13111011")
        Me.Text = " FORM NILAI "
        Me.BackColor = Color.Blue
       
        kdosen.Items.Add("01")
        kdosen.Items.Add("02")
        kdosen.Items.Add("03")

        kode_mt.Items.Add("001")
        kode_mt.Items.Add("002")
        kode_mt.Items.Add("003")

        nk.Items.Add("40")
        nk.Items.Add("50")
        nk.Items.Add("60")
        nk.Items.Add("70")
        nk.Items.Add("80")
        nk.Items.Add("90")

        nt.Items.Add("40")
        nt.Items.Add("50")
        nt.Items.Add("60")
        nt.Items.Add("70")
        nt.Items.Add("80")
        nt.Items.Add("90")

        nu.Items.Add("40")
        nu.Items.Add("50")
        nu.Items.Add("60")
        nu.Items.Add("70")
        nu.Items.Add("80")
        nu.Items.Add("90")

        nuas.Items.Add("40")
        nuas.Items.Add("50")
        nuas.Items.Add("60")
        nuas.Items.Add("70")
        nuas.Items.Add("80")
        nuas.Items.Add("90")
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "13111000"
                nama.Text = "Andi Jost"
                jenjang.Text = "S1"
                jurusan.Text = "Tehnik Informatika"
                proses.BackColor = Color.Orange
                keluar.BackColor = Color.Red
                hapus.BackColor = Color.Green
                Me.BackColor = Color.Crimson
            Case "13111001"
                nama.Text = "Joko S"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen Informatika"
                proses.BackColor = Color.Green
                keluar.BackColor = Color.Magenta
                hapus.BackColor = Color.Blue
                Me.BackColor = Color.BlueViolet
            Case Else
                nama.Text = "Ani S"
                jenjang.Text = "D1"
                jurusan.Text = "design Grafis"
                Me.BackColor = Color.Orange
                proses.BackColor = Color.Red
                keluar.BackColor = Color.Gold
        End Select
    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged
        If kdosen.Text = "01" Then
            ndosen.Text = "Mesran.net"
        ElseIf kdosen.Text = "02" Then
            ndosen.Text = "Taroni Zebua"
        Else
            ndosen.Text = "Aulia Ramadhan"
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kdosen.Text = ""
        ndosen.Text = ""
        kode_mt.Text = ""
        mkuliah.Text = ""
        nk.Text = ""
        nt.Text = ""
        nu.Text = ""
        nuas.Text = ""
        nakhir.Text = ""
        nhuruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub kode_mt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mt.SelectedIndexChanged
        Select Case kode_mt.Text
            Case "001"
                mkuliah.Text = "visuL Basic"
            Case "002"
                mkuliah.Text = "kalkulus"
            Case Else
                mkuliah.Text = "Matriks"
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nuas.Text

        Dim a As Integer
        a = nakhir.Text
        Select Case a
            Case Is >= 50
                keterangan.Text = "lulus"
            Case Is <= 50
                keterangan.Text = "gagal"
        End Select

        If nakhir.Text >= 80 Then
            nhuruf.Text = "A"
        ElseIf nakhir.Text >= 70 Then
            nhuruf.Text = "B"
        ElseIf nakhir.Text >= 60 Then
            nhuruf.Text = "C"
        ElseIf nakhir.Text >= 50 Then
            nhuruf.Text = "D"
        ElseIf nakhir.Text <= 50 Then
            nhuruf.Text = "E"
        End If
    End Sub
End Class

hasiny :

 

tugas : mesran.net

bahaya mie instan

Nasi adalah makanan pokok orang Indonesia. Jika tidak ada nasi, penggantinya bukan kentang atau jagung, tetapi mie instan. Nasi dan mie instan selama bertahun-tahun menjadi belahan jiwa mayoritas warga Indonesia. Jika tidak ada lauk, masak saja mie instan, kalau masih kurang kenyang, tambahkan nasi.

Dari sisi praktis, memasak mie instan sangat mudah dan murah, tanpa lauk lain, rasa mie instan sudah enak. Jika ditambah nasi, lebih enak lagi. Sayangnya, kebiasaan yang enak ini bisa membahayakan kesehatan Anda. Pada dasarnya, nasi dan mie instan sama-sama mengandung karbohidrat dan kalori yang tinggi.

Dalam satu porsi mie instan, sudah terkandung sekitar 400 kalori, jumlah itu sama dengan satu porsi nasi ukuran sedang dan lauk pauk. Jika satu porsi mie instan ditambah nasi, bisa Anda bayangkan sendiri berapa kalori yang masuk dalam tubuh. Bisa mencapai 600 - 700 kalori sekali makan, padahal rata-rata wanita dewasa hanya butuh 1200 - 1500 kalori per hari.

Foto: personal.psu

Bisa sebabkan kegemukan hingga naikkan risiko diabetes

Perpaduan karbohidrat dari nasi dan mie instan dapat menaikkan indeks glikemik, sehingga gula dalam darah melonjak drastis. Inilah yang membuat semakin tingginya risiko masalah diabetes. Hanya makan nasi dan mie instan juga tidak memenuhi kecukupan gizi lain seperti protein, serat, vitamin dan sebagainya. Tingginya kalori dari mie instan dan nasi juga membuat tubuh mudah gemuk.

Jika Anda memang suka makan mie instan, sebaiknya batasi, setidaknya seminggu sekali saja. Ketimbang mencampur dengan nasi, akan lebih baik jika mie instan ditambah potongan sayur, daging, telur dan sebagainya. Ingat, mie instan mengandung garam dan MSG yang sangat tinggi, sehingga jumlah yang terlalu banyak tidak baik untuk kesehatan Anda.(vem/yel)

Cara mudah cetak photo menggunakan photoscape

Cara Mudah Cetak Photo Menggunakan PhotoScape

Bagi pengguna Facebook, software PhotoScape sudah tidak asing lagi. PhotoScape mudah digunakan, banyak fitur edit simple dan cepat.
Antara lain fitur fungsi kegunaan PhotoScape :
- Mengubah ukuran foto. Untuk pengguna facebook biasanya untuk keperluan uploud foto yang terlalu besar.
- Mengatur terang gelap (kecerahan) foto, memberi bingkai, memutar, menambah text, menambah accessories,
- Menyusun, menggabung foto dalam satu halaman.
- Membuat format gif sebagai gambar animasi.
- Memotong gambar menjadi beberapa bagian
- Dan masih banyak lagi
Termasuk disini PhotoScape untuk mencetak berbagai ukuran foto dengan tamplate yang sudah disediakan, seperti mencetak pas photo 3x4, 4x6, 3R, 4R, dll. Termasuk PhotoScape juga menyediakan mencetak dalam bentuk kalender.
OK langsung saja untuk kali ini membahas cara mencetak pas foto menggunakan PhotoScape. Banyak sih cara lain menggunakan software untuk mencetak mengedit foto, antara lain menggunakan Photoshop, Fotoslate4, atau yang sering digunakan ACEF 2, tapi bagi klikbebas pribadi lebih sering menggunakan PhotoScape untuk keperluan mengedit cetak pas photo.
Langkah-langkah cara mudah cetak pas photo menggunakan PhotoScape :
1. Buka PhotoScape, kalau belum ada ya diinstal dulu dunk, masak gitu aja diajarin.
2. Pilih Print

3. Pilih Print Setup

4. Atur properties printer, misalnya mencetak pas photo 4x6 pada kertas A4

5. Atur ukuran photo yang akan di cetak, disini 4x6 cm (klo dalam photoscape satuan mm)

Atur intervals, mengatur kerapatan antar photo
6. Atur posisi photo

7. Seret foto ke lembar kerja.

8. Tinggal klik print --> klik OK. Selesai