Mengurutkan Data di Listview dengan VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Write/Read File .ini dengan VB.NET.
Kali ini saya akan memposting tentang Mengurutkan Data di Listview dengan VB.NET, apakah anda pernah menggunakan datagridview untuk menampilkan data? di datagridview memungkinkan kita untuk mengurutkan data ketika anda mengklik header column, jika anda mengklik salah satu header column pada datagridview maka data di dalam datagridview itu akan di urutkan secara descending, lalu ketika anda klik lagi column header yang sama maka data itu akan di urutkan secara descending.  Tidak hanya di datagridview tapi anda juga dapat melakukan hal yang sama di listview dengan memanfaatkan event column click.
inilah beberapa screenshotnya

Mengurutkan data berdasartkan NIS secara ascending

Mengurutkan data berdasarkan NIS secara descending

Anda bisa mendownload source codenya disini

dan untuk passwordnya disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Write/Read File .ini Dengan VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Menyimpan/Menampilkan Gambar Dari Database Dengan VB.NET.
Kali ini saya akan memposting tentang Write/Read File .ini Dengan VB.NET, mungkin ada yang belum tahu tentang kegunaan dari file .ini, file .ini adalah sebuah file yang digunakan untuk menyimpan konfigurasi-konfigurasi yang dibutuhkan oleh program yang kita buat, seperti konfigurasi untuk koneksi database, konfigurasi untuk data perusahaan, toko atau sebagainya, dan juga masih banyak lagi.

Langkah - langkah Write/Read File .ini Dengan VB.NET

1. Buatlah project dengan visual studio

2. Design form seperti gambar dibawah ini

Object	Property	Value
Textbox1	Name	Txt_nama
Textbox2	Name	Txt_alamat
Textbox3	Name	Txt_notelepon
Textbox4	Name	Txt_website
Button1	Name	Btn_read
	Text	Read
Button2	Name	Btn_write
	Text	write

3. Buatlah sebuah function dan procedure untuk write file .ini dengan script dibawah ini

     'fungsi untuk write file .ini
    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpParamVal As String, ByVal lpFileName As String) As Int32

    'procedure untuk write .ini
    Private Sub writeini(ByVal iniFilename As String, ByVal section As String, ByVal ParamName As String, ByVal ParamVal As String)
        'menanggil fungsi WritePrivateProfilString untuk write file .ini
        Dim result As Integer = WritePrivateProfileString(section, ParamName, ParamVal, iniFilename)
    End Sub

4. Buatlah sebuah function dan procedure untuk read file .ini dengan script dibawah ini

    'function untuk read file .ini
    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFilename As String) As Int32

    'function untuk read file .ini
    Private Function readini(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
        Dim ParamVal As String = Space$(1024)
        Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), iniFileName)
        'mengembalikan nilai yang sudah didapatkan
        readini = Strings.Left(ParamVal, LenParamVal)
    End Function

5. Klik 2 kali pada tombol Write dan ketikan script dibawah ini

        'menyiapkan string untuk menampung lokasi file .ini 
        Dim FilePath As String = Application.StartupPath & "\setting.ini"
        'memanggil procedure writeini untuk menyimpan data nama pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Nama", txt_nama.Text)
        'memanggil procedure writeini untuk menyimpan data alamat pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Alamat", txt_alamat.Text)
        'memanggil procedure writeini untuk menyimpan data no telepon pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "No. Telepon", txt_notelepon.Text)
        'memanggil procedure writeini untuk menyimpan data website pada file setting.ini
        writeini(FilePath, "Data Perusahaan", "Website", txt_website.Text)
        'menampilkan pesan konfigurasi berhasil disimpan
        MsgBox("Konfigurasi berhasil disimpan", MsgBoxStyle.Information, "Informasi")

6. Klik 2 kali pada tombol Read dan ketikan script dibawah ini

        'menyiapkan string untuk menampung lokasi file .ini 
        Dim FilePath As String = Application.StartupPath & "\setting.ini"
        'memanggil function read ini untuk mengambil data nama dari file setting.ini
        txt_nama.Text = readini(FilePath, "Data Perusahaan", "Nama", "")
        'memanggil function read ini untuk mengambil data alamat dari file setting.ini
        txt_alamat.Text = readini(FilePath, "Data Perusahaan", "Alamat", "")
        'memanggil function read ini untuk mengambil data no. telepon dari file setting.ini
        txt_notelepon.Text = readini(FilePath, "Data Perusahaan", "No. Telepon", "")
        'memanggil function read ini untuk mengambil data website dari file setting.ini
        txt_website.Text = readini(FilePath, "Data Perusahaan", "Website", "")
        'Menampilkan pesan konfigurasi berhasil didapatkan
        MsgBox("Data konfigurasi berhasil di dapatkan", MsgBoxStyle.Information, "Informasi")

7. Jalankan program tersebut dengan menekan CTRL+F5

Anda bisa mendownload source codenya disini

dan untuk passwordnya disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET

Setalah kemarin saya memposting tentang Membuat Combobox Auto Complete Di VB.NET,
Kali ini saya akan memposting tentang Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET, terkadang kita perlu untuk menyiimpan gambar ke database seperti foto ataupun yang lainnya, oleh karena itu saya disini akan share Menyimpan\Menampilkan Gambar Dari Database Dengan VB.NET,
yah karena saya besok ada Ujian akhir sekolah jadi tidak sempat untuk membuat langkah - langkahnya, tapi saya akan share source codenya saja,
dan jangan khawatir karena di dalam source code tersebut sudah saya berikan penjelsan-penjelasan tentang script yang digunakan, dan semoga saja penjelasan saya mudah untuk dimengerti

