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....
Diposting oleh Unknown di 07.51 0 komentar
Label:

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 (<b>) dan berikan kata atau kaliman diantara penutup tagnya (</b>),, jika menginginkan tulisan atau kalimat bergaris bawah gunakan tag (<u>...</u>), dan untuk teks miring maka yang digunakan adalah tag (<i>..</i>).
agar lebih jelas cobalah latihan berikut....
ketikkanlah code berikut menggunakan notepad.

<html>
    <head>
        <title>
            Tulisan Tebal, Miring dan bergaris bawah
        </title>
    </head>
   
    <body>
        <b>Tulisan ini Tebal<b><br> 
        <i>Tulisan ini Miring</i><br>
        <u>Tulisan ini BergarisBawah</u><br>
    </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..
Diposting oleh Unknown di 07.22 0 komentar
Label:

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....
Diposting oleh Unknown di 07.03 0 komentar
Label:

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...
Diposting oleh Unknown di 06.21 0 komentar
Label:

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....
Diposting oleh Unknown di 04.45 0 komentar
Label:

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>
                   <p>Nama Saya Muhammad Aabdurrahman ini adalah paragraph pertam saya  menggunakan html (Parahraph 1)</p>
                   <p>Saya adalah seorang mahasiswa teknik informatika di Universitas Islam Kalimantan (paragraph 2) </p>
        </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 <p> diatas ialah untuk membuat sebuah paragraph pada html.
Selamat mencoba.........
Diposting oleh Unknown di 14.29 0 komentar
Label:

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......
Diposting oleh Unknown di 14.14 0 komentar
Label: