Membuat Program Menggunakan Pascal

Tentang Program data nilai siswa



Dan ini hasilnya apabila di run program




05.42 | Category: | 0 komentar

Setting DNS linux
ada beberapa langkah-langkah untuk menyeting DNS dalam linux










05.33 | Category: | 0 komentar

Jaringan Wireless LAN
Dengan menggunakan Wireless LAN PCMCIA (Personal Komputer Memory Card ndustry Association) memungkinkan sebuah laptop terhubung ke LAN dengan jaringan wireless LAN.


Jaringan Wireless memiliki keunggulan sebagai berikut :
  1. Pemeliharaan murah Infrastruktur berdimensi kecil
  2. Pembangunan cepat
  3. Mudah dan murah untuk direlokasi dan mendukung portabilitas.
  4. Koneksi internet akses 24 jam.
  5. Akses internet yang cepat
  6. Bebas tanpa pulsa telepon
Jaringan Wireless memiliki kelemahan sebagai berikut :
  1. Biaya peralatan mahal
  2. Delay yang sangat besar
  3. Kesulitan karena masalah propagasi radio
  4. Keamanan data
  5. Kapasitas jaringan karena keterbatasan spektrum

Syarat apa yang harus dipenuhi untuk bisa membangun koneksi jaringan wireless LAN?
Ada dua syarat utama untuk pembangunan koneksi ini :

Pertama Lokasi harus line of Sight/ LoS, dalam arti tidak ada halangan (bisa berupa gedung atau pohon) di antara kedua titik yang akan dihubungkan.
Kedua  Freznel Zone (area rambatan gelombang radio yang dipancarkan oleh kedua antenna) tidak terpotong atau terganggu suatu benda.
IEEE (Institute of Electrical and Electronic Engineers) melakukan diskusi, riset dan pengembangan terhadap perangkat jaringan yang kemudian menjadi standarisasi untuk digunakan sebagai perangkat jaringan. Standar jaringan wireles :
  • 802.1 LAN/MAN Management and Media Access Control Brides.
  • 802.2 Logical Link Control (LLC)
  • 802.3 CSMA/CD (Standar untuk Ehernet Coaxial atau UTP)
  • 802.4 Token Bus
  • 802.5 Token Ring (bisa menggunakan kabel STP)
  • 802.6 Distributed Queue Dual Bus (DQDB) MAN
  • 802.7 Broadband LAN
  • 802.8 8 Fiber Optic LAN & MAN (Standar FDDI)
  • 802.9 Integrated Services LAN Interface (standar ISDN)
  • 802.10 LAN/MAN Security (untuk VPN)
  • 802.11 Wireless LAN (Wi-Fi)
  • 802.12 Demand Priority Access Method
  • 802.15 Wireless PAN (Personal Area Network) IrDA dan Bluetooth
  • 802.16 Broadband Wireless Access (standar untuk WiMAX)

Demikianlah pembahasan mengenai Jaringan Wireless LAN. Semoga dengan membaca artikel ini, Anda menjadi tahu kelebihan dan kekurangannya serta syarat-syarat membangun koneksi wireless LAN.
05.27 | Category: | 0 komentar

Topologi Jaringan




Topologi adalah suatu cara menghubungkan komputer yang satu dengan komputer lainnya sehingga membentuk jaringan. Teknologi informasi yang berkembang pesat telah membawa dunia memasuki era informasi yang lebih cepat. Hal ini tidak terlepas dari pemanfaatan internet yang semakin populer. Untuk membangun suatu jaringan komputer, beberapa hal yang harus  diperhatikan adalah pemilihan topologi jaringan  yang tepat.
Topologi Jaringan Mesh

Topologi jaringan ini menerapkan hubungan antar sentral secara penuh. Jumlah saluran harus disediakan untuk membentuk jaringan Mesh adalah jumlah sentral dikurangi 1 (n-1, n = jumlah sentral). Tingkat kerumitan jaringan sebanding dengan meningkatnya jumlah sentral yang terpasang. Dengan demikian disamping kurang ekonomis juga relatif mahal dalam pengoperasiannya.
Gambar Topologi Jaringan Mesh

                                  

