AR_Belajar Pemrograman: 2016

Selasa, 28 Juni 2016

Program Penjualan sederhana menggunakan Delphi 7

Ass...
Saya akan membagikan sebuah code dari aplikasi penjualan sederhana menggunakan delphi 7.
pertama tama bukalah aplikasi delphi 7,,,
dan mulailah mendesain form seperti berikut.

Jika sudah ubahlah nama dari edittext
edit1 : enama,
edit2 : eharga,
edit3 : ejumlah
edit4 : ebayar

Setelah itu double click pada button bayar dan masukan coding berikut.

procedure TForm1.btn1Click(Sender: TObject);
var
hrg, jum, byr: Integer;
begin
hrg:=StrToInt(eharga.Text);
jum:=StrToInt(ejumlah.Text);
byr:= jum * hrg;
ebayar.Text:=IntToStr(byr);
end;

Setelah itu double click pada button clear, serta masukan coding berikut.

procedure TForm1.btn2Click(Sender: TObject);
begin
enama.Clear;
eharga.Clear;
ejumlah.Clear;
ebayar.Clear;
enama.SetFocus;
end;

Dan yang terakhir double click pada button Exit, masukkan coding berikut.

procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;

jika sudah selesai maka jalankanlah Project, dan bandingkan dengan hasil d bawah ini.

Sekian dari saya semoga bermanfaat sobat semua,, Salam teknologi....

Tulisan Tebal, miring, atau bergaris bawah pada HTML

Dikesempatan kali ini saya akan memberikan contoh bagaimana cara membuat tulisan bergaris bawah, miring dan tebal pada sebuah HTML.
untuk membuat tulisan tebal maka kita harus menggunakan tag () dan berikan kata atau kaliman diantara penutup tagnya (),, jika menginginkan tulisan atau kalimat bergaris bawah gunakan tag (...), dan untuk teks miring maka yang digunakan adalah tag (..).
agar lebih jelas cobalah latihan berikut....
ketikkanlah code berikut menggunakan notepad.

<html>
 <head>
 <title>
 Tulisan Tebal, Miring dan bergaris bawah
 </title>
 </head>

 <body>
 Tulisan ini Tebal 
 Tulisan ini Miring 
 Tulisan ini BergarisBawah 
 </body>
</html>

jika telah selesai simpanlah dengan penamaan "styletext.html".. Dan coba buka dengan browser dengan cara mngklik dua kali file html tersebut maka hasil akan tampak seperti ini..

Sekian dari sayaa.. wassalam..

Perkalian menggunakan perulangan For i do

Ass...

Kali ini kita latihan bahasa pascal dengan menggunakan perulangan For to do, perulangan ini ialah perulangan yang jumlahnya telah diketahui sebelum proses berjalan, karena yang diinputkan disini ialah jumlah perulangannya. kali ini kita akan membua sebuah perulangan dengan mengalikan jumlah dari perulangannya. misalkan kita inputkan jumlah perulangannya 5 maka proses akan dimulai denngan mengalikan 5x1, 5x2, 5x3 dan hingga berakhir di 5x5.
silahkan coba coding berikut dengan menggunakan IDE Free Pascal atau Turbo Pascal...

program latihan;
uses crt;
var
i, mehmet, hasil:integer;

begin
clrscr;
    writeln('Program Penjumlahan dengan perulangan');
    writeln;
    write('Masukan jumlah angka yang dikalikan : ');
    readln(mehmet);
    writeln;
    for i := 1 to mehmet do
    begin
    hasil := i * mehmet;
    writeln(i,' X ',mehmet,' = ',hasil);
    end;
    readln;
end.

Setelah itu jika telah selesai maka hasil akan tampak seperti ini.

Sekian dulu dari saya Ass. wr.wb....

Senin, 27 Juni 2016

Mengubah warna backgroud HTML

Ass....
kali ini saya akan mengubah warna background html yang dasrnya berwana putih polos menjadi berwarna kuning.
langsung saja kita praktekan, ketikan koding berikut dengan notepad.

<html>
 <head>
 <title>Warna Background Kuning</title>
 </head>
 <body bgcolor="yellow">
 background berwarna kuning
 </body>
</html>

setelah itu save dengan penamaan "backgroundwarna.html", lalu buka file html. maka akan tampak seperti ini.

sekian dari saya atas kekurangannya saya meminta maaf...

Operator Aritmatika Delphi

