NAME : Muhammad Reza Padillah

BIRTHDAY : 20-06-1998

COUNTRY : Samarinda, Indonesia

STATUS : Kamu Human Error !


Toward #1 IT Vocatioanal School In Indonesia .: SMK Ti Airlangga :.
  • 2793 Pine St

  • 1100 Broderick St

  • 868 Turk St

Showing posts with label Visual Basic. Show all posts
Showing posts with label Visual Basic. Show all posts

Thursday, 21 May 2015

Download Aplikasi Jadwal Eskul Visual Studio 2012




Sunday, 3 May 2015

Aplikasi PSB Dengan Visual Basic 2012


PSB APPLICATION - VISUAL BASIC 2012 & SQL SERVER 2012

Pertama yang kita butuhkan adalah :
- Visual Basic 2012.
- SQL Server 2012.
- Tidak Mengantuk + Semangat.

Kedua buatlah database dengan nama "db_smkti"


Selanjutnya buatlah table dengan nama "tb_pendaftaran"


Lalu isi field nya beserta tipe data seperti gambar dibawah ini


Setelah pembuatan database selesai, sekarang kita akan membuat aplikasi nya.

1. pertama buatlah file config.vb , dengan langkah seperti gambar dibawah ini :



Selanjutnya ketikkan code berikut di file config.vb yang kita buat tadi..


Berikut codenya "config.vb" :

  1. Imports System.Data.SqlClient
  2. Module Config
  3.     Public cn As New SqlConnection
  4.     Public cmd As New SqlCommand
  5.     Sub opendb()
  6.         cn.ConnectionString = "Data Source=REZAPADILLAH-PC\SQLEXPRESS;Initial Catalog=db.smkti;Integrated Security=True"
  7.         cn.Open()
  8.         If cn.State = ConnectionState.Open Then
  9.             MessageBox.Show("DB Open")
  10.         Else
  11.             MessageBox.Show("DB Open Failed")
  12.         End If
  13.     End Sub
  14. End Module

Setelah itu buat lah form baru dengan nama "FrmPendaftaran" dengan isi :
- 5 buah textbox  
- 1 buah datetimepicker 
- 1 buah datagridview 
- 4 buah button
Setelah selesai design form FrmPendaftaran sebagai berikut..


KETERANGAN :
 - Textbox " id pendaftaran" diberi nama " txtid " - Textbox " nama " diberi nama " txtnama " - Textbox " tempat lahir " diberi nama " txttempatlahir " - Datetimepicker " tanggal lahir " diberi nama " tgl_lahir " - Textbox " asal sekolah " diberi nama " txtasalsekolah "  - Textbox " alamat pendaftar " diberi nama txtalamat " - Datagridview diberi nama DataGridView1 " - Button " insert " diberi nama " btninsert " - Button " update " diberi nama " btnupdate " - Button " delete " diberi nama " btndelete " - Button " refresh " diberi nama " btnrefresh "
