Sijunjung Xcoder: Pemrograman Delphi
Home Pemrograman Delphi
Showing posts with label Pemrograman Delphi. Show all posts
Showing posts with label Pemrograman Delphi. Show all posts

Cara Membuat Logika (Y/T) Ya atau Tidak di C++

  
 Hallo Guys… Apa kabarnya kamu? Semua keadaan baik-baik ya, Ok pada kesempatan kali ini, Saya akan mengulas tentang Cara Membuat Pilihan Ya atau Tidak di C++. Mungkin sebagian orang masih belum mengerti bahasa C++ itu apa? Jadi C++ adalah bahasa pemrograman computer yang merupakan perkembangan dari bahasa C dibuat oleh Bjarne Stroustrup. Jika anda ingin membaca lebih detail tentang pengertian C++ ada diWikipedia. Dalam membuat program C++ , Saya menggunakan software CodeBlocks, tapi jika kamu ingin menggunakan software lain seperti Borland, tidak masalah,sama saja guys.

Code Logika Pilihan (Y/T) Ya atau Tidak di C++


#include <iostream>

using namespace std;

int main()
{
    char yt;

    awal:
    cout << "Mencoba Perulanggan Ya atau Tidak By Pamsatria" << endl;

    cout<<endl<<endl;

    cout<<"Entry Data Lagi (y/t) ?  ";
    cin>>yt;
    cout<<endl;
    if(yt=='Y'||yt=='y'){
        goto awal;
    }
    if(yt=='T'||yt=='t'){
        goto akhir;
    }
    akhir:


    return 0;
}

Gambar Hasil code logika diatas

 

 Penjelasan Code Logika Y/T 

Ok Saya akan jelaskan code logika diatas. Dalam code logika diatas kita akan menggunakan tipe data “Char” dan membuat variable pemanggil ya/tidak yang saya singkat  menjadi “yt”. Pada baris code perulangan if adalah pemanggil dari yt yang terus akan menjadi nilai true untuk huruf y dan t dan false selain huruf y dan t. Dan penggunaan code awal: dan akhir: itu juga menggunakan perulangan pemanggil “goto ke baris awal” atau gotoke baris akhir”.

Sekian penjelasan saya mengenai logika coding y/t pada C++ , Ok, Sampai Jumpa dilain waktu guys.


Cara Membuat Kalkulator dengan PHP

  
Hallo,lama tidak update,karena saya fokus kuliah akhirnya bisa update post baru. Pada kesempatan kali ini saya akan bagikan pengalaman pelajaran Pemrograman Web mengenai PHP. Mata kuliah Pemrograman Web ini saya dapatkan pada semester 3 baru-baru ini. Pertama-tama apa sih PHP? PHP (Hypertext Prepocessor) adalah bahasa skrip yang ditananamkan pada htlm.Apakah kamu masih bingung pengertian html? Html (HyperText Markup Language)  adalah bahasa markup yang digunakan untuk membuat sebuah halaman web. Jadi menurut saya,berdirinya sebuah situs/web dimanis itu karena adanya skrip-skrip PHP. Dan jangan lupa dalam hal ini harus install juga Xampp. Xampp ini menurut saya banyak kegunaannya selain sebagai penampung folder php kita,xampp juga berfungsi sebagai media penghubung database.Ok, kembali lagi ke topik kita.

Membuat Kalkulator Sederhana dengan PHP

Langkah Pertama Buka Software Dreamweaver / notepad++, saya sih menggunakan Dreamweaver 8 dalam hal semacam ini karena software ini mudah digunakan dan banyak icon-icon panduannya. Seperti gambar berikut:
kita bisa menuliskan skrip code langsung dan kita juga bisa menggunakan beberapa icon-icon seperti untuk pembuatan table,text field,dan masih banyak lagi. Kalau kamu menggunakan notepad++ hanya bisa menuliskan skrip code saja.

Skrip Code Kalkulator Sederhana dengan PHP

<html>
<head> </head>
<body>
<br><br><br>
kalkulator
<form method = "POST" action ="index.php">
<table>
<tr>
<td> nilai a </td>
<td>:</td>
<td><input type="text"name="a">
</td>
</tr>
<tr>
<td> nilai b </td>
<td>:</td>
<td><input type="text"name="b">
</td>
</tr>
</table>
<br>
<tr>
<td><input type="submit" name="+" value="+" ></td>
<td><input type="submit" name="-" value="-" ></td>
<td><input type="submit" name="x" value="x" ></td>
<td><input type="submit" name="/" value="/" ></td>
</tr>
</form>

