Tugas Akhir Matakuliah MULTIMEDIA





Jika Vidio di atas tidak bisa muncul silahkan klik disini untuk melihat melalui YouTube.com


7:22 AM | Category: | 0 comments

Pembuatan Aplikasi Mesin Kasir

Ini merupakan pembelajaran saya mengenai pembuatan software mesin kasir menggunakan software visual studio 2008. 


Coding Pada Menu Form 1 :



Imports System.Drawing.Bitmap

Public Class Form1

    Inherits System.Windows.Forms.Form
    Public gambar As String
  
    Dim objekhitung As New Hitung
    Private Sub tampil()
        objekhitung.buka()
        objekhitung.cmd = New OleDb.OleDbCommand
        objekhitung.cmd.Connection = objekhitung.cn
        objekhitung.cmd.CommandText = " Select*from baju"
        objekhitung.da = New OleDb.OleDbDataAdapter
        objekhitung.da.SelectCommand = objekhitung.cmd
        objekhitung.ds = New DataSet
        objekhitung.da.Fill(objekhitung.ds, "baju")
        DataGridView1.DataSource = objekhitung.ds
        DataGridView1.DataMember = "baju"
        DataGridView1.ReadOnly = True
        objekhitung.tutup()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        gambar = "C:\Users\Acer\Google Drive\visual 1\pertemuan 10 (lanjutan pertemuan 9)\picture\"

        jenis_baju.Items.Add("Kaos")
        jenis_baju.Items.Add("Tshirt")
        jenis_baju.Items.Add("Gaun")
        jenis_baju.Items.Add("Kemeja")
        jenis_baju.Items.Add("Blouse")
        ukuran.Items.Add("S")
        ukuran.Items.Add("M")
        ukuran.Items.Add("L")
        ukuran.Items.Add("XL")
        ukuran.Items.Add("XXL")

        'deklarasi tampil'
        objekhitung.tampung_harga = Val(harga.Text)
        objekhitung.tampung_jumlah = Val(jumlah_beli.Text)
        objekhitung.tampung_diskon = Val(diskon.Text)
        tampil()



    End Sub

    Private Sub jenis_baju_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenis_baju.SelectedIndexChanged
        If jenis_baju.Text = "Kaos" Then
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            PictureBox1.Image = FromFile(gambar + "kaos.jpg")
        ElseIf jenis_baju.Text = "Tshirt" Then
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            PictureBox1.Image = FromFile(gambar + "tshirt.jpg")
        ElseIf jenis_baju.Text = "Gaun" Then
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            PictureBox1.Image = FromFile(gambar + "gaun.jpg")
        ElseIf jenis_baju.Text = "Kemeja" Then
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            PictureBox1.Image = FromFile(gambar + "kemeja.jpg")
        Else
            PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
            PictureBox1.Image = FromFile(gambar + "blouse.jpg")

        End If
        ukuran.Focus()

    End Sub

    Private Sub ID_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ID.KeyPress
        If e.KeyChar = Chr(13) Then
            nama.Focus()
        End If
    End Sub


    Private Sub nama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nama.KeyPress
        If e.KeyChar = Chr(13) Then
            no_tlp.Focus()
        End If
    End Sub


    Private Sub no_tlp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_tlp.KeyPress
        If e.KeyChar = Chr(13) Then
            jenis_baju.Focus()
        End If



    End Sub
    Private Sub diskon_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles diskon.KeyPress
        If e.KeyChar = Chr(13) Then
            objekhitung.tampung_harga = Val(harga.Text)
            objekhitung.tampung_jumlah = Val(jumlah_beli.Text)
            objekhitung.tampung_diskon = Val(diskon.Text)
            total.Text = objekhitung.hitungan
        End If
    End Sub

    Private Sub tutup_aplikasi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup_aplikasi.Click
        Me.Close()

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        ' proses simpan data'

        objekhitung.cmd = New OleDb.OleDbCommand
        objekhitung.buka()
        objekhitung.cmd.CommandType = CommandType.Text
        objekhitung.cmd.CommandText = " insert into baju (IDPEL,nama,jbaju,ukuran,harga,jumlah,tgl_beli) values (' " & ID.Text & " ',' " & nama.Text & " ',' " & jenis_baju.Text & " ',' " & ukuran.Text & " ',' " & harga.Text & " ',' " & jumlah_beli.Text & " ',' " & DateTimePicker1.Text & " ')"
        objekhitung.cmd.ExecuteNonQuery()
        objekhitung.tutup()
        objekhitung.ds.Clear()
        tampil()
        MsgBox(" Data Telah Tersimpan !", 64, "Informasi")
    End Sub
End Class


CODING PADA MENU CLASS :


