Program Sederhana VB.NET Penjualan Tiket Film

Assalamualaikum,,,

Dimalam yang dingin ini, sebelum saya main futsal saya sempatkan untuk memposting Program Sederhana VB.NET Penjualan Tiket Film, yang mungkin bisa menjadi referensi anda untuk belajar pemrograman VB.NET.

Langsung saja ya ini Program Sederhana VB.NET Penjualan Tiket Film.

Desain form berikut :

Jika sudah selesai membuat form, berikut listing Proram Sederhana VB.NET Pejualan Tiket Film :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Kode.Items.Add("A001")

        Kode.Items.Add("A002")

        Kode.Items.Add("A003")

        Kode.Items.Add("A004")

    End Sub

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

        If Kode.Text = "A001" Then

            Nama_studio.Text = "Studio 1"

            Kelas.Text = "Eksklusif"

            Harga.Text = 900000

        ElseIf Kode.Text = "A002" Then

            Nama_studio.Text = "Studio 2"

            Kelas.Text = "Bisnis"

            Harga.Text = 800000

        ElseIf Kode.Text = "A003" Then

            Nama_studio.Text = "Studio 3"

            Kelas.Text = "Ekonomi"

            Harga.Text = 700000

        Else

            Nama_studio.Text = "Studio 4"

            Kelas.Text = "Super Ekonomi"

            Harga.Text = 600000

        End If

        Jumlah.Focus()

    End Sub

    Sub Hapus()

        Kode.Text = ""

        Nama_studio.Text = ""

        Kelas.Text = ""

        Harga.Text = ""

        Jumlah.Text = ""

        Tohar.Text = ""

        Dis.Text = ""

        Tobar.Text = ""

        Dibayar.Text = ""

        Kembalian.Text = ""

    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

        If e.KeyChar = Chr(13) Then

            Tohar.Text = Harga.Text * Jumlah.Text

            If Jumlah.Text >= 5 Then

                kon.Text = "10%"

                Dis.Text = 0.1 * Tohar.Text

            Else

                kon.Text = "0%"

                Dis.Text = 0

            End If

            Tobar.Text = Tohar.Text - Dis.Text

            Dibayar.Focus()

        End If

    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

    End Sub

    Private Sub Bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkeluar.Click

        Me.Close()

    End Sub

    Private Sub Dibayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Dibayar.KeyPress

        If e.KeyChar = Chr(13) Then

            Kembalian.Text = Dibayar.Text - Tobar.Text

        End If

    End Sub

    Private Sub Dibayar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dibayar.TextChanged

    End Sub

    Private Sub Bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhapus.Click

        Call Hapus()

    End Sub

End Class

Semoga Program Sederhana VB.NET Penjualan Tiket Film bisa bermanfaat, dan terimakasih.
wasalamm,,,

Diposting oleh Unknown 00.27 0 komentar

SEKILAS MENGENAI VISUAL BASIC

Bill Gates, pendiri Microsoft, memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).

Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an. Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer.

Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer, seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA, Apple BASIC dan lain-lain.

Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.). Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari). Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple. Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows. Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.

Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.

Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya. Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil porting dari kode VB. Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).

Perjalanan dari Visual Basic (VB1 to VB 10)

1.  Proyek “Thunder” dirintis

2.  Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yang                      
     dipertunjukan di Atlanta , Georgia

3.  Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992.  Bahasa ini tidak kompatibel dengan
     Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari
     compiler BASIC, QuickBasic dan BASIC Professional Development System.




4.  Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk
     digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat
     dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB

5.  Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi  versi standard dan professional.
     VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis
     database Jet (atau Access) 1.x

6.  Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit
     sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada
     Visual Basic

7.  Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk  versi windows
     32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import
     porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5
     memperkenalakan kemampuan untuk membuat  User Control.

8.  Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk
     membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non
     Supported” dimulai pada maret 2008