Screenshot :

Anda bisa mendownload source codenya disini

dan untuk passwordnya disini

Sekian dari saya.

Terima kasih atas kunjugannya semoga bermanfaat

Read More

Membuat Combobox Auto Complete Di VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Membuat Textbox Auto Complete Di VB.NET, Kali ini saya akan memposting tentang Membuat Combobox Auto Complete Di VB.NET,
sebenarnya caranya hampir sama seperti Membuat Textbox Auto Complete Di VB.NET yang harus dilakukan yaitu melakukan query select untuk mendapatkan data dari database lalu meletakan data ke datatable setelah itu membinding data dari datatable ke combobox,

Langkah - langkah Membuat Combobox Auto Complete Di VB.NET

1, Buatlah sebuah database dengan nama latihan

2. Buat sebuah table dengan script dibawah ini

create table siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat text not null
)

3. Buatlah sebuah project di visual studio

4. Tambahkan sebuah combobox ke dalam form tersebut,dan atur tata letaknya seperti gambar dibawah ini

5. Klik 2 kali pada form tersebut dan ketikan Imports System.Data.SqlClient

6. Pada event Form_Load ketikan script dibawah ini

 'mendeklarasikan variable
        Dim cmd As SqlCommand
        Dim adapter As SqlDataAdapter

        'menyiapkan koneksi database
        Using conn As New SqlConnection("Data Source=Kanzato;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; Password=root123")
            'menyiapkan sqlcommand
            cmd = New SqlCommand("select nama from siswa order by nama asc", conn)
            'menyiapkan data adapter
            adapter = New SqlDataAdapter(cmd)
            'mendeklarasikan dt sebagai datatable
            Dim dt As New DataTable
            'mengisi data dari sqldataadapter ke datatable
            adapter.Fill(dt)

            'binding data ke combobox
            ComboBox1.DataSource = dt
            ComboBox1.DisplayMember = "nama"
            ComboBox1.ValueMember = "nama"
            'set property autocompletemode menjadi suggest append
            ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            'set property autocompletesource menjadi listitems
            ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
        End Using

7. Jalankan program tersebut dengan menekan F5

Anda bisa mendownload source codenya disini

dan untuk passwordnya disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Membuat Textbox Auto Complete Di VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Membuat Chainned Combobox Dengan VB.NET,
kali ini saya akan memposting tentang Membuat Textbox Auto Complete Di VB.NET, seperti halnya ketika kita menggunakan pencarian google, ketika kita mengetik beberapa kata lalu muncul saran dalam pencarian itu yang dapat memudahkan kita dalam melakukan pencarian. oleh karena itu saya membahas Membuat Textbox Auto Complete Di VB.NET,

Langkah - langkah Membuat Textbox Auto Complete Di VB.NET

1. Buat sebuah database dengan nama latihan

2. Buat sebuah table dengan script dibawah ini

create table siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat text not null
)

3. Buatlah sebuah project di visual studio

4. Tambahkan textbox dan label, lalu design form seperti gambar dibawah ini

5. Klik 2 kali pada form tersebut dan ketikan Imports System.Data.SqlClient

6. Ketikan script dibawah ini diatas Form_load

 'Mendeklarasikan variable
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private dt As DataTable
    Private adapter As SqlDataAdapter

6. Pada event Form_load ketikan script dibawah ini

        'Menyiapkan koneksi
        Using conn As New SqlConnection("Data Source=Kanzato;Initial Catalog=latihan;Persist Security Info=True;User ID=sa;Password=root123")
            'menyiapkan query
            cmd = New SqlCommand("select nama from siswa", conn)
            'menyiapkan adapter
            adapter = New SqlDataAdapter(cmd)
            'menyiapkan datatable
            dt = New DataTable

            'membuka koneksi database
            conn.Open()
            'membinding data adapter ke datatable
            adapter.Fill(dt)

            Dim col As New AutoCompleteStringCollection
            'Melakukan perulangan untuk mengisi col sebanyak data dari datatable
            For i As Integer = 0 To dt.Rows.Count - 1
                col.Add(dt.Rows(i)("nama"))
            Next

            TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
            TextBox1.AutoCompleteCustomSource = col
            TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
        End Using

7. Jalankan program tersebut dengan menekan F5

Anda bisa mendownload source codenya disini

dan untuk passwordnya disini

Sekian dari saya.
Terima kasih atas kunjugannya semoga bermanfaat

Read More

Membuat Chained Combobox Dengan VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Menampilkan Data Ke Combobox Di VB.NET
kali ini saya akan memposting tentang Membuat Chained Combobox Dengan VB.NET atau bisa juga disebut dengan Combobox Bertingkat, jadi kita akan membuat beberapa combobox yang saling berhubungan
misal ada 4 buah combobox yaitu provinsi, kabupaten, kecamtan, kelurahan ketika kita memilih salah 1 provinsi maka combobox kabupaten akan terisi sesuai dengan data kabupaten yang berada di provinsi yang kita pilih tersebut

Langkah - langkah Membuat Chained Combobox Dengan VB.NET

