• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar

Jaranguda

Belajar Mengajar

  • Home
  • Sponsor/Jasa
  • Tentang

source code

Aplikasi Menghitung Tiket Kereta Api dengan Gambas

Last Updated on 18 February 2013 By tommy 1 Comment

Aplikasi yang kita buat ini, masih sangat sederhana, tujuannya adalah untuk mempelajari cara untuk mempelajari fungsi if then elseif di Gambas.
Buat design aplikasi tiket kereta api seperti gambar dibawah ini
design form tiket kereta api

1 buah combobox
Isi list combobox dengan Yogyakarta, Jakarta dan Malang.
7 buah TextBox
1 buah Button
ubah property text button menjadi hitung.

Klik dua kali di form kosong, tambahkan script dibawah ini, agar nilai di TextBox 1 sampai 7 dihilangkan

TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
TextBox4.Clear
TextBox5.Clear
TextBox6.Clear
TextBox7.Clear

klik dua kali pada tombol Hitung, lalu paste script dibawah ini

Dim harga As Integer
Dim jumlah As Integer
Dim total As Integer
 
  TextBox3.Text = TextBox1.Text
  If ComboBox1.Text = "Jakarta" Then 
  TextBox4.Text = "Jakarta"
  TextBox5.Text = 120000
  Endif
  If ComboBox1.Text = "Yogyakarta" Then
    TextBox4.Text = "Yogyakarta"
    TextBox5.Text = 150000
  Endif
    If ComboBox1.Text = "Malang" Then
    TextBox4.Text = "Malang"
    TextBox5.Text = 200000
  Endif
 
  TextBox6.text = TextBox2.Text
  jumlah = TextBox2.text
  harga = TextBox5.Text
  total = jumlah * harga
  TextBox7.Text = total

Coba jalankan aplikasi Tiket Kereta Api dengan menekan tombol F5 di keyboard.
tampilan aplikasi tiket kereta api

tiket kereta api

Download :

Download “Aplikasi Tiket Kereta Api”

keretaapi-0.0.1.tar.gz – Downloaded 1143 times – 178 B

Filed Under: Gambas Tagged With: hitung, source code

Membuat Diagram Batang (Pie Chart) dengan PHP MySQL

Last Updated on 7 August 2014 By tommy 23 Comments

Sebagai contoh kita akan membuat diagram batang data penduduk Indonesia per provinsi. Buat sebuah database belajar, tambahkan table datapenduduk lalu import database di bawah ini

