Operator Logika pada Delphi

Operator Logika Delphi sangatlah penting untuk dipelajari. Operator Logika ini antara lain terdiri dari operator NOT, operator AND, operator OR dan operator XOR. Pada tutorial kali ini kita menggunakan Percabangan pada Delphi dengan menggunakan Operator Logika pastinya.




Opeator Not

Operator Not disini berfungsi untuk menjadikan operator sebaliknya. Contohnya jika warna putih bernilai 0, maka nilai notnya adalah 1 atau warna hitam. Ini merupakan script pada button Ubah Warna
begin
if not checkbox1.Checked then edit1.Color:=clWhite
else edit1.Color:=clBlack;
end;
Jika checkbox invert warnanya tidak terceklis maka warna background edit1 akan berwarna putih, jika selainnya (tidak terceklis) maka warna background edit1 nya akan menjadi warna hitam.

Operator AND dan OR

Operator AND adalah dimana ada 2 atau lebih operand yang harus bernilai 1 atau bernilai true dan semuanya harus bernilai true atau 1 menjalankan suatu proses.
Sedangkan operator OR adalah dimana 1 atau lebih operand yang harus bernilai 1 atau true dan boleh hanya ada 1 operan true atau 1 untuk menjalankan suatu proses. Ini merupakan script pada button test
begin
if checkbox2.Checked and checkbox3.Checked then edit2.Text:=’Saya pintar di bidang program dan web’
else if checkbox2.Checked or checkbox3.Checked then edit2.Text:=’Saya pintar di salah satu bidang tersebut’
else edit2.Text:=’Saya tidak pintar dalam kedua bidang tersebut’;
end;

Operator XOR

Operator XOR merupakan operator yang hanya bisa diproses ketika hanya salah satu operannya yang bernilai true, jadi kedua operan bernilai true maka proses tidak akan jalan. Ini merupakan script yang ada pada button ok
begin
if checkbox4.Checked xor checkbox5.Checked then edit3.Text:=’saya masuk ke salah satu sekolah tersebut’
else edit3.Text:=’Saya tidak bisa memasuki keduanya’;
end;
Logika program sudah dijelaskan dalam video tutorial. Sekian artikel dan video tutorial Operator Logika pada Delphi. Selamat mencoba dan langsung mempraktikannya.

Semoga tutorial ini dapat bermanfaat bagi anda. Jangan lupa juga bagikan artikel ini kepada teman anda di social media dengan klik tombol share on di bawah dan jangan lupa berikan komentar anda :) 21 Hari Mencari Jodoh 486x60

Back To Top