Topologi MESH dibangun dengan memasang banyak link pada setiap komputer. Hal ini dimungkinkan karena pada setiap komputer terdapat lebih dari satu NIC. Topologi ini secara teori memungkinkan akan tetapi tidak praktis dan biayanya cukup tinggi. Topologi Mesh memiliki tingkat redundancy yang tinggi.
Topologi Jaringan Pohon (Tree)

Topologi jaringan in  disebut juga sebagai topologi jaringan bertingkat. Topologi ini biasanya digunakan untuk interkoneksi antar sentral dengan hirarki yang berbeda. Untuk hirarki yang lebih rendah digambarkan pada lokasi yang rendah dan semakin keatas mempunyai hirarki semakin tinggi. Topologi jaringan jenis ini cocok digunakan pada sistem jaringan komputer.

Gambar Topologi Jaringan Tree (Pohon)

                                          
Topologi Jaringan Hybrid (Campuran)
Topologi jaringan hybrid adalah jaringan yang dibentuk dari berbagai topologi dan teknologi. Sebuah topologi hybrid memiliki semua karakterisitik dari topologi dasar yang terdapat dalam jaringan tersebut.
Gambar Topologi Jaringan Hybrid

                                           

 Dalam tulisan ini telah dibahas  tentang  dasar topologi jaringan termasuk kelebihan dan   kekurangannya. Dengan mengetahui hal tersebut maka pengguna dapat memilih yang sesuai dengan kebutuhan.



05.23 | Category: | 0 komentar

Router
Router adalah peralatan jaringan yang digunakan untuk memperluas atau memecah jaringan dengan melanjutkan paket-paket dari satu jaringan logika ke jaringan yang lain. Dengan definisi lain adalah sebuah device yang berfungsi untuk meneruskan paket-paket dari sebuah network ke network yang lainnya (baik LAN ke LAN atau LAN ke WAN) sehingga host-host yang ada pada sebuah network bisa berkomunikasi dengan host-host yang ada pada network yang lain. Router menghubungkan network-network tersebut pada network layer dari model OSI, sehingga secara teknis Router adalah Layer 3 Gateway.


Router bisa berupa sebuah device yang dirancang khusus untuk berfungsi sebagai router, atau bisa juga berupa sebuah PC yang difungsikan sebagai router. Perangkat jaringa ini  banyak digunakan di dalam internetwork yang besar  menggunakan keluarga protocol TCP/IP dan untuk menghubungkan semua host TCP/IP dan Local Area Network (LAN) ke internet menggunakan dedicated leased line. Saat ini, masih banyak perusahaan menggunakan router Cisco 2500 series untuk mengkoneksikan dua buah LAN (WAN dengan anggota dua LAN), LAN ke ISP (Internet Service Provider).  Koneksi seperti ini menyebabkan semua workstation dapat terkoneksi ke internet selama 24 jam.
05.19 | Category: | 0 komentar

IP address

IP address adalah alamat yang diberikan pada jaringan komputer dan peralatan jaringan yang menggunakan protokol TCP/IP. IP address terdiri atas 32 bit angka biner yang dapat dituliskan sebagai empat kelompok angka desimal yang dipisahkan oleh tanda titik seperti 193.160.5.1.
IP address terdiri atas dua bagian yaitu network ID dan host ID, dimana network ID menentukan alamat jaringan komputer, sedangkan host ID menentukan alamat host (komputer, router, switch). Oleh sebab itu IP address memberikan alamat lengkap suatu host beserta alamat jaringan di mana host itu berada.
Untuk mempermudah pemakaian, bergantung pada kebutuhan pemakai, IP address dibagi dalam tiga kelas seperti diperlihatkan pada tabel di bawah.
Tabel Pembagian Kelas

 
IP address kelas A diberikan untuk jaringan dengan jumlah host yang sangat besar. Range IP 1.xxx.xxx.xxx. – 126.xxx.xxx.xxx, terdapat 16.777.214 (16 juta) IP address pada tiap kelas A dengan network ID-nya 8 bit pertama, sedangkan host ID ialah 24 bit berikutnya. Dengan demikian, cara membaca IP address kelas A, misalnya 113.46.5.6 ialah:
Network ID = 113
Host ID = 46.5.6
IP address di atas berarti host nomor 46.5.6 pada network nomor 113.

