Requirement

• Dotnet Framework 4.0 atau yang lebih baru. Pada umumnya beberapa aplikasi Windows secara otomatis menyertakan framework ini ketika instalasi sehingga hampir semua komputer Windows terinstal DotNet Framework. Sehingga yang paling dibutuhkan adalah OLEDB.
• OLEDB adalah driver koneksi yang terdapat pada MS ACCESS. Jika tidak memungkinkan untuk menginstall MS ACCESS, maka OLEDB bisa dingantikan dengan menginstall aplikasi Access Database Engine 2010.

Beberapak Karakteristik dari Aplikasi AppReminder

• Penekanan tombol “X” pada aplikasi akan membuat aplikasi menghilang (sembunyi), tapi tidak membuat aplikasi berhenti. Jika ingin menghentikan aplikasi, maka pilih menu File > Exit. Hal ini memang disengaja untuk menghindari berhentinya aplikasi sehingga tidak ada notifikasi yang muncul.
• Tanggal reminder bisa diubah, format penulisan tanggal saat ini harus dd/mm/yyyy, Contoh : jika diisi dengan 03/12/2015, maka balon notifikasi akan muncul setiap jam pada tanggal tersebut apabila ada minimal 1 pelanggan yang BONGKAR RAMPUNG atau JANJI BAYAR.
• Pencarian secara otomatis didasarkan pada ID PELANGGAN ATAU NAMA PELANGGAN. Oleh sebab itu, petugas bisa mencari pelanggan berdasarkan ID-nya atau berdasarkan namanya.
• File excel yang muncul pada pojok kiri bawah otomatis digunakan ketika komputer baru dihidupkan. Ketika komputer atau aplikasi dimatikan, maka aplikasi akan mencatat lokasi file Excel, dan file Excel yang telah dicatat tersebut secara otomatis dipakai ketika komputer dihidupkan. Apabila file Excel tidak ditemukan, aplikasi akan meminta petugas untuk memilih file Excel yang baru.
• Akan muncul tampilan balon notifikasi di pojok kanan bawah layar komputer. Tampilan ini muncul pertama kali komputer dihidupkan. Ketika ada pelanggan yang BONGKAR RAMPUNG atau JANJI BAYAR, maka balon notifikasi ini akan muncul setiap jam hingga keterangan pada file Excel diubah.

Private Sub Show_Balloon()
    NotifyIcon1.BalloonTipTitle = "Hari Ini :"
    NotifyIcon1.BalloonTipText = "> Bongkar Rampung (" & HARI_INI_BONGKAR & ")" & vbCrLf & "> Janji Bayar (" & HARI_INI_JANJI & ")."
    NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info

    NotifyIcon1.Visible = True
    NotifyIcon1.ShowBalloonTip(3000)
End Sub

''// import modul excel
Imports Excel = Microsoft.Office.Interop.Excel


'' /*bagian untuk mengakses file excel
' ketika Button1 diklik, maka buka file Excel ( D:\Book1.xlsx )
'  Buka excel, buka workbook, dan buka sheet yang akan diolah
'  Tampilkan data pada cell 2,2 dengan popup
'  lalu manipulasi cell 2,2 dengan teks "elangsakti.com"
'  tutup file Excel*/
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim xlApp As Excel.Application
    Dim xlWorkbook As Excel.Workbook
    Dim xlWorksheet As Excel.Worksheet

    xlApp = New Excel.Application
    xlWorkbook = xlApp.Workbooks.Open("E:Book1.xlsx")
    xlWorksheet = xlWorkbook.Worksheets("sheet1")

    MsgBox(xlWorksheet.Cells(2, 2).value)

    xlWorksheet.Cells(2, 2) = "elangsakti.com"

    xlApp.DisplayAlerts = False
    If Not xlWorkbook.Saved Then
        xlWorkbook.Save()
    End If
    xlApp.DisplayAlerts = True

    xlWorkbook.Close()
    xlApp.Quit()

    releaseObject(xlApp)
    releaseObject(xlWorkbook)
    releaseObject(xlWorksheet)
End Sub

