Jadwal KP

 

untuk Dosen Pembimbing KP mahasiswa UIN Sunan Kalijaga Yogyakarta tahun 2011/2012 dapat didownload disini.

my project JST AND, OR, AND NOT, NOT OR

Potongan script delphi :

procedure TForm1.Button1Click(Sender: TObject);
begin
    a := strtoint(x1.Text);
    b := strtoint(x2.Text);
    case rgpilihan.ItemIndex of
    0:
    begin
      w1:=1;w2:=1;t:=2;
      end;
    1:
    begin
      w1:=1;w2:=1;t:=1;
      end;
    2:
    begin
      w1:=2;w2:=-1;t:=2;
    end;
    3:
    begin
      w1:=-1;w2:=2;t:=0;
    end;
  end;
    x := a*w1 + b*w2;
       if (x < t) then hasil.Text:='0'
       else if (x >= t) then hasil.Text:='1';
    end;

Hasil :



download script lengkapnya disini