IP address kelas B biasanya dialokasikan untuk jaringan berukuran sedang dan besar. Pada IP address kelas B, network ID ialah 16 bit pertama, sedangkan host ID ialah 16 bit berikutnya. Dengan demikian,cara membaca IP address kelas B, misalnya 132.92.121.1 :
Network ID = 132.92
Host ID = 121.1
IP address di atas berarti host nomor 121.1 pada network nomor 132.92.

Dengan panjang host ID 16 bit, dapat menampung sekitar 65000 host. Range IP 128.0.xxx.xxx –191.155.xxx.xxx.

IP address kelas C awalnya digunakan untuk jaringan berukuran kecil (LAN). Host ID ialah 8 bit terakhir. Dengan konfigurasi ini, bisa dibentuk sekitar 2 juta network dengan masing-masing network memiliki 256 IP address. Range IP 192.0.0.xxx – 223.255.255.x.

Pengalokasian IP address pada dasarnya ialah proses memilih network ID dan host ID yang tepat untuk suatu jaringan. Tepat atau tidaknya untuk suatu jaringan. Tepat atau tidaknya konfigurasi ini tergantung dari tujuan yang hendak dicapai, yaitu mengalokasikan  seefisien mungkin.
05.15 | Category: | 0 komentar

Topologi Star


            Pengertian topologi jaringan bintang atau yang lebih sering disebut dengan topologi star adalah suatu cara menghubungkan komputer yang satu dengan komputer lainnya sehingga membentuk jaringan berupa bentuk bintang (star). Pada topologi ini kita sudah menggunakan bantuan alat lain untuk mengkoneksikan jaringan komputer. Contoh alat yang di pakai disini adalah hub, switch, dll.
Hub atau Switch digunakan untuk menghubungkan setiap node dalam jaringan LAN. Peralatan ini sering digunakan pada topologi star dan extended star. Perbedaan antara Hub dan Switch adalah kecepatan transfer datanya, yaitu 10:100 Mbps.
Berdasarkan pengertian tersebut di atas, prinsip topologi star adalah merupakan kontrol  terpusat, semua link harus melewati pusat yang menyalurkan data tersebut ke semua simpul atau client yang dipilihnya. Simpul pusat dinamakan stasium primer atau server dan lainnya dinamakan stasiun sekunder atau client server. Setelah hubungan jaringan dimulai oleh server maka setiap client server sewaktu-waktu dapat menggunakan hubungan jaringan tersebut tanpa menunggu perintah dari server.

Dari pengertian topologi jaringan star, terdapat keuntungan dan kerugian dari tipe ini yaitu:
Keuntungan:
- Paling fleksibel.
- Pemasangan/perubahan stasiun sangat mudah dan tidak mengganggu bagian
jaringan lain.
- Kontrol terpusat.
- Kemudahan deteksi dan isolasi kesalahan/kerusakan.
- Kemudahaan pengelolaan jaringan.
Kerugian:
- Boros kabel.
- Perlu penanganan khusus.
- Kontrol terpusat (HUB) jadi elemen kritis.
Berikut ini adalah gambaran dari pengertian jaringan topologi star :

Topologi Jaringan Star
Demikian ulasan singkat mengenai Pengertian Topologi Jaringan Star.  Semoga dengan membaca tulisan ini Anda mengerti dan semakin paham.  Silakan Anda baca artikel lainnya seperti pengertian topologi jaringan bus dlsb.

