Cara Membuat SBU Perusahaan Sendiri Lewat OSS

Cara Membuat SBU Perusahaan Sendiri lewat OSS - zaman sekarang sebuah perusahaan konstruksi harus memiliki yang namanya dokumen-dokumen resmi yang dikeluarkan oleh lembaga-lembaga resmi negara. Pengurusan dokumen-dokumen tersebut sekarang cenderung mudah karena didukung oleh kemajuan teknologi, sehingga para pengusaha bisa membuat-memohon izin sendiri tanpa bantuan jasa-jasa yang mengurus perizinan. 

Apa itu OSS ?

OSS (Online Single Submission) adalah suatu platform resmi pemerintahan Indonesia berupa sistem perizinan berbasis teknologi informasi yang terinteraksi antara perizinan pusat dan perizinan dengan tujuan untuk mempermudah kegiatan usaha di Indonesia, sesuai Perpres nomor 91 tahun 2017 tentang percepatan pelaksanaan berusaha. 

Apa itu SBU ?

SBU (Sertifikat Badan Usaha) adalah merupakan sebuah surat resmi berupa sertifikat yang dikeluarkan oleh lembaga resmi yang ditunjuk oleh pemerintah Indonesia, lembaga tersebut seperti KADIN dan LPJK yang menandakan suatu badan usaha (perusahaan) layak dalam menjalankan usahanya. Secara sederhana dapat diartikan bahwa sertifikat badan usaha  atau disebut SBU adalah suatu tanda bahwa perusahaan atau badan usaha memiliki profesionalisme dalam usahanya. 

Apa alasan saya menulis Cara Membuat SBU Perusahaan Sendiri Lewat OSS?

Alasannya sederhana, agar para pengusaha dan pekerja dapat dan mampu mengurus sendiri sertifikat-sertifikat yang dibutuhkan oleh badan usahanya, seperti NIB (Nomor Induk Berusaha), SBU (Sertifikat Badan Usaha), SKT/SKK dan lain-lainnya.

Dan kebetulan cara untuk membuat SBU perusahaan sendiri lewat OSS berupa artikel sangat sulit saya temukan ketika saya mengurus SBU dimana saya bekerja. Terlebih dalam kurung beberapa bulan, beberapa dokumen bisa saja berubah dari bulan-bulan lalu. 

Karena alasan tersebut, saya coba untuk membuat tulisan sederhana Cara Membuat SBU Perusahaan Sendiri Lewat OSS yang dengan harapannya dapat bermanfaat bagi teman-teman yang bergerak dibidang konstruksi. 