Selanjutnya ketikkan kode berikut di dalam form FrmPendaftaran :

  1. Imports System.Data.SqlClient
  2. Public Class FrmPendaftaran
  3.     Sub opentable()
  4.         cmd.Connection = cn
  5.         cmd.CommandText = "SELECT * FROM tb_pendaftaran"
  6.         Dim rd As SqlDataReader = cmd.ExecuteReader
  7.         Dim dt As New DataTable
  8.         dt.Load(rd)
  9.         DataGridView1.DataSource = dt
  10.     End Sub
  11.  
  12.     Sub bersih()
  13.         txtid.Text = ""
  14.         txtnama.Text = ""
  15.         txttempatlahir.Text = ""
  16.         tgl_lahir.Text = ""
  17.         txtasalsekolah.Text = ""
  18.         txtalamat.Text = ""
  19.     End Sub
  20.  
  21.     Sub kodeotomatis()
  22.         Dim kodeauto As Single
  23.         cmd.Connection = cn
  24.         cmd.CommandText = "SELECT COUNT(*) as id_pendaftaran FROM tb_pendaftaran"
  25.         Dim rd As SqlDataReader = cmd.ExecuteReader
  26.         While rd.Read
  27.             kodeauto = Val(rd.Item("id_pendaftaran").ToString) + 1
  28.         End While
  29.         Select Case Len(Trim(kodeauto))
  30.             Case 1 : txtid.Text = "IP00" + Trim(Str(kodeauto))
  31.             Case 1 : txtid.Text = "IP0" + Trim(Str(kodeauto))
  32.             Case 1 : txtid.Text = "IP" + Trim(Str(kodeauto))
  33.         End Select
  34.         rd.Close()
  35.         cn.Close()
  36.     End Sub
  37.  
  38.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  39.         End
  40.     End Sub
  41.  
  42.     Private Sub FrmPendaftaran_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  43.         opendb()
  44.         opentable()
  45.         kodeotomatis()
  46.     End Sub
  47.  
  48.     Private Sub btninsert_Click(sender As Object, e As EventArgs) Handles btninsert.Click
  49.         cn.Open()
  50.         cmd.Connection = cn
  51.         cmd.CommandText = "INSERT INTO tb_pendaftaran VALUES ('" & txtid.Text & "','" & txtnama.Text & "','" & txttempatlahir.Text & "','" & tgl_lahir.Value & "','" & txtasalsekolah.Text & "','" & txtalamat.Text & "')"
  52.         cmd.ExecuteNonQuery()
  53.         MessageBox.Show("Data Berhasil Tersimpan")
  54.         bersih()
  55.     End Sub
  56.  
  57.     Private Sub DataGridView1_DoubleClick(sender As Object, e As EventArgs) Handles DataGridView1.DoubleClick
  58.         txtid.Text = DataGridView1.SelectedCells(0).Value
  59.         txtnama.Text = DataGridView1.SelectedCells(1).Value
  60.         txttempatlahir.Text = DataGridView1.SelectedCells(2).Value
  61.         tgl_lahir.Text = DataGridView1.SelectedCells(3).Value
  62.         txtasalsekolah.Text = DataGridView1.SelectedCells(4).Value
  63.         txtalamat.Text = DataGridView1.SelectedCells(5).Value
  64.     End Sub
  65.  
  66.  
  67.     Private Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click
  68.  
  69.         cmd.Connection = cn
  70.         cmd.CommandText = "UPDATE tb_pendaftaran SET nama = '" & txtnama.Text & "', tempat_lahir = '" & txttempatlahir.Text & "', tanggal_lahir = '" & tgl_lahir.Value & "', asal_sekolah = '" & txtasalsekolah.Text & "', alamat_pendaftar = '" & txtalamat.Text & "' where id_pendaftaran = '" & txtid.Text & "'"
  71.         cmd.ExecuteNonQuery()
  72.         MessageBox.Show("Data Berhasil Terubah")
  73.         bersih()
  74.     End Sub
  75.  
  76.     Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click
  77.         opentable()
  78.     End Sub
  79.  
  80.     Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
  81.  
  82.         Dim baris As Integer
  83.         Dim id As String
  84.         baris = DataGridView1.CurrentCell.RowIndex
  85.         id = DataGridView1(0, baris).Value.ToString
  86.         cmd.Connection = cn
  87.         cmd.CommandText = "DELETE FROM tb_pendaftaran WHERE id_pendaftaran = '" + id + "'"
  88.         cmd.ExecuteNonQuery()
  89.         MessageBox.Show("Data Berhasil Terhapus")
  90.         opentable()
  91.     End Sub
  92.  
  93.     Private Sub FrmPendaftaran_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
  94.         cn.Open()
  95.     End Sub
  96.  
  97.     Private Sub txtasalsekolah_TextChanged(sender As Object, e As EventArgs) Handles txtasalsekolah.TextChanged
  98.  
  99.     End Sub
  100. End Class

DOWNLOAD APLIKASI PSB - HERE

Tuesday, 26 August 2014

Aplikasi Penilaian With VB 2012

Halo Jott.. Karena Lagi Nggak Mood Blogging Maafin Ya Nggak Banyak Kata-kata :D
Di Ikutin Aja Ya Tutorialnya Semoga Bermanfaat

Pertama Design Dulu Tampilan Form Nya Seperti Gambar Di Bawah Ini :D
Di Design Nya Terdapat :
7 Label
7 Text Box
Dan 1 Buah Button

