Arabic Alphabet & Pronunciation

Advertisements

Pidato Inspiratif Steve Jobs di Stanford University

Dalam pidato ini, secara gamblang Steve Jobs menyampaikan, “Today I want to tell you three stories of my life. That’s it. No big deal. Just three stories.”


Kisah Pertama: Connecting The Dots (Menghubungkan Titik-Titik)


“You have got to trust in something, your gut, destiny, life, karma, whatever. Believing that the dots will connect down the road will give you the confidence to follow your heart. Even when it leads you off the well worn path, and that will make all the difference.”
Anda harus percaya pada sesuatu, keberanian takdir, kehidupan, karma atau apa saja. Percaya bahwa titik-titik tersebut akan berhubungan satu sama lain dan memberi Anda keyakinan untuk mengikuti kata hati. Meskipun hal itu akan membawa Anda ke jalur yang berbeda dari jalur yang banyak dilalui orang, dan itulah yang akan membuat sebuah perbedaan besar.


Kisah Kedua: Love and Loss (Cinta dan Kehilangan)


“Sometimes life hits you in the head with a brick. Don’t lose faith. I’m convinced that the only things that kept me going was that I loved what I did. You’ve got to find what you love.”
Kadangkala hidup sedemikian berat seperti batu yang menimpa kepala Anda. Jangan hilang keyakinan. Saya yakin yang membuat saya terus bertahan karena saya mencintai apa yang saya lakukan. Anda harus menemukan apa yang Anda cintai.

“And the only way to do great work is to love what you do. If you haven’t found it yet, keep looking. Don’t settle. As with all matters of the heart, you’ll know when you find it.”
Satu-satunya cara untuk membuat kerja hebat adalah mencintai apa yang Anda lakukan. Jika Anda belum menemukan, teruslah mencari. Jangan berpuas diri. Hati Anda akan mengetahuinya ketika Anda telah menemukannya.


Kisah Ketiga: Death (Kematian)


“There is no reason not to follow your heart.”
Tidak ada alasan untuk tidak mengikuti hati Anda.

“Your time is limited, so don’t waste it living someone else’s life. Have the courage to follow your heart and intuition. They somehow already know what you truly want to become.”
Waktu Anda terbatas, jadi jangan sia-siakan dengan menjalani kehidupan orang lain. Miliki keberanian untuk mengikuti kata hati dan intuisi Anda. Mereka sedikit banyak sudah tahu akan menjadi siapa Anda nantinya.



Penutup
Steve menutup pidatonya dengan bercerita kisah di masa muda ketika dia dan teman-teman memilih sebuah kutipan dari majalah. Kutipan itu pula yang dia sampaikan buat seluruh mahasiswa Stanford yang baru lulus,

“Stay Hungry, Stay Foolish”.

Tetaplah merasa lapar dan bodoh, agar Anda terus belajar dan mencari sesuatu yang besar dan bermanfaat buat hidup Anda.

Cari Data via Ajax (by me)

File: koneksi.php

<?php

define("NAMA_SERVER", "localhost");
define("PEMAKAI", "root");
define("PASSWORD", "");
define("DATABASE", "simpusbpjs");

$id_mysql = mysql_connect(NAMA_SERVER, PEMAKAI, PASSWORD);
if (!$id_mysql) {
    die("Koneksi ke Server gagal!");
}

$db_star = mysql_select_db(DATABASE, $id_mysql);
if (!$db_star) {
    die ("Koneksi ke Database gagal!");
}

?>

File: search_data.php

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml/DTD/xhtml-transitional.dtd">
<html lang="en">
<head>
  <meta charset="utf-8">
  <title>p-care BPJS</title>
  <meta name="viewport" content="width=device-width, initial-scale=1.0">
  <meta name="description" content="">
  <meta name="author" content="">

  <link href="css/style.css" rel="stylesheet">
  
  <script typet="text/javascript" src="js/jquery-2.1.1.min.js"></script>
  <script typet="text/javascript">
      $(document).ready(function () {
          $("#tombol").click(function() {
              $("#info").load("bacadata.php?dicari=" +
                                $("#no_dicari").val());
          });
      });
  </script>
</head>
</body>
<h1>Mencari data peserta</h1>
<form id="formulir" action="">
    <label>No Pencarian :</label>
    <input type="text" id="no_dicari" name="no_dicari" />
    <input type="button" id="tombol" value="Cari" />
</form>
<br />
<div id="info"></div>
</body>
</html>

File: bacadata.php

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml/DTD/xhtml-transitional.dtd">
<html>
<head>
</head>    
<body>

<?php
include_once 'koneksi.php';

//peroleh yang dicari
if (isset($_GET["dicari"]))
    $no_dicari = $_GET["dicari"];
else
    $no_dicari = "";

//bagian untuk membaca data
$sql = "SELECT no_kartu, nama, marital, tgl_lahir, sex, kode_ppk  FROM t_pasien where no_kartu = ".$no_dicari." ";
$hasil = mysql_query($sql);

if(!$hasil) {
    die("Salah SQL");
}
?>

<table id="id_table" border="0">
    
    <?php 
    while ($baris = mysql_fetch_row($hasil)) {
        $no_kartu = $baris[0];
        $nama = $baris[1];
        $marital = $baris[2];
        $tgl_lahir = $baris[3];
        $thn = substr($tgl_lahir, 0, 4);
        $bln = substr($tgl_lahir, 5, 2);
        $tgl = substr($tgl_lahir, 8, 2);
        $sex = $baris[4];     
        $ppk = $baris[5];
        
        print("<tr><td>$no_kartu</td></tr>"
                . "<tr><td>$nama</td></tr>"
                . "<tr><td>$marital</td></tr> "
                . "<tr><td>$tgl-$bln-$thn</td></tr> "
                . "<tr><td>$sex</td></tr> "
                . "<tr><td>$ppk - PULO ARMIN</td></tr> ");
    }
    //akhir pembacaan data
    mysql_close($id_mysql);
    ?>
    
