Penggunaan Listview

 Penggunaan Listview Pada VB.NET


 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode_brg.Items.Add("TS001")
        kode_brg.Items.Add("TS002")
        kode_brg.Items.Add("VG001")
        kode_brg.Items.Add("VG002")
        ListView1.Columns.Add("No", 30, HorizontalAlignment.Center)
        ListView1.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Merk", 50, HorizontalAlignment.Center)
        ListView1.Columns.Add("Harga Barang", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
        ListView1.View = View.Details
    End Sub

    Private Sub kode_brg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_brg.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode_brg.Text, 2)
        If x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(kode_brg.Text, 3)
        If x = "001" Then
            nama_brg.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            nama_brg.Text = "Flashdisk 2GB"
        End If
        If kode_brg.Text = "TS001" Then
            harga.Text = "105000"
        ElseIf kode_brg.Text = "TS002" Then
            harga.Text = "75000"
        ElseIf kode_brg.Text = "VG001" Then
            harga.Text = "90000"
        ElseIf kode_brg.Text = "VG002" Then
            harga.Text = "60000"
        End If
    End Sub

    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_beli.KeyPress
        If e.KeyChar = Chr(13) Then
            total_hrg.Text = jumlah_beli.Text * harga.Text
        End If
    End Sub

    Private Sub btn_hps_pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hps_pilih.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
        Dim simpan As New ListViewItem
        simpan.Text = no_pembelian.Text
        simpan.SubItems.Add(kode_brg.Text)
        simpan.SubItems.Add(nama_brg.Text)
        simpan.SubItems.Add(merk.Text)
        simpan.SubItems.Add(harga.Text)
        simpan.SubItems.Add(jumlah_beli.Text)
        simpan.SubItems.Add(total_hrg.Text)
        ListView1.Items.Add(simpan)
    End Sub

    Private Sub btn_hps_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hps_semua.Click
        ListView1.Items.Clear()
    End Sub

    Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
        no_pembelian.Text = ""
        kode_brg.Text = ""
        nama_brg.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah_beli.Text = ""
        total_hrg.Text = ""
    End Sub

    Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
        End
    End Sub
End Class

Mencari nilai Mahasiswa menggunakan Prog. VB.net

 Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Npm.Items.Add("12110657")
        Npm.Items.Add("13111000")
        Npm.Items.Add("12130764")
        Npm.Items.Add("12140576")
        Npm.Items.Add("12110765")
        Kode_Dosen.Items.Add("KD01")
        Kode_Dosen.Items.Add("KD02")
        Kode_Dosen.Items.Add("KD03")
        Kode_Dosen.Items.Add("KD04")
        Kode_Dosen.Items.Add("KD05")
        Kode_Mk.Items.Add("MK01")
        Kode_Mk.Items.Add("MK12")
        Kode_Mk.Items.Add("MK11")
        Kode_Mk.Items.Add("MK04")
        Kode_Mk.Items.Add("MK05")

        Dim i As Integer
        For i = 0 To 100 Step +5
            Nilai_Tugas.Items.Add(i)
            Nilai_UTS.Items.Add(i)
            Nilai_UAS.Items.Add(i)
        Next i
        Dim j As Integer
        For j = 0 To 100
            Nilai_Hadir.Items.Add(j)
        Next j


    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.Left(Npm.Text, 3)
        If x = "5" Then
            Jenjang.Text = "S1"
        ElseIf x = "6" Then
            Jenjang.Text = "D3"
        Else
            Jenjang.Text = "D1"
        End If

        x = Microsoft.VisualBasic.Right(Npm.Text, 4, 2)
        If x = "30" Then
            Jurusan.Text = "Teknik Informatika"
        ElseIf x = "20" Then
            Jurusan.Text = " Akutansi"
        ElseIf x = "10" Then
            Jurusan.Text = "Sistem Informasi"
        Else
            Jurusan.Text = "Manajemen"
        End If

        Select Case Npm.Text
            Case "12110657"
                Nama.Text = "Dewy"
            Case "13111000"
                Nama.Text = "Doni M"
            Case "12130764"
                Nama.Text = "Yohan Sibarani"
            Case "12140576"
                Nama.Text = "Marles"
            Case Else
                Nama.Text = " Rumini "
        End Select
    End Sub

    Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Dosen.SelectedIndexChanged
        Select Case Kode_Dosen.Text
            Case "KD01"
                Nama_Dosen.Text = "Mesran,S.Kom,M.Kom"
            Case "KD02"
                Nama_Dosen.Text = "Tonni Limbong,S.Kom,M.Kom"
            Case "KD03"
                Nama_Dosen.Text = "Alex Rizki,S.Kom,M.Kom"
            Case "KD04"
                Nama_Dosen.Text = "Hery Sunandar,ST,M.Kom"
            Case Else
                Nama_Dosen.Text = ""
        End Select
    End Sub

    Private Sub Kode_Mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Mk.SelectedIndexChanged
        Select Case Kode_Mk.Text
            Case "MK01"
                Nama_Mk.Text = "Struktur Data"
            Case "MK12"
                Nama_Mk.Text = "Sistem Basis Data"
            Case "MK11"
                Nama_Mk.Text = "Pemograman Visual"
            Case "MK04"
                Nama_Mk.Text = "Matriks dan Transformasi Linier"
            Case Else
                Nama_Mk.Text = " "
        End Select
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        NA.Text = 0.1 * Nilai_Hadir.Text + 0.15 * Nilai_Tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        If NA.Text >= 60 Then
            Keterangan.Text = "LULUS"
        Else
            Keterangan.Text = "GAGAL"
        End If
        Select Case NA.Text
            Case Is >= 80
                NH.Text = "A"
            Case 70 To 79
                NH.Text = "B"
            Case 60 To 69
                NH.Text = "C"
            Case 50 To 59
                NH.Text = "D"
            Case Is <= 49
                NH.Text = "E"
        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 = ""
        Kode_Dosen.Text = ""
        Nama_Dosen.Text = ""
        Kode_Mk.Text = ""
        Nama_Mk.Text = ""
        Nilai_Hadir.Text = ""
        Nilai_Tugas.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        NA.Text = ""
        NH.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