• Jika kita mengola file dengan koneksi database, maka perintah untuk mengambil data pasti dilakukan dengan Query, contohnya "SELECT * FROM blabla..... WHERE ... ORDER BY ..". Tapi jika tidak sebagai database, maka kita secara manual menentukan cel-cel yang akan diolah.
• Jika ingin mengubah data dengan koneksi database, maka perintahnya adalah dengan "UPDATE blabla ...". Jadi, jika menggunakan koneksi database, maka perintah CRUD-nya juga menggunakan SQL.

Lalu, Bagaimana Cara Membuat Excel Sebagai Database?

Dim Excel_fileName As String = "E:Book1.xlsx"
Dim Excel_sheetName As String = "Sheet1"
Dim Excel_Connection As System.Data.OleDb.OleDbConnection
Dim Excel_Dataset As System.Data.DataSet
Dim Excel_Command As System.Data.OleDb.OleDbDataAdapter
    
Excel_Connection = New System.Data.OleDb.OleDbConnection _
    ("provider=Microsoft.ACE.OLEDB.12.0; Data Source='" _
    & Excel_fileName & "'; Extended Properties=Excel 8.0;")

''// select data
Excel_Connection.Open()
Excel_Command = New System.Data.OleDb.OleDbDataAdapter("Select * from [" & Excel_sheetName & "]", Excel_Connection)
Excel_Dataset = New System.Data.DataSet
Excel_Command.Fill(Excel_Dataset)

''// tampilkan pada datagridview
DataGridView1.DataSource = Excel_Dataset.Tables(0)
Excel_Connection.Close()

Dim Excel_fileName As String = "E:Book1.xlsx"
Dim Excel_sheetName As String = "Sheet1"
Dim Excel_Connection As System.Data.OleDb.OleDbConnection
Dim Excel_Command_Update As New System.Data.OleDb.OleDbCommand

Dim KOLOM_KETERANGAN As String = "Keterangan"
Dim KOLOM_ID As String = "ID"
Dim KOLOM_ID As Integer = 3

Excel_Connection = New System.Data.OleDb.OleDbConnection _
    ("provider=Microsoft.ACE.OLEDB.12.0; Data Source='" + Excel_fileName + "'; Extended Properties=Excel 8.0;")

Excel_Connection.Open()
Excel_Command_Update.Connection = Excel_Connection
''// update keterangan
Dim sql As String = "Update [" & Excel_sheetName & "] set [" & KOLOM_KETERANGAN & "]='" & keterangan & "' where [IDPEL]='" & idpel & "'"
Excel_Command_Update.CommandText = sql
Excel_Command_Update.ExecuteNonQuery()
Excel_Connection.Close()

Melihat Driver pada Device Manager

• Tekan shorcut dengan tombol Windows+R, kemudian ketik "devmgmt.msc", lalu OK. Jika bingung dengan cara ini, silakan coba cara berikutnya. (Gambar 1)
• Klik menu start, kemudian ketik "device", selanjutnya cari aplikasi dengan nama "Device Manager". (Gambar 2)

Driver Mediatek & Lenovo A3000

• Buka Device Manager & hubungkan tablet ke komputer, dan ekstrak Driver_v1.2.zip
• Klik-kanan pada device / driver tablet, pilih Update Driver Software (Gambar 4)
• Pilih "Browse My Computer for Driver Software" (Gambar 5)
• Pilih "Let me pick from a list of driver...." (Gambar 6), jadi kita tidak perlu browse ke folder dulu, tapi cek di list driver yang sudah ada, siapa tahu sebelumnya sudah pernah nginstall. :)
• Jika tidak ada yang cocok (driver MediaTek atau MTK), maka pilih "Have Disk" (Gambar 7).
• Cari folder hasil ekstraksi dari Driver_v1.2.zip, kemudian pilih android_winusb.inf (Gambar 8). Saya menggunakan Windows 7 32 bit, driver ini berjalan dengan mulus. Jika file android_winusb.inf error, coba masuk ke dalam folder lainnya, pilih file .inf yang lain.
• Setelah file android_winusb.inf dipilih, maka akan muncul di list driver. Klik tombol next untuk melanjutkan. (Gambar 9)
• Kalau muncul peringatan dari Windows Securiry, pilih "Install this driver software anyway", lalu tunggu hingga proses instalasi selesai. (Gambar 10)
• Cek di Device Manager, jika tampilan belum berubah, refresh device manager. (Gambar 11,12)

