Tutorial Setting Failover di Router Mikrotik

Selasa | komentar



Pada era komputerisasi ini kebutuhan akan adanya internet terus menigkat, bagi perusahaan yang mayoritas pekerjaanya bersinggungan dengan internet pasti sangat membutuhkan akan adanya internet yang handal dan stabil, disini saya akan sedikit membahas teknik failover di mikrotik. Diluar sana pasti sudah banyak sekali yang membahas teknik ini namun saya ingin menulis untuk pengingat terutama pribadi jika lupa dikemudian hari. Okee langsung saja apa sih failover itu ? Secara umum failover itu adalah salah satu teknik dimana terdapat dua jalur koneksi atau lebih dan jika salah satu jalur koneksi mati maka akan diambil alih oleh jalur koneksi lainnya.


Untuk gambaran failover sangat mudah bukan? Nah selanjutnya kita akan membahas bagaimana konfigurasi failover di mikrotik, tahapantahapannya sebagai berikut :


Dalam tutorial ini saya memiliki topologi sebagai berikut, agar dapat lebih mudah memahami karena dalam tutorial ini saya memiliki 2 jalur koneksi internet :






Langkah pertama buka mikrotik anda dengan winbox lalu ke menu System > Script > [+] add

Tambahkan script dibawah ini :


Script 1 (failover)

:if ([/ip route get [/ip route find comment="main"] disabled]=yes) do={/ip route enable [/ip route find comment="backup"]} else={/ip route disable [/ip route find comment="main"]}




Scrip 2 (backtomain)

:if ([/ip route get [/ip route find comment="main"] disabled]=yes) do={/ip route enable [/ip route find comment="main"]}




Dua script diatas yaitu mencari routing table dengan comment/deskripsi “main” dan “backup” jadi anda perlu memberikan deskripsi sebagai penanda salah satu menjadi link main dan link lainnya menjadi backup.


Langkah selanjutnya yaitu mebuat netwatch, netwat sendiri berfungsi untuk memonitor host disini saya menggunakan ip google untuk di monitor. Masuk kemikrotik anda kembali lau ke menu Tools --> Netwatch --> Add. Buat dua rule berikut :



Netwatch untuk Failover :

[Tab Host]
- Host : 8.8.8.8
- Interval : 00:00:03
- Timeout : 1000 ms
[Tab Down]
On Down : main (sesuaikan dengan nama script nya)


Netwatch untuk kembali ke main :

[Tab Host]

- Host : 8.8.8.8
- Interval : 00:00:03
- Timeout : 1000 ms
[Tab Down]
On Down : backtomain (sesuaikan dengan nama script nya)


Tahap terakhir yaitu tinggal membuat route untuk pengecekan ke ip google yang sebelumnya sudah dibuat di netwatc, berikut langkahnya :

Buka mikrotik anda lalu pilih menu IP > Route > [+] add


dst-address=8.8.8.8/32 gateway=192.168.21.203 gateway-status=192.168.21.203 reachable via  bridge1 check-gateway=ping distance=1 scope=30 target-scope=10


 
Note : Gateway di isikan dengan IP gataweway jalur utama/main dan target nya di arahkan ke ip google.
Bagaimana mudah bukan ? Selanjutnya anda tinggal melakukan pengetesan dengan cara melakukan ping ke ip google dan menonaktifkan link utama, maka link akan otomatis berpindah ke jalur backup.
Demikian tutorial kali ini semoga bermanfaat bagi kita semua khususnya bagi penulis untuk pengingat dikemudian hari. Terima kasih.



Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 19.19

Tutorial Cara Install Packet Tracer di Linux Mint 17 / Ubuntu

Rabu | komentar

Tutorial Cara Install Packet Tracer di Linux Mint 17 / Ubuntu - Sekilas tentang Packet Tracer, menurut wikipedia Packet Tracer adalah simulator alat-alat jaringan Cisco yang sering digunakan sebagai media pembelajaran dan pelatihan, dan juga dalam bidang penelitian simulasi jaringan komputer. Program ini dibuat oleh Cisco Systems dan disediakan gratis untuk fakultas, siswa dan alumni yang telah berpartisipasi di Cisco Networking Academy. Tujuan utama Packet Tracer adalah untuk menyediakan alat bagi siswa dan pengajar agar dapat memahami prinsip jaringan komputer dan juga membangun skill di bidang alat-alat jaringan Cisco.

Mari kita mulai langkah-langkah untuk install packet tracer di linux mint 17 / Ubuntu :

Pertama yang harus kita siapkan adalah installer packet tracer, dibawah ini saya lampirkan link untuk mendownload packet tracer.

https://drive.google.com/file/d/0B0PJN0z8d6HRZzMtNWI0S0RnY00/view

Saya asumsikan bahwa packet tracer tersebut sudah terdonwnload dan saya menyimpannya di direktori /home/ridwan/Documents/install/ agar mudah untuk mengingatnya.




Selanjutnya adalah meng-extract packet tracer tersebut dengan perintah:
# tar -zxvf Cisco-PT-620.tar.gz

Jika sudah di extract masuk lah kedalam direktori yang sudah ter-extract tadi dengan perintah:
# cd PacketTracer62Student/
Lalu jalankan file installer dengan cara:
# sudo ./install

Berikut dibawah adalah beberapa opsi yang harus dijalankan ketika pada saat proses intalasi:

Ketika proses instalasi sudah selesai maka kita tinggal jalankan aplikasi packet tracer tersebut dengan cara ketikan "packettracer" pada terminal anda :
# packettracer

Maka packettracer akan segera tampil pada layar anda.

Demikian sekilas Tutorial Cara Install Packet Tracer di Linux Mint 17 / Ubuntu. Semoga bermanfaat bagi anda semua khususnya untuk saya sendiri.

Tags : How To Install PacketTracer 6.2 on Ubuntu / Linux Mint 17, Tutorial Install Packet Tracer On Linux Mint 17 / Ubuntu, Step by Step Install Packet Tracer On Ubuntu / Linux Mint.

Sumber: WikiPedia[dot]com, UnixMen[dot]com

Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 20.15

UAS Pemrograman Visual Basic STMIK Eresha Wikrama

Kamis | komentar

Penjelasan program - Program ini dibuat untuk memudahkan suatu universitas dalam pendataan mahasiswa, program ini sudah dapat memanipulasi data seperti create, read, update, delete.

Berikut adalah beberapa screenshoot pada saat program dijalankan.



- Pada saat menyimpan


- Pada saat cari


- Pada saat update


- Pada saat menghapus


Berikut adalah source code nya :

Imports System.Data.OleDb
Public Class FrmMasterMahasiswa
    Dim strtemp As String = ""
    Dim strvalue As String = ""

    Private Function autonumber()
        sql = "SELECT * FROM MAHASISWA ORDER BY NIM DESC"
        cmmd = New OleDbCommand(sql, cnn)
        'On Error Resume Next
        dreader = cmmd.ExecuteReader
        If dreader.Read Then
            strtemp = Mid(dreader.Item("NIM"), 3, 8)
            strvalue = Val(strtemp) + 1
            strvalue = "MS" & Mid("00000000", 1, 8 - strvalue.Length) & strvalue
        Else
            strvalue = "MS00000001"
        End If
        Return strvalue
    End Function
    Private Sub FrmMasterMahasiswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi()
        txtnim.Text = autonumber()

    End Sub
    Private Sub bersih()
        txtnama.Text = ""
        rbjkl.Checked = True
        txtalamat.Text = ""
        txttelepon.Text = ""
        txttptlahir.Text = ""
        cmbjurusan.Text = ""
    End Sub
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        sql = "INSERT INTO MAHASISWA(NIM,NAMA,JNS_KELAMIN,ALAMAT,TELP,TEMP_LAHIR,TGL_LAHIR,JURUSAN) " & _
        " values (?,?,?,?,?,?,?,?)"
        cmmd = New OleDbCommand(sql, cnn)
        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)
        cmmd.Parameters.AddWithValue("NAMA", txtnama.Text)
        If rbjkl.Checked = True Then
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkl.Text)
        Else
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkp.Text)
        End If

        cmmd.Parameters.AddWithValue("ALAMAT", txtalamat.Text)
        cmmd.Parameters.AddWithValue("TELP", txttelepon.Text)
        cmmd.Parameters.AddWithValue("TEMP_LAHIR", txttptlahir.Text)
        cmmd.Parameters.AddWithValue("TGL_LAHIR", DateTimePicker1.Value.Date)
        cmmd.Parameters.AddWithValue("JURUSAN", cmbjurusan.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA SIMPAN", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENYIMPAN DATA", "informasi", MessageBoxButtons.OK)

        End If
    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 btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        txtnim.Text = autonumber()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        sql = "DELETE FROM mahasiswa WHERE NIM=?"
        cmmd = New OleDbCommand(sql, cnn)
        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA HAPUS", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENGHAPUS DATA", "informasi", MessageBoxButtons.OK)
        End If
    End Sub
    Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click
        sql = "UPDATE MAHASISWA set NAMA=? , JNS_KELAMIN=? , ALAMAT=? , TELP=? , TEMP_LAHIR=? , TGL_LAHIR=? , JURUSAN=? " & _
                       "WHERE NIM=?"
        cmmd = New OleDbCommand(sql, cnn)

        cmmd.CommandType = CommandType.Text
        cmmd.Parameters.AddWithValue("NAMA", txtnama.Text)
        If rbjkl.Checked = True Then
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkl.Text)
        Else
            cmmd.Parameters.AddWithValue("JNS_KELAMIN", rbjkp.Text)
        End If
        cmmd.Parameters.AddWithValue("ALAMAT", txtalamat.Text)
        cmmd.Parameters.AddWithValue("TELP", txttelepon.Text)
        cmmd.Parameters.AddWithValue("TEMP_LAHIR", txttptlahir.Text)
        cmmd.Parameters.AddWithValue("TGL_LAHIR", DateTimePicker1.Value.Date)
        cmmd.Parameters.AddWithValue("JURUSAN", cmbjurusan.Text)
        cmmd.Parameters.AddWithValue("NIM", txtnim.Text)

        Dim x As Integer = cmmd.ExecuteNonQuery
        If x = 1 Then
            MessageBox.Show("DATA BERHASIL ANDA UBAH", "informasi", MessageBoxButtons.OK)
            txtnim.Text = autonumber()
            bersih()
        Else
            MessageBox.Show("ANDA GAGAL MENGUBAH DATA", "informasi", MessageBoxButtons.OK)
        End If
    End Sub

    Private Sub txtnama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnama.TextChanged
        txtnama.Focus()
    End Sub
    Private Sub btncari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncari.Click
        Dim popupmh As New Popup_MasterMahasiswa
        popupmh.ShowDialog()
        If popupmh.retnim <> "" Then
            txtnim.Text = popupmh.retnim
            txtnama.Text = popupmh.retnama
            If popupmh.retjeniskelamin = "Laki-Laki" Then
                rbjkl.Checked = True
            Else
                rbjkl.Checked = True
            End If
            txtalamat.Text = popupmh.retalamat
            txttelepon.Text = popupmh.rettelepon
            txttptlahir.Text = popupmh.rettempatlahir
            DateTimePicker1.Value = popupmh.rettanggallahir
            cmbjurusan.Text = popupmh.retjurusan
            txtnim.Enabled = False
            txtnama.Focus()
        End If
    End Sub
   

End Class

#source code pop up

