Featured Post Today
print this page
Latest Post

Contoh Kalkulator Dari VB.NET

Assalamualaikum wr. wb

haddeeehh,, akhirnya selesai juga ne,,,
buat temen yang hobi belajaar program, kali ini saya postingkan gmana caranya kita buat program kalkulator sendiri dari VB.Net 2008. Nah, untuk itu mari kita lihat dan pahami bagaimana cara buatnya,,
pertama buka VB.Net 2008 dan desain seperti form berikut :


listing programmnya mau kan,,
ini dia listing Program Kalkulator dari VB.Net 2008, cekidott,,,

1. Double klik pada form lalu masukkan kode berikut :

    Public Class Form1

    Dim operand1 As Double
    Dim [operator] As String
    Dim baru As Boolean = True
    Dim temp As Double
    Dim operand2 As Double

2. Double klik pada button 0 ketikkan kode

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
    btn0.Click, btn1.Click, btn2.Click, btn3.Click, btn4.Click, btn5.Click, btn6.Click, btn7.Click, btn8.Click, btn9.Click
    
    TextBox1.Text = TextBox1.Text & sender.text
    End Sub

3. Masukkan kode berikut pada button Tambah

    Private Sub btntmbh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntmbh.Click
       
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "+"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "+"
            End If
            
        End If

        baru = False

    End Sub

4. Masukkan Kode Berikut Pada Button Kurang

    Private Sub btnkrg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkrg.Click


        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "-"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "-"
            End If

        End If

        baru = False

    End Sub

5. Kode Berikut pada button Kali

    Private Sub Btnkali_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkali.Click
  
        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = "x"
        ElseIf baru = False Then

            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = ";" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = "x"
            End If
     
        End If

        baru = False

    End Sub

6. Kode Berikut Pada button Bagi

      Private Sub Btnbagi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbagi.Click

        If baru = True Then
            operand1 = Val(TextBox1.Text)
            TextBox1.Text = ""
            TextBox1.Focus()
            [operator] = ":"
        ElseIf baru = False Then
            If [operator] = "+" Then
                temp = operand1 + Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = "-" Then
                temp = operand1 - Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = "x" Then
                temp = operand1 * Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            ElseIf [operator] = ":" Then
                temp = operand1 / Val(TextBox1.Text)
                operand1 = temp
                TextBox1.Text = ""
                [operator] = ":"
            End If

        End If

        baru = False
     
     End Sub

7. Kode berikut pada button hasil

      Dim hasil As Double
        operand2 = Val(TextBox1.Text)

        Select Case [operator]

            Case "+"
                hasil = operand1 + operand2
                TextBox1.Text = hasil.ToString
                baru = True
            Case "-"
                hasil = operand1 - operand2
                TextBox1.Text = hasil.ToString
            Case ":"
                hasil = operand1 / operand2
                TextBox1.Text = hasil.ToString
            Case "x"
                hasil = operand1 * operand2
                TextBox1.Text = hasil.ToString
                baru = True
        End Select

        TextBox1.Text = hasil.ToString

8. Kode berikut pada button titik

      Private Sub btntitik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntitik.Click

        If InStr(TextBox1.Text, ".") > 0 Then
            Exit Sub
        Else
            TextBox1.Text = TextBox1.Text & "."
        End If
      End Sub

9. Dan terakhir pada button Clear

      Private Sub btnclr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclr.Click

        TextBox1.Text = ""
        operand1 = 0
        temp = 0
        baru = True
     End Sub 


Nah, itulah contoh Program Kalkulator menggunakan VB.Net yang saya buat, semoga bermanfaat..
Wassalamualaikum,,,,
0 komentar

Pengertian Virus, Worm Dan Trojan Serta Cara Mengatasinya