<?php
$a=$_POST['a'];
$b=$_POST['b'];

if ($_POST['+'])
{
$hasil=$a+$b;
echo "hasilnya adalah $hasil";
}
else if ($_POST['-'])
{
$hasil=$a-$b;
echo " hasilnya adalah $hasil";
}
else if ($_POST['x'])
{
$hasil=$a*$b;
echo "hasilnya adalah $hasil";
}
else if ($_POST['/'])
{
$hasil=$a/$b;
echo " hasilnya adalah $hasil";
}
?>
</body>

</html>

Setelah Selesai buat dulu folder kosong beri nama folder kalkulator pada C:\xampp\htdocs lalu kembali ke skrip code tadi,dan simpan dengan nama index.php letakan pada folder kalkulator tersebut. 

Cara melihat hasilnya buka browser kamu,ketik : localhost/kalkulator 

Demikian artikel ini telah saya sampaikan,mengenai membuat kalkulator dengan php. Terima kasih telah berkunjung,See you next time guys.

Belajar Delphi Text Berjalan atau Running Text

  
Apa yang baru ya..? oh iya terima kasih telah membaca artikel post sebelumnya Belajar Delphi Memasukan Suara/Musik. Membahas tentang running text pasti angan-angan kamu tulisannya bisa berlari. Ya,benar itu istilah indonesianya hahaha..,bukan sekedar itu saya akan bahas cara berjalannya dan berganti caption secara otomatis. Ini materi masih awal-awalnya menjadi pemogramman yang handal, jadi bertahap ya kawan kalau ingin menjadi master coding itu butuh proses.


Belajar Delphi Text Berjalan/Running Text

Tahap pertama yang harus kamu lakukan adalah gunakan komponen “TLabel” dan masukan pada form Delphi kamu dan beri caption yang kamu inginkan. Misalnya saya beri caption “Selamat Datang” nah jangan lupa untuk mengganti font nya biar keren.

Tahap kedua, kamu memerlukan komponen “TTimer”,masukan komponen timer kedalam form. Komponen ini digunakan untuk pengganti caption dan pergerak tulisan tersebut.

Tahap ketiga, buatlah variable pemanggilnya contohnya seperti dibawah ini.

var
  a :integer;

Tahap akhir,Klik kotak Form dan masuk ke Properties-Events,dan klik Event,lanjut Klik dua kali pada samping kanan OnAktivate dan isikan syntax code setelah begin a:=1; .Kalau masih belom paham coba lihat gambar dibawah ini.

Tahap akhir pengisian syntax codenya pada Timer1,jangan lupa dibawah begin,seperti ini.

Label1.Left := Label1.Left - 2;
if (label1.Left <=1) then
begin
label1.Left := 664;

a:= a+1;
if a=1 then
begin
label1.Caption := '…………………….';
end
else
if a=2 then
begin
label1.Caption := '………………………..';
end
else
if a=3 then
begin
label1.Caption := '……………………..';
a:=0;
end;
end;
end;

Untuk titik-titik itu adalah caption yang akan muncul saat berjalan,isikan sesuai yang kamu inginkan.

Sekian untuk belajar delphinya, see you next time.



Belajar Delphi Memasukan Suara/Lagu

  
        Oh..hai,Apa yang baru pada pertemuan kali ini? Oh iya sebelumnya terima kasih telah meluangkan waktu anda untuk membaca artikel sebelumnya Belajar Delphi Perulangan Gerakan dan pada kesampatan kali ini saya akan bahas sedikit tentang bagaimana cara memasukan suara pada aplikasi project yang anda buat biar keren gitu? Hehehe tentu saja. Seperti biasa menjadi programmer butuh proses,dan mulailah mempraktekan sedikit demi sedikit.Mulailah membuka delphi dan buatlah baru klik file new terus klik VLC Aplications Delphi.Ikuti langkah-langkah saya dibawah ini.  

Belajar Delphi Memasukan Suara/Lagu



Maksud dari gambar diatas adalah langkah-langkah dalam memasukan file suara/lagu dalam project menu login, dimulai dari Gambar No.1. Anda membutuhkan komponen MediaPlayer untuk membuat project anda memiliki suara. Nah itu kan menu login jadi,saya butuh suara pada tombol klik masuk.Jadi klik 2 kali pada button masuk dan isikan syntax codenya.


Syntax Code Umum memasukan suara pada project:

MediaPlayer1.FileName := '…..';
MediaPlayer1.Open;
MediaPlayer1.Play;

Gambar No.2 dan Gambar No.3,itu Penjelasan cara tepat dan cepat dalam penulisan FileName pada syntax code daripada nulis manual ujung-ujungnya jadi error,mending pake cara itu. Gambar No.2 maksudnya Klik pada icon folder lalu Copy/Ctrl + C dan Ctrl + V/letakan pada Syntax code FileName :=’…..’; dan Gambar No.3 juga sama caranya.

Untuk lebih jelasnya silakan lihat video singkat dibawah ini

Terima kasih telah membaca postingan saya,tunggu postinganku selanjutnya Ok.



Belajar Delphi Perulangan Gerakan

  
Ketemu lagi dengan saya yang tidak ada bosannya untuk menulis,sebagai referensi anda. Sebelumnya terima kasih sudah melihat Belajar Delphi Objek Bergerak yang membahas dasarnya bergeraknya suatu objek dan sekarang saya akan membahas tentang perulangan gerakan.Sebenarnya ini hampir sama dari postingan sebelumnya cuma cara kerjanya nanti objeknya terus berulang dari kanan menuju kiri lalu muncul lagi dari kanan. Ok langsung saja keintinya caranya buka delphi dan mulaiilah membuat file new terus VLC aplications Dephi dan ikuti langkah-langkah saya seperti dibawah ini.


Belajar Delphi Perulangan gerakan


Maksud dari gambar diatas,jadi anda harus menyiapkan 2 komponen image dan timer. Image nantinya akan bergerak kekiri sampai pojok kiri lalu akan muncul lagi ke pojok kanan,dan komponen timer itu sendiri yang mengatur gerakannya.

Syntax Code umum perulangan gerakan :

if (Image1.left <=1) then (Image1.left := 620);

maksud dari angka 1 dan 620 itu adalah koordinat gambar pada tabel form yang digunakan. Jadi arti coding itu adalah “Jika (gambar 1 sampai pada koordinat 1) lalu (gambar 1 akan muncul pada koordinat 620)”.

Syntax code yang saya gunakan seperti ini :

Timer1.Enabled := True;
Image1.Left := Image1.Left -10;

if (Image1.left <=1) then (Image1.left := 620);

Sekian untuk Belajar Delphi Part 2,tunggu postingan selanjutnya.

Belajar Delphi Objek Bergerak

  
         Pada Kesempatan kali ini saya akan bagikan pengalaman pembelajaran saya baru-baru ini. Apakah admin masih sekolah? Ya masih,saya meneruskan pendidikan mengambil jurusan S1 Sistem Informasi. Apa yang dipelajari selama ini? Ok,selama ini salah satunya Materi Program Visual pokok intinya yang membahas tentang Delphi. Sebelum membahas lebih lanjut,kita harus install dulu delphinya,saya menggunakan Delphi 10/Embarcadero Delphi 2010. Selesai Instal bukalah delphi dan mulailah membuat File terus New terus VLC form Aplications Dephi. Terus ikuti  langkah-langkah yang saya buat.


Langkah-langkah Delphi Membuat Objek bergerak


           Gambar diatas cara pengambilan objek berupa gambar,jika sudah mengambil gambarnya dan ternyata gambarnya tidak mau memenuhi/terlalu besar pada slot kotak,kamu bisa mengaturnya dengan pilihan pada properties cari pilihan Stretch terus centang aja.

Langkah Selanjutnya,

            Cara menggerakan objek gambar yaitu dengan menggunakan Timer.Timer ini bisa digunakan berbagai macam fungsi,iya ini salah satu fungsi timer untuk penggerak.Dan selanjutnya kita atur kecepatan bergeraknya menggunakan Interval,semakin kecil angka semakin cepat dan sebaliknya jika ingin gerakan lambat maka gunakan nominal yang besar.Jika sudah,langkah selanjutnya adalah double klik icon Timer dan kamu masuk kedalam pengcodingan.setelah itu isikan coding dibawah kata Begin.

Coding Umum Penggerak Objek Gambar :
Timer1.Enabled := True;
Image1.Left := Image1.Left +10;

Coding diatas bergerak ke kanan jika ingin bergerak kekiri maka symbol + bisa diganti symbol – , dan jika ingin begerak kebawah gunakan kata Top,contohnya Image1.Top +10; ,dan sebaliknya jika ingin bergerak keatas maka seperti ini Image1.Top -10; .

Sekian untuk Belajar Delphi Part 1,tunggu postingan selanjutnya.


Cara menggunakan Syntax Case Status

  
          Pada kesempatan kali ini saya akan menjelaskan,dan mencontohkan apa itu Sintax Case Status.Pertama-tama anda harus mengetahui apa itu Syntax,Syntax adalah aturan penulisan pada suatu program,kalau Case berfungsi untuk mempersingkat fungsi if.Untuk menjalankan program dengan penggunaan Case Status anda membutuhkan variabel yang tepat.Ada 2 macam variabel yang bisa digunakan untuk case yaitu variabel char dan variabel byte. Perlu diingat menjadi Programmer itu butuh proses,ini masih tahap permulaannya saja. Jadi tetaplah semangat belajar,terus mencoba,dan terus berkreasi. Saya akan membagikan sytax codingnya dihalaman yang berwarna biru dan cobalah pelajari.



Variabel Status Char
Variable char untuk mendeteksi penggunaan huruf
var
status:char;


Contoh Penggunaan Case Status dengan var Char
program MencariTipePegawai;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
status:char;

begin
writeln('Masukan tipe pegawai (T/H) :');readln(status);
case status of
   'T','t':
    begin
   writeln('Status Pegawai Tetap')
    end;
end;
case status of
   'H','h':
    begin
   writeln('Status Pegawai Honorer')
    end;
end;
readln;
end.


Varibel Status Byte
Varibel byte untuk mendeteksi penggunaan angka
var
status:byte;


Contoh Penggunaan Case Status dengan var Byte
program MenggunakanCasemencariGradenilai;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
status:byte;

begin
writeln('Program mencari tipe Nilai menggunakan Case Status');
writeln(' ');
writeln('Masukan Nilai anda :');readln(status);
case status of
   1..30:
    begin
   writeln('Nilai anda termasuk Grade E')
    end;
end;
case status of
   31..40:
    begin
   writeln('Nilai anda termasuk Grade D')
    end;
end;
case status of
   41..69:
    begin
   writeln('Nilai anda termasuk Grade C')
    end;
 end;
case status of
   70..85:
    begin
   writeln('Nilai anda termasuk Grade B')
    end;
end;
case status of
   86..100:
    begin
   writeln('Nilai anda termasuk Grade A')
    end;
end;
readln;
end.


Terima kasih telah meluangkan waktu untuk membaca,sampai jumpa dilain waktu.



Program Menghitung Luas Lingkaran dengan Delphi

  
Tentunya tidak asing bagi yang sedang belajar pemrograman.Pada kesempatan ini saya akan membagikan pengalaman pertama saya yaitu membuat program menghitung luas lingkaran menggunakan Delphi. Ya ini materi saya yang saya pelajari semester 1 tugas kampus.Pertama-tama yang kita perlukan adalah menginstall software Delphi, saya memakai Delphi 10. Mulailah membuat new projectnya.Saya akan bagikan sytax coding secara keseluruhan tentang Luas lingkaran anda bisa mencopynya lewat halaman biru ini dan pelajarilah.

Project Luas Lingkaran

program ProjectLingkaran;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const phi=3.14;

var
luas: real;
r: real;

begin
  writeln('Program Menghitung Luas Lingkaran');
  writeln('=================================');
  write('masukan jari-jari : '); readln(r);
  luas:=phi*r*r;
  write('Hasil Luas lingkaran : ',luas:0:2);
readln;
end.


Inilah hasil dari Project diatas:


Program diatas masih dasarnya belajar pemrograman jadi bersabarlah tunggu postingan selanjutnya.
Notification
Ini adalah popup notifikasi.
Done