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.

Program Informasi Penjualan Produk

Berikut ini adalah contoh program mengenai Informasi Penjualan Produk :

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

void main(){
    int i, kode[15], jumlah[15], jumdata=5;
    char*produk;
    float harga, total, disc, bayar;

    printf("\Input Data Penjualan");
    for(i=0;i<jumdata;i++){
        printf ("\nKode Produk :"); scanf("%d",&kode[i]);
        printf ("Jumlah Produk :"); scanf("%d",&jumlah[i]);
    }
    clrscr();
    printf ("\n                        Informasi Penjualan Produk");
    printf ("\n ---------------------------------------------------------------------------");
    printf ("\n No Kode Produk                  Harga  Jumlah   Total    Discount    Bayar");
    printf ("\n ---------------------------------------------------------------------------");
    for(i=0;i<jumdata; i++){
        if(kode[i]==1){
            produk = "TV"; harga = 2000000;
        }else if(kode[i]==2){
            produk = "DVD"; harga = 650000;
        }else if(kode[i]==3){
            produk = "CD ROOM"; harga = 450000;
        }
        total = harga*jumlah[i];
        if (total<2000000){
            disc=0.1*total;
        }else if (total<4000000){
            disc=0.15*total;
        }else if (total>4000000){
            disc=0.2*total;
        }else{
            disc=0;
        }
        bayar = total-disc;
        gotoxy(1,6+i); printf(" %i   %d   %s", i+1, kode[i], produk);
        gotoxy(30,6+i); printf("%10.0f   %i  %10.0f %10.0f%10.0f", harga, jumlah[i], total, disc, bayar);
    }
    printf("\n ---------------------------------------------------------------------------");
}

Hasil tampilan program :

Program Penjualan Menggunakan Bahasa C

Berikut ini adalah salah 1 contoh program pejualan menggunakan bahasa C:

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

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

     printf("Masukkan 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 Barang : %s",nama);
     printf("\nHarga Barang : %.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);
}

Hasil Tampilan Program :



Semoga dapat menambah wawasan pembaca (^_^)......

Program Penjualan Dengan Bahasa C

Berikut adalah salah satu contoh program penjualan suatu barang menggunakan bahasa C
#include "stdio.h"
#include "conio.h"

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

     printf("Masukkan 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 Barang : %s",nama);
     printf("\nHarga Barang : %.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);
}


Semoga dapat menambah wawasan (^_^) ,,,,,

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Selesaikanlah Kasus Berikut :
Coba Selesaikan Kasus Berikut Ini 

Berikut Jawaban Program :

#include "iostream.h"
#include "conio.h"

void main()
{
     int i,masukkan,hasil=1;
     clrscr();
        cout<<"Input Nilai : "; cin>>masukkan;
     for (i=1;i<=masukkan;i++)
     {
     if (i==masukkan)
        cout<<i;
     else
        cout<<i<<"*";
        hasil=hasil*i;
     }
     cout<<"="<<hasil;
}

Tampilan Hasil Program :


Demikilahlah postingan saya  Nama : Zaka Prasetio
                                            NPM  : 12110552
Selamat Belajar Bahasa Pemrograman