Tutorial By : Si - EJot

Apabila Sudah Di Design Klik 2 Kali Sob Di Button Nya Atau Bisa Klik Kanan -> View Code
Lalu Ketikkan Code Nya Sebagai Berikut :


Public Class Form1

    Private Sub btnproses_Click(sender As Object, e As EventArgs) Handles btnproses.Click
        txtakhir.Text = (50 / 100 * txttugas.Text) + (20 / 100 * txtharian.Text) + (30 / 100 * txtsemester.Text)
        If txtakhir.Text > 85 Then
            txthuruf.Text = "A"
        ElseIf txtakhir.Text > 75 Then
            txthuruf.Text = "B"
        ElseIf txtakhir.Text > 60 Then
            txthuruf.Text = "C"
        ElseIf txtakhir.Text < 60 Then
            txthuruf.Text = "a"
        End If
    End Sub
End Class

Nah Kalau Sudah Di Ketikk Jangan Copy Paste Ya :p Silahkan Running Tekan F5 , Maka Akan Terlihat Seperti Tampilan Berikut :


Apabila Masih Ada Yang Kebingungan Silahkan Berkomentar Ya Sob, Kalian Juga Bisa Langsung Download Aplication Nya 

Thursday, 20 March 2014

Template WDI Juara 3 Via Setyawan Evolution




Alhamdullilah Walaupun Event Kecil-kecilan Design Blog WDI Menjadi Design Blog Juara 3 Via  http://setyawan-evolution.blogspot.com/2014/03/pemenang-event-best-design-template-3rd.html :) Harapan Semoga WDI Menjadi Portal Berita Tentang Dunia IT Khususnya Web Dan Admin Nya Selalu Bertambah :)


Saturday, 8 March 2014

Koneksi database di visual basic dengan accses

Tengah Malam Begini Sepi, Mending Saya Bagi-bagiin Ilmu Aja Kali Aja Bermanfaat Bagi Sobat WDI.
Yap Malam Ini Lebih Tepatnya 15 Menit Yang Lalu Saya Membuat Sebuah Tutorial Visual Basic Yaitu " Mengkoneksi Kan Ke Database Dengan Menggunakan Microsoft Accses. Langsung Aja

1. Buatlah Sebuah Database Dengan Nama koneksivb.mdb NOTE : Format Nya .mdb, Setelah Itu Buat Lah Sebuah Table Dengan Nama tb_kontak, Jika Sudah Isi Field Nya Seperti Gambar Di Bawah Saya Ansumsikan Anda Mengerti Microsoft Accses.
id, nama, alamat sekolah : nama,alamat,sekolah tipe datanya long text
2. Buka Visual Basic Sobat WDI dengan nama koneksiwdi, Buatlah Atau Desain Form Seperti Gambar Di Bawah Ini, Pilih "DataGriedView"

3. Buatlah Module Baru Caranya.
Cari Menu Solution Explorer -> Klik Kanan Pada koneksiwdi -> Add -> Module -> Beri Nama config

4. Setelah Config Module Udah Dibuat Lalu Isikan Kodenya, Nah Sekarang Kita Berkutat Dengan Kode Silahkan Isi Kode Di Bawah Ini.

Imports System.Data.OleDb
Module config
    Public database As OleDbConnection
    Public tb_kontak As OleDbDataAdapter
    Public data As DataSet
    Public recordkontak As New BindingSource
    Public DML As New OleDbCommand

    Sub databaseopen()
        Try
            database = New OleDbConnection("provider=Microsoft.jet.oledb.4.0;data source=wdivb.mdb")
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub

End Module

5. Setelah Selesai Mengetikkan Kode Confignya Sekarang Cari form1 Kita Di Solution Explorer , Lalu Klik Dua Kali Pada Form Tersebut, Lalu Lagi Isikan Syntax Nya Seperti Kode Kode Dibawah Ini.

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Sub lihatkontak()
        tb_kontak = New OleDb.OleDbDataAdapter("SELECT * FROM tb_kontak", database)
        data = New DataSet
        tb_kontak.Fill(data)
        recordkontak.DataSource = data
        recordkontak.DataMember = data.Tables(0).ToString()
        dgview.DataSource = recordkontak
    End Sub

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