Gambar 1. Membuka device manager dengan Run

Gambar 2. Membuka device manager pada menu start

Gambar 3. Driver tidak terdeteksi

Gambar 4. Driver terdeteksi sebagai Alcatel Single RNDIS

Gambar 5. Update driver

Gambar 6. Pilih Browse my computer...

Gambar 7. Pilih Let me pick from...

Gambar 8. Pilih Have Disk untuk menginstall driver manual

Gambar 9. Pilih driver yang bernama android_winusb.inf

Gambar 10. Klik tombol Next untuk melanjutkan

Gambar 11. PIlih Install this driver sofware anyway untuk menginstall secara paksa

Gambar 12. Instalasi selesai

Gambar 13. Driver Mediatek sudah muncul di Device Manager

• Trafo 1 A x 1, untuk menurunkan tegangan dari 220V AC menjadi 12 AC
• Diode 1 A x 2, sebagai penyearah setengah gelombang
• Elco 10.000uf 16V x 2, sebagai perata tegangan
• IC Stabil 7812 x 1, untuk menghasilkan output +12
• IC Stabil 7912 x 1, untuk menghasilkan output -12
• IC Stabil 7805 x 1, untuk menghasilkan output +5
• IC Stabil 7905 x 1, untuk menghasilkan output -5
• Switch stereo x 1, untuk mengubah 12V ke 5V
• Switch mono x 1, untuk on/off
• Resistor 1k + led, sebagai indikator
• Jepit buaya x 3, sebagai output plus, minus, dan ground
• jack multi x 1, sebagai otput ke peralatan
• kabel output, untuk output
• kabel + colokan ke listrik PLN, sebagai sumber tegangan
• Casing adaptor + skrupnya

Pengertian dan Komponen RFID

RFID Reader MLF8112WA

+------+----------------+
| PIN  | Wiegand 26bits |
+------+----------------+
| 1    | +5V (Vcc)      |
| 2    | (GND)          |
| 3    | (Data0)        |
| 4    | (Data1)        |
| 5    | (Hold)         |
| 6-10 | Antena         |
| 7-8  | (NC)           |
| 9    | (NC)           |
+------+----------------+

Yang aneh adalah, ketika menggunakan Protokol Wiegand, ada pin yang berfungsi sebagai HOLD. Padahal dalam protokol Wiegand tidak dikenal dengan HOLD (Silakan baca tentang Protokol Wiegand 26 bit). Untung referensi yang berbahasa china memberikan informasi bahwa pin HOLD akan bernilai LOW ketika ada data yang dikirim. Apakah saya bisa berbahasa china? tidak. Saya pakai google translate :D . Jika digambarkan, maka timeline pengiriman data dalam format Wiegand alat ini adalah tampak seperti gambar berikut.

Arduino Uno sebagai Tester

/*
 * RFID READER MLF8112WA dengan Prorocol Wiegand 26 bit
 * coder haripinter
 * http://www.elangsakti.com
 */

const int HOLD  = 8;
const int DATA0 = 9;
const int DATA1 = 10;

char code_table[26];
char FCCN[6];
char i = 0;
bool valid = false;

void setup() {
  pinMode(DATA0, INPUT);
  pinMode(DATA1, INPUT);
  pinMode(HOLD , INPUT);
  Serial.begin(9600);
}

void loop() {
  // jika pin hold LOW, ambil data sebanyak 26 bit
  // silakan cek format protokol Wiegand 26 bit
  while(digitalRead(HOLD) == LOW){
     if(digitalRead(DATA0) == LOW){
        code_table[i] = 1;
        i++;
        while(digitalRead(DATA0) == LOW);
     }
     if(digitalRead(DATA1) == LOW){
        code_table[i] = 0;
        i++;
        while(digitalRead(DATA1) == LOW);
     }
  }
  
  if(i >= 25){
     // validasi data
     valid = validasi(i);
     
     if(valid){
        getRFID();
        FCCN[6] = 0x0;
        Serial.println(FCCN);
     }else{
        Serial.println("NOT VALID!");
     }
     i = 0;
  }
}

void getRFID(){
   char tmp = 0;
   char num = 0;
   for(i=1; i<25; i++){
      tmp <<= 1;
      tmp += code_table[i];
      
      if(i%4 == 0){
         FCCN[num] = toChar(tmp);
         num++;
         tmp = 0;
      }
   }
}

