Perintah Command Button Visual Basic

Untuk teman T  yang sedang belajar Visual basic Sedikit keluar dari Pascal, sedikit ngulas tentang Command Button di Visual Basic. Bagaimana caranya menghapus data yang ada di Cell yang kita inginnkan, disini kita ingin menghapus Cel A1. Berikut tampilan ketika sebelum dan sesudah Command Button di Klik.

Visual Basic Visual Basic command button

Untuk Perintah di Command Buttonnya, berikut di bawah.

Private Sub CommandButton1_Click()
Dim rangesheet1 As Range
For i = 1 To Sheet1.Rows.Count
Set rangesheet1 = Range(“A” & i)
If Len(rangesheet1.Value) > 0 Then
rangesheet1.Value = “”
Exit For
End If
Next

End Sub

Menentukan juara satu dua dan tiga dengan pascal

Ada kasus “Menentukan pemenang satu, dua dan tiga dari pemilihan BEM, dengan kode masing-masing kandidat “Apel”, “Melon” dan “Anggur”, jumlah pemilih harus di tampilkan”

Mari kita jawab :

var
apel,anggur,melon,pemilih:real;
begin
writeln(‘Jumlah Pemilih :’);readln(pemilih);
writeln(‘Jumlah suara Apel :’);readln(apel);
writeln(‘Jumlah suara Anggur :’);readln(anggur);
writeln(‘Jumlah suara Melon :’);readln(melon);
if (apel>anggur) and (apel>melon) and (anggur>melon)then
    begin
        writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Apel’);
        writeln(‘Pemenang Kedua : Anggur’);
        writeln(‘Pemenang Ketiga : Melon’);
        readln;
    end;
if (apel>anggur) and (apel>melon) and (anggur<melon)then
    begin
        writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Apel’);
        writeln(‘Pemenang Kedua : Melon’);
        writeln(‘Pemenang Ketiga : Anggur’);
        readln;
    end;
if (anggur>apel) and (anggur>melon) and (apel>melon)  then
    begin
    writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Anggur’);
        writeln(‘Pemenang Kedua : Apel’);
        writeln(‘Pemenang Ketiga : Melon’);
        readln;
    end;
if (anggur>apel) and (anggur>melon) and (apel<melon)  then
    begin
    writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Anggur’);
        writeln(‘Pemenang Kedua : Melon’);
        writeln(‘Pemenang Ketiga : Apel’);
        readln;
    end;
if (melon>apel) and (melon>anggur) and (apel>anggur)  then
        begin
    writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Melon’);
        writeln(‘Pemenang Kedua : Apel’);
        writeln(‘Pemenang Ketiga : Anggur’);
        readln;
    end;
if (melon>apel) and (melon>anggur) and (apel<anggur)  then
        begin
    writeln(‘Jumlah Pemilih :’,pemilih);
        writeln(‘Pemenang Pertama : Melon’);
        writeln(‘Pemenang Kedua : Anggur’);
        writeln(‘Pemenang Ketiga : Apel’);
        readln;
    end
end.              

Menghitung pangkat di Pascal/Lazarus

Penghitungan Pangkat sangatlah dibutuhkan di dalam sebuah proses pemrograman. Berikut jawaban untuk teman kita bagaimana membuat program pangkat di dalam pascal.

var
a,n:integer;
function pangkat(x:integer):real;
var
hasil:real;
begin
hasil:=exp(ln(a)*x);
pangkat:=hasil;
end;
begin

write(‘Masukkan nilai: ‘);readln(a);
write(‘Dipangkatkan : ‘);readln(n);
write(‘Jadi ‘,a,’^’,n,’ Adalah=’,Pangkat(n):2:0);
readln;

end.

Menghitung tagihan Listrik dengan lazarus / pasccal

Menghitung tagihan listrik dengan 2 kemungkinan, akan diberikan denda ketika telat membayar dan akan mendapat bonus berupa potongan tagihan listrik jika pembayarannya tidak terlambat.

Di bawah ini saya berikan penyelesaiannya.

var
   kelas:string;
   ekonomi,menengah,bisnis,tarif,pakai,tgl,biaya,biaya1,biaya2,biaya3:real;

begin
  write(‘Kelas :’);readln(kelas);
  if kelas=’ekonomi’ then tarif:=500;
  if kelas=’menengah’ then tarif:=1000;
  if kelas=’bisnis’ then tarif:=2000;

  write(‘Pemakaian :’);readln(pakai);
  write(‘Tanggal bayar :’);readln(tgl);
  if (pakai>=200) or (tgl>20) then
     begin
     biaya1:=tarif*pakai;
     biaya2:=(biaya1*10)/100;
     biaya:=biaya1-biaya2;
     write(‘Biaya Pemakaian Listrik :’,biaya);
     readln;
     end
     else

         if (pakai<200) or (tgl<=20) then
         begin
          biaya1:=tarif*pakai;
          biaya2:=(biaya1*10)/100;
          biaya:=biaya1+biaya2;
          write(‘Biaya Pemakaian Listrik :’,biaya);
          readln;
         end;
end. 

Memahami FlowChart pemrograman dengan lazarus

SOAL SOAL LAZARUS-1172var
a,b,c:real;
z:real;
begin
Write(‘Nilai A :’);readln(a);
write(‘Nilai B :’);readln(b);
write(‘Nilai C :’);readln(c);

if (a>10) and (b>10) then
begin
if a>c then
begin
z:=a*b;
write (‘Nilai Z :’,z);
readln;
end
else
begin
z:=a*c;
write (‘Nilai Z :’,z);
readln;
end;
end
else
begin
if (a>10) or (b>10) then
begin
z:=a-b;
write (‘Nilai Z :’,z);
readln;
end
else
begin
if a>b then
begin
z:=b-a;
write (‘Nilai Z :’,z);
readln;
end
else
begin
z:=b-c;
write (‘Nilai Z :’,z);
readln;
end
end
end

end.

Penghitungan penggajian dengan lazarus

SOAL SOAL LAZARUS-1168Menyelesaikan persoalan pemrograman diperlukan ketelitian dan kejelian, dan logika yang harus sering diasah. Mari kita selesaikan sebuah persoalan berikut.

var
gaji,TGaji:double;
JKerja,JLembur,TLembur:integer;
gol:string;
begin
write (‘Golongan:’);readln(gol);
JLembur:=0;

write (‘Jam Kerja:’);readln(JKerja);
if JKerja >160 then JLembur:=JKerja-160;

TLembur:=JLembur*10000;
if gol=’a’ then
begin
TGaji:=2000000+TLembur;
write (‘Total gaji :’,TGaji);
readln;
end;
if gol=’b’ then
begin
TGaji:=1500000+TLembur;
write (‘Total gaji :’,TGaji);
readln;
end;
if gol=’c’ then
begin
TGaji:=1000000+TLembur;
write (‘Total gaji :’,TGaji);
readln;
end;
end.

Penghitungan Total Gaji dengan Lazarus

SOAL SOAL LAZARUS-1170

Ada kasus pencarian Total gaji seperti kasus teman kita di banten diatas ini, saya coba menjawabnya dan koreksi jika adayang kurang pas

var
gaji,TGaji,TIstri,TAnak:double;
JKerja,JLembur,TLembur,anak:integer;
gol,status:string;
begin
write (‘Golongan:’);readln(gol);
write (‘Status:’);readln(status);
write (‘Jumlah Anak:’);readln(anak);
TIstri:=0;
TAnak:=0;
if gol=’a’ then gaji:=2000000;
if gol=’b’ then gaji:=1500000;
if gol=’c’ then gaji:=1000000;
if status=’nikah’ then TIstri:=(gaji*10)/100;
if anak>2 then TAnak:=(gaji*6)/100 else TAnak:=anak*(6*gaji)/100;
Tgaji:=gaji+TIstri+TAnak;
write(‘Total Gaji:’,TGaji);
readln;

end.