Dalam membuat Sertifikat Badan Usaha Konstruksi tentunya perusahaan harus memiliki NIB (nomor induk berusaha), NIB tersebut dapat diperoleh dengan mendaftarkan perusahaan di OSS (silahkan daftar websitenya oss jika belum mendaftar berikut link web oss https://perizinan.oss.go.id/

Cara Sederhana membuat DHPC Server Cisco Packet Tracer

Cara Sederhana membuat DHPC Server Cisco Paket Tracer - Cara membuat dhcp server pada cisco packet tracer, Cara Sederhana membuat DHPC Server Cisco Packet Tracer merupakan tulisan setelah sekian lama tidak aktif dalam kegiatan setting menyetting atau configurasi router, baik configurasi secara real maupun pada router virtual. 

Beberapa tulisan saya pada tahun-tahun lalu bisa di lihat dibawah ini terkait beberapa hal yang dilakukan atau yang saya coba-coba pada packet tracer diantaranya adalah: 

1. Configurasi vlan pada packet tracer 
2. Memahami Vlan Router
3. Cara Sederhana membuat DHPC Server Cisco Packet Tracer

Kebanyakan tulisan saya diblog ini tentang mikrotik dan linux sebenarnya, tapi tidak-apa apa kita coba campur dengan keberadaan cisco packet tracer. 

Cara sederhana untuk configurasi atau membuat dhcp server dengan cisco paket tracer:

Perangkat-perangkat yang saya gunakan dalam percobaan membuat DHCP Server dengan cisco packet tracer adalah:

• Router 2811
• Switch 2860-24PT
• Dua Buah PC 
• Satu Buah Laptop

Skenario configurasi ini adalah agar komputer dan laptop yang ada dijaringan, atau dibawah router 2811 mendapat ip secara otomatis, tanpa harus configurasi ip secara manual (statis). DHCP sendiri dapat di artikan sebagai Dynamic Host Control Protocol, yang dapat dimaknai secara bebas sebagai sebuah service untuk memberikan/membagikan ip secara otomatis kepada komputer/perangkat client yang membutuhkan ip. 

Terkait DHPC server, ada juga tulisan saya, tentang DHCP server mikrotik dan debian diantaranya:

• Setting DHCP Server mikrotik
• Membuat DHPC Server Debian 7

Berikut langkah-langkah configurasi DHCP server pada cisco paket tracer

Pertama kali membuka CLI (Command Line Interface) cisco packet tracer tulisan seperti berikut pasti kita temukan 

Would you like to enter the initial configuration dialog? [yes/no]:  

Maka ketikkan saja huruf n yang ber arti No

Kemudian akan terlihat baris baru pada packet tracer 

Router> 

Ketikkan enable atau disingkat saja cukup mengisi tulisan en

Buat lagi perintah baru configure terminal atau singkat saja conf t seperti command dibawah ini

Router#conf t

Set hostname pada cisco paket tracer dengan mengetikkan

Router#hostname ROUTERKU

Nama routerku tersebut bebas diganti jadi apa saja. Configurasi tersebut bukan inti dari configurasi dhcp server cisco packet tracer, berikut ini configurasi inti dalam membuat dhcp server

Masuk ke interface yang akan di configurasi, langkah ini melanjutkan langkah-langkah configurasi cisco diatas. Perintah int f0/0 adalah perintah untuk memilih interface pada router yang mengarah ke switch client, sehingga di interface ini kita harus set ip address, yang sekaligus juga merupakan gateway bagi client dibawah switch. 

ROUTERKU(config)# int f0/0

Setting ip address pada interface f0/0

ROUTERKU(config-if)#ip address 192.168.0.1 255.255.255.0

Jangan lupa onkan interfacenya dengan command no shutdown atau disingkat saja no shut

ROUTERKU(config-if)#no shut 

Kemudian keluar dari interface f0/0 dengan mengetikkan exit 

ROUTERKU(config-if)#exit

Buat nama DHCP Poolnya, namanya bebas saja mau dibuat apa, saya buat NAMAPOOL

Router(config)#ip dhcp pool NAMAPOOL

Setting atau set network untuk dhcp servernya

ROUTERKU(dhcp-config)#network 192.168.0.1 255.255.255.0

Agar client dari dhcp server otomatis terset juga gatewanya maka kita set perintah untuk default-router pada terminal cisco

ROUTERKU(dhcp-config)#default-router 192.168.0.1 

Sampai disini secara sederhana membuat dhcp server cisco packet tracer sudah benar, tinggal komputer client diset interfacenya dhcp agar bisa menerima ip yang dibagi oleh dhcp server yang dibuat sebelumnya. 

Secara ringkas, perintah-perintah diatas disimpulkan sebagai berikut, untuk penggunaannya ketikkan atau ambil setelah tanda # pada command terminal dibawah

Would you like to enter the initial configuration dialog? [yes/no]: N

Router>en

Router#conf t

Router#hostname ROUTERKU

ROUTERKU(config)#int f0/0

ROUTERKU(config-if)#ip address 192.168.0.1 255.255.255.0

ROUTERKU(config-if)#no shut

ROUTERKU(config-if)#exit

ROUTERKU(config)#ip dhcp pool NAMAPOOL

ROUTERKU(dhcp-config)#network 192.168.0.1 255.255.255.0

ROUTERKU(dhcp-config)#default-router 192.168.0.1

ROUTERKU(config)#exit

Pemrograman Java : Membuat Pembaca File Baris Demi Baris Java

Pemrograman Java : Membuat Pembaca File Baris Demi Baris Java - Mohon maaf saya sedang belajar tulisan Pemrograman Java : Membuat Pembaca File Baris Demi Baris Java saya buat untuk dokumentasi saja bukan bermaksud menggurui, dan beberapa code yang ada disini saya ambil dari berbagai sumber di internet. 

mengolah file menjadi salah satu topik dan pembelajaran penting dalam mempelajari java, dan tentu sangat keren sekali jika kita bisa mengolah file menggunakan java (untuk pemula dalam pemrograman java tentunya, untuk para master tentu itu hal yang tidak berarti apa-apa ).

Pemrograman Java : Membuat Pembaca File Baris Demi Baris Java ditulis setelah belajar membaca file dengan dua cara berbeda dan sumber beda, dan masih mencoba memahami perbedaan kedua code tersebut meskipun menghasilkan output yang sama, dan sama-sama bisa membaca file txt baris demi baris. 

Penulisan codenya saya gunakan blueJ, dan pada dasarnya penulisan java menggunakan editor apapun codenya tetap sama dan tidak berbeda, jadi meski kita menggunakan IDE lain dalam membuat code java, intinya tetap sama. 

import java.io.*;

class BelajarInputStreamText

{

    // instance variables - replace the example below with your own

    public static void main(String [] args) {

        String x;

        

        try {

            FileInputStream fis = new FileInputStream("baca.txt");

            DataInputStream dis= new DataInputStream(fis);

            

            System.out.println("Isi Data Adalah");

            int i=dis.read();

            

            while(i != -1){

                System.out.print((char)i);

                i=dis.read();

            }

            dis.close();

            

            

            }catch (IOException e) {

                System.err.println("Error");

            }

    }

}

Code pembaca file baris demi baris java diatas saya pikir menggunakan pembaca character demi carackter, yang di ulang sedemikian rupa menggunakan perulangan while, dimana variable i, mengambil isi dari file yang di baca sebelumnya menggunakan class FileInputStream dan class DataInputStream java.

Code pembaca file java baris demi baris yang kedua adalah hasil coba-coba saya setelah membaca beberapa artikel. Berikut code Pemrograman Java : Membuat Pembaca File Baris Demi Baris Java. 

Dan Hasil keduanya tampilan outpunya menurut saya sama, namun pada bagian ini menggunakan class readline untuk membaca baris-demi barisnya, sementara code sebelumnya mengambil data per charakter untuk ditampilkan. 

Berikut codenya 

import java.io.*;

class BelajarInputStreamText

{

    // instance variables - replace the example below with your own

    public static void main(String [] args) {

        String x;

        

        try {

            FileInputStream fis = new FileInputStream("baca.txt");

            DataInputStream dis= new DataInputStream(fis);

            

            System.out.println("Isi Data Adalah");

            while((x=dis.readLine()) !=null){

              System.out.println(x);

            }

            dis.close();

            

            

            }catch (IOException e) {

                System.err.println("Error");

            }

    }

}

Demikian sedikit dokumentasi tentang code java agar membaca isi file txt baris demi baris dan menampilkannya di console. Untuk penjelasan baris-demi baris code ini mungkin para jagoan di pemrograman bisa menjelaskan prosesnya secara detail dan mendalam. Karena saya sendiri juga sedang mendalaminya memahaminya, bagaimana code ini bekerja.

Tentang Throws IOException

Program Bilangan Ganjil Genap Array Pascal

Program Bilangan Ganjil Genap Array Pascal - membuat program untuk memilah angka bilangan ganjil genap cukup mudah, tentunya jangan sampai lupa dasarnya, yaitu penggunaan beberapa operasi pada pemrograman pascal seperti penggunaan if, if else, for, dan yang lainnya. 

Pemrograman pascal dalam menentukan bilangan ganjil atau bilangan genap menggunakan type data array sehingga maksimum bilangan yang bisa kita input di consol pascal sebanyak maksimal 100 angka. 

Dimana untuk mendeklarasikan array tersebut dapat di lihat pada bagian code berikut: 

angka:array[1..100] of integer;

Artinya pascal diperintahkan untuk membentuk sebuah type media penyimpanan data bernama angka dengan type data array sebanyak maksimal 100.

Pada code berikutnya: 

b,i,jlhgen,jlhgan,ganjil,genap:integer;

Arti code ini kita mengeset atau memerintahkan pascal untuk membuat media penyimpanan juga berupa variable b,i, jlhgen, jlhganjil, ganjil, genap dengan type integer:

Variabel-variable tersebut digunakan untuk menyimpan banyaknya data yang diinput, kemudian jumlah angka ganjil, jumlah angka genap, angka ganjil dan genap yang dipisahkan. 

Code pascal selanjunya 

write('Masukkan Banyak data yg diinput: ');readln(b);

Fungsi code ini untuk membuat berapa kali/ berapa banyak inputan, yang inputan tersebut akan di simpan pada variable b, kemudian di olah sedemikian pada code berikut dalam bentuk perulangan:

for i:=1 to b do
  begin
  writeln('Angka ke-',i,' adalah: ',angka[i]);
  if angka[i] mod 2=0 then
    begin
      jlhgen:=jlhgen+angka[i];
      genap:=genap+1;
     
    end
   else
     begin
       jlhgan:=jlhgan+angka[i];
       ganjil:=ganjil+1;
      
     end;

Pada dasarnya inti dari pemrograman pascal menentukan bilangan ganjil genap dan jumlah atau banyaknya bilangan ganjil dan genap ada pada code ini. Yang akan di lakukan perulangan dimana i diberi nilai satu sampai ke b (banyaknya/kali angka yang diinput pada baris sebelumnya). 

Kemudian di minta inputan angka pertama dan seterusnya yang akan disimpan di array[sebanyakperulangan]; 

Angka yang di inputkan di bagi dengan 2 jika sisanya adalah nol maka angka tersebut adalah angka genap, sedangkan sebaliknya angka tersebut adalah angka ganjil. 

Pada kode berikutnya 

writeln('banyak angka genap: ',genap);
  writeln('Hasil Jumlah angka Genap: ',jlhgen);
  writeln('Hasil Jumlah angka Ganjil: ',jlhgan);
  writeln('banyak angka ganjil: ',ganjil);
  writeln('Hasil jumlah semua angka adalah: ',jlhgan+jlhgen);
  writeln('Banyak Angka yg di Input adalah: ',b);

Bagian ini tidak telalu penting sebenarnya didalam logika dan belajar pemrograman, karena beris-baris tersebut hanya berfungsi untuk mencetak atau membuat hasil keluaran dari proses code sebelumnya. Sehingga kita bisa melihat berapa banyak angka ganjil dan berapa banyak angka genap dilayar komputer.

Berikut code bilangan ganjil genap dengan pascal. 

program input_array;
uses crt;
var
angka:array[1..100] of integer;
b,i,jlhgen,jlhgan,ganjil,genap:integer;

begin
clrscr;
  write('Masukkan Banyak data yg diinput: ');readln(b);
  for i:=1 to b do
  begin
  write('Angka ke-',i,' adalah: ');readln(angka[i]);
  end;
  writeln('-------------------------------------------');
  writeln(' ');
 
  for i:=1 to b do
  begin
  writeln('Angka ke-',i,' adalah: ',angka[i]);
  if angka[i] mod 2=0 then
    begin
      jlhgen:=jlhgen+angka[i];
      genap:=genap+1;
     
    end
   else
     begin
       jlhgan:=jlhgan+angka[i];
       ganjil:=ganjil+1;
      
     end;
  end;
  writeln('banyak angka genap: ',genap);
  writeln('Hasil Jumlah angka Genap: ',jlhgen);
  writeln('Hasil Jumlah angka Ganjil: ',jlhgan);
  writeln('banyak angka ganjil: ',ganjil);
  writeln('Hasil jumlah semua angka adalah: ',jlhgan+jlhgen);
  writeln('Banyak Angka yg di Input adalah: ',b);
 
 
  readln;
end.

Program Bilangan Ganjil Genap Array Pascal - Menentukan bilangan ganjil atau bilangan genap dengan bahasa pemrograman pascal - mencari ganjil genap.

Cetak Output Pascal Berbaris Tidak Turun Kebawah

Cetak Output Pascal Berbaris Tidak Turun Kebawah - judulnya rasanya aneh ya. Tapi tak apa-apa biar unik sendiri, terkadang sebagai pemula bermain-main dengan codingan, banyak kesalahan, bahkan sampai bikin pusing terkadang kita mencari masalahnya dimana, masalah yang cukup sering saya alami salah satunya ketika membuat print out di consol pascal, cetakannya tidak turun dibawah (enter), tetapi malah berbaris ke arah kanan. 

Seperti Screenshoot gambar diatas, tulisan nama barang dan banyak barang berada sejajar, seharusnya tulisan tersebut berjejer kebawah biar terlihat rapi. 

Masalah ini sebenearnya sangat mudah mengatasinya. Coding tampilan diatas seperti terlihat pada potongan code pascal berikut ini: 

begin 

clrscr; 

write('Masukkan Nama Pelanggan : ');read(nama); 

write('Masukkan Banyak Data : ');readln(n); 

for i:=1 to n do 

begin 

 write('Nama Barang : ');read(sw[i].nabar); 

 write('Banyak Barang : ');read(sw[i].banyak); 

 write('Harga Satuan : ');read(sw[i].hasat); 

 sw[i].jlh:=sw[i].banyak * sw[i].hasat; 

 writeln(); 

end;

Untuk mengatasi permasalahan diatas, kita bisa menambah atau mengubah code read menjadi readln, 

Sehingga hasilnya telihat seperti code berikut: 

Kejadian-kejadian aneh pada pascal seperti Cetak Output Pascal Berbaris Tidak Turun Kebawah pasti banyak yang mengalaminya, atau mungkin error-error lain yang sebenarnya bisa disebabkan oleh kesalahan ketik seperti tadi. 

Untuk lengkap code swalayan tersebut diatas bisa di lihat pada code dibawah ini 

program swalayan;

uses crt;

Type Rswalayan=record

     jlh:longint;

     banyak:longint;

     nabar:string;

     hasat:longint;

     total:longint;

end;

var sw:array[1..100]of Rswalayan;

i,n:integer;

nama:string;

pembayaran, kembalian : longint;

begin

clrscr;

write('Masukkan Nama Pelanggan  : ');read(nama);

write('Masukkan Banyak Data     : ');readln(n);

for i:=1 to n do

begin

  write('Nama Barang    : ');readln(sw[i].nabar);

  write('Banyak Barang  : ');readln(sw[i].banyak);

  write('Harga Satuan   : ');readln(sw[i].hasat);

  sw[i].jlh:=sw[i].banyak * sw[i].hasat;

  writeln();

end;

clrscr();

gotoxy(10,10);write('-----------------------------------------------------------------------');

gotoxy(30,11);write('TOKO TIP TOP':20);

gotoxy(10,12);write('-----------------------------------------------------------------------');

gotoxy(10,13);write('Nama Pelanggan  : ',nama);

writeln();

gotoxy(10,14);write('No');

gotoxy(15,14);write('Nama Barang ');

gotoxy(35,14);write('Banyak Barang ');

gotoxy(52,14);write('Harga Satuan ');

gotoxy(68,14);write('Jumlah');

for i:=1 to n do

begin

gotoxy(10,15+i);write(i);

gotoxy(15,15+i);write(sw[i].nabar);

gotoxy(35,15+i);write(sw[i].banyak);

gotoxy(55,15+i);write(sw[i].hasat);

gotoxy(68,15+i);write(sw[i].jlh);

sw[i].total:=sw[i].total + sw[i].jlh;

end;

gotoxy(10,16+i);write('-----------------------------------------------------------------------');

gotoxy(10,17+i);write('Total              : ',sw[i].total);

gotoxy(10,18+i);write('Pembayaran         : ');readln(pembayaran);

gotoxy(10,19+i);write('Kembalian          : ',pembayaran-sw[i].total);

readln;

end.

Tampilan bahasa pemrograman toko dengan pascal diatas jadi seperti ini

Menggunakan Type Data Record Pada Pascal

Menggunakan Type Data Record Pada Pascal - Menggunakan type data record pada pascal untuk menampung beberapa inputan. Misalnya kita ingin menampung beberapa inputan menggunakan satu buah variable. 

Record sekilas mirip array, dan pada penggunaan berikut juga saya menggunakan array untuk melakukannya. 

Kode Menggunakan Record pascal dibawah ini sederhana, sekedar bahan saya mencoba saja, untuk penambahan variable lain selain nama silahkan di modifikasi di bagian type.

berikut kode penggunaan type data record pada pascal:

program cobaRecord;

uses crt;

type rcMhs=record

       nama : string[25];

end;

var

mhs:array[1..100] of rcMhs;

i,j:integer;

begin

clrscr;

write('Masukkan Jumlah Data : ');readln(i);

for j:=1 to i do

begin

  writeln('Data Mahasiswa Ke-',j);

  with mhs[j] do

  begin

       write('Nama : '); readln(nama);

  end;

end;

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

writeln('Nama ');

for j:=1 to i do

begin

    with mhs[j] do

    begin

       writeln(nama);

    end;

end;

readln;

end. 

Jadwal Imsyakiah Ramadhan 2022 - Jakarta Timur

Jadwal imsyakiah ramadhan 2022 wilayah jakarta timur -

Cara memperbaiki upgrade update kali linux lambat

Cara memperbaiki upgrade update kali linux lambat - Saya menginstall kalilinux di laptop menggunakan virtualbox, sekian hari kali linux yang terinstall menganggur dilaptop tanpa digunakan, akhirnya hari ini saya coba membuka dan melakukan update dan upgrade systemnya. 

Namun update dan upgrade yang dilakukan kali linux tergolong sangat lambat dan sangat lama. Bahkan speed internet dari update dan upgrade kali linux sangat kecil. 

Disisi lain saya memutar video dan lagu di youtube koneksi berjalan stabil dan kencang. Tapi update dan upgrade kali linuxnya sangat-sangat lambat dan lama, bahkan estimasi untuk ukuran file 10mb dia butuh 1 hari lebih. 

Untuk memperbaiki upgrade update ubuntu linux yang lambat ini saya melakukan perubahan pada sources.list

Bagaimana cara mengubah sources.list di kali linux?

Cara mengubah sources.list kali linux sama halnya seperti mengubah sources.list  repository ubuntu, bahkan perintah dan path filenya juga sama persis dengan ubuntu linux. 

Bagi yang tidak tahu cara mengubahnya berikut caranya. 

Pertama amankan file asli dari sources list, dengan membuat backup filenya, perintahnya:

sudo cp /etc/apt/sources.list /etc/apt/sources.list-backup

Perintah sudo harus ditambahkan apabila login sebagai user biasa, atau user kali, tapi jika login sebagai super user, sudo tidak perlu di tambahkan. Untuk login sebagai user user kali linux / ubuntu linux perintahnya sudo -i atau sudo su . 

Jika backup sudah dibuat, maka file sources.list bisa kita ubah isinya. Perintahnya buka dengan text editor nano, text editor linux paling saya sukai ya nano ini. 

sudo nano /etc/apt/sources.list

Setelah file editor terbuka dengan isi file sources.list maka isinya boleh dihapus semua, atau berikan tanda komentar berupa tanda # pada tiap baris repository kali linux yang ada disana. 

Kemudian dibaris paling bawah sisipkan kode dibawah ini jika memang baris perintahnya diberi tanda komentar, atau tambahkan code dibawah ini jika baris repository didalam sources.list dihapus semuanya. Berikut repository yang saya gunakan untuk mempercepat upgrade dan update kali linux.

deb https://mirrors.ocf.berkeley.edu/kali/ kali-rolling main non-free contrib

Sehinga terlihat seperti gambar dibawah ini, jika baris-baris repository yang ada di komentari, atau hanya baris tersebut diatas yang ada jika list repository kali linuxnya di hapus. 

Jika repository kali linux sudah diganti, simpan file dengan perintah CTRL +X dan tekan tombol Y untuk menyimpan.

Selanjutnya lakukan perintah update dan upgrade

sudo apt-get update && apt-get upgrade -y

atau dengan perintah lain 

sudo apt update && apt upgrade -y

Semoga Cara memperbaiki upgrade update kali linux lambat dapat mempercepat proses update dan upgrade kali linux yang kita miliki. 

Mencari Hasil Pemangkatan menggunakan Looping Pada Pascal

Mencari Hasil Pemangkatan menggunakan Looping Pada Pascal - membuat perulangan dalam pascal banyak caranya, demikian juga untuk mendapatkan hasil pemangkatan suatu angka banyak cara yang bisa digunakan, termasuk menggunakan  kalkulator, software excell atau trik-trik lainnya. 

Tulisan berikut merupakan dokumentasi, bagaimana mencari pangkat suatu angka menggunakan perulangan pada Mengenal pemrograman pascal. 

Pemangkatan dapat diartikan bahwa perkalian sebuah nilai sebanyak nilai pangkatnya. Untuk code pascal dalam mencari suatu pangkat menggunakan looping perulangan misalanya seperti berikut:

program menghitung_pangkat;

begin
clrscr;
	write('Masukkan angka yang akan dipangkatkan: '); readln(angka1);
	write('Masukkan pangkat bilangan: ');readln(pangkat);
	hasil:=1;
	for i:=1 to pangkat do
	begin
		hasil:=hasil*angka1;
		
	end;
	writeln('Hasil dari ',angka1,'Pangkat ',pangkat,' adalah: ',hasil);
end.

Untuk menjalankan program Cetak output pascal turun kebawah tidak berbaris ini, saya menggunakan software freepascal dan editor sublime, gratisan tentunya bukan yang crack apalagi yang beli. Semoga Mencari Hasil Pemangkatan menggunakan Looping Pada Pascal. Hasil menjalankan progam pascal mencari pangkat suatu bilangan seperti berikut:

Pascal : Mengenal Pemrograman Pascal

Pascal : Mengenal Pemrograman Pascal, pascal adalah salah satu bahasa pemrograman tertua yang pernah ada, konon nama pascal ini diambil dari seorang ahli matematika dari prancis, bernama Blaise Pascal. Nama tersebut di gunakan sebagai penghermatan atas jasanya pada dunia pengetahuan, terlebih kepada ilmu matematik dan philosofi. Pascal di buat sekitar tahun 1968 dan dipublikasikan sekitar tahun 1970, oleh pembuatnya bernama Niclaus Wirth. ''

Bahasa pemrograman pascal bahasa yang di jalankan secara prosedural, yang artinya baris demi baris program ini di eksekusi/dijalankan oleh kompiler. Bahasa ini cukup mudah untuk dipelajari, bahkan mungkin sangat mudah dibanding dengan bahasa pemrograman lainnya, meski bahasa pascal sudah sangat amat tua, namun bahasa ini menjadi bahasa pemrograman wajib di sekolah - atau di kampus-kampus.Karena memang awal mula dibuatnya pascal juga untuk tujuan membantu didunia pendidikan.

Gambar blaise_pascal sumber: https://www.britannica.com/biography/Blaise-Pascal

Bahasa pemrograman pascal bisa berjalan di banyak operating system, seperti misalnya windows, mac-os, atau bahkan bisa dijalankan di unix/linux. Pada artikel Pascal : Mengenal Pemrograman Pascal saya kan menggunakan mungkin beberapa text editor seperti bawaan dari freepascal, lazarus atau mungkin bahkan menggunakan editor sublime.

Sebelum kita memulai belajar pascal, sebaiknya kita download dahulu aplikasi atau compiler dari pascal itu sendiri, anda bisa menggunakan turbo-pascal, atau freepascal, dan pada totorial ini saya menggunakan freepascal dan editor bawaannya yang berwarna biru, sebagai pemula dalam hal pemrograman ada baiknya gunakanya saja dahulu editor bawaan dari freepascal, oh iya jika kamu tidak memiliki komputer sedang kamu ingin belajar pemrograman pascal, atau kamu mau menyelesaikan tugas sekolah pemrograman pascal tapi tidak memiliki laptop atau komputer maka kamu bisa menggunakan handphone untuk belajar pemrograman ini, kamu bisa gunakan atau download aplikasi pascal-n ide di apps google store.

Pada tutorial kali ini, saya menggunakan komputer, mungkin dikesempatan lain kita akan menggunakan handphone android. Bahasa pascal juga merupakan bahasa yang general purpose (bisa menyelesaikan banyak masalah), high level programing yang aslinya dibuat oleh Niclause Wirth awal 1970an. Seperti saya sebut sebelumnya bahwa bahasa pemrograman ini buat untuk ditujukan pada dunia pendidikan,ditujukan untuk mempelajari disiplin pemrograman secara sistematis, bisa diandalkan, dan bisa membuat program yang efesien.

Pascal menjadi populer didunia pendidikan dan kampus karena beberapa alasan: 

• Mudah dipelajari
• Bahasanya terstruktur/berurut
• effesien dan bisa diandalkan
• Bisa digunakan dibanyak operating system (seperti windows, mac-os, linux, unix dan android)

Struktur Bahasa Pascal

Sebelum kita belajar membuat blok/baris program, sebaiknya kita kenal dahulu struktur urutan baris bahasa pemrograman pascal, sehingga kita tidak salah dalam menuliskan kode program kita pada editor pascal yang kita gunakan, berikut struktur bahasa program pascal:

• Nama Program
• perintah uses;
• Deklarasi Type
• Deklarasi Konstanta
• Deklarasi Variabel
• Deklarasi Fungsi
• Deklarasi Prosedur
• Main Program (program utama diawali oleh keyword begin dan di akhiri keyword end. )
• Statement dan expresi di masing-masing blok program
• Komentar 

Untuk contoh program sederhana, penggunaaan baris struktur bahasa pascal bisa kita perhatikan potongan program berikut. 

Kode program pertama menggunakan nama program hitungbulan di akhiri tanda titik koma, perlu diingat setiap baris program pascal harus di tutup dengan tanda baca titik koma, seperti bisa di lihat didalam gambar diatas. 

Baris kedua penggunaan uses crt; arti dari baris program ini yaitu agar compiler pascal memanggil atau menggunakan library crt, fungsi library agar program bisa menapilkan, menghitung, dll. Jadi tanpa uses crt; program kita tidak akan jalan. 

Baris ketiga adalah var bil:integer; baris ini fungsinya untuk mendefenisikan variable yang digunakan, bernama bil, dan tipe data yang dia tampung adalah integer; 

Variable adalah, sebuah ruangan yang disediakan didalam memori yang digunakan untuk menyimpan data yang akan di olah. 

Baris Begin adalah awal dari tubuh program; 

Baris Clrscr; fungsinya untuk membersihkan layar yang ditampilkan sebelumnya. Dibawahnya semuanya nanti akan kita pelajari satu-persatu. 

Kemudian di baris paling akhir ada readln; fungsi baris readln agar program berhenti sejenak setelah kita jalankan, dan dia menunggu inputan daari keyboard untuk proses selanjutnya, baris ini juga wajib kita buat di akhir code program. 

Sedangkan code END. dengan tanda titik, adalah akhir dari baris program.

Pascal : Mengenal Pemrograman Pascal - semoga pengenalan pascal ini bermanfaat. Demikian saja dahulu, nanti kita lanjutin ke topik selanjutnya ya. 

Cara membuat flashdisk boot windows 10 64bit

Cara membuat flashdisk boot windows 10 64bit - Cara membuat flashdisk boot windows banyak sudah artikel kita temukan di internet, tentunya masing-masing berdasarkan pengalaman masing-masing. Seperti halnya saya, berulang kali sudah saya membuat flashdisk boot, baik booting ubuntu server, booting mfsbsd dan lain sebagainya tapi saya tidak pernah mengalami masalah ketika saya menggunakan flashdisk Tosibha. 

Berkali-kali saya coba membuat flahsdisk windows 10 64bit menggunakan rufus tapi selalu saja gagal di tengah jalan ketika aplikasi rufus melakukan copy file kedalam flashdisk, pesan yang muncul kerap kali adalah error The Specified Module Could Not Be Found . Bahkan sesudah itu kadang flashdisknya menjadi error untuk menyimpan file-file lain. Entah disebabkan apa saya juga kurang mengerti. 

Berikut gambaran configurasi flashdisk boot windows 10 64bit yang saya buat dengan rufus. Menghindari error The Specified Module Could Not Be Found ketika membuat flashdisk boot windows 10 64bit. 

Untuk membuat flshdisk sebagai media booting untuk installasi windows 10 64bit komputer kita, tentunya kita harus memiliki file iso dari windows yang akan kita install. Untuk mendapatkan file iso windows ada baiknya download langsung dari Microsoft langsung - > https://www.microsoft.com/en-us/software-download/windows10

Setelah iso tersebut didownload- download aplikasi rufus dari link berikut ini, kebetulan rufus yang saya gunakan rufus yang lebih jadul dari apa yang tersedia di web rufus tersendiri, mungkin versi rufus ini juga berpengaruh pada error yang saya sebutkan sebelumnya. 

Download rufusnya disini -> https://github.com/pbatard/rufus/releases/download/v3.2/rufus-3.2.exe

Sesudah itu sesuaikan gambaran settingan rufus anda sesuai gambar diatas, kemudian start. 
 

Cara Mengubah KBLI Perusahaan di OSS

Cara Mengubah KBLI Perusahaan di OSS - Apa itu KBLI ?

KBLI adalah singkatan dari Klasifikasi Baku Lapangan Usaha Indonesia, yang fungsinya  digunakan sebagai klasifikasi rujukan yang digunakan untuk mengklasifikasikan aktivitas/kegiatan ekonomi Indonesia ke dalam beberapa lapangan usaha/bidang usaha yang dibedakan berdasarkan jenis kegiatan ekonomi yang menghasilkan produk/output baik berupa barang maupun jasa   ( sumber: spkonline.bps.go.id).

Kemudian Kemudian

Cara Load Balancing PCC Mikrotik 3 Jalur Internet Indihome – Panduan Interaktif

Apakah Anda ingin memaksimalkan koneksi internet di rumah atau kantor dengan tiga jalur ISP? Menggunakan load balancing PCC (Per Connection Classifier) Mikrotik adalah solusi terbaik. Artikel ini menyajikan panduan interaktif, lengkap dengan diagram, tips troubleshooting, dan langkah-langkah konfigurasi untuk load balancing PCC Mikrotik 3 jalur.

Diagram ilustrasi load balancing PCC Mikrotik 3 jalur

Apa Itu Load Balancing PCC Mikrotik?

Load balancing adalah metode untuk mendistribusikan paket data ke beberapa jalur internet agar semua jalur dapat digunakan secara optimal. PCC (Per Connection Classifier) membagi koneksi berdasarkan jumlah koneksi per jalur, berbeda dengan NTH yang membagi berdasarkan paket ke-N. Tujuan utama PCC adalah memastikan setiap jalur aktif, mencegah overload, dan memaksimalkan stabilitas jaringan.

Manfaat PCC Mikrotik

• Distribusi koneksi internet merata di semua ISP.
• Optimasi bandwidth dan performa jaringan.
• Meningkatkan stabilitas koneksi untuk semua perangkat.
• Dukungan prioritas trafik, misalnya untuk gaming, streaming, atau VoIP.

Persiapan Sebelum Konfigurasi

• Router Mikrotik dengan minimal tiga interface aktif.
• IP dan gateway untuk setiap ISP sudah diketahui.
• Memahami dasar firewall, NAT, dan mangle rules di Mikrotik.

Langkah-Langkah Load Balancing PCC 3 Jalur

1. Konfigurasi Interface dan IP

Atur nama interface dan IP untuk masing-masing jalur ISP:

/interface ethernet set [ find default-name=ether1 ] name=ether1-100M
set [ find default-name=ether2 ] name=ether2-INDI-20M
set [ find default-name=ether3 ] name=ether3-INDI-50M
/ip address add address=192.168.10.4/24 interface=ether1-100M network=192.168.10.0
add address=192.168.7.4/24 interface=ether3-INDI-50M network=192.168.7.0
add address=192.168.9.4/24 interface=ether2-INDI-20M network=192.168.9.0

2. Konfigurasi DNS dan Keamanan Router

Pastikan router dapat melakukan resolve domain dan mengamankan jaringan:

/ip dns set allow-remote-requests=yes servers=1.1.1.1,1.0.0.1,8.8.8.8
/interface wireless security-profiles set [ find default=yes ] supplicant-identity=MikroTik

3. Firewall dan Mangle Rules

Gunakan mangle untuk menandai koneksi dan paket agar jalur tertentu dapat diprioritaskan:

/ip firewall filter
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=27000-28998 in-interface=ether5 protocol=tcp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=27000-28998 in-interface=ether5 protocol=udp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward comment=ML connection-rate=0-256k dst-port=30097-30147,5000-5508,5551-5558,5601-5608,5651-5658 in-interface=ether5 protocol=tcp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=5000-5508,5551-5558,5601-5608,5651-5658 in-interface=ether5 protocol=udp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward comment=PUBG connection-rate=0-256k dst-port=10001-10010,21750 in-interface=ether5 protocol=tcp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=10491,10010,10013,10612,20002,20001,20000,12235,13748,7086-7995 in-interface=ether5 protocol=udp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=12070-12460,41182-41192,13972,13894,11455,10096,10039 in-interface=ether5 protocol=udp

4. NAT dan Routing

Aktifkan NAT masquerade dan buat routing rules sesuai mark koneksi:

/ip firewall nat add action=masquerade chain=srcnat out-interface=ether1-100M
add action=masquerade chain=srcnat out-interface=ether3-INDI-50M
add action=masquerade chain=srcnat out-interface=ether2-INDI-20M

/ip route add check-gateway=ping distance=1 gateway=192.168.7.1 routing-mark=game
add check-gateway=ping distance=1 gateway=192.168.9.1 routing-mark=4
add check-gateway=ping distance=1 gateway=192.168.10.1 routing-mark=3

5. Monitoring dan Optimasi

Setelah konfigurasi:

• Cek status jalur melalui IP → Routes.
• Gunakan Torch atau Traffic Monitor untuk melihat distribusi paket.
• Sesuaikan mangle rules jika ada jalur yang kurang optimal.

Tips Troubleshooting

• Jalur tidak terbagi merata: Pastikan per-connection-classifier di mangle sudah benar.
• Ping gagal ke gateway: Periksa koneksi fisik dan IP interface masing-masing ISP.
• Trafik tertentu lambat: Gunakan connection-mark untuk memprioritaskan trafik penting.

Kesimpulan

Dengan load balancing PCC Mikrotik 3 jalur, Anda dapat memanfaatkan semua ISP secara maksimal, meningkatkan stabilitas, dan performa jaringan. Metode ini cocok untuk rumah, kantor kecil, atau warnet yang membutuhkan koneksi internet cepat dan stabil.

Referensi dan Bacaan Tambahan

• MikroTik Wiki – Load Balancing
• NetworkLessons – PCC Load Balancing
• Dokumentasi Resmi MikroTik

ini code lengkapnya

# ================================
# 1. Konfigurasi Interface
# ================================
/interface ethernet
set [ find default-name=ether1 ] name=ether1-100M
set [ find default-name=ether2 ] name=ether2-INDI-20M
set [ find default-name=ether3 ] name=ether3-INDI-50M

# ================================
# 2. Wireless Security Profile
# ================================
/interface wireless security-profiles
set [ find default=yes ] supplicant-identity=MikroTik

# ================================
# 3. User Group Permissions
# ================================
/user group
set read policy=local,telnet,ssh,ftp,reboot,read,write,policy,test,winbox,password,web,sniff,sensitive,api,romon,dude,tikapp
set write policy=local,telnet,ssh,ftp,reboot,read,write,policy,test,winbox,password,web,sniff,sensitive,api,romon,dude,tikapp

# ================================
# 4. Konfigurasi IP Address
# ================================
/ip address
add address=192.168.10.4/24 interface=ether1-100M network=192.168.10.0
add address=192.168.80.1/24 interface=ether5 network=192.168.80.0
add address=192.168.7.4/24 interface=ether3-INDI-50M network=192.168.7.0
add address=192.168.9.4/24 interface=ether2-INDI-20M network=192.168.9.0

# ================================
# 5. DNS Configuration
# ================================
/ip dns
set allow-remote-requests=yes servers=1.1.1.1,1.0.0.1,8.8.8.8

# ================================
# 6. Firewall Filter Rules (IPGAME)
# ================================
/ip firewall filter
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=27000-28998 in-interface=ether5 protocol=tcp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=27000-28998 in-interface=ether5 protocol=udp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward comment=ML connection-rate=0-256k dst-port=30097-30147,5000-5508,5551-5558,5601-5608,5651-5658 in-interface=ether5 protocol=tcp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=5000-5508,5551-5558,5601-5608,5651-5658 in-interface=ether5 protocol=udp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward comment=PUBG connection-rate=0-256k dst-port=10001-10010,21750 in-interface=ether5 protocol=tcp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=10491,10010,10013,10612,20002,20001,20000,12235,13748,7086-7995 in-interface=ether5 protocol=udp
add action=add-dst-to-address-list address-list=IPGAME address-list-timeout=1h chain=forward connection-rate=0-256k dst-port=12070-12460,41182-41192,13972,13894,11455,10096,10039 in-interface=ether5 protocol=udp

# ================================
# 7. Firewall Mangle Rules
# ================================
/ip firewall mangle
# Mark Routing untuk IPGAME
add action=mark-routing chain=prerouting connection-rate=0-512k dst-address-list=IPGAME in-interface=ether5 new-routing-mark=game passthrough=no

# Mark Connection untuk tiap ISP
add action=mark-connection chain=prerouting connection-mark=no-mark dst-address-list=!IPGAME in-interface=ether2-INDI-20M new-connection-mark=indicn1 passthrough=yes
add action=mark-packet chain=output connection-mark=indicn1 new-packet-mark=1 passthrough=no

add action=mark-connection chain=prerouting connection-mark=no-mark dst-address-list=!IPGAME in-interface=ether3-INDI-50M new-connection-mark=indicn2 passthrough=yes
add action=mark-packet chain=output connection-mark=indicn2 new-packet-mark=2 passthrough=no

add action=mark-connection chain=prerouting connection-mark=no-mark dst-address-list=!IPGAME in-interface=ether1-100M new-connection-mark=iconcn3 passthrough=yes
add action=mark-packet chain=output connection-mark=iconcn3 new-packet-mark=3 passthrough=no

# Mark Connection berdasarkan per-connection-classifier (PCC)
add action=mark-connection chain=prerouting dst-port=80,8080 in-interface=ether5 new-connection-mark=indicn100-1 passthrough=yes per-connection-classifier=src-address-and-port:4/3 protocol=tcp src-address=192.168.80.0/24
add action=mark-routing chain=prerouting connection-mark=indicn100-1 in-interface=ether5 new-routing-mark=1 passthrough=no

# Tambahkan rule PCC lainnya sesuai konfigurasi awal...
# (Anda bisa melanjutkan untuk indicn50-1, indicn100-2, indicn502-1 seperti kode lama, tetap format seperti ini)

# ================================
# 8. NAT Masquerade
# ================================
/ip firewall nat
add action=masquerade chain=srcnat out-interface=ether1-100M
add action=masquerade chain=srcnat out-interface=ether3-INDI-50M
add action=masquerade chain=srcnat out-interface=ether2-INDI-20M

# ================================
# 9. Routing
# ================================
/ip route
add check-gateway=ping distance=1 gateway=192.168.7.1 routing-mark=game
add check-gateway=ping distance=1 gateway=192.168.9.1 routing-mark=4
add check-gateway=ping distance=1 gateway=192.168.10.1 routing-mark=3
add check-gateway=ping distance=1 gateway=192.168.7.1 routing-mark=2
add check-gateway=ping distance=1 gateway=192.168.10.1 routing-mark=1
add check-gateway=ping distance=1 gateway=192.168.10.1
add check-gateway=ping distance=2 gateway=192.168.7.1
add check-gateway=ping distance=3 gateway=192.168.9.1