Virus adalah program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. tentu kita sangat terganggu saat komputer atau bahkan data data kerja kita terserang atau bahkan rusak karena virus. . Penyebaran virus biasanya melalui media luar seperti flasdisk, tapi di jaman ini virus pada umumnya memanfaatkan teknologi internet untuk menyebar luas. Cara masuknya bisa melalui E-mail (attachment), mirc, messenger (kirim/download file), download dari situs  atau bahkan memanfaatkan kelemahan dari sistem browser kita. Banyak cara pembuat virus untuk menjebak orang supaya tertarik untuk men-download dan membuka file yang ber-virus, antara lain dengan gambar lucu, tools yang berguna buat anda, cara dapat uang, games bagus, hingga yang baru-baru ada pesan dr FBI/CIA untuk anda. Saat komputer terjangkit virus, antivirus tentu menjadi jawaban yang paling tepat untuk menghilangkannya. Namun, tahukah Anda bahwa virus komputer juga bisa dilenyapkan tanpa menggunakan antivirus? Trik membersihkan virus tanpa antivirus ini bertujuan membasmi virus-virus baru dan virus lokal yang kebanyakan tidak dapat dideteksi oleh antivirus. Sebelum membahas cara membasmi virus kita atkan memabahas tentang virus, worm, dan trojan.

Perbedaan Virus, Worm Dan Trojan


Virus sebenarnya lain dengan trojan atau worm, tapi penyebarannya virus banyak di maanfaatkan oleh program worm dan trojan. Trojan adalah sebuah program yang dapat dijalankan (biasanya ber-ekstension EXE) oleh pengguna komputer dan ketika program tersebut dijalankan, dia akan merubah sesuatu dari sistem komputer kita (pada umumnya registri windows yang diubah). Nah kalau virus itu residen di memori dan dia akan merubah file yang biasanya ber-ekstension EXE atau COM dan kadang-kadang file tersebut menjadi rusak. Kalau worm (cacing) merupakan program kecil yang berupa script yang bisa nempel di mana aja, bahkan bisa nempel di html file (file website).

Cara Kerja Virus

Program antivirus pada umumnya menggabungkan semua worm dan trojan dalam kategori VIRUS, cuma mungkin dikasih kode virusnya contoh yang worm di kasih kode W depannya baru nama worm tersebut (contoh: w32/sober) dan kita juga akan menggangapnya sama karena semua itu merusak sistem file komputer. Intinya virus bisa berupa atau berfungsi seperti trojan/worm dan sebaliknya juga, apalagi kalau file tersebut telah ter-infeksi, otomatis akan menjadi file trojan/worm juga, karena kalau pengguna membukanya akan meng-infeksi file-file lainnya.

Cara Mengatasi Virus Komputer

1. Buka MS config di kotak run windows.

2. Klik tab start up. Di startup windows akan terlihat file yang dapat membangkitkan virus copy shorcut ini
    tetap eksis dan tidak dapat dihapus.

3. Coba anda hilangkan centang file virus tersebut dan klik apply maka centang tadi tidak hilang dan tetap
    tercentang. Virus tidak dapat anda hentikan.

4. Silahkan anda catat di kertas lokasi virus tersebut. Pengalaman penulis pembangkit virus copy shorcut
    berada di C: \Users \ User \AppData \Roaming \Microsoft \Windows \StartMenu\Programs\StartUp\file
    pembangkit virus.exe

5. Menghapus virus dengan cmd pada windows normal tidak akan berhasil karena ketika kita menghapus file
    virus di flasdisk dengan cmd sekalipun virus akan tetap muncul karena pembangkit virus di lokasi sistem
    akan memberi command untuk membuat virus itu lagi. Cara yang paling ampuh dan efektif adalah dengan
    mode safe mode with command prompt(cmd).

6. Silahkan anda restart computer anda dan masuk ke safe mode with command prompt dengan menekan
    F8. Highlight atau pilih windows dengan mode safe mode with command pormpt.

7. Setelah anda berada di safe mode with command prompt silahkan anda copy paste atau ketikkan file yang
    membuat virus copy shortcut selalu dapat mengaktifkan dirinya di lokasi tadi yang sudah anda catat atau di
    copas (C: \Users\ User \ AppData \ Roaming \ Microsoft \ Windows \ StartMenu \ Programs\ StartUp\file
    pembangkit virus.exe).

8. Hapus virus tersebut dengan perintah del nama virus.exe (catatan : anda harus masuk ke dalam folder
    tersebut sampai anda dibawa ke lokasi file tersebut baru anda dapat menghapus file virus tersebut.).

9. Setelah anda menghapus file pembangkit virus copy shortcut tersebut kini saatnya anda menghapus virus
    copy shortcut tersebut. Sebelumnya gunakan perintah attrib –r –s –h /s /d untuk memunculkan virus-virus
    yang mungkin masih tersembunyi selanjutnya silahkan anda gunakan perintah del nama virus shorcut 1, 2,
    3, dan 4. Kemudian dilanjutkan menghapus folder Recycler dengan menggunakan perintah RD Recycler /s
    tekan enter atau juga bisa dengan RMDIR Recycler /s.

10. Untuk mengantisipasi silahkan hapus juga file autorun.inf kalau ada. Selesai anda membersihkan virus
      dengan sempurna. Silahkan restart komputer anda ke windows mode normal.

Selamat mencoba semoga bermanfaat Pengertian Virus dan Cara Mengatasinya
0 komentar

Program Pohon (Tree) Dinamis

Program ini saya posting kan karna saya mendapat tugas dari dari dosen saya,
dan Alhamdulillah saya bisa menyelesaikan Program Pohon (Tree) Dinamis  ini.
Berikut ini adalah script programmnya menggunakan turbo pascal :

uses wincrt; 

Type pohon=^node; 
node=record 
data:integer; 
kiri,kanan:pohon; 
     end; 
var  
     T:pohon; 
     info:integer; 
{--------------------------------------------------------------------}
Procedure Buat_BST(info :integer;var T:pohon); 
var 
     b:pohon; 
begin 
if T=nil then 
begin 
new(b);b^.data:=info;b^.kiri:=nil;b^.kanan:=nil; 
T:=b; 
end 
else 
begin 
if T^.data<info then 
   Buat_Bst(info,T^.kanan); 
if T^.data>info then 
   Buat_Bst(info,T^.kiri); 
end; 
end; 
{--------------------------------------------------------------------}
Procedure Baca_BST_pre(b:pohon); 
begin 
if (b<>nil) then 
begin 
write(b^.data); 
Baca_BST_pre(b^.kiri); 
Baca_BST_pre(b^.kanan); 
end; 
end; 
{--------------------------------------------------------------------}
Procedure Baca_BST_in(b:pohon); 
begin 
if (b<>nil) then 
begin 
Baca_BST_in(b^.kiri); 
write(b^.data); 
Baca_BST_in(b^.kanan); 
end; 
end; 
{--------------------------------------------------------------------} 
Procedure Baca_BST_post(b:pohon); 
begin 
if (b<>nil) then 
begin 
Baca_BST_post(b^.kiri); 
Baca_BST_post(b^.kanan); 
write(b^.data); 
end; 
end; 
{--------------------------------------------------------------------}
begin 
clrscr; 
new(T);T^.kiri:=nil;T^.kanan:=nil; 
writeln('Memasukkan data ke dalam tree'); 
repeat 
write('Nilai data : ');readln(info); 
if info<>0 then Buat_BST(info,T); 
until info=0; 

writeln; 
readln; 
writeln('Pembacaan secara Pre order'); 
baca_BST_pre(T); 
writeln; 
readln; 
writeln('Pembacaan secara In order'); 
baca_BST_in(T);
writeln; 
readln; 
writeln('Pembacaan secara Post order'); 
baca_BST_post(T); 
end.


Semoga Program Pohon (Tree) Dinamis  ini dapat bermanfaat,
0 komentar

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.

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,,,
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.

VB For Dos


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.



0 komentar
 
Support : Creating Website | Igaph Sinaga | Mas Template
Copyright © 2013. Blognya Igaph - All Rights Reserved
Template Created by Creating Website Published by Igaph Sinaga
Proudly powered by Blogger