Sondag 31 Mei 2015

Sondag 08 Desember 2013

Berikut ini adalah tampilan design pemograman visual : Berikut ini adalah cara penyelesain design diatas : 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 Berikut ini hasil dari cara penyelesaian diatas :

Dinsdag 19 November 2013

Contoh Program Pencarian Nilai Huruf dan Pemakaian Fungsi Mid, Right dalam VB.Net

Masukkan NPM (13111000,13111011,13112011)
Masukkan Kode Dosen (kd001,kd002,kd003)
Masukkan Kode Matakuliah (mk001,mk002,mk003)

Ketentuan :
1 digit dari sebelah kanan NPM menentukan jenjang yaitu S1,D3,D1
4 digit dari sebelah kanan NPM dan dari 4 digit tsb diambil 2 karakter untuk menentukan jurusan
2 digit dari sebelah kanan Kode Dosen menentukan Nama Dosen
2 digit dari sebelah kanan Kode Matakuliah menentukan Nama Matakuliah

ini coding programnya:

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("13111011")
        Npm.Items.Add("13112011")

        kd_dosen.Items.Add("kd001")
        kd_dosen.Items.Add("kd002")
        kd_dosen.Items.Add("kd003")

        Kd_mkul.Items.Add("mk001")
        Kd_mkul.Items.Add("mk002")
        Kd_mkul.Items.Add("mk003")

        Dim i As Integer
        For i = 100 To 1 Step -10
            Nlai_kehadiran.Items.Add(i)
            Ntugas.Items.Add(i)
            N_uts.Items.Add(i)
            N_uas.Items.Add(i)

        Next

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Dim x As String
        x = Microsoft.VisualBasic.Right(Npm.Text, 1)
        If x = "0" Then
            jenjang.Text = "S1"
        ElseIf x = "1" Then
            jenjang.Text = "D3"
        Else
            jenjang.Text = "D1"
        End If

        x = Microsoft.VisualBasic.Mid(Npm.Text, 4, 2)
        If x = "11" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "11" Then
            jurusan.Text = "Sistem Informasi"
        ElseIf x = "12" Then
            jurusan.Text = "Manajemen"
        Else
            jurusan.Text = "-"
        End If
        Select Case Npm.Text
            Case "13111000"
                Nama.Text = "deni M"
            Case "13111011"
                Nama.Text = "Indra S"
            Case "13112011"
                Nama.Text = "Agus H"
            Case Else
                Nama.Text = "-"

        End Select
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Npm.Text = ""
        Nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kd_dosen.Text = ""
        Nm_dosen.Text = ""
        Kd_mkul.Text = ""
        Nm_mkul.Text = ""
        Nlai_kehadiran.Text = ""
        Ntugas.Text = ""
        N_uts.Text = ""
        N_uas.Text = ""
        Nakhir.Text = ""
        N_hruf.Text = ""
        keterangan.Text = ""
    End Sub

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

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Nakhir.Text = 0.1 * Nlai_kehadiran.Text + 0.15 * Ntugas.Text + 0.3 * N_uts.Text + 0.45 * N_uas.Text


        If Nakhir.Text >= 60 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAL"
        End If
        Select Case Nakhir.Text
            Case Is >= 80
                N_hruf.Text = "A"
            Case 70 To 79
                N_hruf.Text = "B"
            Case 60 To 69
                N_hruf.Text = "C"
            Case 50 To 59
                N_hruf.Text = "D"
            Case Is <= 49
                N_hruf.Text = "E"
        End Select

    End Sub

    Private Sub Kd_mkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_mkul.SelectedIndexChanged

        Dim y As String
        y = Microsoft.VisualBasic.Right(Kd_mkul.Text, 2)
        If y = "01" Then
            Nm_mkul.Text = "Pemograman Visual"
        ElseIf y = "02" Then
            Nm_mkul.Text = "Arsitektur Informasi"
        ElseIf y = "03" Then
            Nm_mkul.Text = "Sistem informasi"
        End If
    End Sub

    Private Sub kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_dosen.SelectedIndexChanged

        Dim z As String
        z = Microsoft.VisualBasic.Right(kd_dosen.Text, 2)
        If z = "01" Then
            Nm_dosen.Text = "Mesran S.Kom, M.Kom"
        ElseIf z = "02" Then
            Nm_dosen.Text = "Sony Bahagia S.Kom"
        ElseIf z = "03" Then
            Nm_dosen.Text = "Sinar Sinurat S.Kom, M.Kom"
        End If

    End Sub
End Class

hasil programnya:

Sumber : Materi Pak Mesran, S.Kom, M.Kom.

Donderdag 06 Junie 2013

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Selesaikanlah Kasus Berikut :

Coba Selesaikan Kasus Berikut Ini

Berikut Jawaban Program :

#include<stdio.h>
#include<conio.h>
void main()
{
    int i,masukkan,hasil=1;
    printf("Input Nilai : ");scanf("%d",&masukkan);
     printf("Hasil : ");
           for(i=1;i<=masukkan;i++)
            {
                if(i==masukkan)
                     printf("%d",i);
        else
                           printf("%d*",i);

                     hasil=hasil*i;
           }
            printf(" = %d",hasil);

}