// validasi data sesuai protokol Wiegand
bool validasi(int i){
   char tmp = 0;
   for(int n=0; n<i; n++){
      tmp += code_table[i];
      
      // bagian pertama harus genap
      if(n == 12){
         if(tmp % 2 == 1) return false;
         tmp = 0;
      }
      // bagian kedua harus ganjil
      if(n == 25){
         if(tmp % 2 == 0) return false;
         tmp = 0;
      }
   }
   return true;
}

char toChar(char ch){
   if(ch <= 9){
      return ch + 48;
   }else{
      return ch + 55;
   }
}

Standar Format Data Wiegand 26 bit

+-------+-------+------+
| DATA0 | DATA1 | ARTI |
+-------+-------+------+
|   0   |   0   |  -   |
|   0   |   1   |  0   |
|   1   |   0   |  1   |
|   1   |   1   |  -   |
+-------+-------+------+

Parity Bit pada Wiegand Protocol

XXXXXXXXXXXXXXXXXXXXXXXXXX  (dalam bit)
X XXXXXXXXXXXX XXXXXXXXXXXX X
1 010101000101 010100001101 0

1 0101 0100 0101   0101 0000 1101 0
   5    4    5      5    0    13
   5    4    5      5    0    D
   54550D

Keuntungan Menggunakan Fitting Sensor Cahaya

• Tidak repot ketika bepergian. Jika Anda sering bepergian, maka Anda bisa menggunakan fitting ini di lampu teras rumah, lampu belakang, atau lampu taman sehingga ketika senja tiba, maka listrik akan otomatis menyala dan listrik akan padam ketika pagi hari.
• Rumah "aman" ketika Anda bepergian. Secara tidak langsung, menghindari para pencuri karena rumah kita dianggap ada penghuninya walaupun kita sedang keluar rumah.
• Meringankan pekerjaan menghidupkan lampu untuk penjaga kebun, penjaga kantor, penjaga sekolah, penjaga gudang, satpam, dll yang setiap sore harus menghidupkan lampu dan kalau pagi harus mematikan lampu.

Spesifikasi :

• Pemasangan mudah, tidak memerlukan proses instalasi yang rumit.
• Tidak perlu lagi mematikan saklar lampu, karena fitting akan bekerja secara otomatis berdasarkan intensitas cahaya matahari yang diterima sensor.
• Sensitivitas sensor dapat diatur sesuai kebutuhan.
• Rangkaian awet dan tahan lama karena menggunakan komponen switching elektronik.
• Panjang kabel sensor ke fitting lampu otomatis 22cm sehingga kinerja sensor tidak terganggu nyala lampu di fitting.

Tulisan ini singkat aja ya, hehe sebab hanya untuk dokumentasi singkat saja. Contoh source code ini dites pada rangkaian ATMega16A menggunakan internal clock 1MHz dengan codevision AVR, kemudian file hex diupload dengan USBASP. Rankaian dari USBASP bisa dicek pada artikel sebelumnya. Konfigurasi di Codevision AVR seperti berikut:

#include <mega16a.h>
#include <delay.h>
#include <alcd.h>
#include <stdio.h>

int num;
unsigned char *str = "00000";

void main(void){
  lcd_init(16); 
             
  num = 1;
  while(1){  
    lcd_gotoxy(0,0); 
    lcd_puts("elangsakti.com");
    lcd_gotoxy(0,1);
    sprintf(str,"%d",num);
    lcd_puts(str);
    num++;
    delay_ms(1000);
  }
}

Arduino dan Joystick

Gambar Joystick dibongkar

Skema Rangkaian Joystick

Masing-masing Joystick terdiri dari 2 buah trimmer dan 1 toggle switch

Nama-nama pin out PCB Joystick

Skema PCB Joystick twin

Program Sketch dengan Arduino

/*
 * Menampilkan informasi posisi joystick
 * coder : elangsakti
 *
 */

const int pV = A0;
const int pH = A1;

void setup() {
  Serial.begin(9600);
  
  pinMode(pV, INPUT);
  pinMode(pH, INPUT);
}

