PERINTAH DATABASE SQL SERVER

Dipagi ini saya sempatkan untuk berbagi sedikit tentang Perintah Database SQL Server,
karena sedikit banyaknya Perintah Database SQL Server ini akan berguna, khususnya bagi pemula yang ingin membuat program berbasis Database menggunakan SQL Server.

Berikut ini perintah-perintah SQL pada Database SQL Server. Materi pelatihan berupa contoh-contoh perintah SQL dasar mulai dari CREATE, SELECT, UPDATE, DELETE, sampai PROCEDURE dan TRIGGER.


Membuat Database
CREATE DATABASE rumahsakit

Menghapus Database
DROP DATABASE rumahsakit

Menggunakan Database
USE rumahsakit

Membuat Tabel
CREATE TABLE dokter(
nip nvarchar(50) NOT NULL,
nama nvarchar(200) NULL,
alamat text NULL,
tgllahir datetime NULL,
tunjangan float NULL,
PRIMARY KEY (nip))

CREATE TABLE jabatan(
idjabatan nvarchar(50) NOT NULL PRIMARY KEY,
namajabatan nvarchar(200) NULL)

Menambah Kolom pada Tabel
ALTER TABLE dokter ADD idjabatan nvarchar(50) NULL

Menambah Data
INSERT INTO dokter (nip, nama, alamat, tgllahir, tunjangan) VALUES ('222', 'Dr. Dewi', 'Solo', '1983-02-20', 1500000);

Mengupdate Data
UPDATE dokter SET nip = '333', nama = 'Dr. Asri', alamat = 'Jogja', tgllahir = '1984-03-14', tunjangan = 2000000 WHERE nip = '444'

Menghapus Data
DELETE FROM dokter WHERE nip = '111'

Memfilter Data dengan Klausa WHERE
SELECT * FROM dokter WHERE nip = '111'
SELECT * FROM dokter WHERE nama = 'Dr. Andi Irmawan'
SELECT * FROM dokter WHERE nama LIKE '%Andi%'
SELECT * FROM dokter WHERE tunjangan = 1000000
SELECT * FROM dokter WHERE tunjangan <= 1000000
SELECT * FROM dokter WHERE tunjangan <> 1000000
SELECT * FROM dokter WHERE tunjangan IS NULL
SELECT * FROM dokter WHERE NOT tunjangan IS NULL
SELECT * FROM dokter WHERE tunjangan > 10000 AND alamat LIKE '%Yogya%'
SELECT * FROM dokter WHERE tgllahir > '1980-12-27'

Fungsi Menambah Tanggal atau Mengurangi Tanggal dengan Hari, Bulan, atau Tahun
SELECT nip,DATEADD(day,30,TglLahir) AS Kadaluarsa FROM dokter
SELECT nip,DATEADD(day,-30,TglLahir) AS Kadaluarsa FROM dokter
SELECT nip,nama,DATEADD(year,60,TglLahir) AS Pensiun FROM dokter
SELECT nip,nama,tgllahir FROM dokter WHERE GETDATE() > DATEADD(day,30,tgllahir)

Menggabungkan Dua Buah Tabel dengan Penggabungan Biasa
SELECT * FROM dokter, jabatan WHERE dokter.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan JOIN
SELECT * FROM dokter JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan LEFT JOIN
SELECT * FROM dokter LEFT JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan RIGHT JOIN
SELECT * FROM dokter RIGHT JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan

Menggabungkan Dua Buah Tabel dengan FULL JOIN
SELECT * FROM dokter FULL JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan

Menghapus Kolom dalam suatu Tabel
ALTER TABLE dokter DROP COLUMN idjabatan

Membuat Tabel dengan Foreign Key
CREATE TABLE dokter(
nip nvarchar(50) NOT NULL,
nama nvarchar(200) NULL,
alamat text NULL,
tgllahir datetime NULL,
tunjangan float NULL,
PRIMARY KEY (nip) ,
CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan))