05.07 | Category: | 0 komentar

Perpisahan Kepala Sekolah SMK Telkom




Tiga orang Guru Tetap SMK Telkom Banjarbaru mendapat reward dari manajemen Telkom Poundation atas kreativitas yang bersangkutan dalam mengembangkan ilmu dan pengetahuan dengan cara melanjutkan kuliah lagi disela-sela kesibukannya mengajar. Mereka adalah Ahmad Banin, Rachman Fachriansyah dan Widdi Hermawan. Reward diberikan kemaren (18/3/14)
Ketekunan tersebut pantas mendapat apresiasi, walaupun jumlahnya tidak seberapa besar dan masih jauh dari kebutuhan sebenarnya untuk membayar uang kuliah, namun Yayasan punya perhatian yang serius.  Mudah-mudahan reward yang diberikan itu menumbuhkan semangat dan memotivasi guru-guru lainnya untuk bersekolah lagi.
Reward kepada siswa juga diberikan, baik karena prestasi akademik maupun non akademik. Yuongky Putra (jurusan TJA) dan Neneng Nur Amalia (Jurusan TKJ) mendapat beasiswa selama satu tahun senilai Rp. 400 ribu per bulan atas prestasinya sebagai ranking pertama di jurusan masing-masing.
Ahmad Nawawi, Syifa Mellynda Prisca, dan Defrian berprestasi di bidang olah raga pada Pekan Olah Raga Propinsiu Kalsel tahun 2013 yang lalu, sedangkan Tulus Adi Prakoso adalah juara pertama Lomba Keterampilan Siswa bidang Web Desain tingkat Kalsel. Mereka semua mendapat reward dari Yayasan.
Ahmad Nawawi Altit Paralimpic cabang Lari 5 KM mendapat medali Emas, Syifa altit cabang bulu tangkis mendapat medali perak dan Defrian altit cabang Tenis Lapangan pemegang medali perunggu.
05.00 | Category: | 0 komentar

Kop Koran
Pelajaran semester dua ini saya belajar tentang pembuatan kop koran, menggunakan Photoshop dan InDesign ini pelajaran Desain Grafis ku


gak terlalu bagus desainya tp lumayan lah buat pemula :) selamat belajar dan berkreasi ya
07.09 | Category: | 0 komentar

Ultah Skatel


yoooo hooooo Happy Birthday Skatel yg ke 14 Infreenity. semoga makin maju, tambah banyak siswanya dan tetap menjadi sekolah terbaik . amin !

  ini mau karnafal dan sebelum karnafat pelapasan balon secara simbolis oleh kepala sekolah kita :)
dan ini ke eksisan kelas ku hahah lucu ya tema kelas ku tentang bajak laut uh ye
07.00 | Category: | 0 komentar

Nama dan No telfon guru SMK Telkom














ini sedikit inifo tentang nama-nama guru SMK Telkom Banjarbaru

NO

NAMA

NO TELP

JABATAN

BIDANG STUDI

1

Eva Setianingrum

05117626084

Adm Keuangan

-

2

Arief Soelthonik, S.Pt

0511 7139977

Adm Sarpra

-

3

Marginem

0511 7652684

Adm. Kepegawaian

-

4

Achmad Taufiq, S.ST

05117087845

Assisten Labortorium

-

5

Danny Eko Suprapto

05117334546

Guru

PC 1, PC 2

6

Alfi Rohmiyati, S.Pdi

087756204544

Guru

Agama Islam

7

Dwi Susanto

0511-3267287

Guru

Produktif

8

Enny Widiyastuti, S.Pd

081251186680

Guru

BP/BK

9

Mochammad Yahya, Drs.

081233507030

Guru

WRS, Matematika

10

Muhammad Noor, S.Pd

081933794258

Guru