1. Persiapkan sebuah database dengan nama lokasi, anda bisa mendownload database yang sudah saya siapkan disini, untuk cara Attach database sql server klik disini

2. Design sebuah form seperti gambar dibawah ini

Object	Properties	Value
Combobox1	Name	Cbo_provinsi
	DropDownStyle	DropDownList
Combobox2	Name	Cbo_kabupaten
	DropDownStyle	DropDownList
Combobox3	Name	Cbo_kelurahan
	DropDownStyle	DropDownList
Combobox4	Name	Cbo_kecamatan
	DropDownStyle	DropDownList

3. Imports namespace System.Data.SqlClient dan ketikan script dibawah ini

    'Membuat String koneksi ke database
    Private strconn As String = "Data Source=.;Initial Catalog=dblokasi;Persist Security Info=True;User ID=sa; Password=root123"
    'Mendeklarasikan variable
    Private conn As SqlConnection
    Private cmd As SqlCommand
    Private adapter As SqlDataAdapter
    Private dt As DataTable

4. Pada event Form_load ketikan script dibawah ini

'Mengisi data provinsi
        'Menyiapkan sqlconnection
        Using conn As New SqlConnection(strconn)
            'Menyiapkan query untuk mendapatkan lokasi_nama dan lokasi_provinsi
            cmd = New SqlCommand("select lokasi_nama,lokasi_provinsi from lokasi where lokasi_kabupatenkota=0 and lokasi_kecamatan=0 and lokasi_kelurahan=0 order by lokasi_nama asc", conn)
            'Menyiapkan adapter
            adapter = New SqlDataAdapter(cmd)
            'Menyiapkan sebuah datatable untuk menampung data dari sqldataadapter
            dt = New DataTable
            'Membinding data dari adapter ke datatable
            adapter.Fill(dt)
            'Mengisi combobox provinsi
            cbo_provinsi.DisplayMember = "lokasi_nama"
            cbo_provinsi.ValueMember = "lokasi_provinsi"
            cbo_provinsi.DataSource = dt
        End Using

5. Klik 2 kali pada combobbox provinsi dan ketikan script dibawah ini

If Not IsNothing(cbo_provinsi.SelectedValue) Then
            'menyiapkan id dari combobox provinsi
            Dim id As Integer = cbo_provinsi.SelectedValue
            'Menyiapkan sqlconnection
            Using conn As New SqlConnection(strconn)
                'Menyiapkan query untuk mendapatkan lokasi_nama dan lokasi_kabupatenkota
                cmd = New SqlCommand("select lokasi_nama,lokasi_kabupatenkota from lokasi where lokasi_provinsi='" & id & "' and lokasi_kabupatenkota <> 0 and lokasi_kecamatan=0 and lokasi_kelurahan=0 order by lokasi_nama asc", conn)
                'Menyiapkan adapter
                adapter = New SqlDataAdapter(cmd)
                'Menyiapkan sebuah datatable untuk menampung data dari sqldataadapter
                dt = New DataTable
                'Membinding data dari adapter ke datatable
                adapter.Fill(dt)

                'Mengisi combobox kabupaten
                cbo_kabupaten.DisplayMember = "lokasi_nama"
                cbo_kabupaten.ValueMember = "lokasi_kabupatenkota"
                cbo_kabupaten.DataSource = dt
            End Using
        End If

6. Klik 2 kali pada combobox kabupaten dan ketikan script dibawah ini

'jika nilai dari combobox kabupaten yang terpilih tidak kosong
        If Not IsNothing(cbo_kabupaten.SelectedValue) Then
            'menyiapkan id dari combobox provinsi
            Dim idprovinsi As Integer = cbo_provinsi.SelectedValue
            'menyiapkan id dari combobox kabupaten
            Dim idkabupaten As Integer = cbo_kabupaten.SelectedValue
            'Menyiapkan sqlconnection
            Using conn As New SqlConnection(strconn)
                'Menyiapkan query untuk mendapatkan lokasi_nama dan lokasi_kecamatan
                cmd = New SqlCommand("select lokasi_nama,lokasi_kecamatan from lokasi where lokasi_provinsi='" & idprovinsi & "' and lokasi_kabupatenkota='" & idkabupaten & "' and lokasi_kecamatan <> 0 and lokasi_kelurahan=0 order by lokasi_nama asc", conn)
                'Menyiapkan adapter
                adapter = New SqlDataAdapter(cmd)
                'Menyiapkan sebuah datatable untuk menampung data dari sqldataadapter
                dt = New DataTable
                'Membinding data dari adapter ke datatable
                adapter.Fill(dt)

                'mengisi combobox kecamatan
                cbo_kecamatan.DisplayMember = "lokasi_nama"
                cbo_kecamatan.ValueMember = "lokasi_kecamatan"
                cbo_kecamatan.DataSource = dt
            End Using
        End If

