Pages - Menu

Sunday, March 10, 2013

Membuat Function hitung IPK di SQL Server



Nah, ketemu lagi dengan saya mas ivan paling ganteng se-jagat raya.. hahaha..

kali ini saya akan share tentang cara membuat Fuction menghitung IPK mahasiswa dengan menggunakan DBMS Microsoft SQL Server. Berikut adalah sepenggal kodingannya. semoga bermaanfaat ^_^



-- Hitung Bobot
alter function fHitungBobot(@NA numeric(10,2))
returns numeric(10,2)
as
begin
    declare @bobot numeric(10,2)
    if(@NA<=44)
        begin
        set @bobot=0
        end
    else if(@NA<=54)
        begin
        set @bobot=1
        end
    else if(@NA<=59)
        begin
        set @bobot=2
        end
    else if(@NA<=64)
        begin
        set @bobot=2.5
        end
    else if(@NA<=74)
        begin
        set @bobot=3
        end
    else if(@NA<=79)
        begin
        set @bobot=3.5
        end
    else if(@NA<=100)
        begin
        set @bobot=4
        end
    return @bobot
end

-- Hitung Ipmk
alter function fHitungIPmk(@bobot numeric(10,2),@sks int)
returns numeric(10,2)
as
begin
    declare @IPmk numeric(10,2)
    set @IPmk=@bobot * @sks
    return @IPmk
end

-- Hitung IPK
alter function fIPK(@tampung numeric(10,2), @bagi numeric(10,2))
returns numeric(10,2)
as
begin
    declare @IPkum numeric(10,2)
    set @IPkum=@tampung/@bagi
    return @IPkum
end

-- Cetak
alter function fCetak(@nim varchar(11),@nama varchar(100),@IPkum numeric(10,2))
returns varchar(200)
as
begin
    declare @cetak varchar(200)
    set @cetak='NIM  : ' + @nim + '
' + 'NAMA : ' + @nama + '
' + 'IPK  : ' + convert(varchar,@IPkum)
    return @cetak
end

No comments:

Post a Comment