Seni Budaya

11

Nor Aydawati, S.Pd

0511-7225035

Guru

Kimia

12

Samhudi, H

082154676565

Guru

Mulok

13

Siti Marwah, S.Pd

0511 4720299

Guru

WRS

14

Sukartini, S.Pd

Guru

Kimia

15

Wahyu Wardani, S.Pd

0878145333204

Guru

Olahraga

16

Agus Margono, M.Pd

0511  4781782

Guru 

Matematika

17

Ahmad Mawardi, S.Si

0511 6279479

Guru 

Matematika

18

Arafat, M. Kom

0511 6123044

Guru 

SOJ, DG,ADM

19

Dwi Suwardhinah, Hj. S.Pd

0511 7355440

Guru 

PKN

20

Erna Harianti, S.Pd

081348379918

Guru 

Bahasa Indonesia

21

Giyono, M.Pd

085751078810

Guru 

Fisika

22

Haryono, S.Pd

081521588226

Guru 

Matematika

23

Hernety Susi Kusmiati, Hj. S.Pd

085348010928

Guru 

Bahasa Indonesia

24

Iswahyudi, S.Pd

08152107031

Guru 

Kimia

25

Koes Wiyatmoko, Drs.

05117358743

Guru 

Web Site

26

Maryati, Dra

081521933943

Guru 

Bahasa Indonesia

27

Muh Purnama, S.Pd

085821020062

Guru 

Penjaskes

28

Nur Syamsu, BA

05117419003

Guru 

Penjaskes

29

Riyanto Widdi Pranowo, MA

05119046580

Guru 

Agama Kristen

30

Rusyimah Thamrin,S.Pd.I

081229039612

Guru 

Agama Islam

31

Ahmad Banin, ST

05114785702

Guru / Ka Prodi TJA / Wali Kelas 3B

Gar, KKPI, CPE, SKD, PER

32

Rahman Fahriansyah, A.Md

0811510310

Guru / Kaprodi TI 

LAN, WAN

33

Mahdiansyah, S.Psi.Psi

05117321838

Guru / Kaur Bimbingan dan Konseling

BP / BK

34

Widdi Hermawan, A.Md

0511 7707297

Guru / Kaur Laboratorium

KKPI / LAN

35

Jumiarsih, S.Pd

05117124969

Guru / Kaur Perencanaan dan Pelaksanaan KBM / Wali Kelas 1E

WRS, IPS

36

Adwi Subagyo Wiyoto, S.P

05117364871

Guru / Wali Kelas 1B

IPA

37

Santoso Saring, Amd

085754196666

Guru / Wali Kelas 1C

ELKA, DIG

38

Nelly Hartati, S.Pd

05117109515

Guru / Wali Kelas 1D

B.Inggris

39

Indah Dwi Kurniawati, S.Pd

081351400399

Guru / Wali Kelas 2A

B.Inggris

40

Niken Ratih Widyaningrum, S.Pd

081348162192

Guru / Wali Kelas 2B

IPA

41

Abd Gafur, S.Pd

05117124945

Guru / Wali Kelas 2C

K3, T.Sel, JAR, VSAT

42

Hartanti, A.Md

0511 7676318

Guru / Wali Kelas 2D

Fisika

43

Ariskadyani Meiferawati, S.Pd

081250199910

Guru / Wali Kelas 2E

Bahasa Indonesia

44

M. Husnul Redho, S.Si

05116123704

Guru / Wali Kelas 3A

Matematika

45

M. Sukma Indrawan, S.Kom

05117361594

Guru / Wali Kelas 3E

PR, Basis Data

46

Yazidi Fakhri, S.Pd

0511 8807161

Guru /Adm Kesiswaan / Wali Kelas 1A

Bahasa Inggris

47

Jarminto, S.Pd

0811506607

Guru/ Waka Kurikulum

JAT, IKR/G

48

Muzakir

05117401947

Kaur Logistik dan Sarpra

-

49

Yeni Susantiningsih,SE

0511 7478647

Kepala Administrasi

-

50

Yanuariadi Kusuma Baskoro, Ir.

081331690848

Kepala Sekolah

 -

51

Mutmainah

0511 6123583

Perpustakaan

-

52

Abdul Hakim

081348560766

Satpam

-

53

Saniman

0511 7133798

Satpam

-

54

Sumaji

081351306388

Satpam

-

55

Yuliansyah

085651395885

Satpam

-

56

Abdul Karim, SH

05117598576

Waka Kesiswaan

06.19 | Category: | 0 komentar

Delphi 7

Ini Pelajaran ku tentang pemprograman menggunakan Delphi 7,

Ini sedikit Script untuk menjalankan pogram ini :

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

procedure TForm1.ednotaKeyPress(Sender: TObject; var Key: Char);
begin
if not(key=chr(13)) then exit;
ednama.SetFocus;
end;

procedure TForm1.ednamaKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key=chr(13)) then exit;

  edkode.SetFocus;
end;

procedure TForm1.edkodeKeyPress(Sender: TObject; var Key: Char);
begin
    if not(key=chr(13)) then exit;

    lbljenis.Caption:=LeftStr(edkode.Text,3);
    lblno.Caption:=MidStr(edkode.Text,5,1);
    lbllantai.Caption:=RightStr(edkode.Text,3);

    if LeftStr(edkode.EditText,3)='VVP' then
      begin
    lbljenis.Caption:='Very Very Important Persone';
    lblharaga.Caption:='2500000';
      end
    else if LeftStr(edkode.EditText,3)='VIP' then
      begin
    lbljenis.Caption:='Very Important Persone';
    lblharaga.Caption:='1700000';
      end
    else if LeftStr(edkode.EditText,3)='SPR' then
      begin
    lbljenis.Caption:='Suit President';
    lblharaga.Caption:='3500000';
      end
    else if LeftStr(edkode.EditText,3)='STP' then
      begin
    lbljenis.Caption:='Standart Satu';
    lblharaga.Caption:='1250000';
      end
    else if LeftStr(edkode.EditText,3)='STD' then
      begin
    lbljenis.Caption:='Standart Dua';
    lblharaga.Caption:='1000000';
      end
    else if LeftStr(edkode.EditText,3)='STT' then
      begin
    lbljenis.Caption:='Standart Tiga';
    lblharaga.Caption:='750000';
      end;
    edcekin.SetFocus;
    end;

procedure TForm1.edcekinKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key=chr(13)) then exit;
  if edcekin.EditText=''then
    begin
  ShowMessage('Tanggal harus di isi');
    end
    else
    begin
  edcekout.SetFocus;
end;
end;

procedure TForm1.edcekoutKeyPress(Sender: TObject; var Key: Char);
begin
    if not(key=chr(13)) then exit;
    if edcekout.EditText=''then
    begin
  ShowMessage('Tanggal harus di isi');
    end
    else
    begin
  edjam.SetFocus;
end;
end;

procedure TForm1.btbersihClick(Sender: TObject);
begin
 ednota.Clear;
 ednama.Clear;
 edkode.Clear;
 lbljenis.Caption:='0';
 lblno.Caption:='0';
 lbllantai.Caption:='0';
 lblharaga.Caption:='0';
 edcekin.Clear;
 edcekout.Clear;
 edjam.Clear;
 edextra.Clear;
 lblket.Caption:='0';
 lbldenda.Caption:='0';
 lbllama.Caption:='0';
 edextra.Clear;
 lblttlawal.Caption:='0';
 lblttlakhir.Caption:='0';
 diskon.Caption:='0';
 lblawal.Caption:='0';
 lbldis.Caption:='0';
 lblakhir.Caption:='0';

end;

procedure TForm1.edjamKeyPress(Sender: TObject; var Key: Char);
  var
      jamcekout:TTime;
      cekin, cekout:TDate;
      lama,jam,menit,denda:Real;
      jenis:String;