7. Klik 2 kali pada combobox dan ketikan script dibawah ini

 'jika nilai dari combobox kecamatan yang terpilih tidak kosong
        If Not IsNothing(cbo_kecamatan.SelectedValue) Then
            'menyiapkan id dari combobox provinsi
            Dim idprovinsin As Integer = cbo_provinsi.SelectedValue
            'menyiapkan id dari combobox kabupaten
            Dim idkabupaten As Integer = cbo_kabupaten.SelectedValue
            'menyiapkan id dari combobox kecamatan
            Dim idkecamatan As Integer = cbo_kecamatan.SelectedValue
            'Menyiapkan sqlconnection
            Using conn As New SqlConnection(strconn)
                'Menyiapkan query untuk mendapatkan lokasi_nama dan lokasi_kelurahan
                cmd = New SqlCommand("select lokasi_nama,lokasi_kelurahan from lokasi where lokasi_provinsi='" & idprovinsin & "' and lokasi_kabupatenkota='" & idkabupaten & "' and lokasi_kecamatan='" & idkecamatan & "' and lokasi_kelurahan <> 0 order by lokasi_nama asc", conn)
                'Menyiapkan adapter
                adapter = New SqlDataAdapter(cmd)
                'Menyiapkan sebuah datatable untuk menampung data dari sqldataadapter
                dt = New DataTable
                'Membinding data dari adapter ke datatable
                adapter.Fill(dt)

                'mengisi combobox kelurahan
                cbo_kelurahan.DisplayMember = "lokasi_nama"
                cbo_kelurahan.ValueMember = "lokasi_kelurahan"
                cbo_kelurahan.DataSource = dt
            End Using
        End If

8. Jalankan program tersebut dengan menekan F5 

Anda bisa mendownload source codenya disini

dan untuk passwordnya disini

Sekian dari saya

Semoga bermanfaat, terima kasih atas kunjungannya

Read More

Menampilkan Data Ke Combobox Di VB.NET

Setelah beberapa minggu yang lalu saya memposting Encryption dan Decryption String Dengan VB.NET
Kali ini saya akan memposting tentang Menampilkan Data ke Combobox Di VB.NET. Terkadang dalam membuat sebuah program kita perlu untuk Menampilkan Data ke Combobox Di VB.NET misalnya saja untuk menampilkan data kategori barang, satuan barang ataupun yang lainnya.

Langkah - langkah Menampilkan Data ke Combobox Di VB.NET

1. Buat sebuah database dengan nama latihan

2. Buat sebuah table di dalam database latihan dengan script dibawah ini

CREATE TABLE siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat varchar(100) not null
)

3. Tambah data pada table siswa dengan script dibawah ini

INSERT INTO	siswa (nis,nama,alamat) 
values ('334','Dwi Randy Herdinanto','Bandar Lampung'),
('335','Budi','Bandar Lampung'),
('336','Ita','Bandar Lampung')

Anda juga dapat mempelajari tentang Syntak Dasar SQL disini

4. Buat sebuah project dengan nama database combobox

5. Tambahkan sebuah combobox ganti namenya dengan cbo_nis dan DropDownStylenya pilih DropDownList sehingga tampilan pada form tersebut seperti gambar dibawah ini

6. Double click form tersebut lalu ketikan Imports System.Data.SqlClient

7. Pada Event Form_Load ketikan script dibawah ini

  'Membuat string koneksi ke database
        Dim sconn As String = "Data Source=.;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; Password=root123"
        'Menyiapkan koneksi database
        Dim conn As New SqlConnection(sconn)
        'Menyiapkan perintah query
        Dim cmd As New SqlCommand("select nis,nama from siswa", conn)
        'Menyiapkan data adapter
        Dim adapter As New SqlDataAdapter(cmd)
        'Menyiapkan datatable untuk menampung data dari table siswa
        Dim dt As New DataTable
        'Menggunakan try agar ketika ada error maka akan melakukan statement yang ada di dalam block Catch ex As Exception
        Try
            'Binding data ke datatable
            adapter.Fill(dt)
            'Binding data dar datatable ke combobox
            cbo_nis.DataSource = dt
            'Menentukan nilai dari setiap pilihan di combobox
            cbo_nis.ValueMember = "nis"
            'Menentukan data yang akan di tampilkan di setiap pilihan combobox
            cbo_nis.DisplayMember = "nama"
        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "Error") 'Menampilkan pesan error
        End Try

8. Jalankan program tersebut dengan menekan CTRL+F5

Anda bisa mendownload source codenya di sini

dan untuk passwordnya disini

Sekian dari saya
Terima kasih sudah mengunjungi blog saya,,dan jangan lupa berikan komentar untuk artikel ini

Read More

Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal

Kali ini saya akan memposting tentang Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal 

Karena untuk Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal  kita perlu menggunakan perulangan ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For Do di Turbo Pascal 

Langkah-langkah Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal 

1. Buka program turbo pascal yang anda punya

2. Ketikan script dibawah ini

program priamid;
var
 i,j,k,bil:integer;
begin
 clrscr;

        writeln('===============');

        writeln('Tutorial Koding');

        writeln('===============');

 write('Masukan Tinggi Piramida : ');readln(bil);
 for i:=1 to bil do {Perulangan dari 1 sampai tinggi piramida}
 begin
  for j:=bil down to i do {Perulangan untuk membuat jarak/spasi}
  begin
   write(' ');
  end;

  for k:=1 to i+i-1 do {Perulangan untuk menampilkan bintang}
  begin
   write('*');
  end;
 writeln;
 end;
 readln;
end;

3. Jalankan program tersebut dengan menekan CTRL+F5

Semoga bermanfaat, terima kasih atas kunjungannya

Read More

Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

Setelah beberapa hari yang lalu saya sempat memposting tentang Konversi Suhu di Turbo Pascal
kali ini saya akan memposting tentang Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

jadi misalkan kita menginputkan 390 hari maka akan muncul text bertuliskan 1 tahun  1 bulan 10 hari
oke langsung saja

Langkah - langkah Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

1. Buka program turbo pascal yang anda punya

2. Ketikan Script dibawah ini

program konversihari;
uses crt;
var
 hari,jhari,jbulan,jtahun,sisa:integer;
begin
 clrscr;
 writeln('======================');
 writeln('Tutorial Koding');
 writeln('=====================');
 writeln('');
 write('Masukan Jumlah Hari : ');readln(hari);
 jtahun:=hari div 365;
 sisa:=hari div 365;
 jbulan:=sisa div 31;
 jhari:=sisa mod 31;
 if (jhari=0) then
 begin
  jhari:=sisa;
 end;
 writeln('Hasil Konversi : ',jtahun,' Tahun ',jbulan,' Bulan ',jhari,' Hari ');
 readln;
end.
 

3. Jalankan program tersebut dengan menekan CTRL+F5

Sekian dari saya, semoga bermanfaat

Read More

Membuat Function di Turbo Pascal

Setelah beberapa hari yang lalu saya membahas tentang Membuat Procedure di Turbo Pascal
kali ini saya akan melanjutkan dengan Membuat Function di Turbo Pascal

Apa itu function ?
Function hampir sama dengan Procedure yaitu suatu modul program yang terpisah dari program utama yang diletakan dalam blok tersendiri yang berfungsi sebagai bagian dari program, tapi function memiliki perbedaan dengan procedure yaitu, jika function memberikan nilai balik (return) namun jika procedure tidak

Langakah - langkah Membuat Function di Turbo Pascal

1. Buka program turbo pascal yang anda punya

2.. Ketikan script dibawah ini

program fungsi;
uses crt;

function hitungluas(p,l:integer):integer; {membuat fungsi hitungluas dimana parameter p dan l adalah integer}
begin       {Dan nilai yang akan dikembalikan (return) berupa integer}
 hitungluas:=p*l; {Menghitung luas persegi,hasil dari hitungluas adalah nilai yang akan dikembalikan (return)}
end;

var
 pj,lb:integer;
begin
 clrscr;
 writeln('===============');
 writeln('Tutorial Koding');
 writeln('===============');
 
 write('Masukan Panjang Persegi Panjang : ');readln(pj);
 write('Masukan Lebar Persegi Panjang : ');readln(lb);

 writeln('Luas Persegi Panjang : ',hitungluas(pj,lb)); {Memanggil fungsi hitungluas serta mengirimkan parameter berupa pj dan lb}
 readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F9

Sekian dari saya, semoga bermanfaat

Read More

Konversi Suhu Dengan Turbo Pascal

Kali ini saya akan memposting tentang Konversi Suhu Dengan Turbo Pascal

• Konversi Celcius ke Fahrenhuit dan Reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan Script dibawah ini

program cel;
uses crt;
var
	celcius,fahrenheit,reamur:real;
begin
	clrscr;
	writeln('===============');
	writeln('Tutorial Koding');
	writeln('===============');
	write('Masukan suhu dalam celcius : ');readln(celcius);

	fahrenheit:=9/5*celcius+32 {Mengkonversi celcius ke fahrenheit}
	reamur:=4/5*celcius;	{Mengkonversi celcius ke reamur}

	writeln('Konversi suhu ke fahrenheit :',fahrenheit:0:1);
	writeln('Konversi suhu ke reamur :',reamur:0:1);
	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F9

• Konversi Fahrenheit ke celcius dan reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan Script dibawah ini

program fah;
uses crt;
var
	celcius,fahrenheit,reamur:real;
begin
	clrscr;
	writeln('================');
	writeln('Tutorial Koding');
	writeln('================');
	write('Masukan suhu dalam fahrenheit : ');readln(fahrenheit);
	
	celcius:=5/9*(fahrenheit-32); {Konversi fahrenheit ke celcius}
	reamur:=4/9*(fahrenheit-32); {Konversi fahrenheit ke reamur}

	writeln('Konversi suhu celcius : ',celcius:0:1);
	writeln('Konversi suhu reamur : ',reamur:0:1);

	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F9

• Konversi Reamur ke Celcius dan Reamur

1. Buka Turbo Pascal yang anda punya

2. Ketikan script dibawah ini

program ream;
uses crt;
var
	reamur,celcius,fahrenheit:real;
begin
	clrscr;
	writeln('================');
	writeln('Tutorial Koding');
	writeln('================');
	write('Masukan suhu dalam reamur : ');readln(reamur);

	celcius:=4/5*reamur;
	fahrenheit:=9/4*(reamur+32);

	writeln('Konversi ke celcius : ',celcius:0:1);
	writeln('Konversi ke fahrenheit : ',fahrenheit:0:1);

	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F5

Sekian dari saya
semoga bermanfaat

Read More

Membuat Procedure di Turbo Pascal

Setelah beberapa siang tadi saya memposting tentang Menggunakan Const di Turbo Pascal
kali ini saya akan memposting tentang Membuat Procedure di Turbo Pascal

Terkadang ketika kita membuat sebuah program yang sudah sampai ratusan bahkan ribuan baris, kita akan kesulitan dalam memahami jalannya program itu secara keseluruhan, maka ada baiknya program yang kita buat tersebut kita pecah menjadi beberapa bagian, agar kita lebih mudah dalam memahami jalannya program tersebut,oleh karena itu membuat procedure sangat lah dianjurkan dalam membuat program, selain memudahkan kita dalam memahami jalannya program kita juga tidak perlu menuliskan procdure yang sama berulang - ulang kita cukup memanggil procedure yang kita buat saja

Berikut cara membuat Membuat Procedure di Turbo Pascal

1. Buka program Turbo Pascal yang anda miliki

2. Ketikan script dibawah ini

program prosedur;
uses crt;
var
 p,l,luas:integer; {Mendekarasikan variable}

procedure hitung; {Membuat procedure hitung untuk menghitung luas persegi panjang}
begin
 luas:=p*l; {Menghitung luas persegi panjang}
 writeln('Luas Persegi Panjang : ',luas); {Menampilkan luas persegi panjang}
end;

begin
 clrscr;
 writeln('===============');
 writeln('Tutorial Koding');
 writeln('===============');
 write('Masukan Panjang : ');readln(p); {Mengisi variable p}
 write('Masukan Lebar : ');readln(l); {Mengisi variable l}
 hitung; {Memanggil procedure hitung tanpa parameter}
 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL+F9

Membuat Procedure dengan parameter

Apa itu Parameter ?
Secara sederhana parameter merupakan variable yang dituliskan di dalam kurung. Dalam pembuatan program biasanya diperlukan pertukaran informasi antara procedure atau function, serta pada blok program utama dimana nama procedure atau function tersebut dipanggil

1. Buka program Turbo Pascal yang anda miliki

2. Ketikan script dibawah ini

program prosedur_param;
uses crt;
var
 p,l,luas:integer; {Mendeklarasikan variable}

procedure hitung(p,l:integer); {Membuat procedure dengan parameter}
begin
 luas:=p*l; {Menghitung luas persegi panjang dimana nilai p dan l didapat dari parameter procedure hitung}
 writeln('Luas Persegi Panjang : ',luas); {Menampilkan Luas Persegi}
end;

begin
 clrscr;
 writeln('====================');
 writeln('Tutorial Koding');
 writeln('====================');
 write('Masukan Panjang : ');readln(p); {Mengisi variable p}
 write('Masukan Lebar : ');readln(l); {Mengisi variable l}
 hitung(l,p); {Memanggil procedure hitung serta mengirim nilai dari p dan l}
 readln;
end;

3. Jalnkan program tersebut dengan menekan CTRL+F9

Semoga berhasil
Terima kasih atas kunjungannya

Read More

Menggunakan Const di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Membuat Kalkulator Dengan Turbo Pascal
kali ini saya akan memposting Menggunakan Const di Turbo Pascal

Apa itu Const ?
Const adalah indentifier terkait nilai yang biasanya tidak dapat diubah selama program itu berjalan

Contoh Penggunaan Const di Turbo pascal

1. Buka program turbo pascal yang anda miliki

2. Ketikan Script dibawah ini

program konstanta;
uses crt;
const
	phi:real=3.14;
var
	jari,luas,keliling:real;
begin
	clrscr;
	writeln('=====================');
	writeln('Tutorial Koding');
	writeln('=====================');
	write('Masukan Jari-Jari Lingkaran : ');readln(jari);

	luas:=phi*sqr(jari); {Menghitung Luas Lingkaran}
	keliling:=2*phi*jari; {Menghitung Keliling Lingkaran}

	writeln('Luas Lingkaran : ',luas:0:1);
	writeln('Keliling Lingkaran : ',keliling:0:1);
	readln;
end.

3. Jalankan program tersebut dengan menekan CTRL+F5

Sekian dari saya
Semoga bermanfaat, terima kasih atas kunjungannya

Read More

Membuat Kalkulator Dengan Turbo Pascal

Pada postingan kali ini saya akan membahas tentang Membuat Kalkulator Dengan Turbo Pascal
sebenarnya ada beberapa cara untuk Membuat Kalkulator Dengan Turbo Pascal namun kali ini saya akan menggunakan IF dan Case untuk memilih operasi apa yang dijalankan,apakah operasi tambah, pengurangan, pembagian atau perkalian

Sebelum memulainya ada baiknya anda membaca postingan saya sebelumnya yaitu Statement IF di Turbo Pascal dan Statement Case di Turbo Pascal

Jika anda sudah mengerti cara penggunaan  Statement IF di Turbo Pascal dan Statement Case di Turbo Pascal maka langsung saja

Cara pertama
Membuat Kalkulator Dengan Turbo Pascal dengan Statement IF

1. Buka turbo pascal yang anda miliki

2. ketikan script dibawah ini

program kal_if;
uses crt;
var
 bil1,bil2,jumlah:real;
 op:char;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');
 jumlah:=0;

 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

 if (op = '+') then
 begin
  jumlah:=bil1+bil2;
 end
 else if (op = '-') then
 begin
  jumlah:=bil1-bil2;
 end
 else if (op = '*') then
 begin
  jumlah:=bil1*bil2;
 end
 else if (op = '/') then
 begin
  jumlah:=bil1/bil2;
 end
 else
 begin
  writeln(op,' tidak termasuk dalam operasi perhitungan');
 end;

 writeln('Hasil : ',jumlah:0:1);

 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL + F9

Penjelasan :

write('Masukan Bilangan Pertama : ');readln(bil1);
write('Masukan Bilangan Kedua : ');readln(bil2);
write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

Mengisi variable bil1, bil2, dan op sesuai dengan yang kita inputkan