Demikilahlah postingan saya
Nama: Mardiah Tusalama
Npm:12110598
Selamat Belajar Bahasa Pemrograman

Woensdag 29 Mei 2013

Program Penjualan Menggunakan Bahasa C

Berikut adalah contoh Tugas Bahasa Pemograman dalam perkuliahan saya yang sedang berlanjut dengan judul Program Penjualan dengan menggunakan Bahasa C :

#include "stdio.h"
#include "conio.h"

main() {
    int kode,jumlah;
    float harga,total,disc,bersih;
    char*nama;

    printf("Input Harga penjualan\n--------------------\n");
    printf("\nKode : "); scanf("%d",&kode);
    if (kode==1){
        nama="televisi";harga=1750000;
    }else if (kode==2){
        nama="dvd";harga=650000;
    }else if (kode==3){
        nama="cd room";harga=450000;
    }else{
        nama="-";harga=0;
    }

    printf("Nama : %s",nama);
    printf("\nHarga : %.2f",harga);
    printf("\nJumlah Beli : "); scanf("%d",&jumlah);
    total=harga*jumlah;
    printf("Total Harga : %.2f",total);
    if (total>2000000) {
        disc=0.1*total;
        bersih=total-disc;
    }else{
        disc=0;
        bersih=total;
    }
    printf("\nDiskon : %.2f",disc);
    printf("\nTotal Harga Bersih : %.2f",bersih);
}

Tampilan outputnya :

Semoga postingan ini dapat bermanfaat buat teman semuanya :)

Woensdag 01 Mei 2013

DATA BASE ITU APA?
Database dapat diartikan sebagai kumpulan data yang terdiri atas satu atau lebih tabel yang terintegrasi satu sama lain, dimana setiap pemakai (user) diberi wewenang (otorisasi) untuk dapat mengakses (mengubah, menghapus, menganalisis, menambah, memperbaiki) data dalam tabel-tabel tersebut. Tabel itu berfungsi untuk menyimpan data dan merupakan suatu kumpulan data yang berhubungan dengan topik tertentu, misalnya daftar pegawai atau daftar inventaris barang.

Tabel terdiri atas baris yang disebut record dan kolom yang disebut field sehingga apabila dibayangkan dengan sebuah Gambar A berikut:

Supaya lebih jelas lagi, Gambar B berikut adalah contoh bagi anda mengenai struktur database. Pada Gambar B terlihat sebuah struktur database Tokoku yang terdiri atas tabel-tabel database: barang, pemasok, beli, pelanggan, jual, dan total jual, dimana dalam salah satu tabelnya yaitu tabel beli terdapat field-field database: no faktur, tgl faktur, kode pemasok, kode barang, jumlah barang, serta harga barang.

Ada beberapa istilah yang harus anda ketahui pada saat bekerja dengan sebuah tabel database, yaitu:

1) Field, merupakan tempat dimana data atau informasi dalam kelompok yang sama atau sejenis dimaksudkan. Field itu pada umumnya tersimpan dalam bentuk kolom vertikal pada tabel. Sebagai contoh lihat Gambar C. Pada gambar tersebut terlihat tabel yang diorganisasikan dalam empat field, yaitu Nama Pemasok, Kode Pemasok, Alamat Pemasok, dan No Telepon.

2) Record, merupakan data lengkap dalam jumlah tunggal yang biasanya tersimpan dalam bentuk baris secara horizontal pada tabel. Sebagai contoh lihat Gambar C. Pada gambar tersebut terlihat satu buah record yang berisi data salah seorang pemasok dengan informasi Andi, 00001, Jl. Mawar No. 2 Medan, 081263545312.

sumber: http://www.ideelok.com/ilmu-komputer

Tablet Ainol Novo 7 Crystal 2 dengan Prosesor Quad Core Resmi

Tablet Ainol Novo 7 Crystal 2 dengan Prosesor Quad Core Resmi Dijual di Cina dengan Harga Satu Jutaan

Tablet Android terbaru dari Ainol, yakni Ainol Novo 7 Crystal 2 resmi meluncur ke pasaran. Dan tablet ini pun menjadi salah satu tablet Android dengan prosesor quad core yang dibanderol dengan harga paling murah, yakni sekitar satu juta rupiah.

Tablet Ainol Novo 7 Crystal 2 ini menawarkan tampilan layar sentuh berukuran 7 inci. Layar ini mempunyai resolusi sebesar 1024 x 600 piksel.

Prosesor yang dipakai tentunya bukan prosesor Samsung Exynos 4 ataupun NVidia Tegra 3. Alih-alih tablet ini memakai prosesor Actions ATM7029 yang dilengkapi dengan GPU Vivante GC1000. Selain itu, tablet ini dilengkapi dengan RAM berkapasitas 1GB serta memori internal 8GB.
Fitur lainnya, tablet ini mempunyai slot microSD, USB dan port HDMI. Tak lupa juga ada fitur WiFi, namun tidak ada Bluetooth atau GPS. Sebagai sumber tenaga, Ainol membenamkan baterai berkapasitas 3700 mAh yang mampu bertahan untuk pemakaian 5 hingga 6 jam.
(Via Liliputing)
(Via Beritateknologi)
Sumber : http://www.syarian.com

Mardiah Tusalama