Turbo Pascal

Assalamu’alaykum sobat  semuanya.

Saya kembali lagi, kali ini kita akan membahas tentang cara membuat program KRS menggunakan program turbo pascal. Pasti sobat sudah tau kan apa itu turbo pascal. Nah, buat yang belum tau turbo pascal itu adalah Bahasa Pemograman Tingkat Tinggi (High Level Language) yang terkenal dengan pemograman terstruktur dan bernaung di bawah sistem operasi MS-DOS. Adapun Aplikasi Turbo Pascal adalah untuk penanganan Matematika, Database dan Lain lain.

Yuk langsung saya akan kasih tau bagaimana cara membuat programnya.

1. Buka program turbo pascal sobat.  Jika sudah terbuka tampilannya akan seperti ini:

2. Silahkan ketikkan koding berikut di aplikasi turbo pascal yang sudah sobat buka tadi.

uses crt;

var

 i,j:byte;

 nama,programstudi,kode,matakuliah,dosen:array[1..10] of string;

 no,npm,sks:array[1..10] of integer;

 begin

 clrscr;

 write('Input Jumlah Data:');

 readln(j);

 for i:=1 to j do

 begin

 write('Kode ke-',i,':');

 readln(kode[i]);

 write('Mata Kuliah ke-',i,':');

 readln(matakuliah[i]);

 write('SKS ke-',i,':');

 readln(sks[i]);

 write('Dosen ke-',i,':');

 readln(dosen[i]);

 end;

 clrscr;

 writeln('                          KARTU RENCANA STUDI                             ');

 writeln('NPM          : 14110567                   T.A      : 2014/2015');

 writeln('Nama         : Dessy Nurazizah            Semester : II-Genap  Kelas: SI-P1402');

 writeln('Konsentrasi  : Sistem Informasi        Dosen P.A: Hery Sunandar, ST, M.Kom');

 writeln('Program Studi: S1-Teknik Informatika');

 writeln(' ');

 writeln('No  Kode      Mata Kuliah          SKS      Dosen');

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

 for i:=1 to 3 do

 begin

  gotoxy(5,i+8);writeln(kode[i]);

  gotoxy(15,i+8);writeln(matakuliah[i]);

  gotoxy(37,i+8);writeln(sks[i]);

  gotoxy(45,i+8);writeln(dosen[i]);

  gotoxy(1,i+8);writeln(i);

 readln;

 end;

 end. 

3. Setelah kodingnya sudah selesai sobat tulis. Tekan tombol Ctrl+F9 pada keyboard sobat.

Tampilannya akan seperti ini:

Silahkan sobat isi jumlah data, Kode, Mata Kuliah, SKS, Dosen sesuai yang sobat inginkan.

4.  Lalu tampilannya akan seperti berikut :

Sekian dulu postingan dari saya. Semoga bermanfaat buat sobat semua.

Wassalamu’alaykum warahmatullahi wabarakatuh.

Menelusuri Keindahan Seoul Central Mosque dan Jejak Islam di Korea

Assalamu'alaykum para sahabat semua.
Sebelum istirahat, yuk kita membahas tentang perkembangan Islam atau jejak Islam di negeri Ginseng Korea Selatan. Dari dulu saya memang sudah tertarik sekali dengan perkembangan islam di negeri yang amat terkenal akan artis-artis kpopnya, seperti boyband/girlband, drama korea, dan lain-lainnya.
Yuk langsung saja kita bahas chingu (panggilan teman dalam bahasa korea).

 

Penduduk Korea Selatan mayoritas beragama Budha, namun bukan berarti kita tidak dapat menemukan jejak-jejak Islam di negeri gingseng ini. Atmosfer kehidupan muslim ternyata dapat ditemukan di Seoul Central Mosque yang berada di Itaewon, Seoul, Korea Selatan. Seoul Central Mosque sendiri diketahui sebagai masjid pertama dan satu-satunya di Seoul sekaligus masjid terbesar di Korea.