Option Explicit On
Option Strict On
Public Class Hitung
    Public cn As New OleDb.OleDbConnection
    Public cmd As New OleDb.OleDbCommand
    Public dr As OleDb.OleDbDataReader
    Public da As OleDb.OleDbDataAdapter
    Public ds As New DataSet

    Public Sub buka()
        cn = New OleDb.OleDbConnection
        cn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source= C:\Users\Acer\Google Drive\visual 1\pertemuan 10 (lanjutan pertemuan 9)\database.accdb"
        cn.Open()
        cmd.Connection = cn

    End Sub
    Public Sub tutup()
        If Not cn Is Nothing Then
            cn.Close()
            cn = Nothing
        End If
    End Sub

    'variabelnya
    Private diskon, harga As Single
    Private jumlah As Integer
    Private ttlbayar As Single
    'pemesanan property
    Public Property tampung_harga() As Single
        Get
            Return harga
        End Get
        Set(ByVal value As Single)
            harga = value
        End Set
    End Property
    Public Property tampung_diskon() As Single
        Get
            Return diskon
        End Get
        Set(ByVal value As Single)
            diskon = value
        End Set
    End Property
    Public Property tampung_jumlah() As Integer
        Get
            Return jumlah
        End Get
        Set(ByVal value As Integer)
            jumlah = value
        End Set
    End Property
    'procedure
    Public Function hitungan() As Single
        Return (harga - (harga * diskon / 100)) * jumlah
    End Function
End Class

Gambar hasil coding


8:57 PM | Category: | 0 comments

Program Pointer
 berikut adalah contoh sederhana program pointer dalam C++

#include<iostream>
#include<conio.h>
using namespace std;

void main ()
{
char string [1];
cout<<"masukan kata : "; cin>>string;
cout<<" string sebelum proses adalah "<<string<<" berada pada alamat " <<&string;

getche();

}

8:49 AM | Category: | 0 comments

Program C++ penghitungan belanja
hari ini tanggal 23 April 2012, pelajaran hari ini mengenai perhitungan kasir.
nah ini adalah pelajaran yang saya pelajarin hari ini.

#include<iostream>
#include<string>
#include<conio.h>
using namespace std;
void main ()
{
    cout<<endl;
    cout<<"***** program hitung kantin Taufik Market *****"<<endl;

        string databrg,nama,kode,ket;
        int jumlah, harga,total,diskon,bayar,total1;
       
   
    cout<<" Kode barang          : "; getline(cin,kode);
    cout<<" Nama barang          : "<<nama;

        if( nama==kode || kode=="AB")
        {
            cout<<"BUKU"<<endl;
            harga=75000;
        }
        else if (nama==kode || kode=="PN")
        {
            cout<<" Pena "<<endl;
            harga=20000;
        }
        else if (nama==kode || kode=="PG")
        {
            cout<<" PENGGARIS "<<endl;
            harga=10000;
        }

    cout<<" Jumlah               :     "; cin>>jumlah;
    cout<<" Harga                : Rp. "<<harga<<endl;

    cout<<"========================================================="<<endl;
       
       
   
    total= harga * jumlah;

    cout<<" Grand total          : Rp. "<<total<<endl;
   
    if (total>200000)
    {
        diskon=total*10/100;
    }
    else if (total<200000)
    {
        diskon=0;
    }
    cout<<" Discount             : Rp. "<<diskon<<endl;
    cout<<"__________________________________________________________ -"<<endl;
    total1=total-diskon;
    cout<<" total setelah diskon : Rp. "<<total1<<endl;
    cout<<" Uang pembayaran      : Rp. ";cin>>bayar;
    cout<<" Kembalian            : Rp. "<<(bayar-total1)<<endl<<endl<<endl<<endl;

    cout<<" *********** Terima Kasih Atas Kunjungannya *********** " <<endl;

   
    getche();
}








Tampilan Program



8:19 AM | Category: | 0 comments

Motivasi Kerja
Beberapa Konsep :
- KEGAIRAHAN KERJA
  “kemauan dan kesenangan yang mendalam terhadap pekerjaan yang dilakukan”.

-  MOTIF
  “suatu perangsang keinginan (wants) dan daya penggerak   kemauan bekerja seseorang”.
- MOTIVASI
  "pemberian daya penggerak yg menciptakan kegairahan kerja seseorang agar mereka mau bekerjasama, bekerja efektif, & terintegrasi dengan segala daya upayanya ntuk mencapai kepuasan”