long dataV, dataH;
long lastV, lastH; 
void loop() {
  dataV = analogRead(pV);
  dataH = analogRead(pH);
  
  if(dataV != lastV || dataH != lastH){
    Serial.print("V:");
    Serial.print(dataV);
    Serial.print(", H:");
    Serial.print(dataH);
    Serial.println();
    lastV = dataV;
    lastH = dataH;
  }
}

Hasil & Sekilas Pembahasan tentang Joystick

Posisi     | Kiri     | Kanan
-----------+----------+---------
Vertikal   | 508/509  | 498/499
Horisontal | 507/508  | 497/498

Gambar 1. Peta jalur antar kota yang harus dilewati oleh sales

Gambar 2. Representasi jalur antar kota dalam kasus TSP

Tabel 1. Tabel jarak antar kota (dalam km)

$peta = array(
  'jkt' => (object)array(
      'id'   => 'jkt',
      'name' => 'Jakarta',
      'path' => array(
          'bdg' => 270,
          'crb' => 327
          )
      ),
  'bdg' => (object)array(
      'id'   => 'bdg',
      'name' => 'Bandung',
      'path' => array(
          'crb' => 120,
          'ygy' => 373
          )
      ),
  'crb' => (object)array(
      'id'   => 'crb',
      'name' => 'Cirebon',
      'path' => array(
          'smg' => 305,
          'ygy' => 210
          )
      ),
  'smg' => (object)array(
      'id'   => 'smg',
      'name' => 'Semarang',
      'path' => array(
          'ygy' => 109,
          'srkt' => 97,
          'sby' => 365
          )
      ),
  'ygy' => (object)array(
      'id'   => 'ygy',
      'name' => 'Yogyakarta',
      'path' => array(
          'srkt' => 60
          )
      ),
  'srkt' => (object)array(
      'id'   => 'srkt',
      'name' => 'Surakarta',
      'path' => array(
          'mlg' => 370
          )
      ),
  'sby' => (object)array(
      'id'   => 'sby',
      'name' => 'Surabaya',
      'path' => array(
          'mlg' => 94
          )
      ),
  'mlg' => (object)array(
      'id'   => 'mlg',
      'name' => 'Malang',
      'path' => array()
      )
  );

function possible($kota){
    $ret = array();
    foreach($this->peta as $next){
        foreach($next->path as $key=>$target){
            $tmp = array();
            if($next->id == $kota){
                    $tmp['id']  = $key;
                    $tmp['len'] = $target;
                    array_push($ret,$tmp);
            }else{
                if($key == $kota){
                    $tmp['id']  = $next->id;
                    $tmp['len'] = $next->path[$kota];
                    array_push($ret,$tmp);
                }
            }
        }
    }
    return $ret;
}

function route($start){
    $next = $this->possible($start['id']);
    
    $lastone = true;
    foreach($next as $nxt){
        
        $chkpath = $start['path'].'-'.$nxt['id'];
        $chkp = explode('-',$chkpath);
        
        if(!strpos('x'.$start['path'],$nxt['id']) || ($chkp[0]==$nxt['id'] && sizeof($chkp)==sizeof($this->peta)+1)){
            $tmp = $nxt;
            if($start['path']==''){
                $tmp['lenmin'] = $nxt['len'];
                $tmp['path']   = $start['id'].'-'.$tmp['id'];
            }else{
                $tmp['lenmin'] = $start['lenmin'] + $nxt['len'];
                $tmp['path']   = $start['path'].'-'.$tmp['id'];
            }
            array_push($this->routing, $tmp);
            $lastone = false;
        }
    }
    
    usort($this->routing,function($a,$b){ return $a['lenmin'] - $b['lenmin']; });

    $open = $this->routing[0];
    $back = $this->routing[1];
    
    if($open['path']){
        $tmp = array();
        $tmp['path'] = $this->KOTA($open['path']);
        $tmp['cost'] = $open['lenmin'];
        array_push($this->result, $tmp);
    }
    
    if($open['path']!=''){
        unset($this->routing[0]);
        $this->route($open);
    }
}

Gambar 7. Hasil eksekusi program

Step Rute Cost
1 Jakarta-Bandung 270
2 Jakarta-Cirebon 327
3 Jakarta-Bandung-Cirebon 390
4 Jakarta-Cirebon-Bandung 447
5 Jakarta-Cirebon-Yogyakarta 537
6 Jakarta-Cirebon-Yogyakarta-Surakarta 597
7 Jakarta-Bandung-Cirebon-Yogyakarta 600
8 Jakarta-Cirebon-Semarang 632
9 Jakarta-Bandung-Yogyakarta 643
10 Jakarta-Cirebon-Yogyakarta-Semarang 646
11 Jakarta-Bandung-Cirebon-Yogyakarta-Surakarta 660
12 Jakarta-Cirebon-Yogyakarta-Surakarta-Semarang 694
13 Jakarta-Bandung-Cirebon-Semarang 695
14 Jakarta-Bandung-Yogyakarta-Surakarta 703
15 Jakarta-Bandung-Cirebon-Yogyakarta-Semarang 709
16 Jakarta-Cirebon-Semarang-Surakarta 729
17 Jakarta-Cirebon-Semarang-Yogyakarta 741
18 Jakarta-Cirebon-Yogyakarta-Semarang-Surakarta 743
19 Jakarta-Bandung-Yogyakarta-Semarang 752
20 Jakarta-Bandung-Cirebon-Yogyakarta-Surakarta-Semarang 757
21 Jakarta-Cirebon-Semarang-Surakarta-Yogyakarta 789
22 Jakarta-Bandung-Cirebon-Semarang-Surakarta 792
23 Jakarta-Bandung-Yogyakarta-Surakarta-Semarang 800
24 Jakarta-Cirebon-Semarang-Yogyakarta-Surakarta 801
25 Jakarta-Bandung-Cirebon-Semarang-Yogyakarta 804
26 Jakarta-Bandung-Cirebon-Yogyakarta-Semarang-Surakarta 806
27 Jakarta-Cirebon-Bandung-Yogyakarta 820
28 Jakarta-Bandung-Yogyakarta-Semarang-Surakarta 849
29 Jakarta-Bandung-Cirebon-Semarang-Surakarta-Yogyakarta 852
30 Jakarta-Bandung-Yogyakarta-Cirebon 853
31 Jakarta-Bandung-Cirebon-Semarang-Yogyakarta-Surakarta 864
32 Jakarta-Cirebon-Bandung-Yogyakarta-Surakarta 880
33 Jakarta-Cirebon-Yogyakarta-Bandung 910
34 Jakarta-Cirebon-Bandung-Yogyakarta-Semarang 929
35 Jakarta-Cirebon-Yogyakarta-Surakarta-Malang 967
36 Jakarta-Cirebon-Bandung-Yogyakarta-Surakarta-Semarang 977
37 Jakarta-Cirebon-Semarang-Surabaya 997
38 Jakarta-Cirebon-Yogyakarta-Semarang-Surabaya 1011
39 Jakarta-Cirebon-Bandung-Yogyakarta-Semarang-Surakarta 1026
40 Jakarta-Bandung-Cirebon-Yogyakarta-Surakarta-Malang 1030
41 Jakarta-Bandung-Yogyakarta-Semarang-Cirebon 1057
42 Jakarta-Cirebon-Yogyakarta-Surakarta-Semarang-Surabaya 1059
43 Jakarta-Bandung-Cirebon-Semarang-Surabaya 1060
44 Jakarta-Cirebon-Yogyakarta-Surakarta-Malang-Surabaya 1061
45 Jakarta-Bandung-Yogyakarta-Surakarta-Malang 1073
46 Jakarta-Bandung-Cirebon-Yogyakarta-Semarang-Surabaya 1074
47 Jakarta-Cirebon-Semarang-Surabaya-Malang 1091
48 Jakarta-Cirebon-Semarang-Surakarta-Malang 1099
49 Jakarta-Cirebon-Yogyakarta-Semarang-Surabaya-Malang 1105
50 Jakarta-Bandung-Yogyakarta-Surakarta-Semarang-Cirebon 1105
51 Jakarta-Cirebon-Yogyakarta-Semarang-Surakarta-Malang 1113
52 Jakarta-Cirebon-Semarang-Yogyakarta-Bandung 1114
53 Jakarta-Bandung-Yogyakarta-Semarang-Surabaya 1117
54 Jakarta-Bandung-Cirebon-Yogyakarta-Surakarta-Semarang-Surabaya 1122
55 Jakarta-Bandung-Cirebon-Yogyakarta-Surakarta-Malang-Surabaya 1124
56 Jakarta-Cirebon-Yogyakarta-Surakarta-Semarang-Surabaya-Malang 1153
57 Jakarta-Bandung-Cirebon-Semarang-Surabaya-Malang 1154
58 Jakarta-Bandung-Yogyakarta-Cirebon-Semarang 1158
59 Jakarta-Cirebon-Semarang-Surakarta-Yogyakarta-Bandung 1162
60 Jakarta-Bandung-Cirebon-Semarang-Surakarta-Malang 1162
61 Jakarta-Bandung-Yogyakarta-Surakarta-Semarang-Surabaya 1165
62 Jakarta-Bandung-Yogyakarta-Surakarta-Malang-Surabaya 1167
63 Jakarta-Bandung-Cirebon-Yogyakarta-Semarang-Surabaya-Malang 1168
64 Jakarta-Cirebon-Semarang-Yogyakarta-Surakarta-Malang 1171
65 Jakarta-Bandung-Cirebon-Yogyakarta-Semarang-Surakarta-Malang 1176
66 Jakarta-Cirebon-Semarang-Surakarta-Malang-Surabaya 1193
67 Jakarta-Cirebon-Yogyakarta-Semarang-Surakarta-Malang-Surabaya 1207
68 Jakarta-Bandung-Yogyakarta-Semarang-Surabaya-Malang 1211
69 Jakarta-Bandung-Cirebon-Yogyakarta-Surakarta-Semarang-Surabaya-Malang 1216
70 Jakarta-Bandung-Yogyakarta-Semarang-Surakarta-Malang 1219
71 Jakarta-Bandung-Cirebon-Semarang-Yogyakarta-Surakarta-Malang 1234
72 Jakarta-Cirebon-Bandung-Yogyakarta-Surakarta-Malang 1250
73 Jakarta-Bandung-Yogyakarta-Cirebon-Semarang-Surakarta 1255
74 Jakarta-Bandung-Cirebon-Semarang-Surakarta-Malang-Surabaya 1256
75 Jakarta-Bandung-Yogyakarta-Surakarta-Semarang-Surabaya-Malang 1259
76 Jakarta-Cirebon-Semarang-Yogyakarta-Surakarta-Malang-Surabaya 1265
77 Jakarta-Bandung-Cirebon-Yogyakarta-Semarang-Surakarta-Malang-Surabaya 1270
78 Jakarta-Cirebon-Bandung-Yogyakarta-Semarang-Surabaya 1294
79 Jakarta-Bandung-Yogyakarta-Semarang-Surakarta-Malang-Surabaya 1313
80 Jakarta-Bandung-Cirebon-Semarang-Yogyakarta-Surakarta-Malang-Surabaya 1328
81 Jakarta-Cirebon-Bandung-Yogyakarta-Surakarta-Semarang-Surabaya 1342
82 Jakarta-Cirebon-Bandung-Yogyakarta-Surakarta-Malang-Surabaya 1344
83 Jakarta-Cirebon-Bandung-Yogyakarta-Semarang-Surabaya-Malang 1388
84 Jakarta-Cirebon-Bandung-Yogyakarta-Semarang-Surakarta-Malang 1396
85 Jakarta-Cirebon-Yogyakarta-Surakarta-Malang-Surabaya-Semarang 1426
86 Jakarta-Cirebon-Bandung-Yogyakarta-Surakarta-Semarang-Surabaya-Malang 1436
87 Jakarta-Cirebon-Semarang-Surabaya-Malang-Surakarta 1461
88 Jakarta-Cirebon-Yogyakarta-Semarang-Surabaya-Malang-Surakarta 1475
89 Jakarta-Bandung-Cirebon-Yogyakarta-Surakarta-Malang-Surabaya-Semarang 1489
90 Jakarta-Cirebon-Bandung-Yogyakarta-Semarang-Surakarta-Malang-Surabaya 1490
91 Jakarta-Cirebon-Semarang-Surabaya-Malang-Surakarta-Yogyakarta 1521
92 Jakarta-Bandung-Yogyakarta-Cirebon-Semarang-Surabaya 1523
93 Jakarta-Bandung-Cirebon-Semarang-Surabaya-Malang-Surakarta 1524
94 Jakarta-Bandung-Yogyakarta-Surakarta-Malang-Surabaya-Semarang 1532
95 Jakarta-Bandung-Cirebon-Yogyakarta-Semarang-Surabaya-Malang-Surakarta 1538
96 Jakarta-Bandung-Yogyakarta-Semarang-Surabaya-Malang-Surakarta 1581
97 Jakarta-Bandung-Cirebon-Semarang-Surabaya-Malang-Surakarta-Yogyakarta 1584
98 Jakarta-Bandung-Yogyakarta-Cirebon-Semarang-Surabaya-Malang 1617
99 Jakarta-Bandung-Yogyakarta-Cirebon-Semarang-Surakarta-Malang 1625
100 Jakarta-Cirebon-Bandung-Yogyakarta-Surakarta-Malang-Surabaya-Semarang 1709
101 Jakarta-Bandung-Yogyakarta-Cirebon-Semarang-Surakarta-Malang-Surabaya 1719
102 Jakarta-Cirebon-Bandung-Yogyakarta-Semarang-Surabaya-Malang-Surakarta 1758
103 Jakarta-Bandung-Yogyakarta-Surakarta-Malang-Surabaya-Semarang-Cirebon 1837
104 Jakarta-Cirebon-Semarang-Surabaya-Malang-Surakarta-Yogyakarta-Bandung 1894
105 Jakarta-Bandung-Yogyakarta-Cirebon-Semarang-Surabaya-Malang-Surakarta 1987
106 Jakarta-Bandung-Yogyakarta-Surakarta-Malang-Surabaya-Semarang-Cirebon-Jakarta 2164
107 Jakarta-Cirebon-Semarang-Surabaya-Malang-Surakarta-Yogyakarta-Bandung-Jakarta 2164

