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

Jaranguda

Belajar Mengajar

  • Home
  • Sponsor/Jasa
  • Tentang

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 878 times – 178.00 B

Tulisan menarik lainnya

  • Membuat Aplikasi Konversi Mata Uang dengan Gambas

    Buat design aplikasi seperti gambar dibawah Klik dua kali pada form, lalu tambahkan code dibawah…

  • Membuat Pemutar Musik MP3 dengan Delphi

    Tutorial ini menggunakan Delphi XE, dan penggunaan di Delphi 7 atau versi lainnya seharusnya tidak…

  • Membuat Aplikasi Sederhana dengan Phonegap

    Bila anda belum melakukan instalasi phonegap, cordova silahkan merujuk ke Persiapan Membuat Development Phonegap 3.x…

  • Membuat Program Launcher dengan Delphi XE

    Setelah di tulisan sebelumnya https://jaranguda.com/membuat-program-launcher-dengan-gambas/ kita menggunakan Gambas, maka sekarang kita akan mencoba membuat aplikasi…

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

Reader Interactions

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

Primary Sidebar

Pencarian

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

Terbaru

  • Cara Mengganti Port Screen Sharing macOS
  • 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

Komentar

  • mazda on Tutorial Lengkap Install Mail Server Postfix Dovecot MariaDB di CentOS 7
  • adi on Menggunakan Mikrotik Sebagai SSH Client
  • aris u on Solusi Simple Queue Mikrotik Tidak Berjalan
  • Bowo on Cara Mematikan SSID Molecool Balifiber
  • aris on Solusi Simple Queue Mikrotik Tidak Berjalan

Tulisan Populer

  • Password Router Huawei HG8245H5 Indihome 1.2m views
  • Password Terbaru ZTE F609 Indihome 784.5k views
  • Password Superadmin Huawei HG8245A 318.3k views
  • Cara Setting Manual Modem GPON ZTE F609 Indihome 273.1k views
  • Cara Setting Wireless ZTE F609 Indihome 257.1k views
  • Mengaktifkan Port LAN di Huawei HG8245 Indihome 169.9k views
  • Akses UseeTV Indihome via Wireless ZTE F609 156.8k views
  • Kemana Menghilangnya Saldo BCA 50 ribu 153.2k views
  • Cara Reset Password ZTE F609 Indihome 147.6k views
  • Cara Setting DHCP Server Modem/Router ZTE F609 113.6k 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