Mengubah kolom Tabel dan menambahkan Foreign Key setelah Tabel dibuat.
ALTER TABLE dokter ADD idjabatan nvarchar(50)
ALTER TABLE dokter ADD CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan)

Mengetes Foreign Key sudah Bekerja atau Belum
UPDATE dokter SET idjabatan = 'KEP' WHERE nip = '111'
UPDATE dokter SET idjabatan = 'MANN' WHERE nip = '222'
UPDATE dokter SET idjabatan = NULL WHERE nip = '111'
UPDATE jabatan SET idjabatan = 'KPL' WHERE idjabatan = 'KEP'
UPDATE jabatan SET idjabatan = 'STF' WHERE idjabatan = 'STA'
Msg 547, Level 16, State 0, Line 1
The UPDATE statement conflicted with the FOREIGN KEY constraint "fk_dokjab". The conflict occurred in database "rumahsakit", table "dbo.jabatan", column 'idjabatan'.
The statement has been terminated.

Menghapus Foreign Key
ALTER TABLE dokter DROP CONSTRAINT fk_dokjab

Menambah Foreign Key dengan On Update Cascade
ALTER TABLE dokter ADD CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan) ON UPDATE CASCADE

Mengetes Foreign Key dengan Cascade Update
UPDATE jabatan SET idjabatan = 'KPL' WHERE idjabatan = 'KEP'

Menghapus Foreign Key
ALTER TABLE dokter DROP CONSTRAINT fk_dokjab

Menambah Foreign Key dengan On Delete Cascade
ALTER TABLE dokter ADD CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan) ON DELETE CASCADE

Mengetes Foreign Key dengan Cascade Delete
DELETE jabatan WHERE idjabatan = 'KPL'

Menambah Foreign Key dengan Cascade Delete dan Cascade Update
ALTER TABLE dokter ADD CONSTRAINT fk_dokjab FOREIGN KEY (idjabatan) REFERENCES jabatan(idjabatan) ON UPDATE CASCADE ON DELETE CASCADE

Mengetes Foreign Key dengan Cascade Delete dan Cascade Update
UPDATE jabatan SET idjabatan = 'KPL' WHERE idjabatan = 'KEP'
DELETE jabatan WHERE idjabatan = 'KPL'

Membuat Tabel Baru Untuk Mempraktekkan Gabungan Join 3 Tabel
CREATE TABLE spesialis(
idspesialis nvarchar(50) NOT NULL PRIMARY KEY,
namaspesialis nvarchar(200) NULL)

Menambahkan Kolom pada Tabel
ALTER TABLE dokter ADD idspesialis nvarchar(50) NULL

Gabungan Join 3 Tabel dengan Cara Sederhana
SELECT * FROM dokter, jabatan, spesialis WHERE dokter.idjabatan = jabatan.idjabatan AND dokter.idspesialis = spesialis.idspesialis

Join Penggabungan 3 Tabel dengan JOIN
SELECT * FROM dokter JOIN jabatan ON dokter.idjabatan = jabatan.idjabatan JOIN spesialis ON dokter.idspesialis = spesialis.idspesialis

Menghapus Kolom pada suatu Tabel
ALTER TABLE dokter DELETE COLUMN idspesialis

Mengubah Tipe data dari suatu Kolom pada Tabel
ALTER TABLE dokter ALTER COLUMN idspesialis nvarchar(50) NULL

Agregat Penjumlahan, Hitung Baris, Maksimum, Minimum, dan Rata-rata
SELECT SUM(tunjangan), MIN(tunjangan), MAX(tunjangan), COUNT(nip), AVG(tunjangan) FROM dokter

Memberi Nama Kolom dengan Klausa AS
SELECT SUM(tunjangan) as total FROM dokter

Menjumlahkan Tunjangan Per Jabatan
SELECT idjabatan, SUM(tunjangan) as total FROM dokter GROUP BY idjabatan

Menampilkan Tunjangan dan Total Semua Tunjangan Dokter dengan SubQuery
SELECT nip, tunjangan, (SELECT SUM(tunjangan) as total FROM dokter WHERE idjabatan = d.idjabatan) FROM dokter d

Menampilkan Tunjangan dan Persentase terhadap Total Semua Tunjangan Dokter dengan SubQuery
SELECT nip, (tunjangan/(SELECT SUM(tunjangan) FROM dokter WHERE idjabatan = d.idjabatan))*100 as persentase FROM dokter d

Menampilkan Dokter dengan Persentase terhadap Total Semua Tunjangan Dokter yang lebih dari 30% per Jabatan dengan SubQuery
SELECT nip FROM dokter d WHERE (tunjangan/(SELECT SUM(tunjangan) FROM dokter WHERE idjabatan = d.idjabatan))*100 > 30

Menampilkan Beberapa Dokter dengan Klausa IN
SELECT nip, nama FROM dokter d WHERE nip IN (‘001’,’002’,’003’)

Menampilkan Dokter dengan Tunjangan Terbesar dengan IN
SELECT nip, nama FROM dokter d WHERE nip IN (SELECT TOP 3 * FROM dokter ORDER BY tunjangan DESC)

Daftar Semua Teman dokter sama spesialis dari 2 orang dokter spesialis yg mempunyai tunjangan terbesar
SELECT nip, nama FROM dokter WHERE idspesialis IN (SELECT TOP 2 idspesialis FROM dokter ORDER BY tunjangan DESC)
SELECT nip, nama, (tunjangan / (SELECT SUM(tunjangan) FROM dokter)) * 100 AS persentase, tunjangan FROM dokter
SELECT nip, nama, (tunjangan / (SELECT SUM(tunjangan) FROM dokter)) * 100 AS persentase, tunjangan FROM dokter WHERE ((tunjangan / (SELECT SUM(tunjangan) FROM dokter)) * 100) > 30

Contoh lain SubQuery Berlapis-lapis
SELECT * FROM (SELECT nip, nama, (tunjangan/(SELECT SUM(tunjangan) FROM dokter)) * 100 AS persentase, tunjangan FROM dokter) d WHERE d.persentase > 30
SELECT nip, nama, (tunjangan / (SELECT SUM(tunjangan) FROM dokter) WHERE idspesialis = d.idspesialis) * 100 AS persentase, tunjangan FROM dokter d

Mengkopi suatu Tabel ke Tabel lain atau Memasukkan hasil Query menjadi sebuat Tabel Temporary
SELECT *
INTO backupdokter
FROM dokter
SELECT * FROM backupdokter
DROP TABLE backupdokter

Membuat Tabel untuk Backup Data
CREATE TABLE backupdokter(
id int NOT NULL PRIMARY KEY IDENTITY,
waktu datetime NULL,
nip nvarchar(50) NULL,
nama nvarchar(200) NULL,
alamat text NULL,
tgllahir datetime NULL,
tunjangan float NULL)

Mengkopi Tabel ke Tabel Backup atau Memasukkan hasil sebuah Query ke Tabel Backup
INSERT INTO backupdokter (waktu, nip, nama, alamat, tgllahir, tunjangan)
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan
FROM dokter
SELECT * FROM backupdokter

Membuat Stored Procedure
CREATE PROCEDURE sp_totaltunjangan
AS
SELECT SUM(tunjangan) AS total
FROM dokter

Menjalankan Stored Procedure
EXECUTE sp_totaltunjangan

Membuat Stored Procedure dengan Parameter Masukan
CREATE PROCEDURE sp_totaljabatan
@idjab nvarchar(50)
AS
SELECT SUM(tunjangan) AS total
FROM dokter
WHERE idjabatan = @idjab

Menjalankan Stored Procedure dengan Parameter Input
EXECUTE sp_totaljabatan 'KEP'

Membuat Stored Procedure dengan Parameter Input dan Output
CREATE PROCEDURE tertinggiterendah
@idjab varchar(10),
@tunjtertinggi float OUTPUT,
@tunjterendah float OUTPUT
AS
 SELECT @tunjtertinggi=(SELECT MAX(tunjangan) FROM dokter WHERE idjabatan = @idjab)
 SELECT @tunjterendah=(SELECT MIN(tunjangan) FROM dokter WHERE idjabatan = @idjab)

Menyiapkan Parameter dan Memanggil Stored Procedure yang Menggunakan Parameter Input Output
----
DECLARE @idjabcari varchar(10);
DECLARE @hsltertinggi float;
DECLARE @hslterendah float;
SET @idjabcari='MAN'
EXECUTE tertinggiterendah @idjab=@idjabcari, @tunjtertinggi=@hsltertinggi OUTPUT, @tunjterendah=@hslterendah OUTPUT
SELECT @hsltertinggi AS "tertinggi", @hslterendah AS "terendah"
---

Menambah Kolom pada Tabel untuk mempraktekkan Trigger
ALTER TABLE jabatan ADD totaltunjangan float NULL;

Mengetes perintah SUM
SELECT SUM(tunjangan) FROM dokter WHERE idjabatan = ‘MAN’

Mengetes perintah SubQuery untuk Mengupdate Semua Baris dalam Suatu Tabel
UPDATE jabatan SET totaltunjangan = (SELECT SUM(tunjangan) FROM dokter d WHERE d.idjabatan = jabatan.idjabatan)
SELECT * FROM jabatan

Membuat Trigger untuk Mengupdate Total Tunjangan ketika Ada Tunjangan Diubah, Ditambah atau Dihapus
CREATE TRIGGER updatetotaltunjangan
ON dokter
AFTER INSERT, UPDATE, DELETE
AS
BEGIN
UPDATE jabatan SET totaltunjangan = (SELECT SUM(tunjangan) FROM dokter d WHERE d.idjabatan = jabatan.idjabatan)
END;

Mengubah kolom bertipe TEXT menjadi bertipe NVARCHAR agar bisa dipakai di Trigger
ALTER TABLE dokter ALTER COLUMN alamat nvarchar(1000) NULL
ALTER TABLE backupdokter ALTER COLUMN alamat nvarchar(1000) NULL

Membuat Trigger untuk Membackup Data yang Dihapus (Deleted)
CREATE TRIGGER backupdelete
ON dokter
AFTER DELETE
AS
BEGIN
INSERT INTO backupdokter (waktu, nip, nama, alamat, tgllahir, tunjangan)
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan
FROM deleted;
END;

Mengetes Trigger untuk Membackup Data yang Dihapus (Deleted)
SELECT * FROM dokter;
DELETE FROM dokter WHERE nip='444';
SELECT * FROM backupdokter;

Mengembalikan Data Dokter yang Telah Dihapus
INSERT INTO dokter (nip, nama, alamat, tgllahir, tunjangan) SELECT TOP 1 nip, nama, alamat, tgllahir, tunjangan FROM backupdokter WHERE nip='444' ORDER BY waktu DESC

Membuat Trigger untuk Membackup Data yang Diedit (Updated)
CREATE TRIGGER backupupdate
ON dokter
AFTER UPDATE
AS
BEGIN
INSERT INTO backupdokter (waktu, nip, nama, alamat, tgllahir, tunjangan)
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan
FROM updated;
END;

Membuat Trigger untuk Membackup Data yang Ditambahkan (Inserted)
CREATE TRIGGER backupinsert
ON dokter
AFTER INSERT
AS
BEGIN
INSERT INTO backupdokter (waktu, nip, nama, alamat, tgllahir, tunjangan)
SELECT GETDATE(), nip, nama, alamat, tgllahir, tunjangan
FROM inserted;
END;

Semoga  postingan saya mengenai Perintah Database SQL Server  dapat bermanfaat.

Diposting oleh Unknown 02.43

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