Seoul Central Mosque yang dibuka untuk pertama kalinya pada tanggal 5 Mei 1976 ini tepatnya berada di distrik Yongsan-gu. Selain menjadi pusat agama Islam, masjid ini juga merupakan kebanggaan lebih dari 45 ribu masyarakat Korea asli yang memeluk Islam sejak lama. Masjid ini dalam bahasa Arab bernama Masjid Si’ul Al Markaz, namun petunjuk jalan yang dibuat oleh pemerintah setempat menuliskannya dengan bahasa Inggis yakni Seoul Central Mosque. Arsitekturnya yang khas membuat wisatawan akan dengan mudah mengenali masjid ini. Di pintu utama terdapat tulisan “Allahu Akbar” menggunakan huruf Arab yang cukup besar. Bagi masyarakat setempat dan pemeluk non muslim, masjid ini merupakan titik destinasi wisata karena keindahan arsitekturnya. Apalagi Seoul Central Mosque ini terletak antara Namsan dan Han River.

Bangunan yang terdiri dari 3 lantai ini umumnya memiliki tempat terpisah untuk wanita dan pria. Masjid ini tidak hanya menyediakan tempat untuk sholat berjamaah namun juga terdapat beberapa ruangan lain seperti kantor, ruang kelas, ruang rapat dan ruang konferensi. Bahkan ada penginapan yang sering dipakai para pekerja asing untuk menginap. Perluasan bangunan ini dilakukan pada tahun 1991 setelah pengelola setempat mendapatkan sumbangan dari pemerintah Arab Saudi sebesar 3,5 miliar Won.

Seperti layaknya masjid yang berdiri di negara berpenduduk non-muslim, Anda yang menyempatkan datang akan melihat bahwa masjid ini didatangi oleh orang-orang yang berasal dari latar belakang negara yang berbeda. Seperti Mesir, Libya, Suria, Sudan, Pakistan, Bangladesh, Turki dan tentu saja Indonesia. Mereka pada umumnya adalah para pekerja asing yang mengadu nasib di Korea Selatan. Ada juga penduduk asli keturunan para mualaf yang masuk ke Korea saat Perang Korea. Pada saat bulan Ramadhan, masjid ini akan semakin ramai oleh kegiatan keagamaan dan acara buka serta sahur bersama.

Sama seperti di Indonesia, pengelola masjid juga menyediakan hidangan untuk para jamaah. Jadi Anda tak perlu ketakutan kelaparan jika mengunjungji Seoul Central Mosque saat bulan puasa.

Masjid ini juga menjadi jujugan para wisatawan yang ingin menunaikan shalat Jumat. Setiap hari Jumat paling tidak ada 800 jamaah yang melaksanakan shalat. Menyadari bahwa jamaah shalat Jumat di masjid ini berasal dari berbagai negara, maka khutbah Jumat akan diberikan dalam 2 bahasa sekaligus yakni bahasa Arab dan bahasa Inggris.

Nah, Jika Anda datang jauh sebelum shalat Jumat dilaksanakan, Anda bisa berjalan-jalan mengitari kawasan ini yang dipenuhi toko-toko penjual pernik-pernik umat muslim seperti buku, CD dan perangkat sholat yang kebanyakan dijual oleh warga Pakistan.

Daerah ini juga menyediakan Iteawon Night Market yang terletak di dekat kawasan masjid. Pasar yang dibuka pada malam hari ini menyediakan berbagai barang, baju dan asesoris seperti kaus kaki, anting-anting, gelang, kalung dan beberapa fashion item lainnya.

 

Uniknya, lokasi Seoul Central Mosque ini berada di dekat basis militer AS di Korea Selatan. Jadi jangan heran jika Anda akan melihat sekelompok tentara Amerika hilir mudik di kawasan ini.

Untuk sampai ke Seoul Central Mosque ini Anda bisa menumpang subway jalur 6 melalui Seoul Subway dan turun di Stasiun Itaweon pintu exit nomor 3. Turun dari stasiun Anda akan menemukan Fire Station Itaewon berbeloklah ke kanan. Jika sampai di persimpangan belok kiri dan berjalanlah sekitar 200 meter, di sana kita dapat melihat geliat kehidupan muslim di Korea.

Bagi wisatawan yang masih ingin melihat geliat kehidupan muslim disini, Anda bisa menginap di hotel-hotel yang ada di Itaewon seperti Hamilton Hotel Itaewon, Grand Hyatt Hotel atau Capital Itaewon Hotel. Setelah itu, Anda juga bisa menikmati destinasi wisata lainnya di Seoul yakni Whanki Museum, makan di Restoran Seokparang atau menjelajahi Seoul Forest yang mengagumkan.