6. Nah Sekarang Coba Jalankan Tekan F5 Pasti Tidak Mau, Yap Karena File Database Accses Kita Belum Dipindah Caranya Copy Paste.
Cari Folder koneksiwdi -> bin -> debug -> Paste Deh Di Dalam Folder Debug

7. Nah Debug Nya Maka Akan Terlihat Seperti Ini.

SELESAI, Hhhha Semoga Bermanfaat Tutorial Saya Kali Ini, Upss Kami WDI Bukan Hanya Memberikan Tutorial Berupa Teks Dan Gambar Saja. Kami Juga Menyediakan Bentuk Videonya Pada Sobat WDI


Agar Kalian Dapat Lebih Mudah Mempelajarinya Silahkan Download Aplikasi Nya DISINI
Dan Like Fans Page Facebook Saya Disini

Friday, 24 January 2014

Pemrograman Berorientasi Object Dan Contoh Aplikasi Nya

OOP Atau Yang Dikenal Dengan Bahasa Inggris Object Oriented Programming Dan Sedangkan Dalam Bahasa Indoesia Yaitu Pemrograman Berorientasi Object. Yap Guru Saya Pada Saat Menjalaskan Tentang OOP , Saya Dapat Menyimpulkan Bahwa OOP Menurut Saya Ialah Pemrogrman Yang Diketik Pada Saat Membuat Aplikasi VB Kita Hanya Perlu Mengetikkan Nya Di Suatu Form Yang Dapat Terhubung Ke Form Yang Lainnya " Tentu Saja Ini Menurut Analisa Saya Dan Yang Saja Jelaskan Diatas Ialah Pemrograman Berorientasi Object Pada Visual Basic " Nah Mungkin Itu Saja Yang Saya #Share Tentang OOP Dan Sekarang Saya Akan #Share Aplikasinya.

Langkah Pertama Ya Tentu Saja Buka Visual Basci Kalian Saya Sarankan Menggunkan Visual Basic 2010, Karena Saya Membuat Nya Dengan Visual Basic 2010.
" Untuk Cara Mnambahkan Form Disini Saya Tidak Akan Menjelaskan karena Karena Sebagian Dari Kalian Pasti Sudah Mengetahuinya "

1. Buatlah Desain Form Nya Seperti Ini
" Distu Tambahkan Lah Radio Button Sebanyak 4 Buah Dan Satu Buah Button "
Untuk Radio Button Yang Tambah Beri Nama " rbtntambah "
Untuk Radio Button Yang Kurang Nama " rbtnkurang "
Untuk Radio Button Yang Kali Beri Nama " rbtnkali "
Untuk Radio Button Yang Bagi Beri Nama " rbtnbagi "
& Untuk Button Next Beri Nama " btnnext "
" Lalu Masukkan Kode Nya Dengan Kode Dibawah Ini "
Public Class Form2 Private Sub rbtntambah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtntambah.CheckedChanged End Sub Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click Form3.Show() End Sub End Class

2. Bauat 1 Form Lagi Dengan Design Berikut 
Distu Tambahkan Lah Text Box Sebanyak 3 Buah, Dan Label Dengan Text ,+,-,*,: Dan Satu Buah Button "
Untuk Text Box Yang No 1 Beri Nama " txt1 "
Untuk Text Box Yang No 2 Beri Nama " txt2 "
Untuk Text Box Yang No 3 Beri Nama " txthasil "
& Untuk Button Hasil Beri Nama " button1" Saja
Lalu Masukkan Kode Nya Dengan Kode Dibawah Ini "
Public Class Form3 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Label1.Text = "+" txthasil.Text = Val(txt1.Text) + Val(txt2.Text) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Form2.rbtntambah.Checked = True Then txthasil.Text = Val(txt1.Text) + Val(txt2.Text) ElseIf Form2.rbtnkurang.Checked = True Then txthasil.Text = Val(txt1.Text) - Val(txt2.Text) End If Form4.Label1.Text = txthasil.Text Form4.Show() End Sub Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Form2.rbtntambah.Checked = True Then txthasil.Text = Val(txt1.Text) + Val(txt2.Text) Label1.Text = "+" ElseIf Form2.rbtnkurang.Checked = True Then txthasil.Text = Val(txt1.Text) - Val(txt2.Text) Label1.Text = "-" ElseIf Form2.rbtnkali.Checked = True Then txthasil.Text = Val(txt1.Text) - Val(txt2.Text) Label1.Text = "x" ElseIf Form2.rbtnbagi.Checked = True Then txthasil.Text = Val(txt1.Text) - Val(txt2.Text) Label1.Text = ":" End If End Sub End Class

NOTE " Sebenarnya Inti Dari Semua Kode Berletak Di Form 3 Ini Karena Object Nya Berada Distu :) Menurut Saya Loh Ya :) "

3. Di Form 4 Buat Lah Dengan Design Seperti Ini
Distu Tambahkan Lah Button Sebanyak 2 Buah Dan Satu Buah Label Dengan Teks = NILAI"
Untuk Label Beri Nama " Label1 "
Untuk Button Uang Beri Nama " button1 "
Untuk Kutton keluar Beri Nama "button2 "
Lalu Masukkan Kode Nya Dengan Kode Dibawah Ini "
Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class

Nah Unutuk Nyamannya Anda Belajar Tentang OOP Dan Memahaminya Sendiri ;
Silahkan Download Aplikasi Nya Disini
Dan Jangan Lupa Like Fans Page Facebook Kita Disini

Tuesday, 14 January 2014

Percabangan Atau IF Di Bahasa Pemrograman Pascal

Dalam Bahasa Pemprograman Pascal terdapat 2 cara dalam menggunakan atau mengimplementasikan Percabangan (Decision Conditional) yaitu dengan menggunakan Perintah "IF" dan "CASE"

Kali ini kita akan membahas Percabangan dalam Pascal dengam menggunakan cara yang pertama yaitu IF

Ok ngak usah lama - lama, yuk kita bahas bersama - sama,,

A. Operator Percabangan (Decision Conditional) dalam Bahasa Pemprograman Pascal
Sebelum temen - teman belajar mengenai Percabangan sebaiknya temen - temen perlu tahu dulu berbagaimacam operator yang digunakan dalam perintah percabangan dalam Pascal

1. Relational Operators

contoh : A = 10 dan B = 20
OperatorDeskripsiContoh
=[SAMA DENGAN] Cek jika isi dari kedua operan dalah sama.(A = B) is not true.
<>[TIDAK SAMA DENGAN] Cek jika isi dari kedua operan dalah tidak sama.(A <> B) is true.
>[LEBIH DARI] Cek jika operan yang berada disebah kiri bernilai lebih tinggi dari operan di sebelah kanan.(A > B) is not true.
<[KURANG DARI] Cek jika operan yang berada disebah kiri bernilai lebih rendah dari operan di sebelah kanan.(A < B) is true.
>=[LEBIH DARI SAMA DENGAN] Cek jika operan yang berada disebah kiri bernilai lebih tinggi atau sama dengan dari operan di sebelah kanan. (A >= B) is not true.
<=[KURANG DARI SAMADENGAN] Cek jika operan yang berada disebah kiri bernilai lebih rendah atau samadengan dari operan di sebelah kanan. (A <= B) is true.


2. Boolean Operators

contoh : A = true dan B = false
OperatorDescriptionExample
andJika kedua operan bernilai true maka kondisi akan menjadi true(A and B) is false.
and thenMirip dengan operator AND, tapi urutan compiler mengevaluasi ekspresi logis. Kiri ke kanan dan operan yang tepat dievaluasi hanya bila diperlukan(A and then B) is false.
orJika kedua operan salah satunya bernilai true maka kondisi akan menjadi true(A or B) is true.
or elseMirip dengan operator OR, tapi urutan compiler mengevaluasi ekspresi logis. Kiri ke kanan dan operan yang tepat dievaluasi hanya bila diperlukan(A or else B) is true.
notDigunakan untuk mebalikkan logika operan, Jika kondisi bernilai true maka Logical NOT mengubahnya menjadi falsenot (A and B) is true.


B. Percabangan dengan Menggunakan Perintah "IF"

Penulisan Perintah Percabangan dengan menggunakan "IF" dalam bahasa pascal adalah sebagai berikut :

1. Statement IF tunggal

Khasus : Statement yang dikerjakan hanya jika kondisi "IF" terpenuhi

Penulisan Syntax :

if <conditiron> then
<statement>

contoh :

Jika variable "x" berisi lebih dari 50 maka program akan mencetak tulisan "Nilai X lebih dari 50"

Jadi code program nya adalah sebagai berikut :

program ifKahsus1;
var
x,y :integer;
begin
x:= 60;
(* cek kondisi boolean(benar/salah) menggunakan IF statement *)
if( x > 50 ) then
(* jika kondisi bernilai benar/true maka kerjakan perintah di bawah ini *)
writeln('Nilai X lebih dari 50' );

writeln('isi dari nilai X adalah : ', x);
readln;
end.

Output dari program di atas adalah :
Nilai X lebih dari 50
isi dari nilai X adalah : 60
Sekarang coba temen - temen ubah nilai dari variable x menjadi 10, apa yang akan terjadi?
iya, tulisan "Nilai X lebih dari 50" tidak akan ikut tercetak. mengapa?
karena nilai dari variable x tidak lebih dari 50, jadi kondisi IF tidak terpenuhi atau menghasilkan nilai salah/false sehingga perogram hanya akan mengeksekusi perintah selanjutnya(di bawah IF)

2. Statement IF THEN ELSE

Khasus : Statement 1 dikarjakan jika variable x lebih dari sama dengan 50, dan Statement 2 dikerjakan jika variable x kurang dari 50.
Statement 1 => Cetak tulisan "Nilai X lebih dari sama dengan 50"
Statement 2 => Cetak tulisan "Nilai X kurang dari 50"

Untuk menyelesaikan khasus di atas kita memerlukan teman/pasangan setia dari perintah "IF" hehehe:D yaitu "ELSE"

Penulisan Syntax :

if <condition> then
<statement1>
else
<statement2>
Jadi code program nya adalah sebagai berikut :

program ifKahsus2;
var
x : integer;
begin
x := 100;
if( x >= 50 ) then
(* jika kondisi benar/true maka cetak Statemen 1 di bawah ini *)
writeln('Nilai X lebih dari sama dengan 50' )
else
(* jika kondisi di atas salah/false maka cetak Statement 2 dibawah ini *)
writeln('Nilai X kurang dari 50' );

writeln('isi dari nilai X adalah : ', x);
readln;
end.

Output dari program di atas adalah :
Nilai X lebih dari sama dengan 50
isi dari nilai X adalah : 100
Sekarang coba temen - temen unbah nilai X manjedi 20, yang terjadi adalah :
Nilai X kurang dari 50
isi dari nilai X adalah : 20
Karena kondisi "IF" di atas salaj jadi program akan menjalankan perintah ke 2 yaitu perintah di bawah statement "ELSE"

3. Statement IF ganda

Khasus :
Statement 1 dikarjakan jika variable x lebih dari sama dengan 90,
Statement 2 dikerjakan jika variable x lebih dari sama dengan 70,
Statement 3 dikerjakan jika variable x lebih dari sama dengan 60,
Statement 4 dikerjakan jika variable x kurang dari 60,

Statement 1 => Cetak tulisan "Nilai anda adalah A"
Statement 2 => Cetak tulisan "Nilai anda adalah B"
Statement 3 => Cetak tulisan "Nilai anda adalah C"
Statement 4 => Cetak tulisan "Nilai anda adalah D"

program ifKahsus3;
var
x : integer;
begin
x := 50;
if( x >= 90 ) then
writeln('Nilai anda adalah A' )
else if (x >= 70 ) then
writeln('Nilai anda adalah B ')
else if (x >= 60) then
writeln('Nilai anda adalah C')
else
writeln('Nilai anda adalah D' );

writeln('nilai anda : ', x);
readln;
end.

Hasil output dari program di atas adalah :

Jangan Lupa Like Fans Page Facebook Kami
Disini
Dan Jangan Lupa Tinggal kan Komentar .. :)

© 2014 Website Inspirasi. Template Created By Templateism, Full Redesigned By Muhammad Reza Padillah