Ass.. Sebagaimana janji saya beberapa hari yang lalu saya akan berbgi kepada kalian semua bagaimana membuat aplikasi aritmatika dengan delphi 7, yang meliputi perkalian, penjumlahan, pengurangan, dan pembagian.
pertama tama silahkan buka program delphi anda kalo masih belom memiliki anda bisa download di blog tetangga atau klik link x disini.

Selanjutnya desain form seperti ini.

Ubah nama dari edittext pad object inspector edit1 menjadi enil1, edit2 menjadi enil2 dan edit3 menjadi ehasil.
Setelah itu masukkan dua variabel global bertipe data real, seperti ini.

dan mari kita mulai memasukan source code pada button..
klik dua kali pada button penjumlahan(+) masukkan coding berikut, dan jangan lupa menambahan variabel local dibawah procedure bertipe data Real.

procedure TForm1.btn1Click(Sender: TObject);
var
   hasil: Real;
begin
n1:=StrToFloat(enil1.Text);
n2:=StrToFloat(enil2.Text);
hasil:= n1 + n2 ;
ehasil.Text:=FloatToStr(hasil);
end;

Pengurangan(-)

procedure TForm1.btn2Click(Sender: TObject);
var
   hasil: Real;
begin
n1:=StrToFloat(enil1.Text);
n2:=StrToFloat(enil2.Text);
hasil:= n1 - n2 ;
ehasil.Text:=FloatToStr(hasil);
end;

Perkalian(X)

procedure TForm1.btn3Click(Sender: TObject);
var
   hasil: Real;
begin
n1:=StrToFloat(enil1.Text);
n2:=StrToFloat(enil2.Text);
hasil:= n1 * n2 ;
ehasil.Text:=FloatToStr(hasil);
end;

Pembagian(/)

procedure TForm1.btn4Click(Sender: TObject);
var
   hasil: Real;
begin
n1:=StrToFloat(enil1.Text);
n2:=StrToFloat(enil2.Text);
hasil:= n1 / n2 ;
ehasil.Text:=FloatToStr(hasil);
end;

dan selanjutnya pada tombol Clear

procedure TForm1.btn5Click(Sender: TObject);
begin
enil1.Clear;
enil2.Clear;
ehasil.Clear;
end;

dan yang terakhir untuk tombol keluar.

procedure TForm1.btn6Click(Sender: TObject);
brgin
Close;
end;

dan selesai sudah mari kita coba jalankan aplikasi....

Jika aplikasi gagal saat dijalankan periksa kembali code yang anda masukan atau ada penamaan object yang salah pada object inspector...,,,
sekian dari saya semoga bermanfaat....

Sabtu, 25 Juni 2016

Membuat Paragraph HTML

Kali ini kita akan latihan membuat paragraph pada html dengan menggunakan notepad,,
langsung saja ketikkan coding berikut ini dengan menggunkan notepad.

<html>
 <head>
 <title>Latihan Paragraph</title>
 </head>
 <body>
 Nama Saya Muhammad Aabdurrahman ini adalah paragraph pertam saya menggunakan html (Parahraph 1)
 Saya adalah seorang mahasiswa teknik informatika di Universitas Islam Kalimantan (paragraph 2) 
</body>
</html>

setelah mengetikan coding diatas pada notepad simpan file dengan nama "latihanparagraph.html", lalu buka file yang baru disimpan tersebut, maka akan tampak seperti ini.

tag diatas ialah untuk membuat sebuah paragraph pada html.
Selamat mencoba.........

Cara Mengganti font pada html

Ass.. Kali ini saya akan melanjutkan ngeposting bagaimana cara mengubah font standard pada html dengan font yang menarik bagi pemula yang baru belajar html..
berikut coding yang digunaka untuk mengubah font, dinama kali ini saya akan mengubah font menjadi Monotype Corsiva,, ketikkan coding berikut pada notepad.

<html>
 <head>
 <title>Latihan mengubah Font</title>
 </head>
 <body style = "font-family : Monotype Corsiva">
 Text ini Menggunakan Font Monotype Corsiva
 </body>
<html>

nah, setelah mengetikkan coding diatas maka save file dengan penamaan "ganti font.html",, jangan lupa berikan .html pada file agar ekstensi file berubah dati text menjadi html.
lalu jalankan file html dengan cara klik 2x pada file, maka akan tampak seperti ini.

Sekian dari saya selamat mencoba,, semoga bermanfaat......

Program perkenalan delphi7

Ass. saya akan membuat sebuah aplikasi perkenalan untuk saya bagikan kepada kalian yang baru belajar atau pemula dalam pelajaran pmrograman visual, untuk IDE yang di gunakan kali ini ialah Program DELPHI 7. jika masih belum mempunyai softwarenya delphi7 anda bisa mendownloadnya di blog sebelah klik disini.

baik kita langsung saja pada latihan pertama membuat program perkenalan.
1. buka program delphi7

Perhatikan gambar diatas dimana 1 label, 2. edittext dan 3 button
masukkan:
6 buah label
5 buah text edit
dan 2 buah button
desai form seperti dibawah ini

ganti seting nama dan caption pada object inspector sebagai berikut:

jika sudah selesai mari kita memasukan coding perintah pada button, klik dua kali button 1 lalu masukan coding berikut

procedure Tfekenal.b1Click(Sender: TObject);
begin
Enama.Text:='Muhammad Abdurrahman';
Ealamat.Text:='Jl. Angah Komp. Mekar Indah, No.32 RT.35';
Ettl.Text:='Banjarmasin, 22 April 1995';
Estatus.Text:='Lajang';
Ekerja.Text:='Mahasiswa';
end;

dan kemudian ganti caption button menjadi &Kenal, selanjutnya klik dua kali pada button 2.
kemudian masukkan coding berikut.

procedure Tfekenal.b2Click(Sender: TObject);
begin
Close;
end;

lalu save project dan unit dalam satu folder, setelah itu jalankan dan klik tombol "Kenal" maka akan tampak seperti ini.

hmmm.. bagaimana selamat mencoba,, untuk sesi selanjutnya saya akan membuat applikasi menggukanakan operator logika., sampai jumpa, ^_^.

Latihan HTML

Ass. saya akan membuat sebuah latihan html dasar sederhana menggunakan notepad atau notepad++.
ketikan source code berikut dengan notepad.

<html>
<head>
<title>Latihan HTML 1</title>
<head>
<body>
Ini latihan HTML Pertamaku
</body>
</html>
.

Setelah anda mengetikan code diatas lalu save file dengan penamaan latihan1.html.
lalu buka file tersebut dengan browser seperti IE, firefox atau chrom.

Maka hasilnya akan tampak seperti ini.

Lihatlah gambar diatas no 1. dimana kata yang di apit tag <body></body> akan menampilka kalimat di dalam browser dan pada no 2. dimana kata yang di apit tag <title></title> akan menjadi judul dari laman.

sekian dari saya untuk latihan pertama kurang dan lebihnya saya mohon maaf. Ass.

Membuat Kaukulator Pascal Sederhana

Saya Akan membagikan coding kaukulator sederhana pascal menggunakan procedure melanjutkan posting sebelumnya yang telah hilang.
berikut source codenya.

program kaukulator;
uses crt;
var
     a, b:real;

   begin
   procedure penjum;
   var
hasil : real;
begin
          writeln('Penjumlahan');
          write('Masukan Bilangan pertama : '); readln(a);
write('Masukan Bilangan kedua : '); readln(b);
writeln;
   hasil:= a + b;
writeln('Hasil : ,hasil:2:2);
readln;
   end;

             procedure kali;
   var
hasil : real;
begin
          writeln('Perkalian');
          write('Masukan Bilangan pertama : '); readln(a);
write('Masukan Bilangan kedua : '); readln(b);
writeln;
   hasil:= a * b;
writeln('Hasil : ,hasil:2:2);
   readln;

   end;
procedure bagi;
   var
hasil : real;
begin
          writeln('Pembagian');
          write('Masukan Bilangan pertama : '); readln(a);
write('Masukan Bilangan kedua : '); readln(b);
writeln;
   hasil:= a / b;
writeln('Hasil : ,hasil:2:2);
readln;
end;

{Program Utama}
begin
clrscr;
writeln('Pilih Salah Satu : ');
writeln;
writeln('========> 1. Penjumlahan');
writeln('========> 2. Perkalian');
writeln('========> 3. Pembagian');
writeln;
write('Masukan Salah Satu Pilihan di Atas : '); readln(pilih);

if pilih = 1 then penjum
else
if pilih = 2 then kali
else
if pilih = 3 then bagi
else
write('Maaf yang anda masukan tak ada dalam pilihan');
end;

end.

AR_Belajar Pemrograman