if (op = '+') then
 begin
  jumlah:=bil1+bil2;
 end
 else if (op = '-') then
 begin
  jumlah:=bil1-bil2;
 end
 else if (op = '*') then
 begin
  jumlah:=bil1*bil2;
 end
 else if (op = '/') then
 begin
  jumlah:=bil1/bil2;
 end
 else
 begin
  writeln(op,' tidak termasuk dalam operasi perhitungan');
 end;

Melakukan pemilihan operasi hitung, jika + maka akan melakukan operasi penjumlahan, jika - maka akan melakukan operasi pengurangan jika * maka akan melakukan opearasi pengurangan, jika / maka akan melakukan operasi pembagian jika tidka diantara ke empat itu maka akan muncul text bertuliskan tidak termasuk dalam operasi perhitungan

Cara kedua
Membuat Kalkulator Dengan Turbo Pascal dengan Statement Case

1. Buka program turbo pascal yang anda miliki

2, Ketikan script dibawah ini

program kal_if;
uses crt;
var
 bil1,bil2,jumlah:real;
 op:char;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');
 jumlah:=0;

 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 write('Pilih Operasi Perhitungan (+) (-) (*) (/) : ');readln(op);

 case op of
  '+':
  begin
   jumlah:=bil1+bil2;
  end;

  '-':
  begin
   jumlah:=bil1-bil2;
  end;

  '*':
  begin
   jumlah:=bil1*bil2;
  end;

  '/':
  begin
   jumlah:=bil1/bil2;
  end;

 else
  begin
   writeln(op,' tidak termasuk dalam operais perhitungan');
  end;
 end;

 writeln('Hasil : ',jumlah:0:1);

 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL + F9

 

Sekian dulu dari saya.

Read More

Perulangan Repeat Until di Turbo Pascal

Pada postingan kali ini saya akan membahas Perulangan Repeat Until di Turbo Pascal
Sebenarnya perulangan ini hampir sama dengan Perulangan While do di Turbo Pascal namun ada beberapa perbedaan antara repeat dan while,jika repeat iya akan menjalankan perintah yang akan diulang lalu mengeceknya, jika nilainya benar/true maka perulangan tersebut akan berhenti,namun jika masih salah/false maka akan terus melakukan perulangan sampai nilai itu benar/true

Contoh Perulangan Repeat Until di Turbo Pascal

1. Buka turbo  pascal yang anda punya

2. Ketikan script dibawah ini

program repeat_until;
uses crt;
var
 i,jumlah:integer;
begin
 clrscr;
 writeln('==================');
 writeln('Tutorial Koding');
 writeln('==================');
 writeln('');

 i:=1;
 write('Masukan Jumlah Perulangan : ');readln(jumlah);
 repeat
  writeln('Tutorial Koding ',i);
 until i > jumlah;
 
 readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini

Penjelasan :

var
 i,jumlah:integer;

Mendeklarasikan variable i dan jumlah sebagai integer

i:=1;
 write('Masukan Jumlah Perulangan : ');readln(jumlah);
 repeat
  writeln('Tutorial Koding ',i);
 until i > jumlah;

Mengisi variable i dengan 1, lalu mengisi variable jumlah sesuai dengan jumlah yang kita inputkan
lalu melakukan perulangan sampai isi dari variable i lebih dari variable jumlah

Itulah penjelasan singkat dari saya
semoga berhasil

Read More

Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

Pada postingan kali ini saya akan membahas tentang Menghitung Jumlah Nilai Dengan Array di Turbo Pascal
sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For do di Turbo Pascal

Apa itu Array ?
Array adalah sekumpulan variable yang memiliki tipe data yang sama  dan dinyatakan dengan nama yang sama. Array merupakan konsep yang penting dalam pemrograman, karena array memungkinkan untuk menyimpan data maupun referensi objek dalam jumlah banyak dan terindeks. Array menggunakan index integer untuk menentukan urutan elemen-elemennya dimana elemen pertama di mulai dari nol (0)

Setelah anda mengetahui apa itu array sekarang saya akan langsung memberi tahu cara Menghitung Jumlah Nilai Dengan Array di Turbo Pascal

1. Buka program Turbo Pascal yang anda punya\

2. Masukan script dibawah ini

script

program jumlah_array;
uses crt;
var
 bil:array[1..-100] of integer;
 i,j:integer;
 jumlah:integer;
begin
 clrscr;
 writeln('===================');
 writeln('Tutorial Koding');
 writeln('===================');
 writeln('');
 write('Masukan Banyak Data : ');readln(i);
 jumlah:=0;
 
 for j:=1 to i do
 begin
  write('Masukan Data ke ', j,' : ');readln(bil[j]);
  jumlah:=jumlah+bil[j];
 end;
 
 writeln('Jumlah Seluruh Nilai :',jumlah);
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Penjelasan :

var
 bil:array[1..-100] of integer;
 i,j:integer;
 jumlah:integer;

Digunakan untuk mendekarasikan Variable

write('Masukan Banyak Data : ');readln(i);
 jumlah:=0;

Digunakan untuk menampung banyak data yang diinputkan

for j:=1 to i do
 begin
  write('Masukan Data ke ', j,' : ');readln(bil[j]);
  jumlah:=jumlah+bil[j];
 end;

Melakukan perulangan sebanyak jumlah data yang diinputkan
lalu mengisi variable jumlah dengan penjumlahan dari data nilai yang diinputkan