Tujuan Motivasi :
§ Meningkatkan moral & kepuasaan kerja karyawan
§ Meningkatkan produktifitas kerja karyawan
§ Mempertahankan kestabilan karyawan
§ Meningkatkan kedisiplinan
§ Mengefektifkan pengadaan karyawan
§ Menciptakan hubungan & suasana kerja yang baik
§ Meningkatkan loyalitas, kreativitas, & partisipasi
§ Meningkatkan kesejahteraan karyawan
§ Mempertinggi rasa tanggung jawab terhadap tugas
§ Meningkatkan efisiensi penggunaan alat & bahan.


 Asas-asas Motivasi :
• Asas Mengikutsertakan
  “memberikan kesempatan bawahan untuk  berpartisipasi mengajukan 
   ide/saran dalam pengambilan  keputusan”

• Asas Komunikasi
  “menginformasikan tentang tujuan yang ingin dicapai,cara mengerjakannya & 
   kendala yang dihadapi”

• Asas Pengakuan
  “memberikan penghargaan & pengakuan yang tepat serta wajar kepada 
   bawahan atas prestasi yang dicapainya”

• Asas Wewenang yang Didelegasikan
  “mendelegasikan sebagian wewenang  serta kebebasan karyawan untuk 
   mengambil keputusan dan berkrea-tivitas dan melaksanakan tugas-tugas 
   atasn atau manajer”

• Asas Perhatian Timbal Balik
  “memotivasi bawahan dengan mengemukakan   keinginan atau harapan 
   perusahaan disamping   berusaha memenuhi kebutuhan-kebutuhan yang    
   diharapkan bawahan dari perusahaan”

Proses Motivasi :

• Hal yang perlu diperhatikan dalam proses motivasi :
§ Penetapan Tujuan
§ Mengetahui Keinginan Karyawan
§ Adanya Komunikasi yang Baik
§ Integrasi Tujuan Perusahaan dg Kepentingan Karyawan
§ Menyediakan Fasilitas
§ Membentuk Team Work yg Terkoordinasi dg baik 



4:04 AM | Category: | 0 comments

Flowchart
A. PENGERTIAN DASAR FLOWCHART
Adalah Bagan-bagan yang mempunyai arus yang menggambarkan
langkah-langkah penyelesaian suatu masalah. Flowchart merupakan cara
penyajian dari suatu algoritma

Tujuan Membuat Flowchat :
• Menggambarkan suatu tahapan penyelesaian masalah
• Secara sederhana, terurai, rapi dan jelas
• Menggunakan simbol-simbol standar

Dalam penulisan Flowchart dikenal dua model, yaitu Sistem Flowchart dan
Program Flowchart

♣ System Flowchart :
Yaitu : bagan Yang memperlihatkan urutan prosedure dan proses dari
beberapa file di dalam media tertentu.
Melalui flowchart ini terlihat jenis media penyimpanan yang dipakai dalam
pengolahan data.
• Selain itu juga menggambarkan file yang dipakai sebagai input dan
output.
• Tidak digunakan untuk menggambarkan urutan langkah untuk
memecahkan masalah
• Hanya untuk menggambarkan prosedur dalam sistem yang dibentuk

♣ Program Flowchart
Yaitu: Bagan yang memperlihatkan urutan dan hubungan proses dalam suatu
program.
Dua jenis metode penggambaran program flowchart :
1) Conceptual flowchart, menggambarkan alur pemecahan masalah
secara global
2) Detail flowchart, menggambarkan alur pemecahan masalah secara
rinci

Tabel Flowchart


contoh flowchart penghitungan luas segitiga.
Flowchart Luas Segitiga
 

12:58 AM | Category: | 0 comments

Penghitungan Bonus Pulsa

kalau yang ini adalah program penghitungan jumlah bonus pulsa seorang pelanggan handphone, sama aja kayak pembuatan program kasir ini juga pakai perintah jika (if) nambah banyak lagi nih, haha tapi tetap bisa nih... :D

#include<iostream>
#include<conio.h>
#include<string>


using namespace std;

void main()
{
string nama_pelanggan="";
int bonus_pulsa=0;
int bonus_sms=0;
int nominal=0;
int total=0;
int golongan=0;

cout<<"Input Nama Pelanggan: ";getline(cin,nama_pelanggan);
cout<<"Input Nominal Pulsa: ";cin>>nominal;

if (nominal==150000)
{
 bonus_pulsa=15000;
 bonus_sms=150;
}
else if (nominal==100000)
{
 bonus_pulsa=10000;
 bonus_sms=100;
}
else if (nominal==50000)
{
 bonus_pulsa=0;
 bonus_sms=50;
}

total=nominal+bonus_pulsa;

  cout<<"Total Pulsa yang Didapat Pelanggan yang Bernama "<<nama_pelanggan<<" adalah "<<total<<" dan Bonus SMS Sebanyak "<<bonus_sms<<" SMS"<<endl;



getche();
}
12:46 AM | Category: | 0 comments