</table>
    
</body>
</html>

dump *.sql buat code ini

/*
Navicat MySQL Data Transfer

Source Server         : myapps
Source Server Version : 50616
Source Host           : localhost:3306
Source Database       : simpusbpjs

Target Server Type    : MYSQL
Target Server Version : 50616
File Encoding         : 65001

Date: 2014-05-14 10:15:25
*/

SET FOREIGN_KEY_CHECKS=0;

-- ----------------------------
-- Table structure for `t_pasien`
-- ----------------------------
DROP TABLE IF EXISTS `t_pasien`;
CREATE TABLE `t_pasien` (
  `NO_KARTU` varchar(13) NOT NULL,
  `ID_POLI` int(11) DEFAULT NULL,
  `KODE_PPK` varchar(8) DEFAULT NULL,
  `NAMA` varchar(50) DEFAULT NULL,
  `SEX` varchar(1) DEFAULT NULL,
  `USIA` int(11) DEFAULT NULL,
  `STATUS` varchar(10) DEFAULT NULL,
  `TGL_LAHIR` date DEFAULT NULL,
  `MARITAL` varchar(10) DEFAULT NULL,
  PRIMARY KEY (`NO_KARTU`),
  KEY `FK_REFERENCE_2` (`ID_POLI`),
  KEY `FK_REFERENCE_3` (`KODE_PPK`),
  CONSTRAINT `FK_REFERENCE_2` FOREIGN KEY (`ID_POLI`) REFERENCES `t_poli` (`ID_POLI`),
  CONSTRAINT `FK_REFERENCE_3` FOREIGN KEY (`KODE_PPK`) REFERENCES `t_ppk` (`KODE_PPK`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

-- ----------------------------
-- Records of t_pasien
-- ----------------------------
INSERT INTO `t_pasien` VALUES ('0000060271582', '1', '10030202', 'YETTI KURNIATI', 'P', '65', 'BARU', '1964-08-14', 'ISTRI');
INSERT INTO `t_pasien` VALUES ('0000500559412', '1', '10030202', 'IIM', 'P', '44', 'BARU', '1970-08-01', 'ISTRI');

-- ----------------------------
-- Table structure for `t_poli`
-- ----------------------------
DROP TABLE IF EXISTS `t_poli`;
CREATE TABLE `t_poli` (
  `ID_POLI` int(11) NOT NULL,
  `NAMA_POLI` varchar(25) DEFAULT NULL,
  PRIMARY KEY (`ID_POLI`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

-- ----------------------------
-- Records of t_poli
-- ----------------------------
INSERT INTO `t_poli` VALUES ('1', 'UMUM');
INSERT INTO `t_poli` VALUES ('2', 'KIA');

-- ----------------------------
-- Table structure for `t_ppk`
-- ----------------------------
DROP TABLE IF EXISTS `t_ppk`;
CREATE TABLE `t_ppk` (
  `KODE_PPK` varchar(8) NOT NULL,
  `NAMA_PPK` varchar(25) DEFAULT NULL,
  PRIMARY KEY (`KODE_PPK`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

-- ----------------------------
-- Records of t_ppk
-- ----------------------------
INSERT INTO `t_ppk` VALUES ('10030202', 'PULO ARMIN');

VB.Net Tree View Control Example (by me)

Image


Code for VB.Net TreeView Control Example (by me)


 Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterSelect

 Dim nodeTree As String = Me.TreeView1.SelectedNode.Name()
 Try

 Select Case nodeTree.ToString

 'Menu Transaksi
 Case "NodeInputTransaksi"
 Dim frmInputTransaksi As New FormInputTransaksi
 frmInputTransaksi.Show()
 frmInputTransaksi.TopMost = True 'bring form to front
 Case "NodeStatusTransaksi"
 Dim frmStatTransaksi As New FormStatusTransaksi
 frmStatTransaksi.Show()
 frmStatTransaksi.TopMost = True 'bring form to front
 Case "NodeDaftarMember"
 Dim frmDfrMember As New FormDaftarMember
 frmDfrMember.Show()
 frmDfrMember.TopMost = True 'bring form to front
 Case "NodeDaftarNonMember"
 Dim frmDfrNonMember As New FormDaftarNonMember
 frmDfrNonMember.Show()
 frmDfrNonMember.TopMost = True 'bring form to front

 'Menu Administrasi
 Case "NodeNamaLayanan"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodePaket"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodeHargaPerPotong"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodePengaturanTransaksi"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front

 'Menu Inventory
 Case "NodeInventory"
 Dim frmInventory As New FormInventory
 frmInventory.Show()
 frmInventory.TopMost = True 'bring form to front
 Case "NodeStokBarang"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodePembelianBB"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodePemakaian"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front

 'Menu Laporan
 Case "NodeLapTransaksi"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodeLapPemasukan"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodeLapKeuntungan"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodeRekapLap"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front

 'Menu Konfigurasi
 Case "NodeManajemenUser"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodeBackupDatabase"
 Dim frmLayanan As New FormManageDB
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front

 'Menu Help
 Case "NodeAbout"
 Dim frmLayanan As New FormNamaLayanan
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 Case "NodeBantuan"
 Dim frmLayanan As New LoginForm
 frmLayanan.Show()
 frmLayanan.TopMost = True 'bring form to front
 End Select
 Catch ex As Exception
 'do nothing
 End Try
 End Sub