Semoga berhasil
Semoga bermanfaat dan jangan lupa berikan komentar untuk postingan ini.

Read More

Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal

Pada postingan kali ini saya akan membahasa tentang cara Menghitung Huruf Vokal dan Konsonan dengan Turbo Pascal
sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Statemetn IF di Turbo Pascal dan Perulangan For do di Turbo Pasca karna untuk menghitung huruf vocal dan kosonan dengan turbo pascal kita memerlukan 2 statement itu


1. Buka program turbo pascal yang anda miliki

2. Ketikan script dibawah ini

program vokal_konsonan;
uses crt;
var
 vokal,konsonan,len,i:integer;
 kata:string;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 write('Masukan Nama Anda : ');readln(kata);
 len:=length(kata);
 konsonan:=0;
 vokal:=0;

 for i:=1 to len do
 begin
  if (kata[i]='a') or (kata[i]='A') or (kata[i]='i') or (kata[i]='I') or (kata[i]='e') or (kata[i]='E')
  or (kata[i]='u') or (kata[i]='U') or (kata[i]='o') or (kata[i]='O') then
  begin
   vokal:=vokal+1;
  end
  else
  begin
   konsonan:=konsonan+1;
  end;
 end;
 
 writeln('Jumlah Huruf Vokal : ',vokal);
 writeln('Jumlah Huruf Konsonan : ',konsonan);
 readln;
end.

Jika dijalankan akan seperti gambar di bawah ini

Penjelasan :

var
 vokal,konsonan,len,i:integer;
 kata:string;

Digunakan untuk mendeklarasikan variable

write('Masukan Nama Anda : ');readln(kata);
 len:=length(kata);
 konsonan:=0;
 vokal:=0;

Digunakan untuk mengisi variable kata dengan kata yang kita inputkan
length digunakan untuk mengetahui panjang karakter dari kata yang kita inputkan
konsonan:=0 dan vokal:=0 digunakan untuk mengisi variabel dengan 0

for i:=1 to len do
 begin
  if (kata[i]='a') or (kata[i]='A') or (kata[i]='i') or (kata[i]='I') or (kata[i]='e') or (kata[i]='E')
  or (kata[i]='u') or (kata[i]='U') or (kata[i]='o') or (kata[i]='O') then
  begin
   vokal:=vokal+1;
  end
  else
  begin
   konsonan:=konsonan+1;
  end;
 end;

Melakukan perulangan untuk mendapatkan jumlah huruf vokal dan konsonan

writeln('Jumlah Huruf Vokal : ',vokal);
writeln('Jumlah Huruf Konsonan : ',konsonan);

Digunakan untuk menampilkan jumlah huruf vokal dan konsonan yang ditemukan

Semoga berhasil
Semoga bermanfaat dan jangan lupa untuk memberikan komentar pada postingan ini.

Read More

Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal

Setelah beberapa jam yang lalu saya memposting tentang Perulangan While do di Turbo Pascal
kali ini saya akan memposting tentang Mencari Bilangan Genap Ganjil dan Prima di Turbo Pascal
Sebelum memulai ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For do di Turbo Pascal karena untuk mencari bilangan genap ganjil dan prima ini saya akan menggunakan perulangan For

Oke langsung saja yang pertama

Mencari Bilangan Genap di Turbo Pascal

program bil_genap;
uses crt;
var
 bil1,bil2:integer;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 writeln('');
 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);

 write('Bilangan Genap Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  if (bil1 mod 2 = 0) then
  begin
   write(bil1,' ');
  end;
 end;
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Mod digunakan untuk mendapatkan sisa pembagian, jika bil1 mod 2 = 0 maka akan dimunculkan sebagai bilangan genap

Mencari Bilangan Ganjil di Turbo Pascal

program bil_ganjil;
uses crt;
var
 bil1,bil2:integer;
begin
 clrscr;
 writeln('=================');
 writeln('Tutorial Koding');
 writeln('=================');
 writeln('');
 write('Masukan Bilangan Pertama : ');readln(bil1);
 write('Masukan Bilangan Kedua : ');readln(bil2);
 
 write('Bilangan Ganjil Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  if (bil1 mod 2 = 1) then
  begin
   write(bil1,' ');
  end;
 end;
 readln;
end.

Maka jika dijalankan akan seperti gambar dibawah ini

Mod digunakan untuk mendapatkan sisa pembagian, jika bil1 mod 2 = 1 maka akan dimunculkan sebagai bilangan ganjil

Mencari Bilangan Prima di Turbo Pascal

program bil_prima;
uses crt;
var
 bil1,bil2,a,b:integer;
begin
 clrscr;
 writeln('====================');
 writeln('Tutorial Koding');
 writeln('====================');
 write('Masukan Bilangan Pertama : ');
 write('Masukan Bilangan Kedua : ');
 
 write('Bilangan Prima Yang Ditemukan : ');
 for bil1:=bil1 to bil2 do
 begin
  a:=0;
  for b:=1 to bil1 do
  begin
   if (bil1 mod b = 0) then
   begin
    a:=1+1;
   end;
  end;
 if (a=2) then
 begin
  write(bil1,' ');
 end;
 end;

 readln;
end.

Jika dijalankan maka akan seperti gambar dibawah ini

Semoga Berhasil
Semoga bermanfaat, jangan lupa berikan komentar pada postingan ini.

Read More