Menurut Korea Muslim Federation (KMF), didirikan pada 1967, ada sekitar 120.000 sampai 130.000 Muslim yang tinggal di Korea Selatan, baik pribumi maupun orang asing. Mayoritas penduduk terdiri dari pekerja migran asal Pakistan dan Bangladesh. Jumlah Muslim asli Korea diperkirakan mencapai sekitar 45.000.

Quiz Online Pemograman Visual

Selesaikan kasus berikut:
Listview Pembayaran Gaji 

Berikut jawaban program:

Public Class Form1

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

        No.Items.Add("1")
        No.Items.Add("2")
        No.Items.Add("3")

        NIK.Items.Add("1")

        NIK.Items.Add("2")

        NIK.Items.Add("3")

        Gol.Items.Add("1")

        Gol.Items.Add("2")

        Gol.Items.Add("3")

    End Sub

Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text

            Case "1"

                NamaPegawai.Text = "Hendro"

            Case "2"

                NamaPegawai.Text = "Dian"

            Case Else

                NamaPegawai.Text = "Jhoni"

        End Select

    End Sub

Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged

        Select Case Gol.Text

            Case "1"

                GajiPokok.Text = "1500000"

            Case "2"

                GajiPokok.Text = "2500000"

            Case Else

                GajiPokok.Text = "3500000"

        End Select

        Pajak.Text = 0.05 * GajiPokok.Text

        GajiBersih.Text = Val(GajiPokok.Text) - Val(Pajak.Text)

    End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click

        No.Text = ""
        NIK.Text = ""

        NamaPegawai.Text = ""

        Gol.Text = ""

        GajiPokok.Text = ""

        Pajak.Text = ""

        GajiBersih.Text = ""

    End Sub

Private Sub BtnSimpanKeListview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpanKeListview.Click

        LV.Columns.Add("No", 30, HorizontalAlignment.Left)
        LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama Pegawai", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Gol", 50, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Pajak", 70, HorizontalAlignment.Left)

        LV.Columns.Add("Gaji Bersih", 80, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = False

        LV.View = View.Details

        Dim lst As New ListViewItem

        lst.Text = No.Text
        lst.SubItems.Add(NIK.Text)

        lst.SubItems.Add(NamaPegawai.Text)

        lst.SubItems.Add(Gol.Text)

        lst.SubItems.Add(GajiPokok.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(GajiBersih.Text)

        LV.Items.Add(lst)

    End Sub

End Class

Demikianlah postingan saya :

 Nama : Dessy Nurazizah S.

 NPM  : 14110567

Selamat belajar Pemograman VB Net 

Tentang Mesran[dot]Net

      Assalamu’alaykum wr.wrb sobat semua…
   
      Dikesempatan kali ini saya akan mengajak kalian semua untuk membahas sedikit tentang sebuah website dan blog yang banyak memberikan kita akan ilmu-ilmu tentang pemrograman. Website tersebut adalah milik salah seorang dosen yang mengajar di kampus tempat saya belajar sekarang STMIK Budidarma yang bernama Mesran. Pak Mesran ini juga adalah seorang ketua di STMIK Budidarma

      Mesran[dot]Net dan Mesran Punya Blog adalah sebuah situs web/blog yang banyak memberikan kita berbagai ilmu, salah satunya adalah ilmu tentang pemograman. Misalnya jika anda ingin mengetahui apa sajakah Tips-Tips Belajar Bahasa Pemograman segala pelatihan-pelatihan tentang Visual Basic atau juga pemograman lainnya  C/C++, Pascal. Selain itu kita juga bisa download E-Book.

      Mesran[dot]Net ini juga memudahkan bagi mahasiswa STMIK Budidarma bisa mengetahui informasi tentang IP, Skripsi, Cek Jadwal Kuliah, dan judul tugas akhir in shaa Allah sangat berguna sekali untuk mahasiswa/mahasiswi STMIK Budidarma.

      Nah, sekarang bagaimana sobat, cukup lengkap kan sobat buat menambah ilmu kita tentang pemrograman. Silahkan anda bisa melihat selengkapnya di Mesran[dot]Net dan Mesran Punya Blog. Semoga bermanfaat buat teman semuanya. :)