<?php
class TSP{
    var $peta = array();
    var $routing = array();
    var $result = array();
    
    function start( $kota ){
        $start = array('id'=>$kota, 'path'=>'');
        $this->route($start);
        return $this->result;
    }
    
    function setPeta($peta){
        $this->peta = $peta;
    }
    
    function possible($kota){
        $ret = array();
        foreach($this->peta as $next){
            foreach($next->path as $key=>$target){
                $tmp = array();
                if($next->id == $kota){
                        $tmp['id']  = $key;
                        $tmp['len'] = $target;
                        array_push($ret,$tmp);
                }else{
                    if($key == $kota){
                        $tmp['id']  = $next->id;
                        $tmp['len'] = $next->path[$kota];
                        array_push($ret,$tmp);
                    }
                }
            }
        }
        return $ret;
    }
    
    function route($start){
        $next = $this->possible($start['id']);
        
        $lastone = true;
        foreach($next as $nxt){
            
            $chkpath = $start['path'].'-'.$nxt['id'];
            $chkp = explode('-',$chkpath);
            
            if(!strpos('x'.$start['path'],$nxt['id']) || ($chkp[0]==$nxt['id'] && sizeof($chkp)==sizeof($this->peta)+1)){
                $tmp = $nxt;
                if($start['path']==''){
                    $tmp['lenmin'] = $nxt['len'];
                    $tmp['path']   = $start['id'].'-'.$tmp['id'];
                }else{
                    $tmp['lenmin'] = $start['lenmin'] + $nxt['len'];
                    $tmp['path']   = $start['path'].'-'.$tmp['id'];
                }
                array_push($this->routing, $tmp);
                $lastone = false;
            }
        }
        
        usort($this->routing,function($a,$b){ return $a['lenmin'] - $b['lenmin']; });
    
        $open = $this->routing[0];
        $back = $this->routing[1];
        
        if($open['path']){
            $tmp = array();
            $tmp['path'] = $this->KOTA($open['path']);
            $tmp['cost'] = $open['lenmin'];
            array_push($this->result, $tmp);
        }
        
        if($open['path']!=''){
            unset($this->routing[0]);
            $this->route($open);
        }
    }
    
    function KOTA( $path ){
        foreach($this->peta as $kota){
            $path = str_replace($kota->id,$kota->name,$path);
        }
        return $path;
    }
}
?>