9.  Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET
     ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan
     bahasa sebelumnya, dengan  kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar
     dari paket runtime VB6 serta peningkatan penggunan memory.

10.  Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.

11.  Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft
       memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan
       bebrapa fitur baru, diantaranya :
               1.  Edit and Continue , mungkin inilah kekurangan fitur terbesar dari  VB .NET . pada VB 2005
                    ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan

               2.  Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis
                    dengan menggunakan NET framework versi 1.1.

12.  IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y
       menjadi If X  IsNot Y

13.  Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual
       Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah
       Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft.

14.   Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas
        NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
              -  True Tenary operator , yaitu fungsi If(boolean,value, value)  yg digunakan untuk menggantikan
                  fungsi IIF
              -  LINQ Support
              -  Ekspresi Lambda
              -  XML Literals
              -  Nullable types
              -  Type Inference
15.  Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang  juga dkenal dengan nama VBx, akan
       menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian
       dari SilverLight 1.1.

Diposting oleh Unknown 22.56 0 komentar

Contoh Program Sederhana Pascal part 2

Assamu'alaikum sobat, kali ini saya membuat contoh program yang telah saya buat sebelumnya,, Nah,, untuk yang satu ini saya buat program untuk di bidang Kesehatan.
Tanpa Pikir panjang lagi Lets Go kita baca, trus di coba biar tambah wawasan dikit,,
hehehehe,,,,,

Coba praktekan latihan berikut ini:

Berikut deskripsi kebutuhan user dari program pembayaran pada sebuah klinik;

Berikut adalah pengolahan data sebuah klinik

Nomor pasien :

Nama pasien :

Jenis kelamin :

Keluhan:

Dokter :

Biaya dokter :

Obat :

Biaya obat:

Lama inap:

Kamar inap:

Biaya kamar:

Discount:

Total bayar:

Catatan dari user;

·                     Jika keluhan = umum, maka dokter = dr.ilham wijaya dan biaya dokter =100000(100ribu)

·                     Jika keluhan = gigi, maka dokter = dr. Artalya dan biaya dokter = 110000(110ribu)

·                     Jika keluhan = anak, maka dokter = dr. Salim Hakim dan biaya dokter = 125000(125ribu)

·                     Jika keluhan = kandungan, maka dokter = dr. Kartini, SKM dan biaya dokter = 95000(95ribu)

·                     Jika obat “a” maka biaya obat = 50000(50ribu)

·                     Jika obat “b” maka biaya obat = 65 ribu

·                     Jika obat “c” maka biaya obat = 75 ribu

·                     Jika obat “d” maka biaya obat = 100 ribu

·                     Jika kamar inap =” vip” maka biaya kamar= 150 ribu permalam

·                     Jika kamar inap = “kelas 1” maka biaya kamar = 125 ribu

·                     Jika kamar inap = “kelas 2” maka biaya kamar = 110 ribu

·                     Jika kamar inap = “sal” maka biaya kamar = 75 ribu

·                     Discount = 5% dari transaksi

·                     Jika Pasien rawat jalan, maka biaya kamar tidak ada

Berikut listing program dari contoh kasus ini.

program datars;

uses crt;

var bdok,bob,bkm,dsc,tby,tbr:real;

np:string[10];

nap:string[30];

jkl:string[10];

klh:string[17];

dok:string[30];

kin:string[10];

ob:string[3];

lin:byte;

begin

clrscr;

write('Nomor Pasien=');

readln(np);

write('Nama Pasien=');

readln(nap);

write('Jenis Kelamin=');

readln(jkl);

write('Keluhan=');

readln(klh);

write('Type Obat=');

readln(ob);

writeln('* Jika rawat jalan, isi kamar inap"jalan" ');

Writeln('** Pilihan jenis kamar inap adalah"vip","k1","k2","sal",dan"jalan"');

writeln('*** Jika rawat jalan, isi lama inap"1"');

write('Kelas kamar=');

readln(kin);

write('Lama Inap=');

readln(lin);

if klh='umum' then begin

dok:='dr.ilham';

bdok:=100000*lin;

end

else

if klh='gigi' then begin

dok:='dr.Artalya';

bdok:=110000*lin;

end

else

if klh='anak' then begin

dok:='dr.Salim';

bdok:=125000*lin;

end

else begin

dok:='dr.Kartini';

bdok:=95000*lin;

end;

write('Dokter=',dok);

readln;

write('Biaya Dokter=',bdok:2:0);

readln;

if ob='a' then begin

bob:=50000;

end

else

if ob='b' then begin

bob:=65000;

end

else

if ob='c' then begin

bob:=75000;

end

else begin

bob:=100000;

end;

write('Biaya Obat=',bob:2:0);

readln;

if kin='vip' then begin

bkm:=150000*lin;

end

else

if kin='k1' then begin

bkm:=125000*lin;

end

else

if kin='k2' then begin

bkm:=110000*lin;

end

else

if kin='sal' then begin

bkm:=70000*lin;

end

else begin

bkm:=0;

end;

write('Biaya Kamar=',bkm:2:0);

readln;

tby:=bdok+bob+bkm;

dsc:=tby*0.05;

tbr:=tby-dsc;

writeln('Total Bayar=',tbr:2:0);

readkey;

end.

Inilah tampilan saat program dijalankan;

Demikianlah penjelasan yang bisa saya jabarkan tentang  "Cara Membuat Program Dengan Turbo Pascal" semoga bisa menambah pengetahuan kita ya,,,,
Thanks For Your Visit in My Blog, More Or Less I'm Sorry,,,
Wasalam,,

Diposting oleh Unknown 09.54 0 komentar

Fungsi Looping Pada Pascal

Assalamu'alaikum . . . . . .
kali ini saya mempostingkan hal yang masih berkaitan dengan Bahasa Pemrograman Turbo Pascal.
OK tanpa basah kering kita baca artikel ini, semoga bisa menambah wawasan kita ya,,,,,,
Cekidot...!!!

Apa Itu Looping
Pada Pemograman looping diartikan sebagai proses berulang terhadap statement maupun serangkaian statement lebih dari satu kali dengan menggunakan kode atau perintah tertentu.

Tanpa menggunakan looping listing program yang kita tulis bisa jadi panjang dan logika pemograman jadi agak susah.

Selanjutnya bagaimana cara penerapan fungsi looping pada pascal?


Cara Penerapan Fungsi Looping Pada Pascal
Looping pad pascal menggunakan beberapa perintah seperti;
• for...to.. do;
For biasa digunakan untuk perulangan positif dengan penghitung (counter) dari kecil kebesar atau dengan kata lain pertambahannya positif. Bentuk Umum ; For variabel := nilai awal To nilai akhir Do Statement; dan For variabel := nilai awal DownTo nilai akhir Do Statement;
• while..do;
• dan repeat until

Pada kesempatan kali ini contoh listing yang saya berikan adalah penerapan fungsi looping dengan perintah "for". Pda postingan berikutnya saya akan membahas contoh penerapan fungsi loopng pada pascal dengan perintah (while..do dan repeat..until)

Berikut contoh list programnya;

uses crt;

var i: integer;

a:string[30];

begin

clrscr;

write('kata='); readln(a);

for i:=1 to 5 do

begin

writeln(a);

end;

readln;

end.

Contoh listing program diatas adalah pengulangan kata yang diinput sebanyak 5 kali. Logikanya programnya seperti ini;

• deklarasikan variable

• input kata

• cetak kata yang diinput

• lakukan pengulangan sampai 5 kali

• selesai

Demikian share dari saya untuk saat ini. Semoga semakin menambah pemahaman kita tentang"Fungsi Looping Pada Pascal".

Diposting oleh Unknown 18.10 0 komentar

Contoh Program Turbo Pascal Sederhana

Pada postingan kali ini saya mau membahas salah satu contoh Program Applikasi Sederhana.
Pada contoh berikut saya tampilkan contoh kasus dan Listing Program Pascal.
Uraian Contoh Kasus ;

Berikut adalah data pengolahan gaji karyawan;
• Nomor Induk Karyawan
• Nama Karyawan
• Status
• Jumlah Anak
• Jabatan
• Gaji Pokok
• Tunjangan Istri
• Tunjangan Anak
• Tunjangan jabatan
• Jamsostek
• Pajak
• Gaji Bersih

Catatan;
Tunjangan istri
• jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok
• Selain itu tidak dapat tunjangan

Tunjangan anak
• Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk

masing-masing anak
• Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.
• selain itu tidak dapat tunjangan

Tunjangan jabatan
• Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000
• Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000
• Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000
• Selain itu tidak ada tunjangan

Hitungan untuk gaji bersih
Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)


Berikut Listing Programnya.
Silakan dipelajari atau dimodifikasi.

program Gaji;
uses crt;
var gp,gb,pjk,js,tis,ta,tjb:real;
nik:string[10];
nk:string[27];
sts:string[9];
jb:string[15];
ja:byte;
begin
clrscr;
write('Nomor Induk Karyawan=');
readln(nik);
write('Nama Karyawan=');
readln(nk);
write('Status=');
readln(sts);
write('Jumlah Anak=');
readln(ja);
write('Jabatan=');
readln(jb);
write('Gaji Pokok=');
read(gp);
if sts='menikah' then begin
tis:=0.1*gp;
end
else begin
tis:=0;
end;
if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin
ta:=0.05*gp*3;
end
else begin
ta:=0;
end;
if jb='manager' then begin
tjb:=2000000;
end
else
if jb='supervisor' then begin
tjb:=1500000;
end
else
if jb='mandor' then begin
tjb:=1000000;
end
else begin
tjb:=0;
end;
pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);
writeln('Tunjangan Istri=', tis:3:2);
writeln('Tunjangan Anak=', ta:3:2);
writeln('Tunjangan Jabatan=', tjb:3:2);
Writeln('Pajak=', pjk:3:2);
writeln('Jamsostek=', js:3:2);
writeln('Gaji Bersih=', gb:3:2);
readkey;
end.



Demikian dulu pembahasan tentang 'Contoh Program Sederhana Pascal'.

Selamat belajar dan mencobanya ya,,
o0O Good Luck O0o

Diposting oleh Unknown 10.26 0 komentar

Cara Membuat Kalender di Blog

Apabila anda ingin menambah atau mempercantik blog anda dengan kalender maka anda pasti akan mencari situs yang menyediakan widget kalender bagi blog anda. Agar tidak terlalu bingung mencarinya, saya berikan situs yang menyediakan widget kalender yaitu http://www.free-blog-content.com,dan All the calendars in the World - Calendar Widget. Untuk cara instalasi, silahkan ikuti langkah-langkah berikut !

1.  Tata Letak
2.  Tambah Gadget
3.  Klik menu Edit HTML / Java Script.
4.  Copy seluruh kode HTMl lalu paste pada program notepad kemudian save. Ini di maksudkan untuk
     berjaga-jaga apabila terjadi kesalahan dalam proses editting template, sobat masih mempunyai data untuk
     mengembalikannya ke semula.
5.  Copy kode yang tadi telah ada di notepad lalu paste pada tempat yang di inginkan, mau di sidebar atau di
     manapun boleh.
6.  Klik tombol Simpan Perubahan Template
7.  Selesai.

Semoga ini bisa menjadi refrensi teman-teman semua. Bagi yang ingin mempercantik blognya dengan kalender. Trimakasih. Give Your Comment if any mistake or less.

Diposting oleh Unknown 22.59 2 komentar