begin
 if not(key=chr(13)) then exit;
    jamcekout:=StrToTime(edjam.Text);
    cekin:=StrToDate(edcekin.Text);
    cekout:=StrToDate(edcekout.Text);
    jam:=StrToFloat(LeftStr(edjam.Text,2));
    menit:=StrToFloat(RightStr(edjam.Text,2));
    jenis:=LeftStr(edkode.Text,3);
 lama:=cekout-cekin;
    lbllama.Caption:=FloatToStr(lama);


  if LeftStr(edjam.Text,2)=''then
    begin
      ShowMessage('Jam harus di isi');
    end
    else
    begin
  if (jam<=15) and (menit=00) then
    begin
      lblket.Caption:='Terimakasih atas kunjungannya';
    end
  else if (jam<=19) and (menit>=00) then
    begin
      lblket.Caption:='Anda melewati waktu cekout';
          if jenis='VVP' then
        begin
          denda:=((jam-15)*12*3000)+(menit/5*3000);
        end
           else if jenis='VIP' then
        begin
          denda:=((jam-15)*12*2000)+(menit/5*2000);
        end
            else if jenis='SPR' then
        begin
             denda:=((jam-15)*12*5000)+(menit/5*5000);
        end
           else if jenis='STP' then
        begin
             denda:=((jam-15)*12*1500)+(menit/5*1500);
        end
           else if jenis='STD' then
        begin
             denda:=((jam-15)*12*1000)+(menit/5*1000);
        end
        else
        begin
             denda:=((jam-15)*12*1000)+(menit/5*1000);
        end;
        end
        else
        begin
    lblket.Caption:='Melewati batas penyewaan terhitung 1 hari sewa';
    if jenis='VVP' then
            begin
             denda:=2500000;
            end
      else if jenis='VIP' then
            begin
             denda:=1700000;
            end
      else if jenis='SPR' then
            begin
             denda:=3500000;
            end
      else if jenis='STP' then
            begin
             denda:=1250000;
            end
      else if jenis='STD' then
            begin
             denda:=1000000;
            end
      else
            begin
            denda:=750000;
            end;
        end;
     end;
      lbldenda.caption:=FloatToStr(denda);
      edextra.SetFocus;
     end;
procedure TForm1.edextraKeyPress(Sender: TObject; var Key: Char);
  var
    vvp1,vip1,spr1,stp1,std1,stt1:Integer;
    jns:String;
    a,b,den,eks,dis,ttlawal,ttlakhir,hrg,ttlabk:Real;
    jlh,ttlakkb: Currency;
begin
    if not(key=chr(13)) then exit;

      a:=StrToFloat(lbllama.Caption);
      den:=StrToFloat(lbldenda.Caption);
      jns:=LeftStr(edkode.Text,3);

      if edextra.Text=''then
        begin
      ShowMessage('Isi Kembali');
      edextra.SetFocus;
        end
        else
        begin
      eks:=StrToFloat(edextra.text);
      if jns='VVP' then
         begin
      if a >=50then
         begin
      dis:=6*2500000;
        end
        else
        begin
      if a >30 then
        begin
     dis:=4*2500000;
      end
      else
      begin
    if a >=10 then
  begin
    dis:=1*2500000;
  end
  else
  begin
    dis:=0;
         end;
       end;
     end;
   ttlawal:=(a*2500000)+den+eks;
   vvp.Caption:=IntToStr(StrToInt(vvp.Caption)+1);
    end

     else if jns='VIP' then
        begin
      if a>=50 then
        begin
      dis:=6*1700000;
        end
      else
      begin
      if a>30 then
        begin
      dis:=4*1700000;
        end
      else
      begin
      if a>=10 then
        begin
      dis:=1*1700000;
  end
  else
  begin
      dis:=0;
          end;
       end;
     end;
    ttlawal:=(a*1700000)+den+eks;
    vip.Caption:=IntToStr(StrToInt(vip.Caption)+1);
    end

  else if jns='SPR' then
  begin
    if a>=50 then
  begin
    dis:=6*3500000;
  end
  else
  begin
    if a >30 then
  begin
    dis:=4*3500000;
  end
  else
  begin
    if a >=10 then
  begin
    dis:=1*3500000;
  end
  else
  begin
    dis:=0;
         end;
       end;
     end;
    ttlawal:=(a*3500000)+den+eks;
    spr.Caption:=inttostr(StrToInt(spr.Caption)+1);
   end

   else if jns='STP' then
   begin
      if a >=50 then
   begin
      dis:=6*1250000;
   end
   else
   begin
      if a >30 then
   begin
        dis:=4*1250000;
   end
   else
   begin
      if a >=10 then
   begin
      dis:=1*1250000;
   end
   else
   begin
      dis:=0;
         end;
       end;
     end;
    ttlawal:=(a*1250000)+den+eks;
     stp.Caption:=inttostr(StrToInt(stp.Caption)+1);
   end

   else if jns='STD' then
   begin
      if a >=50 then
   begin
      dis:=6*1000000;
   end
   else
   begin
      if a >30 then
   begin
      dis:=4*1000000;
   end
   else
   begin
      if a >=10 then
   begin
      dis:=1*1000000;
   end
   else
   begin
      dis:=0;
         end;
       end;
     end;
    ttlawal:=(a*1000000)+den+eks;
    std.Caption:=IntToStr(StrToInt(std.Caption)+1);
   end
   else
   begin
      if a>=50 then
   begin
      dis:=6*750000;
   end
   else
   begin
      if a>30 then
   begin
      dis:=4*750000;
   end
   else
   begin
      if a>=10 then
   begin
      dis:=750000;
   end
   else
   begin
      dis:=0;
         end;
       end;
     end;
    ttlawal:=(a*750000)+den+eks;
    stt.Caption:=inttostr(StrToInt(stt.Caption)+1);
   end;
 end;
  vvp1:=StrToint(vvp.Caption);
  vip1:=StrToInt(vip.Caption);
  spr1:=StrToInt(spr.Caption);
  stp1:=StrToInt(stp.Caption);
  std1:=StrToInt(std.Caption);
  stt1:=StrToInt(stt.Caption);


 hrg:=StrToFloat(lblharaga.Caption);
 b:=StrToFloat(lbllama.Caption);
 ttlawal:=(hrg*b)+eks;
 lblttlawal.Caption:=floattostr(ttlawal);
 diskon.caption:=floattostr(dis);
 ttlakhir:=ttlawal-dis;
 lblttlakhir.caption:=floattostr(ttlakhir);
 ttlakhir:=strtofloat(lblttlawal.Caption);


    if ttlakhir<50000000 then
        begin
    if ttlakhir>20000000 then
        begin
    ttlabk:=hrg*(vvp1+vip1+spr1+stp1+std1+stt1);
    lbldis.Caption:='15%';
    ttlakkb:=ttlabk-(ttlawal*15/100);
        end
        else
        begin
    ttlabk:=ttlawal;
        end;
      end
      else
      begin
    ttlabk:=hrg*(vvp1+vip1+spr1+stp1+std1+stt1);
    lbldis.Caption:='20%';
    ttlakkb:=ttlawal-(ttlawal*20/100);
 lbldis.Caption:=FloatToStr(dis);
 lblawal.caption:=floattostr(ttlabk);
 lblakhir.caption:=CurrToStr(ttlakkb);
 showmessage('Data Selesai');

        end;
    end;
procedure TForm1.btClick(Sender: TObject);
begin
lsnama.Items.add(ednama.Text);
lskamar.Items.Add(lbljenis.Caption);
lslama.Items.Add(lbllama.Caption);

end;

end.
05.51 | Category: | 0 komentar