Imports System.Data.OleDb
Public Class Popup_MasterMahasiswa
    Public retnim, retnama, retjeniskelamin, retalamat, rettelepon, rettempatlahir, rettanggallahir, retjurusan As String
    Private Sub isi_view()
        Lvdata.Items.Clear()
        Dim x As Integer = 1
        koneksi()
        sql = "SELECT * FROM MAHASISWA WHERE NAMA LIKE '%" & Trim(txtkatakunci.Text) & "%' ORDER BY NIM ASC"
        cmmd = New OleDbCommand(sql, cnn)
        dreader = cmmd.ExecuteReader
        Try
            While dreader.Read = True
                Lvdata.Items.Add(dreader.Item("NIM").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("NAMA").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("JNS_KELAMIN").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("ALAMAT").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("TELP").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("TEMP_LAHIR").ToString)
                Lvdata.Items(x - 1).SubItems.Add(Format(CDate(dreader.Item("TGL_LAHIR")), "dd-MMMM-yyyy").ToString)
                Lvdata.Items(x - 1).SubItems.Add(dreader.Item("JURUSAN").ToString)

                x = x + 1

            End While
        Finally
            dreader.Close()
        End Try

    End Sub
    Private Sub pilih()
        Try
            retnim = Lvdata.SelectedItems(0).SubItems(0).Text.ToString
            retnama = Lvdata.SelectedItems(0).SubItems(1).Text.ToString
            retjeniskelamin = Lvdata.SelectedItems(0).SubItems(2).Text.ToString
            retalamat = Lvdata.SelectedItems(0).SubItems(3).Text.ToString
            rettelepon = Lvdata.SelectedItems(0).SubItems(4).Text.ToString
            rettempatlahir = Lvdata.SelectedItems(0).SubItems(5).Text.ToString
            rettanggallahir = Lvdata.SelectedItems(0).SubItems(6).Text.ToString
            retjurusan = Lvdata.SelectedItems(0).SubItems(7).Text.ToString
            Me.Close()
        Catch ex As Exception
            MsgBox("pilih salah satu data", MsgBoxStyle.Information)
        End Try
    End Sub

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

    Private Sub Lvdata_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lvdata.DoubleClick
        Call pilih()
    End Sub

    Private Sub txtkatakunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtkatakunci.TextChanged
        Call pilih()
    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        Call pilih()
    End Sub

    Private Sub Lvdata_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lvdata.SelectedIndexChanged

    End Sub
End Class


Tulisan ini dibuat untuk melengkapi UAS Pemrograman Visual Basic STMIK Eresha Wikrama, semoga bermanfaat. Terima kasih.

Nama : Ridwanulloh
NIM : 004121121086
Kelas B
STMIK Eresha Wikrama





Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 04.34

Tutorial Cara Memisahkan Bandwith International dan Lokal

Senin | komentar

Tutorial Cara Memisahkan Bandwith International dan Lokal - Tutorial kali ini saya akan membahas cara memisahkan koneksi international dan lokal menggunakan fiture mangle, dimana mangle sendiri adalah metode bandwidth manajemen yang dapat memisahkan downstream dan upstream.

Pertama yang harus dilakukan untuk memisahkan koneksi international dan lokal diperlukan file nice.rsc dimana file ini berisikan kumpulan IP address OpenIXP dan IIX yang telah disediakan oleh mikrotik indonesia.

- copy atau ketik perintah dibawah ini, dan masukan pada terminal mikrotik anda.

#/tool fetch address=ixp.mikrotik.co.id src-path=/download/nice.rsc mode=http;

kemudian setelah file berhasil di download ketikan perintah

#import nice.rsc




Setelah file nice.rsc berhasil di import, maka yang harus anda lakukan yaitu membuat mangle (memisahkan international dan lokal). Membuat mangle anda dapat melihat konfigurasi yang telah saya lakukan seperti dibawah ini.


