teddy90.blogspot.com : 2013

Sunday, 15 December 2013

Program Perhitungan Penjualan Barang

Public Class Form1

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

Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

Dim x As String
x = Microsoft.VisualBasic.Left(Kode.Text, 2)
If x = "TS" Then
Merk.Text = "Toshiba"
x = Microsoft.VisualBasic.Right(Kode.Text, 3)
If x = "001" Then
Nama.Text = "Flashdisk 4GB"
Harga.Text = 105000
ElseIf x = "002" Then
Nama.Text = "Flashdisk 2GB"
Harga.Text = 750000
End If
ElseIf x = "VG" Then
Merk.Text = "V-Gen"
x = Microsoft.VisualBasic.Right(Kode.Text, 3)
If x = "001" Then
Nama.Text = "Flashdisk 4GB"
Harga.Text = 900000
ElseIf x = "002" Then
Nama.Text = "Flashdisk 2GB"
Harga.Text = 60000

End If
End If
End Sub

Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
If Asc(e.KeyChar) = 13 Then
Total.Text = Harga.Text * Jumlah.Text
End If
End Sub
Sub rancangan_table()
With lv
.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
.Columns.Add("Kode barang", 100, HorizontalAlignment.Left)
.Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add("harga", 100, HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
.Columns.Add("Total harga", 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True

End With
End Sub
Sub isi_table()
Dim lst As New ListViewItem
With lst
.Text = No.Text
.SubItems.Add(Kode.Text)
.SubItems.Add(Nama.Text)
.SubItems.Add(Merk.Text)
.SubItems.Add(Harga.Text)
.SubItems.Add(Jumlah.Text)
.SubItems.Add(Total.Text)
lv.Items.Add(lst)
End With
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isi_table()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Clear()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
No.Text = ""
Kode.Text = ""
Nama.Text = ""
Merk.Text = ""
Harga.Text = ""
Jumlah.Text = ""
Total.Text = ""
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Close()
End Sub
End Class

Sunday, 17 November 2013

Program Form Nilai Mahasiswa Menggunakan VB.NET 2008

                                            "Berikut listing program yang akan di input"

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110985")
        NPM.Items.Add("12100033")
        NPM.Items.Add("12090003")
        NPM.Items.Add("12080011")
        Kode_dosen.Items.Add("K10")
        Kode_dosen.Items.Add("K11")
        Kode_dosen.Items.Add("K12")
        Kode_dosen.Items.Add("K13")
        Kode_Matakuliah.Items.Add("M01")
        Kode_Matakuliah.Items.Add("M02")
        Kode_Matakuliah.Items.Add("M03")
        Kode_Matakuliah.Items.Add("M04")
        Dim i As Integer
        Nilai_Hadir.Items.Clear()
        For i = 1 To 100
            Nilai_Hadir.Items.Add(i)
        Next
        Nilai_Tugas.Items.Clear()
        For i = 1 To 100
            Nilai_Tugas.Items.Add(i)
        Next
        Nilai_UTS.Items.Clear()
        For i = 1 To 100
            Nilai_UTS.Items.Add(i)
        Next
        Nilai_UAS.Items.Clear()
        For i = 1 To 100
            Nilai_UAS.Items.Add(i)
        Next
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110985"
                Nama.Text = "Teddy mizwar"
            Case "12100033"
                Nama.Text = "Tuppak Sitanggang"
            Case "12090003"
                Nama.Text = "Ranto Simarmata"
            Case "12080011"
                Nama.Text = "Gabriel Batistuta Koto"
        End Select
        Dim X As String
        X = Strings.Mid(NPM.Text, 3, 2)
        If X = "11" Then
            Jurusan.Text = "Teknik Informatika"
        ElseIf X = "10" Then
            Jurusan.Text = "Manajemen Informatika"
        ElseIf X = "09" Then
            Jurusan.Text = "Sistem Informasi"
        ElseIf X = "08" Then
            Jurusan.Text = "Teknik Komputer"
        End If
        X = Strings.Mid(NPM.Text, 3, 2)
        If X = "11" Then
            Jenjang.Text = "SI"
        ElseIf X = "10" Then
            Jenjang.Text = "DIII"
        ElseIf X = "09" Then
            Jenjang.Text = "DII"
        ElseIf X = "08" Then
            Jenjang.Text = "DI"
        End If
    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 "K10"
                Nama_Dosen.Text = "Mesran,M.Kom"
            Case "K11"
                Nama_Dosen.Text = "Tonni Limbong,M.Kom"
            Case "K12"
                Nama_Dosen.Text = "Kennedy Tampubolon,S.Si"
            Case "K13"
                Nama_Dosen.Text = "Sinar Sinurat,ST,M.Kom"
        End Select
    End Sub
    Private Sub Kode_Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Matakuliah.SelectedIndexChanged
        Select Case Kode_Matakuliah.Text
            Case "M01"
                Nama_Matakuliah.Text = "Pemograman Visual"
            Case "M02"
                Nama_Matakuliah.Text = "Sistem Basis Data"
            Case "M03"
                Nama_Matakuliah.Text = "Matriks"
            Case "M04"
                Nama_Matakuliah.Text = "Struktur Data"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Nilai_Akhir.Text = 0.1 * Nilai_Hadir.Text + 0.15 * Nilai_Tugas.Text + 0.3 * Nilai_UTS.Text + 0.45 * Nilai_UAS.Text
        If Nilai_Akhir.Text >= 80 Then
            Nilai_Huruf.Text = "A"
        ElseIf Nilai_Akhir.Text >= 70 Then
            Nilai_Huruf.Text = "B"
        ElseIf Nilai_Akhir.Text >= 60 Then
            Nilai_Huruf.Text = "C"
        ElseIf Nilai_Akhir.Text >= 50 Then
            Nilai_Huruf.Text = "D"
        Else
            Nilai_Huruf.Text = "E"
        End If
        If Nilai_Akhir.Text >= "50" Then
            Keterangan.Text = "lULUS"
        Else
            Keterangan.Text = "Gagal"
        End If
    End Sub

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

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Nama.Text = ""
        NPM.Text = ""
        Keterangan.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_Tugas.Text = ""
        Nilai_Hadir.Text = ""
        Nilai_Akhir.Text = ""
        Kode_dosen.Text = ""
        Kode_Matakuliah.Text = ""
        Nilai_Huruf.Text = ""
        Nama_Dosen.Text = ""
        Nama_Matakuliah.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
    End Sub
End Class
   "Jalankan Program dengan Menekan Tombol F5"

Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpuf

http://teddymizwar.blogspot.com/

'Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpu

'Jalankan Program dengan menekan tombol F5 pada keyboard' - See more at: http://ericksaruksuk.blogspot.com/2013/11/membuat-program-form-nilai-mahasiswa.html#sthash.eIEevpWN.dpuf

Thursday, 20 June 2013

Tugas Tabel Pembayaran

#include"stdio.h"

#include"conio.h"

void main(){

int i,kode[15],jumlah[15],jumdata=5;

char*produk;

float harga,total,disc,pembayaran;

printf(" STMIK BUDIDARMA MEDAN");

printf("\n");

printf("\n NAMA:TEDDY MIZWAR");

printf("\n KELAS:TI-M1222");

printf("\n NPM:12110985");

printf("\n");

printf("\n input data penjualan");

for(i=0 ; i

printf("\n kode 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 disc pembayaran");

printf("\n==============================================================================");

for(i=0 ; i

if(kode[i]==1){

produk="tv"; harga=2000000;

}else if(kode[i]==2){

produk="dvd";harga=650000;

}else if(kode[i]==3){

produk="vcd";harga=450000;

}

total=harga*jumlah[i];

if(total>800000);

disc=0.1*total;

pembayaran=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,pembayaran);

}

printf("\n------------------------------------------------------------------------------");

}