--
-- Database: `belajar`
--
-- --------------------------------------------------------
--
-- Table structure for table `datapenduduk`
--
CREATE TABLE IF NOT EXISTS `datapenduduk` (
  `provinsi` varchar(50) NOT NULL,
  `jumlah` int(11) NOT NULL,
  PRIMARY KEY (`provinsi`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
--
-- Dumping data for table `datapenduduk`
--
INSERT INTO `datapenduduk` (`provinsi`, `jumlah`) VALUES
('Aceh', 3930905),
('Jambi', 2413846),
('Riau', 4957627),
('Sumatera Barat', 4248931),
('Sumatera Utara', 11649655);

Kita akan menggunakan highcart untuk menampilkan diagram balok nya. Buat sebuah file bernama cart.php isikan script dibawah ini

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>Grafik Penduduk Indonesia</title>
<script src="http://code.jquery.com/jquery-1.9.1.min.js"></script>
<script src="http://code.highcharts.com/highcharts.js"></script>
<script src="http://code.highcharts.com/modules/exporting.js"></script>
<script type="text/javascript">
	var chart1; // globally available
$(document).ready(function() {
      chart1 = new Highcharts.Chart({
         chart: {
            renderTo: 'container',
            type: 'column'
         },   
         title: {
            text: 'Data Penduduk Indonesia Per Provinsi'
         },
         xAxis: {
            categories: ['Provinsi']
         },
         yAxis: {
            title: {
               text: 'Jumlah Penduduk'
            }
         },
              series:             
            [
<?php         
$server = "localhost";
$username = "jaranguda"; // user name mysql
$password = "jaranguda123"; // password mysql
$database = "belajar"; // nama database
mysql_connect($server,$username,$password) or die("Koneksi gagal");
mysql_select_db($database) or die("Database tidak bisa dibuka");
$sql   = "SELECT * from datapenduduk";
$query = mysql_query( $sql )  or die(mysql_error());         
while($ambil = mysql_fetch_array($query)){
	$provinsi=$ambil['provinsi'];
	$sql_jumlah   = "SELECT * from datapenduduk where provinsi='$provinsi'";        
	$query_jumlah = mysql_query( $sql_jumlah ) or die(mysql_error());
	while( $data = mysql_fetch_array( $query_jumlah ) ){
	   $jumlahx = $data['jumlah'];                 
	  }             
 
	  ?>
	  {
		  name: '<?php echo $provinsi; ?>',
		  data: [<?php echo $jumlahx; ?>]
	  },
	  <?php } ?>
]
});
});	
</script>
</head>
<body>
<div id="container" style="min-width: 400px; height: 400px; margin: 0 auto"></div>
 
</body>
</html>

yang perlu diubah adalah bagian

$server = "localhost";
$username = "jaranguda"; // user name mysql
$password = "jaranguda123"; // password mysql
$database = "belajar"; // nama database

sesuaikan dengan database yang anda gunakan. Setelah selesai buka melalui browser, maka akan tampil grafik seperti gambar dibawah ini
grafik penduduk indonesia

Download source code:

Filed Under: PHP Tagged With: grafik, source code

Mengetahui IP, Browser dan Sistem Operasi pengunjung dengan Script PHP

Last Updated on 6 November 2014 By tommy 10 Comments

Update : 6 November 2014
info ip browser os
Mau tau IP, Browser dan juga OS yang digunakan oleh pengunjung situs/blog anda ? Banyak script/tools/widget diluar sana yang bisa memfasilitasi kebutuhan anda tersebut, tetapi apakah anda tau, bahwa anda juga bisa membuat script yang sama dengan mudah? yang dibutuhkan hanya beberapa baris script dan beres :). Buat sebuah file bernama ip.php lalu tambahkan script

<?php
function IPnya() {
    $ipaddress = '';
    if (getenv('HTTP_CLIENT_IP'))
        $ipaddress = getenv('HTTP_CLIENT_IP');
    else if(getenv('HTTP_X_FORWARDED_FOR'))
        $ipaddress = getenv('HTTP_X_FORWARDED_FOR');
    else if(getenv('HTTP_X_FORWARDED'))
        $ipaddress = getenv('HTTP_X_FORWARDED');
    else if(getenv('HTTP_FORWARDED_FOR'))
        $ipaddress = getenv('HTTP_FORWARDED_FOR');
    else if(getenv('HTTP_FORWARDED'))
        $ipaddress = getenv('HTTP_FORWARDED');
    else if(getenv('REMOTE_ADDR'))
        $ipaddress = getenv('REMOTE_ADDR');
    else
        $ipaddress = 'IP Tidak Dikenali';
 
    return $ipaddress;
}
$ipaddress = $_SERVER['REMOTE_ADDR'];
echo "IP anda adalah : ";
echo IPnya();
echo "<br>Browser ";
echo $_SERVER['HTTP_USER_AGENT'];
echo "<br> Sistem Operasi :";
echo php_uname();
?>

Buka browser anda untuk menampilkan hasil dari script diatas.

Filed Under: PHP Tagged With: ip info, source code

Membuat Aplikasi Konversi Mata Uang dengan Gambas

Last Updated on 7 February 2013 By tommy Leave a Comment

Buat design aplikasi seperti gambar dibawah
design konversi mata uang gambas

Klik dua kali pada form, lalu tambahkan code dibawah ini

TextBox1.Clear
TextBox2.Clear
TextBox3.Clear
Label1.Text = "Dollar (USD $) "
Label2.Text = "Rupiah"
Label3.Text = "Euro"
Button1.Text = "Hitung"

Coba dijalankan aplikasi tersebut dengan menekan tombol F5 di keyboard, hasilnya seperti gambar dibawah ini
interface konversi uang

Sekarang tahap coding untuk konversi dari dolar ke rupiah dan euro. Sebagai contoh kita asumsikan 1$ = 9600 dan 1$ = 1.48€. Klik dua kali pada tombol Hitung dan tambahkan code dibawah ini

TextBox2.Text = 9600 * TextBox1.Text
TextBox3.Text = 0.74 * TextBox1.Text

tekan tombol F5 di keyboard, dan lakukan percobaan apakah aplikasi yang kita buat telah berjalan dengan lancar atau belum.
konversi gambas 5 dollar

konversi gambas 3 dollar

Download :

Download “Konversi Mata Uang Gambas”

konversi-0.0.1.tar.gz – Downloaded 951 times – 178 B

Filed Under: Gambas Tagged With: konversi, source code

Membuat Aplikasi Konversi Kilobyte, Megabyte Ke Byte dengan Delphi

Last Updated on 3 February 2013 By tommy Leave a Comment

Versi Delphi yang saya gunakan adalah Delphi XE, tetapi aplikasi ini bisa berjalan di semua versi Delphi. Buat sebuah form baru, design seperti gambar dibawah
design konversi delphi

Tool Palette yang digunakan
2 buah TEdit
1 buah TCombobox
2 buah label

Klik dua kali pada sembarang tempat di form, lalu tambahkan script dibawah ini

// membersihkan edit1 dan edit2
edit1.Clear;
edit2.Clear;
//menambahkan isi combobox
ComboBox1.Items.Add('Byte');
ComboBox1.Items.Add('Kilobyte');
ComboBox1.Items.Add('Megabyte');

Kembali ke Design form, Label1 ubah property Caption menjadi = , Label2 ubah property Caption menjadi Byte. Klik Combobox1, klik dua kali pada pada events OnChange akan terbuka view code, dimana kita bisa menambahkan coding, tambahkan script dibawah ini

var
a1, a2 : integer;
begin
if ComboBox1.Text='Byte' then
begin
//edit2.Text := edit1.Text * 1;
a1 := StrToInt(Edit1.Text) * 1;
edit2.Text := IntToStr(a1);
end
 
else if ComboBox1.Text='Kilobyte' then
begin
a1 := StrToInt(Edit1.Text) * 1024;
edit2.Text := IntToStr(a1);
end
 
else if ComboBox1.Text='Megabyte' then
begin
a1 := StrToInt(Edit1.Text) * 1048576;
edit2.Text := IntToStr(a1);
end

Setelah selesai semuanya, jalankan aplikasi dengan menekan tombol F9 di keyboard
konversi delphi konversi delphi1 konversi delphi1

Download

Download “Konversi dengan Delphi”

konversi.zip – Downloaded 811 times – 178 B

Filed Under: Delphi Tagged With: convert, konversi, source code

Menghitung Usia/Umur dengan Delphi

Last Updated on 2 February 2013 By tommy Leave a Comment

Buat design aplikasinya seperti gambar dibawah ini
design umur delphi

2 buah TLabel
1 buah TButton
1 buah datetimepicker
1 buah Tedit

klik dua kali pada tombol hitung, lalu masukkan script

var
umur, tl, ts: Integer;
begin
tl := Yearof(Now);
ts := YearOf(DateTimePicker1.Date);
umur := tl -ts;
edit2.Text := IntToStr(umur);

klik dua kali pada form, tambahkan script dibawah ini

edit2.clear

Jalankan aplikasi diatas dengan menekan tombol F9 di keyboard
program hitung usia delphi
hasil perhitungan usia

Filed Under: Delphi Tagged With: delpi xe, source code, umur

  • Go to page 1
  • Go to page 2
  • Go to Next Page »

Primary Sidebar

Pencarian

Tanya Jawab tentang DevOps SRE CPE, gabung di https://t.me/devopsindonesia

Terbaru

  • Cara Menonaktifkan Pager di macOS
  • Cara Mengupdate Nama Apple silicon-as-a-Service Scaleway
  • Cara Force Delete Namespace di Kubernetes
  • Install PHP MariaDB di Mac Monterey
  • MacOS Minta Install Git

Komentar

  • Ari on Cara Mematikan SSID Molecool Balifiber
  • kiki anarki on Mengambil Data dari Situs BPJS Ketenagakerjaan dengan PHP cURL
  • musgan on Password Router Huawei HG8245H5 Indihome
  • ghabily on Mengambil Informasi Router Alcatel Lucent G-241W-A dengan PHP
  • nea on Mencari urutan angka yang hilang di PHP

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1.1m views
  • Password Terbaru ZTE F609 Indihome 784k views
  • Password Superadmin Huawei HG8245A 314.2k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 272.2k views
  • Cara Setting Wireless ZTE F609 Indihome 256.1k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 169.1k views
  • Akses UseeTV Indihome via Wireless ZTE F609 156.5k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 150.3k views
  • Cara Reset Password ZTE F609 Indihome 147.2k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 112.9k views

Kategori

  • Delphi
  • dll
  • Gambas
  • Internet
  • Java
  • Lazarus
  • Linux
  • PHP
  • Review
  • Teknologi

Sponsor

kadal.id
carakami.com
kuotabisa.com
Untuk jadi sponsor, hubungi kita lewat halaman sponsor
© 2021. Jaranguda
  • Linux
  • PHP
  • Internet
  • Teknologi
  • Delphi
  • Gambas
  • Java