Berikut adalah scriptnya :

 0   ;;; Lokal
     chain=prerouting action=mark-connection new-connection-mark=conn-lokal
     passthrough=yes src-address-list=nice
 1  chain=prerouting action=mark-connection new-connection-mark=conn-lokal
     passthrough=yes dst-address-list=nice
 2  chain=prerouting action=mark-packet new-packet-mark=paket-Lokal
     passthrough=no connection-mark=conn-lokal
 3   ;;; Int
     chain=prerouting action=mark-connection new-connection-mark=conn-int
     passthrough=yes src-address-list=!nice
 4  chain=prerouting action=mark-connection new-connection-mark=conn-int
     passthrough=yes dst-address-list=!nice
 5  chain=prerouting action=mark-packet new-packet-mark=paket-int
     passthrough=no connection-mark=conn-int 


Setelah mangle di buat, hal terakhir yang harus dilakukan yaitu membuat management bandwith, disini saya menggunakan simple queue. Lihat gambar dibawah ini.


Untuk lebih mudah anda bisa copy script dibawah ini.

0    name="Parent Lokal" target-addresses=0.0.0.0/0 dst-address=0.0.0.0/0
      interface=all parent=none packet-marks=paket-lokal direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=0/0 burst-limit=0/0 burst-threshold=0/0 burst-time=0s/0s
      total-queue=default-small
 1   name="Parent Int" target-addresses=0.0.0.0/0 dst-address=0.0.0.0/0
      interface=all parent=none packet-marks=paket-int direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=0/0 burst-limit=0/0 burst-threshold=0/0 burst-time=0s/0s
      total-queue=default-small
 2   name="PC 1 - Limit Int" target-addresses=10.10.10.254/32
      dst-address=0.0.0.0/0 interface=all parent=Parent Int direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=64000/64000 burst-limit=0/0 burst-threshold=0/0
      burst-time=0s/0s total-queue=default-small
 3   name="PC 1 Limit Lokal" target-addresses=10.10.10.254/32
      dst-address=0.0.0.0/0 interface=all parent=Parent Lokal direction=both
      priority=8 queue=default-small/default-small limit-at=0/0
      max-limit=128000/128000 burst-limit=0/0 burst-threshold=0/0
      burst-time=0s/0s total-queue=default-small 

Demikian tuorial kali ini, jika anda masih bingung atau ada yang ingin ditanyakan, anda bisa menuliskan komentar pada postingan ini. Semoga bermanfaat!
Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 18.41

UTS Mata Kuliah Pemrograman Visual Eresha Wikrama Kelas B

Rabu | komentar

Program Penjualan Tiket Film 

Program sederhana ini dibuat untuk memudahkan penjualan tiket film, cara kerjanya pilih kode studio, masukan jumlah tiket yang dipesan lalu masukan jumlah uang yang dibayar. Berikut screenshootnya :


Berikut source codenya :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("A003")
        Kode.Items.Add("A004")
    End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama_studio.Text = "Studio 1"
            Kelas.Text = "Eksklusif"
            Harga.Text = 90000
        ElseIf Kode.Text = "A002" Then
            Nama_studio.Text = "Studio 2"
            Kelas.Text = "Bisnis"
            Harga.Text = 80000
        ElseIf Kode.Text = "A003" Then
            Nama_studio.Text = "Studio 3"
            Kelas.Text = "Ekonomi"
            Harga.Text = 70000
        Else
            Nama_studio.Text = "Studio 4"
            Kelas.Text = "Super Ekonomi"
            Harga.Text = 60000
        End If
        Jumlah.Focus()
    End Sub

Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            Tohar.Text = Harga.Text * Jumlah.Text

        End If

    End Sub
Private Sub Dibayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Dibayar.KeyPress
        If e.KeyChar = Chr(13) Then
            Kembalian.Text = Dibayar.Text - Tohar.Text
        End If
    End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Kode.Text = ""
        Nama_studio.Text = ""
        Kelas.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Tohar.Text = ""
        Dibayar.Text = ""
        Kembalian.Text = ""
    End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub


Written by: Ridwan Nulloh
Catatan Kecil, Updated at: 07.57
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Catatan Kecil - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger