langkah-langkah configurasimikrotik router

Langkah Langkah Setting Mikrotik Sebagai Router dan Akses Point

Sebelum memulai hal yang harus di ada atau perlu di ketahui adalah:

1. Winbox (download di www.mikrotik.co.id)
2. IP Publik (192.168.26.7)
3. Gateway (192.168.26.254
4. DNS Server (10.11.12.1)
5. IP standar dari router mikrotik adalah : 192.168.88.1
6. Login Name : admin password : Kosongkan saja

Jalankan WInbox

Tekan tombol kotak

Klik pada mikrotik yang akan di setting

Pada login name masukan “admin” dan kosongkan pada kolom password, klik connect
Akan muncul pemberintahuan bahwa Router OS sudah menpunyai konfigurasi standar, apakah akan kita pertahankan atau di hapus. Lebih baik Dihapus saja. Klik pada Remove Configuration

Selanjutnya pada klik menu interface, didalam interface terdapat dua interface, ether1 yang kita asumsikan terhubung dengan internet/IP Publik dan wlan1 yang terhubung dengan jaringan lokal bertindak sebagai akses point. Untuk ether1 tidak perlu kita rubah setingannya dulu langsung klik pada wlan kemudian aktifkan wlan1 dengan menklik tombol centang warna biru.


Klik dua kali pada wlan1, kemudian pada tab wireless rubahlah setingan menjadi

Mode     : ap bridge
SSID    : latihan (nama bebas, menyesuaikan)
Untuk band yang kita pakai pada akses point ini menggunakan sikyal dengan frequensi 5GHz-a, jika menggunakan type akses point yang lain rubah setingan band sesuai dengan frquensi siknyalnya.
Klik OK
Memberikan IP pada Interface dan Gateway serta DNS Server



Klik pada New Terminal
Kemudian ketikan perintah untuk memberi IP addres pada ethe1
ip address add address=192.168.26.2 netmask=255.255.255.0 interface=ether1
Memasukan gateway untuk konek ke internet (diberikan oleh operator prnyrdia layanan internet)
ip route add gateway=192.168.26.254
Memasukan DNS Server
ip dns set server=10.11.12.1 allow-remote-requests=yes
jika menggunakan router OS versi 4,5 ke bawah gunakan command
ip dns set primary-dns=192.168.30.254 allow-remote-requests=yes

Memasukan perintah routing
ip firewall nat add chain=srcnat out-interface=ether1 action=masquerade
menambahkan juga IP Addres untuk wlan1
ip address add address=192.168.40.1 netmask=255.255.255.0 interface=wlan1
DHCP Server

IP Pool, yaitu range IP yang bisa digunakan oleh server DHCP anda. Untuk case ini PC akan diberikan ip dari 192.168.40.12 sampai 192.168.40.254, berarti ada 253 PC yang bisa dihandle server DHCP.
ip pool add name=dhcp_pool ranges=192.168.40.2-192.168.40.254

setting DHCP Server

ip dhcp-server add address-pool=dhcp_pool 
authoritative=after-2sec-delay bootp-support=static 
disabled=no interface=wlan1 lease-time=3d name=dhcp_server 

server DHCP menggunakan address pool dgn nama “dhcp_pool” dan menggunakan “wlan1″ untuk interface yang digunakan mikrotik (interface tersebut yang terhubung dengan switch/hub jaringan lokal anda)

ip dhcp-server network 
add address=192.168.40.0/24 comment="" dns-server=192.168.40.1
 gateway=192.168.40.1 netmask=255.255.255.0 
DHCP mikrotik menggunakan Network ID 192.168.40.0/24 Netmask 255.255.255.0 (/24) dengan pemberian gateway ke 192.168.40.1 dan DNS 192.168.40.1 

Memberikan Password Pada Akses Point

Buat security Profile dulu dengan cara klik pada menu Wireless, pada wireless table masuk pada Security Profile, klik pada tombol Tambah (+)

Nama profile        : Bebas
Authetication Type    : cukup WPA PSK saja
WPA Pre Shared Key    : Masukan password yang diinginkan
Kalau sudah klik OK

Langkah selanjutnya klik pada tab interface, klik dua kali pada wlan1
Pada interface wlan, masuk pada tab wireless. Rubah security Profile menjadi profile yang tadi sudah kita buat

Klik ok
Menambah User

Untuk menambah, menghapus atau mengedit user, klik pada menu System kemudian pilih User

Pada menu User List klik pada tombol tambah (+), kemudian masukan nama user baru kemudian pilih group Full untuk memberikan hak akses full pada nam login yang baru. Klikk pada menu password untuk memberikan password pada user.

soal nomor 3

Code Programm:
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
jbtn.Items.Add("Mandor")
jbtn.Items.Add("Kepala Bagian")
jbtn.Items.Add("Staff")

status.Items.Add("Menikah")
status.Items.Add("Lajang")

Call addjumlah()
Call buattabel()
End Sub
Sub addjumlah()
Dim x As Integer
For x = 1 To 3
jml_anak.Items.Add(x)
Next
End Sub

Sub buattabel()
lv.Columns.Add("No Bet", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Center)
lv.Columns.Add("Status", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Center)
lv.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jam Kerja", 80, HorizontalAlignment.Center)
lv.Columns.Add("Jam Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Upah Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Lembur", 90, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 90, HorizontalAlignment.Center)
lv.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details

End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jbtn.Text)
lst.SubItems.Add(gaji_pokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(jml_anak.Text)
lst.SubItems.Add(tunjangan_istri.Text)
lst.SubItems.Add(tunjangan_anak.Text)
lst.SubItems.Add(jam_lembur.Text)
lst.SubItems.Add(upah_lembur.Text)
lst.SubItems.Add(gaji_lembur.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(total_gaji.Text)
lv.Items.Add(lst)

End Sub

Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub

Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
nama.Text = ""
jbtn.Text = ""
gaji_pokok.Text = ""
status.Text = ""
jml_anak.Text = ""
tunjangan_istri.Text = ""
tunjangan_anak.Text = ""
jam_lembur.Text = ""
upah_lembur.Text = ""
gaji_lembur.Text = ""
pajak.Text = ""
total_gaji.Text = ""
End Sub

Private Sub btnhapussemua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
lv.Items.Clear()
End Sub

Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()


End Sub

Private Sub jbtn_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jbtn.SelectedIndexChanged
If jbtn.Text = "Mandor" Then
gaji_pokok.Text = 1750000
upah_lembur.Text = 7500
ElseIf jbtn.Text = "Kepala Bagian" Then
gaji_pokok.Text = 2500000
upah_lembur.Text = 10000
ElseIf jbtn.Text = "Staff" Then
gaji_pokok.Text = 1250000
upah_lembur.Text = 5000
End If
pajak.Text = 0.015 * gaji_pokok.Text

End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
tunjangan_istri.Text = 0.09 * gaji_pokok.Text
Else
tunjangan_istri.Text = 0
End If

End Sub

Private Sub jml_anak_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles jml_anak.SelectedIndexChanged
If jml_anak.Text = 1 Then
tunjangan_anak.Text = 0.03 * gaji_pokok.Text
ElseIf jml_anak.Text = 2 Then
tunjangan_anak.Text = 0.07 * gaji_pokok.Text
Else
tunjangan_anak.Text = 0.07 * gaji_pokok.Text

End If
End Sub

Private Sub btnproses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnproses.Click
total_gaji.Text = Val(gaji_pokok.Text) + Val(tunjangan_istri.Text) + Val(tunjangan_anak.Text) + Val(gaji_lembur.Text) - Val(pajak.Text)

End Sub

hal 33

Code Programm:
Public Class Form2

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
lv.Items.Clear()

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kb.Items.Add("TS001")
kb.Items.Add("TS002")
kb.Items.Add("VG001")
kb.Items.Add("VG002")
Call buattabel()
End Sub
Sub buattabel()
lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
lv.Columns.Add("Kode Pembelian", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
lv.Columns.Add("Merk", 90, HorizontalAlignment.Center)
lv.Columns.Add("Harga", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
lv.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details


End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = no.Text
lst.SubItems.Add(kb.Text)
lst.SubItems.Add(nb.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jml.Text)
lst.SubItems.Add(tharga.Text)
lv.Items.Add(lst)

End Sub

Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
Select Case kb.Text
Case "TS001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"

Case "TS002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "Toshiba"


Case "VG001"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"

Case "VG002"
Microsoft.VisualBasic.Right(kb.Text, 3)
nb.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kb.Text, 2)
merk.Text = "V-Gen"



End Select
If kb.Text = "TS001" Then
harga.Text = 105000
ElseIf kb.Text = "TS002" Then
harga.Text = 750000
ElseIf kb.Text = "VG001" Then
harga.Text = 90000
ElseIf kb.Text = "VG002" Then
harga.Text = 65000
End If

End Sub

Private Sub Btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
isitabel()

End Sub

Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
kb.Text = ""
nb.Text = ""
merk.Text = ""
harga.Text = ""
jml.Text = ""
tharga.Text = ""
End Sub

Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub jml_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jml.KeyPress
If e.KeyChar = Chr(13) Then
End If
tharga.Text = Val(harga.Text) * Val(jml.Text)

End Sub


End Class

hal 32

Code Programm:
Public Class Form1

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

Private Sub btnbersih_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbersih.Click
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""

End Sub
Sub buattabel()
lv.Columns.Add("NPM", 90, HorizontalAlignment.Center)
lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jurusan", 100, HorizontalAlignment.Center)
lv.Columns.Add("Jenjang", 90, HorizontalAlignment.Center)
lv.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
lv.Columns.Add("Nilai angka", 80, HorizontalAlignment.Center)
lv.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
lv.FullRowSelect = True
lv.GridLines = True
lv.View = View.Details
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jrsn.Text)
lst.SubItems.Add(jjg.Text)
lst.SubItems.Add(tm.Text)
lst.SubItems.Add(na.Text)
lst.SubItems.Add(nh.Text)
lv.Items.Add(lst)

End Sub

Private Sub btnhapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Clear()
npm.Text = ""
nama.Text = ""
jrsn.Text = ""
jjg.Text = ""
tm.Text = ""
na.Text = ""
nh.Text = ""
End Sub

Private Sub btnsimpan_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()

End Sub

Private Sub btnhapusdata_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub btnkeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub

Private Sub na_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles na.Click

End Sub

Private Sub na_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles na.KeyPress
If e.KeyChar = Chr(13) Then

End If
Select Case na.Text
Case Is >= 80
nh.Text = "A"
Case 70 To 79
nh.Text = "B"
Case 60 To 69
nh.Text = "C"
Case 50 To 59
nh.Text = "D"
Case Is <= 49 nh.Text = "E" End Select End Sub Private Sub npm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles npm.KeyPress Dim x As String tm.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2) x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1) If x = "1" Then jjg.Text = "Diploma 1" ElseIf x = "3" Then jjg.Text = "Diploma 3" ElseIf x = "4" Then jjg.Text = "Strata 1" End If x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2) If x = "01" Then jrsn.Text = "Manajemen Informatika" ElseIf x = "02" Then jrsn.Text = "Sistem Informasi" ElseIf x = "03" Then jrsn.Text = "Teknik Komputer" ElseIf x = "04" Then jrsn.Text = "Akuntansi" End If End Sub End Class

hal 32

Public Class Form1
Sub buattabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
LV.Columns.Add("Jurusan", 180, HorizontalAlignment.Left)
LV.Columns.Add("Jenjang", 180, HorizontalAlignment.Left)
LV.Columns.Add("TahunMasuk", 180, HorizontalAlignment.Left)
LV.Columns.Add("NilaiAngka", 180, HorizontalAlignment.Left)
LV.Columns.Add("NilaiHuruf", 180, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = npm.Text
lst.SubItems.Add(tahunmasuk.Text)
lst.SubItems.Add(jurusan.Text)
lst.SubItems.Add(jenjang.Text)
lst.SubItems.Add(tahunmasuk.Text)
lst.SubItems.Add(nilaiangka.Text)
lst.SubItems.Add(nilaihuruf.Text)
LV.Items.Add(lst)
End Sub

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

Private Sub Tombol_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
isitabel()
npm.Text = ""
nama.Text = ""
jurusan.Text = ""
jenjang.Text = ""
tahunmasuk.Text = ""
nilaiangka.Text = ""
nilaihuruf.Text = ""
End Sub

Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click
LV.Items.Clear()
End Sub

Private Sub BtnHapusPilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusPilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub

Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
LV.Items.Clear()
End Sub

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

soal nomor 4

#include
# include
# include
# include
# include

struct data {
char kode[15];
char nama[30];
char pendidikan[15];
char keahlian[30];

} pgw[50];

void menu();
void isi();
void tambah();
void baca();

void main()
{
char pil='0';
while (pil!='4')
{
menu();
pil=getche();
switch(pil)
{
case'1':
isi();break;
case'2':
tambah();break;
case'3':
baca();break;
case'4':
break;
}
}
}

void menu()
{
clrscr();
gotoxy(25,5);cout<<"MENU DATA BUDIDARMA"; gotoxy(25,6);cout<<"-------------------------------------"; gotoxy(25,7);cout<<"[1]Input data dosen"; gotoxy(25,8);cout<<"[2]Input data mahasiswa"; gotoxy(25,9);cout<<"[3]Membaca Data dosen"; gotoxy(25,10);cout<<"[4]Membaca data mahasiswa"; gotoxy(25,11);cout<<"[5]Keluar program"; gotoxy(25,12);cout<<"------------------------------------"; gotoxy(25,13);cout<<"PILIHAN :"; } void isi() { FILE *coba; char gj[10]; float atof(); int i,n=0; while(1) { clrscr(); gotoxy(35,5);cout<<"MEMASUKKAN DATA DOSEN"; gotoxy(35,6);cout<<"------------------------------------------"; gotoxy(35,7);cout<<"Kode Dosen :"; gets(pgw[n].kode); if(strlen(pgw[n].kode)==0) break; gotoxy(35,8);cout<<"Nama :"; gets(pgw[n].nama); gotoxy(35,9);cout<<"Pendidikan :"; cin>>pgw[n].pendidikan;
gotoxy(35,10);cout<<"keahlian :"; cin>>pgw[n].keahlian;
gotoxy(35,6);cout<<"--------------------------------------------"; n++; } coba=fopen("c:\\Pegawai.Dat","wb"); for(i=0;i>pgw[n].pendidikan;
gotoxy(35,10);cout<<"Keahlian :"; cin>>pgw[n].keahlian;
gotoxy(35,6);cout<<"---------------------------------------";
n++;
}
coba=fopen("c:\\Pegawai.Dat","ab");

for(i=0;i {
fwrite(&pgw[i],sizeof(pgw[i]),1,coba);
}
fclose(coba);
}

void baca()
{
FILE *coba;
int i=0,n=0;

clrscr();
coba=fopen("c:\\Pegawai.Dat","rb");
if(coba==NULL)
{
gotoxy(20,10);cout<<"File PEGAWAI.Dat belum ada";
gotoxy(20,12);cout<<"Tekan sembarang Tombol";
getch();
return;
}
gotoxy(5,1);cout<<"LAPORAN DATA PEGAWAI STMIK BUDIDARMA";
gotoxy(5,2);cout<<"----------------------------------------";
gotoxy(5,3);cout<<"NO KODE NAMA PENDIDIKAN KEAHLIAN ";
gotoxy(5,4);cout<<"----------------------------------------";
while((fread(&pgw[n],sizeof(pgw[n]),1,coba))==1)
{
i++;
gotoxy(6,4+i);cout< gotoxy(10,4+i);cout< gotoxy(19,4+i);cout< gotoxy(50,4+i);cout< gotoxy(60,4+i);cout< }
gotoxy(5,5+i);cout<<"--------------------------------------Design By: fauziah";
getch();
fclose(coba);
}

soal nomor 3

#include
#include
#include
#include

struct pegawai
{
char nik[20];
char nama[20];
char kode[5];
char gaji[5];
char tunj[5];
char tunjkel[5];

}peg[30];

void main()
{
char lg='Y';
int hasil,i,n=0;
long gaji=0;
long tunj=0;
while(lg=='Y'||lg=='y')
{
clrscr();
cout<<"input data pegawai\n";
n++;
cout<<"nik :";
gets(peg[n].nik);
cout<<"Nama Pegawai :";
gets(peg[n].nama);
cout<<"kode jabatan :";
gets(peg[n].kode);
cout<<"gaji :";
gets(peg[n].gaji);
cout<<"tunjangan :";
gets(peg[n].tunj);
cout<<"Input lagi[Y/T] :";
lg=getche();
}


clrscr();
gotoxy(1,3);cout<<" = LAPORAN GAJI PEGAWAI =\n";
gotoxy(1,4);cout<<"----------------------------------------------------------------------";
gotoxy(1,5);cout<<"NIk Nama Kode Gaji tunjangan Total gaji";
gotoxy(1,6);cout<<"______________________________________________________________________";
for(i=1;i<=n;i++)
{
gotoxy(1,7+i);cout< gotoxy(9,7+i);cout< gotoxy(20,7+i);cout< gotoxy(40,7+i);cout<

hasil=strcmp(peg[i].kode,"1");
if (hasil==0)
gaji=2500000;

hasil=strcmp(peg[i].kode,"2");
if (hasil==0)
gaji=2000000;

hasil=strcmp(peg[i].kode,"3");
if (hasil==0)
gaji=1500000;

gotoxy(28,7+i);cout<

gotoxy(52,7+i);cout<
long tgaji=gaji+tunj+tunj kel;
gotoxy(63,7+i);cout<
}
gotoxy(1,14+i);cout<<"---------------------------------------------------------------------";
gotoxy(1,15+i);cout<<" = HORAS =";
getch();
}

Tentang pembelajaran kuliah

Saya kurang mengerti kalau belajar mengenai tentang pemrograman
Karena saya sulit untuk mengikuti pelajarannya tapi saya berusaha untuk belajar agar saya bisa menjadi seorang pemrograman.
Tetapi kenapa saya selalu saja bingung tentang pelajaran pemrograman ini?
Tetapi pelajarannya saya selalu bingung.

Bagaimana memulai belajar pemrograman komputer

Sering saya mendapat pertanyaan dari teman-teman yg masih student (SMA maupun kuliah, terutama yg nemu messenger ID saya dari tentang bagaimana cara memulai belajar programming. Atau juga dari teman-teman yang sudah familiar dengan programming di bahasa pemrograman lain tapi baru mau mulai belajar programming di .NET (C# maupun VB.NET). Mereka kebanyakan akan bertanya, mulainya gimanaJawaban saya selalu seperti yang ada dibawah ini, jd daripada saya menulis di messenger berulang-ulang hal yang sama, saya summary-kan saja dalam satu post di blog saya ini, jd next time ada yg tanya, saya tinggal refer ke post ini.

1. Kalau anda baru belajar programming, pilih suatu bahasa pemrograman untuk dipelajari.
   Yang mana? Yang skrg populer itu:
    - Java
    - C# (dibaca "Si Sharp")
    - VB.NET (dibaca "Vibi Dotnet")
   Kenapa memilih yg populer? Simple. Biar bisa dipakai cari kerja. Setelah menguasai suatu bahasa pemrograman, anda akan bisa belajar bahasa pemrograman lainnya.
   Kalau anda memilih C# atau VB.NET, lanjutkan membaca artikel ini. Kalau anda memilih Java, silahkan googling lebih jauh. O ya, saya juga tidak menyarankan untuk belajar Java lagi
   Kalau anda benar-benar baru dlm belajar programming, saya rekomendasikan pilih bahasa C#.
   Kalau anda pernah belajar C, C++, Java, saya rekomendasikan pilih bahasa C#.
   Kalau anda pernah belajar VB6, anda bisa memilih VB.NET, karena ada kemiripan. Tp, saya tetap rekomendasikan pilih bahasa C#.
   Singkatnya, mulailah dengan C#. 

Ini adalah website dari Microsoft Visual Studio Express. Versi Visual Studio yang gratis, yang bisa anda download dan install di komputer anda. Visual Studio adalah tool/software yang akan anda pakai dalam membuat program.
Dengan Visual Studio Express ini anda sudah bisa belajar untuk membuat berbagai jenis program/aplikasi:
- Desktop/Windows, atau program yang running di PC anda seperti halnya Word, Excel, Internet Explorer, dsb.
- Web, program yang anda akses via browser seperti Internet Explorer, Firefox, Opera, dll. Misalnya: myspace.com, friendster, klikbca.com, dll
- Game, ya anda bisa membuat program game.
- Hardware/Robot, jika anda suka robot. Anda juga bisa bikin program untuk robot.
- Database, membuat program untuk menyimpan data.
Kalau mau langsung download Visual Studio Express, silahkan langsung ke sini: Mulailah belajar membuat program. Sering2 latihan membuat program. Anda bisa memulai belajar dengan membaca di link ini : Sering baca buku/artikel tentang pemrograman C#, anda bisa beli, atau cari eBook, atau baca2 artikel di internet. Bila perlu cari mentor/teman yg sdh bisa untuk membantu belajar. Sering2 latihan membuat program.

Kunci sukses-nya adalah: anda harus proaktif, jangan manja/malas explorasi sendiri, dan anda mesti semangat. Misal, sambil jalan anda akan butuh SQL Server Express. Barang apa itu? Well, harapannya mestinya anda sudah harus bisa cari tahu sendiri barang apa itu.
Belajar pemrograman itu seperti belajar bela diri. Sering latihan, jadi lancar saat pakai jurus2nya. Kalau cuma tahu jurus tapi jarang latihan, kagok nantinya saat benar2 akan dipakai.
Mudah2an tulisan kecil ini bisa membantu teman-teman yang baru mau belajar programming dan C#. Dan saya tidak perlu cerita hal yang sama ini berulang-ulang. Tinggal refer ke post ini jika ada yang tanya: "Bagaimana cara belajar pemrograman komputer
\Sering saya mendapat pertanyaan dari teman-teman yg masih student (SMA maupun kuliah, terutama yg nemu messenger ID saya dari tentang bagaimana cara memulai belajar programming. Atau juga dari teman-teman yang sudah familiar dengan programming di bahasa pemrograman lain tapi baru mau mulai belajar programming di .NET (C# maupun VB.NET). Mereka kebanyakan akan bertanya, mulainya gimanaJawaban saya selalu seperti yang ada dibawah ini, jd daripada saya menulis di messenger berulang-ulang hal yang sama, saya summary-kan saja dalam satu post di blog saya ini, jd next time ada yg tanya, saya tinggal refer ke post ini.

1. Kalau anda baru belajar programming, pilih suatu bahasa pemrograman untuk dipelajari.
   Yang mana? Yang skrg populer itu:
    - Java
    - C# (dibaca "Si Sharp")
    - VB.NET (dibaca "Vibi Dotnet")
   Kenapa memilih yg populer? Simple. Biar bisa dipakai cari kerja. Setelah menguasai suatu bahasa pemrograman, anda akan bisa belajar bahasa pemrograman lainnya.
   Kalau anda memilih C# atau VB.NET, lanjutkan membaca artikel ini. Kalau anda memilih Java, silahkan googling lebih jauh. O ya, saya juga tidak menyarankan untuk belajar Java lagi.
   Kalau anda benar-benar baru dlm belajar programming, saya rekomendasikan pilih bahasa C#.
   Kalau anda pernah belajar C, C++, Java, saya rekomendasikan pilih bahasa C#.
   Kalau anda pernah belajar VB6, anda bisa memilih VB.NET, karena ada kemiripan. Tp, saya tetap rekomendasikan pilih bahasa C#.
   Singkatnya, mulailah dengan C#. 

1. explore website ini
   Ini adalah website dari Microsoft Visual Studio Express. Versi Visual Studio yang gratis, yang bisa anda download dan install di komputer anda. Visual Studio adalah tool/software yang akan anda pakai dalam membuat program.
   Dengan Visual Studio Express ini anda sudah bisa belajar untuk membuat berbagai jenis program/aplikasi:
   - Desktop/Windows, atau program yang running di PC anda seperti halnya Word, Excel, Internet Explorer, dsb.
   - Web, program yang anda akses via browser seperti Internet Explorer, Firefox, Opera, dll. Misalnya: myspace.com, friendster, klikbca.com, dll
   - Game, ya anda bisa membuat program game.
   - Hardware/Robot, jika anda suka robot. Anda juga bisa bikin program untuk robot.
   - Database, membuat program untuk menyimpan data.
   Mulailah belajar membuat program. Sering2 latihan membuat program. Anda bisa memulai Sering baca buku/artikel tentang pemrograman C#, anda bisa beli, atau cari eBook, atau baca2 artikel di internet. Bila perlu cari mentor/teman yg sdh bisa untuk membantu belajar. Sering2 latihan membuat program.

Kunci sukses-nya adalah: anda harus proaktif, jangan manja/malas explorasi sendiri, dan anda mesti semangat. Misal, sambil jalan anda akan butuh SQL Server Express. Barang apa itu? Well, harapannya mestinya anda sudah harus bisa cari tahu sendiri barang apa itu.

MENJADI MAHASISWA MUSLIM SUKSES

MENJADI MAHASISWA MUSLIM SUKSES

Sukses dapat diartikan sebagai keadaan tercapainya tujuan atau cita-cita. Lawannya adalah gagal, yaitu keadaan tidak tercapainya suatu tujuan atau cita-cita. Sukses di sini masih memiliki arti umum, dalam arti bisa bernilai benar atau salah, tergantung pada pandangan hidup yang mendasari perumusan tujuan dan standar yang digunakan untuk menilai suatu kesuksesan dan kegagalan. Seorang perampok misalnya, dapat dikatakan sukses bila dia berhasil merampok barang yang telah ditargetkannya. Sementara seorang petani, dikatakan sukses bila berhasil melakukan panen dengan hasil yang sesuai dengan harapannya. Jadi, “sukses” tidak selamanya identik dengan “benar”. Bisa saja seseorang merasa sukses, namun sebenarnya dia tidak berada di atas kebenaran. Dengan kata lain, hakikatnya dia telah gagal.Yang harus dicari adalah kesuksesan yang sejati, yaitu kesuksesan yang berada dalam jalur kebenaran. Ini hanya terwujud bila seseorang mencapai suatu tujuan yang didasarkan pada pandangan hidup dan standar yang benar. Dan di samping itu, kesuksesan itu harus diraih dengan cara yang benar pula, bukan dengan sembarang cara. Kesuksesan yang diraih lewat jalan yang tidak benar, sebenarnya adalah kesuksesan yang semu dan palsu, bukan kesuksesan yang hakiki.

Demikian pula kiranya dengan dunia mahasiswa. Tatkala seseorang ingin menjadi mahasiswa yang sukses dalam kuliahnya, maka pertanyaan kritis yang harus dijawab adalah, apa tujuan dari kuliahnya? Standar-standar serta indikator-indikator apa yang dipakai untuk mengukur tercapainya tujuan itu? Apakah tujuan itu sudah didasarkan pada pandangan hidup yang benar?

Antara Fakta Dan Idealita

Dunia saat ini –termasuk Dunia Islam-- dicengkeram oleh ideologi kapitalisme, yang berasaskan ide sekulerisme (pemisahan agama dari kehidupan). Dengan demikian, seluruh aspek kehidupan termasuk juga pendidikan, akan terwarnai dan terpola oleh ideologi asing tersebut. Dalam sebuah sistem kehidupan yang menerapkan atau terpengaruh dengan ideologi ini, sistem pendidikan akan senantiasa bersifat sekuleristik. Pendidikan tidak akan memberikan ruang yang cukup bagi agama, sebab agama bukanlah sesuatu yang penting dalam kehidupan. Agama hanya mengatur hubungan pribadi manusia dengan Tuhan, sementara hubungan manusia dengan manusia lainnya, seperti aspek politik, ekonomi, budaya, tidaklah diatur oleh agama.

Karena itu, dapat dilihat bahwa out put sistem pendidikan seperti ini, hanya akan menjadi manusia yang pandai dalam ilmu pengetahuan, namun dangkal dalam pemahaman agama. Para alumnus sistem ini akan menjadi manusia yang sekuleristik, materialistik, oportunistik, dan individualistik. Dikatakan sekuleristik, karena dia akan meletakkan agama dalam posisi terbatas yang hanya mengatur hubungan manusia dengan tuhannya. Sementara aspek interaksi sosial yang luas, dianggapnya tidak perlu diatur dengan agama. Bersifat materialistik, karena tujuan hidupnya hanya mengejar kesenangan duniawi semata, seperti harta benda, jabatan, dan sebagainya, namun lupa akan tujuan akhiratnya. Dikatakan oportunistik, karena cara dia mengukur segala tindakannya adalah berdasarkan manfaat belaka, atau untung rugi.

Kehidupan seorang mahasiswa ilmu komputer

Sabtu 15 November 2008, sebuah nada dering berbunyi menandakan adanya sebuah sms yang masuk ke handphone saya. Selang beberapa detik kemudian, terkuak misteri isi dari sms itu. Isinya kurang lebih berbunyi : “Ber, gw ko’ gak bisa buka Friendster?? Lagi error ya??”. Saya yang memang saat itu sedang terhubung ke dunia cyber segera menuju TKPdan memang ternyata yang terbuka adalah pesan bahwa sedang ada acara maintenance di situs itu. Dengan niat mulia yaitu turut mencerdaskan anak bangsa saya pun memberitahukan hal tersebut kepadanya. Beberapa menit kemudian nada dering sms berbunyi kembali, rupanya Dia Yang Saya Belum Minta Izin Untuk Menyebutkan Namanya (selanjutnya disebut DYSBMIUMN) kembali bertanya, “Sampai kapan bisa dibuka lagi Ber??”
Yup, ilustrasi diatas sengaja saya jadikan pembuka pada postingan kali ini yang masih tetap dengan kategori santai seperti postingan sebelumnya. Bagi sebagian orang pertanyaan yang diajukan oleh DYSBMIUMN adalah sebuah hal yang wajar, dan itu memang benar. Namun satu hal yang sebenarnya ingin saya tanyakan ke DYSBMIUMN adalah “Kenapa dari sekian banyaknya orang yang dia kenal, saya yang ditanya seperti itu??”. Sayangnya tidak jadi saya tanyakan karena itu membutuhkan pulsa saya sudah bisa menebak jawaban dia yang tak lain dan tak bukan adalah karena saya orang yang mengambil Program Studi Ilmu Komputer, atau kalaupun salah paling tidak ada hubungannya dengan itu lah. hehe…
Di waktu dan tempat yang berbeda, Salah Seorang Teman Saya Yang Lain (selanjutnya disebut SSTSYL) pernah mengeluhkan monitor komputernya yang bermasalah karena setiap warna tampilan yang dihasilkannya tampak tidak normal. Alhasil, SSTSYL berinisiatif mengirim sms ke saya dan bertanya apa yang harus dia lakukan terhadap monitornya itu??
Seperti halnya dengan kasus DYSBMIUMN, kasus SSTSYL barusan pun dapat menimbulkan pertanyaan yang sama, yaitu “Kenapa dari sekian banyaknya orang yang dia kenal, saya yang dia pilih untuk ditanyai seperti itu??”. Dan tentunya jawabannya pun akan sama, yaitu karena saya orang yang mengambil Program Studi Ilmu Komputer.
Yah, beginilah nasib mahasiswa ilmu komputer dianggap yang paling mengerti segalanya tentang komputer oleh teman-teman sekitar. Mungkin 2 kasus di atas hanya sebagian kecil dari banyaknya kasus yang menimpa para mahasiswa ilmu komputer. Tapi ya memang kurangnya kepahaman akan suatu hal benar-benar mengerikan. Pada kasus pertama misalnya, sebenarnya sih saya ingin menjawab pertanyaannya dengan “Mana saya tahu, memangnya saya staff friendster??”, atau dengan jawaban “Saya belum berniat untuk membuka servis monitor” pada kasus ke dua. Tapi sepertinya memilih untuk diam terdengar lebih bijak. Hehehe..
Hmmm….saya tidak menyalahkan mereka yang bertanya hal-hal seperti itu, walaupun sebenarnya lebih memilih untuk tidak ditanya seperti itu. Hehehe… Permasalahannya kenapa mereka menganggap bahwa bertanya kepada mahasiswa ilmu komputer adalah hal yang paling tepat dengan asumsi “kami” pasti bisa menjawab pertanyaannya itu. Tapi kalo dipikir-pikir friendster memang cuma bisa dinikmati jika kita telah memiliki koneksi ke internet dan umumnya dengan komputer, dan monitor pun adalah sesuatu yang akrab dengan komputer.

Tentang pembelajaran komputer

Neh cerita tentang komputer gue yang rusak hari selasa kemaren. Sumpah gue bingung abis mo ngapain kalo ga ada komputer. Komputer bagaikan kekasih kedua gue. Gue bakalan pusing kalo sehari ga "nyentuh" komputer. Lo pengen tahu ceritanya?? Lanjutin aja bacanya..
Parah dah. Selasa kemarin, komputer kesayangan gue, komputer tercinta gue, tiba - tiba ga mo idup. Sontak aja gue jadi cemas dan bingung. Gimana ga bingung coba. Selama bertahun - tahun nih komputer nemenin gue ( tepatnya dari smp sekitar kelas tiga atau sma kelas satu ), ga pernah macet, tiba - tiba dengan indahnya ga mo nyala ketika gue idupin.
Kejadiannya sendiri terjadi hari selasa. Semuanya bermula ketika gue balik dari kosan temen gue nganterin rexona bekas buat dijadiin roda depan robot (yang diambil cuma bunderannya doang). Gue ke kosan temen gue itu sekitar jam 7 malem. Sampe di sana ada temen - temen kelas gue yang lain yang lagi ngerjain proyek robot itu.
Kemudian gue kasih tuh rexona ke salah satu temen gue yang lagi serius mengutak - atik komponen robot. Setelah ngobrol - ngobrol bentar akhirnya gue mutusin buat cabut dari sana dengan alasan ga ada orang di rumah. Alasan klasik sih.
Di perjalanan pulang sama sekali ga ada firasat apa - apa tentang komputer gue yang keren itu, bener, ga ada firasat apa - apa. Yang ada di pikiran gue saat itu cepet nyampe rumah dan langsung online di depan komputer.

Contoh program untuk menapilkan bilangan ganjil 1 -10

#include
Int main(){
Int bil;
Bil=1;
While (bil<=10){
Printf (“%d*,bil”);
Bil=bil+ 2;
}
Printf(“\n”);
Return 0;
}

contoh c++

C & C  ++

Nilai 65, baik didefinisian dengan signet int atau unsigned int representasi bit-bitnya sama saja yang dapat dilukiskan sebagai berikut

C++

#inckude<iostream.h>

Void main ()

{ int N; char X; float F;

F=65.74;

N= F;

X=F; // atau X=N;

Cout <<F<<”\n”;

Cout<< N<<”\n”;

Cout<<X;

}

Tipe Data Floating Point

Data floating point dalam bahasa C dan C++, dibedakan menjadi 2 macam yaitu:

Tipe Data Float : untuk data floating point single precisian.

                                Menggunakan memory : 4 Byte (32 bit)

                                Dapat menampung nilai : 3.4E-38 s.d. 3.4E38

                                Baik positif mau pun negative.

ALGORITMA & STRUKTUR DENGAN C,C++ DAN PEMROGRAMAN

Algoritma adalah urutan langkah-langkah untuk memecahkan suatu masalah

Sejarah algoritma adalah jantung ilmu computer atau informatika. Banyak cabang dari ilmu computer yang diacu dalam teknologi algoritama,misalnya algoritma perutean (routing)pesan didalam jaringan computer.

Algoritma yang ditulis dalam bahasa computer dinamakan program. Bahasa computer yang digunakan dalam  menulis program dinamakan bahasa pemrograman. Orang yang mebuat programan, dan  kegiatan merancang dan menulis program disebut pemrograman.

_{Tipe data dalam bahasa(8 ba c/c++.}

Setiap bahasa pemrograman menggunakan Tipe Data Dasar (Basic Data Type) sendiri-sendiri yang antara satu bahasa dan bahasa lainnya ada yang sama, hampir sama atau sama sekali berbeda. Tipe Data Dasar yang  oleh Bahasa C/C++,hanya ada empat, yaitu Character, integer,Floating Point Single Precision, dan Floating Point Double Precision.

Tipe Data character

Data yang disimpan dengan menggunakan tipe data character, menggunakan area memory sebesar (8  bit),yang  hanya bisa diisi dengan 1 karakter. Karena hanya menggunakan byte, maka tipe data ini disebut  tipe data character, walaupun disebut tipe data character, tapi Bahasa  C/C++ dapat memandang bit-bit yang ada sebagai suatu nilai numeric.

Tipe Data Integer

Data yang disimpan dengan menggunakan  tipe data integer,yang penulisannya dalam bahasa  C dinyatakan Int,terbagimenjadfi dua macam atau kategori yaitu: int dan long in

Tipe : int

Data tipe int menempati 2 byte (16 bit)

Tipe int sendiri ini 2 macam yaitu 1: int atau signet int

                                                                   2: unsigned int

cara pembuatan artikel pemograman struktur

Home » Pemrograman
Pendekatan Modular dalam Pemrograman Terstruktur
· (0)
Artikel, modular, Pemrograman, subroutine, terstruktur

programmer1Istilah Pemrograman Terstruktur (Structured Programming) mengacu dari suatu kumpulan tehnik yang dikemukan oleh Edsger Dijkstra. Dengan tehnik ini akan meningkatkan produktifitas programmer, dengan mengurangi waktu yang dibutuhkan dalam penulisan (write), pengujian (test), penelusuran kesalahan (debug) dan pemeliharan (maintain) suatu program.

Salah satu pendekatan yang biasa digunakan dalam pemrograman terstruktur adalah pendekatan yang dilakukan secara modular, dengan pendekatan ini suatu program akan dipilah kedalam sejumlah modul, masing-masing modul akan mempunyai fungsi khusus sesuai dengan ruang lingkup yang akan dikerjakan. Dengan adanya pemilahan tersebut, maka kesalahan akan dapat diminimalisir. Selanjutnya masing-masing modul tersebut akan dipanggil dari program utama agar menjadi sebuah program yang utuh.

Pemrograman secara modular ini dapat diimplementasikan dengan penggunaan subroutine, suatu kelompok instruksi yang menjalankan suatu pengolahan yang sifatnya terbatas seperti pencetakan, pembacaan, untuk proses input atau untuk proses penghitungan.

proses_subroutine1

Subroutine dapat dibedakan menjadi 2 yaitu:

1. Internal Subroutine, adalah subroutine yang dibuat hanya untuk digunakan oleh program tersebut. Sehingga untuk sejumlah proses yang sama dalam program tersebut akan dilakukan oleh subroutine tersebut. Program akan memanggil subroutines tersebut jika diperlukan dan apabila telah selesai, kontrol selanjutnya dikembalikan ke instruksi berikutnya. Instruksi yang mengendalikan kontrol transfer ke suatu subroutine umumnya dikenal sebagai call dan return.

2. External Subroutines, adalah subroutine yang diletakkan secara terpisah dari program yang menggunakan subroutine tersebut. Subroutine seperti ini dideklarasikan agar dapat dipakai oleh program yang lain. Untuk menggunakannya harus diketahui dimana ? , apa namanya ?, bagaimana pengiriman datanya ?, serta bagaimana hasil yang akan diperoleh ?. Subroutine ini biasanya digunakan untuk pemrosesan yang kompleks dan dibutuhkan oleh banyak user.

Tehnik Pemrograman
Agar program yang dibuat dalam program utama maupun subroutine dapat lebih mudah dimengerti, maka dalam pemrograman terstruktur diperkenalkan tiga bentuk tehnik pemrograman, yaitu:

1. Sequence Structure
Dalam sequence structure, instruksi dieksekusi berdasarkan urutannya. Dimulai dari bagian atas dan diakhiri di bagian bawahnya. Bujur sangkar dapat menggambarkan operasi :
- Input dan Output
- Operasi aritmatika
- Operasi pemindahan data dalam memori komputer
Dalam sequence structure tidak diperkenankan penggunaan kotak keputusan.

sequence_structure

2. Loop Structure
Loop (iteration) structure menggambarkan perulangan dari satu atau lebih instruksi.

loop_structure

3. Selection Structure
Dalam struktur ini terdapat sejumlah perintah yang dikerjakan tergantung dari kondisi yang dipenuhinya. Seperti juga dengan sequence dan dan loop structure, terdapat single entry point dan single exit point.

selection_structure