End Class


Tampilannya :

Tentang Mesran.Net

Mesran [dot]Net Tempat Pemograman

Kamu mau pintar bahasa Pemograman ? Jangan bingung karna saya akan membawa anda ke website yang penuh dengan bahasa pemograman, baiklah marilah kita menuju ke sana.

Merupakan Website dimana Anda/Kamu/Kita bisa belajar bahasa pemograman dengan berbagai Bahasa Pemograman contohnya (Bahasa C, Bahasa C++, Bahasa C#/C Sharp, Bahasa Pascal, Bahasa Visual(VB 6.0, VB.Net), Bahasa Java, Bahasa Delphi,maupun bahasa pemogramman yang terbaru yaitu Android).

Bagaimana caranya ? caranya gampang kok kalau mau mengaksesnya tingal kamu klik nama ini Mesran.net 
atau tulis link ini http://mesran.net/. Anda akan langsung ditujukan ketepat yang website yang penuh dengan bahasa pemograman.

Website ini dibuat oleh seorang Dosen dikampus saya, Beliau selain menjadi Dosen, juga menduduki jabatan sebagai Ketua STMIK di kampus saya. Siapakah orangnya yaitu Bapak Mesran, S.KOM., M.KOM.

Beliau adalah Dosen yang membentuk dan juga membina suatu Organisasi dikampus saya yang bernama Budidarma Programming Club (BPC). Budidarma Programming Club (BPC) yaitu suatu organisasi yang mempelajari bahasa pemograman, juga merupakan organisasi yang cukup ternama dikampus saya, Kenapa? Karena BPC banyak membantu mahasiswa dalam pengerjaan Tugas Akhir(TA) maupun Skripsi.

O ya dari tadi saya hanya membahas kampus saya tapi saya belum memberi tahu nama kampus saya, jadi saya berkuliah di STMIK BUDIDARMA MEDAN.

Sekian informasi yang bisa saya share kepada teman-teman semua, semoga bermanfaat dan Terima Kasih.

Contoh Program 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 dari tampilan:

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Selesaikanlah Kasus Berikut :

 Buatlah program untuk menampilkan hasil berikut dengan menggunakan perulangan :

Bahasa C++
Input Nilai : 5

Hasil : 1 * 2 * 3 * 4 * 5 = 120 

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;
}




Tampilannya:



Demikilahlah postingan saya
Nama  : Yohan Andi
Npm    :12110746

program penjualan dalam bahasa C

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 ("\n Kode : "); 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;

besih=total;

}

printf("\nDiskon : %.2f",disc);

printf("\nTotal Harga Bersih : %.2f",bersih);

}

tampilanya :

 

Jenis-jenis variabel bahasa C/C++

Jenis-jenis variabel bahasa C/C++

saya akan share jenis-jenis variabel dalam bahasa c/c++..
variabel terbagi menjadi 2 kelompok besar, yaitu variabel
numerik dan variabel teks.

• Variabel numerik dibagi menjadi 3 bagian, yaitu :

1. Bilangan Bulat (Integer)
Bilangan ini mampu menampung bilangan bulat yang berkisar antara -32.768 hingga
+32.768

2. Bilangan Desimal Berpresisi Tunggal (Floating Point)
Dalam bentuk bilangan berpangkat Floating Point dapat digunakan untuk
menampung data dari 10^(-38) hingga 10^38, sedangkan dalam bentuk desimal dapat
menampung hingga enam desimal (6 angka dibelakang koma).

3. Bilangan Desimal Berpresisi Ganda (Double Precision)
Serupa dengan Floating Point, hanya saja kapasitas menampung datanya lebih besar.
Dalam bentuk bilangan berpangkat, Double Precision dapat mengolah angka-angka
dengan ketelitian yang berkisar antara 10^(-308) hingga 10^308. Sedangkan dalam bentuk
desimal mampu menampung hingga 15 digit.

• Sedangkan variabel teks dibedakan atas :

1. Karakter (untuk karakter tunggal)
Selain dapat digunakan untuk menampung sebuah karakter, variabel ini dapat pula
dikonversikan dalam bentuk bilangan (ASCII code). Bilangan hasil konversi data ini
dinyatakan dengan bilangan bulat yang berkisar antara -128 sampai +127.

2. String (untuk rangkaian karakter)
String pada prinsipnya merupakan rangkaian karakter yang diakhiri dengan karakter
null (‘\0’).

semoga bermanfaat... :)