Cara Mengganti Icon/Gambar Address Bar Di Blog

Jika kita membuka suatu website atau blog maka seringkali kita menjumpai ada sebuah gambar atau icon kecil pada address bar (kotak untuk menetikkan alamat web),terus anda kepingen blog anda dikasih foto anda caranya gampangggg ,kalau belum bisa membuat gambarnya ikut langkah langkah berikut:

1.pertama buatlah sebuah gambar yang akan dijadikan sebagai favicon
2.setelah itu anda harus mengubah gambar tersebut kedalam bentuk gambar icon,untuk hal tersebut anda bisa tool favicon generator ,silahkan kunjungi situs berikut :
http://www.favicon.cc/

3.klik import image,choose file,upluad

4.lalu download favicon disebuah kotak priview

5.lalu masuk ke blog anda klik disaen dikanan atas

6.cari tata letak

7.lalu klik letak tulisan favicon ,cari gambar yang anda download tadi dan masukkan,,jadi dechhhh

SELAMAT MENCOBA

Cara Mengurutkan Tulisan di Ms Word

Pengurutan teks atau tulisan dengan cepat kadang kita perlukan dalam penyusunan dokumen, seperti untuk pembuatan daftar pustaka, daftar tabel (secara manual) dan lain sebagainya. Untuk mengurutkan / menyortir teks dan tulisan di microsoft word kita bisa memanfaatkan fasilitas Sort.

1. Blok teks yang akan diurutkan, misalkan ketikan pada daftar pustaka
2. Klik ribbon Home lalu klik tombol toolbar Sort yang ada pada grup paragraph
3. atau tekan tombol ALT+H lalu tekan tombol huruf SO
4. Pada dialog Sort Text, pastikan di bagian sebelah kanan anda memilih item :
   • Ascending untuk mengurutkan dari A-Z,
   • atau memilih descending untuk mengurutkan teks dengan urutan Z-A
5. Klik Tombol OK atau tekan Enter
6. Tulisan tersebut kini telah tersusun berdasarkan urutan yang anda pilih.

merubah kalimat terbalik dengan DELPHI

uses crt;

type
    stack1 = record
        kalimat:string[255];
        top:integer;
        end;

var data : stack1;
    tampung:string;
    j:integer;


procedure push (kar: char; idx: byte);
begin;
        data.kalimat[idx]:=kar;
        data.top := idx;
end;

function pop : char;
var s:char;
    i:byte;
begin
     s := data.kalimat[data.top];
     data.kalimat[data.top] := ' ';
     i := data.top;
     data.top := i - 1;
     pop := s;
end;

begin
     clrscr;
     write('masukkan suatu kalimat :'); readln (tampung);

     for j := 1 to length(tampung) do
     begin
          push (tampung[j],j);
     end;

     for j := 1 to length(tampung) do
     begin
          write(pop);
     end;

     readln;
end.

kesimpulan ARRAY DAN RECORD

Array&Record

MEMBUAT KALKULATOR DENGAN DELPHI

unit Kakulator;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, ComCtrls, XPMAN, MATH;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button15: TButton;
    Button18: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    hasil: TPanel;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 MemAngka,MemLogic,MemOperator,MemSimpan:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='1' else
Hasil.Caption:='1';
 end
else
 Hasil.Caption:=Hasil.Caption+'1';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 if MemOperator<>'' then Hasil.Caption:='0' else
 if Hasil.Caption='0' then Hasil.Caption:='0' else
   begin
   Hasil.Caption:=Hasil.Caption+'0';
   MemLogic:='1';
   end;
 end
else
Hasil.Caption:=Hasil.Caption+'0';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='2';
 if MemOperator<>'' then Hasil.Caption:='2' else
 Hasil.Caption:='2';
 end
else
 Hasil.Caption:=Hasil.Caption+'2';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>' ' then Hasil.Caption:='3' else
 Hasil.Caption:='3';
 end
else
 Hasil.Caption:=Hasil.Caption+'3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='4' else
 Hasil.Caption:='4';
 end
else
 Hasil.Caption:=Hasil.Caption+'4';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='5' else
 Hasil.Caption:='5';
 end
else
 Hasil.Caption:=Hasil.Caption+'5';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='6' else
 Hasil.Caption:='6';
 end
else
 Hasil.Caption:=Hasil.Caption+'6';
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='7' else
 Hasil.Caption:='7';
 end
else
 Hasil.Caption:=Hasil.Caption+'7';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='8' else
 Hasil.Caption:='8';
 end
else
 Hasil.Caption:=Hasil.Caption+'8';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
if hasil.Caption='0' then
hasil.Caption:='';
if Hasil.Caption<>' ' then
if MemLogic='0' then
 begin
 MemLogic:='1';
 if MemOperator<>'' then Hasil.Caption:='9' else
 Hasil.Caption:='9';
 end
else
 Hasil.Caption:=Hasil.Caption+'9';
end;

procedure TForm1.Button11Click(Sender: TObject);
var sudut : real;
begin
if Hasil.Caption<>' ' then
 begin
 sudut:=strtofloat(Hasil.Caption);
 sudut:=sudut*pi/180;
 Hasil.Caption := floattostr(sin(sudut));
 end;
end;


procedure TForm1.Button25Click(Sender: TObject);
begin
MemOperator:='';
if (hasil.Caption<>'') then
  if MemLogic='0' then MemOperator:='-' else
  if (MemOperator='')  then
    begin
    MemOperator:='-';
    MemLogic:='0';
    MemAngka:=hasil.Caption;
    end
  else
    begin
    if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
    if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
    if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
    if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
  //  if MemOperator='mod' then hasil.Caption:=inttostr(strtoint(MemAngka) mod strtoint(hasil.Caption));
    if MemOperator='div' then hasil.Caption:=inttostr(strtoint(MemAngka)div strtoint(hasil.Caption));
    if MemOperator='^' then hasil.Caption:=floattostr(exp(strtofloat(hasil.Caption)*ln(strtofloat(MemAngka))));
    MemAngka:=hasil.Caption;
    MemOperator:='-';
    MemLogic:='0';
    end;
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
MemAngka:=hasil.Caption;
MemLogic:='0';
end;


procedure TForm1.Button27Click(Sender: TObject);
begin
hasil.Caption:='0';
MemLogic:='';
MemAngka:='';
MemOperator:='';
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
if hasil.Caption<>'' then
 hasil.Caption:=hasil.Caption + ',';
end;


procedure TForm1.Button15Click(Sender: TObject);
begin
MemOperator:='';
if (hasil.Caption<>'') then
  if MemLogic='0' then MemOperator:='+' else
  if (MemOperator='')  then
    begin
    MemOperator:='+';
    MemLogic:='0';
    MemAngka:=hasil.Caption;
    end
  else
    begin
    if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
    if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
    if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
    if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
 //   if MemOperator='mod' then hasil.Caption:=inttostr(strtoint(MemAngka) mod strtoint(hasil.Caption));
    if MemOperator='div' then hasil.Caption:=inttostr(strtoint(MemAngka)div strtoint(hasil.Caption));
    if MemOperator='^' then hasil.Caption:=floattostr(exp(strtofloat(hasil.Caption)*ln(strtofloat(MemAngka))));
    MemAngka:=hasil.Caption;
    MemOperator:='+';
    MemLogic:='0';
    end;
end;



procedure TForm1.Button29Click(Sender: TObject);
begin
MemOperator:='';
if (hasil.Caption<>'') then
  if MemLogic='0' then MemOperator:='x' else
  if (MemOperator='')  then
    begin
    MemOperator:='x';
    MemLogic:='0';
    MemAngka:=hasil.Caption;
    end
  else
    begin
    if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
    if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
    if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
    if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
//    if MemOperator='mod' then hasil.Caption:=inttostr(strtoint(MemAngka) mod strtoint(hasil.Caption));
    if MemOperator='div' then hasil.Caption:=inttostr(strtoint(MemAngka)div strtoint(hasil.Caption));
    if MemOperator='^' then hasil.Caption:=floattostr(exp(strtofloat(hasil.Caption)*ln(strtofloat(MemAngka))));
    MemAngka:=hasil.Caption;
    MemOperator:='x';
    MemLogic:='0';
    end;
end;


procedure TForm1.Button23Click(Sender: TObject);
begin
MemOperator:='';
if (hasil.Caption<>'') then
  if MemLogic='0' then MemOperator:='/' else
  if (MemOperator='')  then
    begin
    MemOperator:='/';
    MemLogic:='0';
    MemAngka:=hasil.Caption;
    end
  else
    begin
    if MemOperator='+' then hasil.Caption:=floattostr(strtofloat(MemAngka)+strtofloat(hasil.Caption));
    if MemOperator='-' then hasil.Caption:=floattostr(strtofloat(MemAngka)-strtofloat(hasil.Caption));
    if MemOperator='x' then hasil.Caption:=floattostr(strtofloat(MemAngka)*strtofloat(hasil.Caption));
    if MemOperator='/' then hasil.Caption:=floattostr(strtofloat(MemAngka)/strtofloat(hasil.Caption));
//    if MemOperator='mod' then hasil.Caption:=inttostr(strtoint(MemAngka) mod strtoint(hasil.Caption));
    if MemOperator='div' then hasil.Caption:=inttostr(strtoint(MemAngka)div strtoint(hasil.Caption));
    if MemOperator='^' then hasil.Caption:=floattostr(exp(strtofloat(hasil.Caption)*ln(strtofloat(MemAngka))));
    MemAngka:=hasil.Caption;
    MemOperator:='/';
    MemLogic:='0';
    end;
end;


procedure TForm1.Button12Click(Sender: TObject);
var sudut:real;
begin
if hasil.Caption<>'' then
 begin
 sudut:=strtofloat(hasil.Caption);
 sudut:=sudut*pi/180;
 hasil.Caption := floattostr(cos(sudut));
 MemLogic :='0';
 end;
end;


procedure TForm1.Button13Click(Sender: TObject);
var sudut,a,b:real;
begin
if hasil.Caption<>'' then
 begin
 sudut:=strtofloat(hasil.Caption);
 sudut:=sudut*pi/180;
 a:=sin(sudut);
 b:=cos(sudut);
 sudut:=a/b;
 hasil.Caption := floattostr((sudut));
 MemLogic :='0';
 end;
end;

procedure TForm1.Button28Click(Sender: TObject);
var angka:real;
begin
angka:=StrToFloat(hasil.Caption);
if (angka>0) then
angka:=(-angka)
else
angka:=angka+(-angka)+(-angka);
hasil.Caption:=FloatToStr(angka);
end;

procedure TForm1.Button26Click(Sender: TObject);
var angka:real;
begin
angka:=StrToFloat(hasil.Caption);
angka:=ln(10)/ln(angka);
hasil.Caption:=FloatToStr(angka);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[2].Text:= TimeToStr(time);
end;

end.

INSERTION SORT

Seleksition Sort

insertion sort menggunakan DELPHI

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  tblint:array[1..100] of integer;

  i, datasisip, j, n: integer;



begin
  { TODO -oUser -cConsole Main : Insert code here }


  write('masukkan jumlah data: '); readln(n);

  for i:=1 to n do
  begin
    write('data[',i,'] = '); readln(tblint[i]);
  end;


  for i :=2 to n do
  begin
    datasisip:=tblint[i];

    j:= i-1;

    while (datasisip < tblint[j]) do
    begin
      tblint[j+1]:= tblint[j];
      j:=j-1;
      end;

      tblint[j+1]:= datasisip;
      end;

  writeln;
  writeln('Hasil Sortir');
  for i := 1 to n do
    write(tblint[i]:5);
    readln;

end.

membuat kalkulator dengan VIBI

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Cara memasang lencana facebook kedalam blog anda

1.Login ke facebook anda dulu,lalu buka profil anda

2.Klik gambar bintang samping log aktifitas,kemudian klik tambahkan lencana ke situs anda

3.Kemudian klik buat lencana baru

4.Stelah itu sunting smuanya sesuai faforit anda kemudian simpan

5.Kemudian klik blogger

6.klik edit konten ,kemudian akan muncul kode HTML terus copy deh

7.masuk blog anda paste htmlnya ke HTML/JAVASRCIPT

SELAMAT MENCOBA

1. 
   

VISUAL BASIC deret,faktorial,dan lingkaran

deret
Private Sub Form_Activate()
i = 0
Do
i = i + 1
Print i * i;
Loop While i <= 5
End Sub
****************************************
faktorial
Private Sub Form_Activate()
i = 1
fact = 1
Do While i <= 5
    Print fact;
    i = i + 1
    fact = fact * i
Loop
End Sub
***************************************
lingkaran
Private Sub Form_Activate()
Dim luas, keliling, jari2
Const PI = 3.14
r = InputBox("masukkan jari-jari:")
k = 2 * PI * r
l = PI * r * r
Print "keliling:"; k
Print "luas:"; l
End Sub

VISUAL BASIC cara mengasihkan discount

Private Sub Form_Activate()
Dim kode(100), tema(100), jumlah(100), HargaPerSatuan(100), Discont(100), Dist(100), Dispros(100), Bayar1(100), Bayar2(100), i, n, m, TotalBayar

TotalBayar = 0

Form1.Print "============================================================================"
    Print
    Form1.Print Tab(5); "Kode";
    Form1.Print Tab(15); "Tema";
    Form1.Print Tab(35); "Jumlah";
    Form1.Print Tab(45); "Harga Per Satuan";
    Form1.Print Tab(70); "Discount";
    Form1.Print Tab(85); "Bayar";
    Print
    Form1.Print "============================================================================"
    Print

n = InputBox("Masukkan Jumlah Banyaknya Data ")
For m = 1 To n
    kode(i) = InputBox("Masukkan Kode (A-E)")
    jumlah(i) = InputBox("Masukkan Jumlah Yang Dibeli")
    HargaPerSatuan(i) = InputBox("Masukkan Harga Per Satuan")
   
    If kode(i) = "A" Then
        tema(i) = "Komputer"
    ElseIf kode(i) = "B" Then
        tema(i) = "Ekonomi"
    ElseIf kode(i) = "C" Then
        tema(i) = "Akuntansi"
    ElseIf kode(i) = "D" Then
        tema(i) = "Statistik"
    ElseIf kode(i) = "E" Then
        tema(i) = "Umum"
    End If
   
          
    If jumlah(i) <= 10 Then
        Dist(i) = "5%"
        Discont(i) = 0.05
       
    ElseIf jumlah(i) <= 20 Then
        Dist(i) = "10%"
        Discont(i) = 0.1
       
    ElseIf jumlah(i) <= 30 Then
        Dist(i) = "15%"
        Discont(i) = 0.15
       
    ElseIf jumlah(i) <= 40 Then
        Dist(i) = "20%"
        Discont(i) = 0.2
       
    ElseIf jumlah(i) > 40 Then
        Dist(i) = "25%"
        Discont(i) = 0.25
    End If
   
   
    Bayar1(i) = jumlah(i) * HargaPerSatuan(i)
    Dispros(i) = Bayar1(i) * Discont(i)
    Bayar2(i) = Bayar1(i) - Dispros(i)
    TotalBayar = TotalBayar + Bayar2(i)
   
    Form1.Print Tab(5); kode(i);
    Form1.Print Tab(15); tema(i);
    Form1.Print Tab(35); jumlah(i);
    Form1.Print Tab(45); Format(HargaPerSatuan(i), "Rp ###,###,###");
    Form1.Print Tab(70); Dist(i);
    Form1.Print Tab(85); Format(Bayar2(i), "Rp ###,###,###");
    Print
Next m
Form1.Print "-------------------------------------------------------------------------------------------------------------------------------------------------------"
Print
    Form1.Print Tab(85); "TotalBayar";
Print
Print
    Form1.Print Tab(85); Format(TotalBayar, "Rp ###,###,###");

End Sub

VISUAL BASIC deret

Private Sub Form_Activate()
Dim i, j, n, Min As Integer
Dim A(5) As Integer

A(1) = 5
A(2) = 3
A(3) = 1
A(4) = 7
A(5) = 9
Print "angka sebelum diurutkan"
For i = 1 To 5
    Print "angka ke "; i; "="; A(i)
Next i
n = 4
For i = 1 To n
    Min = i
For j = i + 1 To 5
    If A(Min) > A(j) Then
    Min = j
    End If
Next j
    temp = A(i)
    A(i) = A(Min)
    A(Min) = temp
Next i
Print
Print "angka setelah diurutkan"
For j = 1 To 5
    Print "angka ke"; j; "="; A(j)
Next j
End Sub

VISUAL BASIC operator toko

Private Sub Form_Activate()
    Dim barang(4), jumlah(4), Hargasatuan(4), harga(4), total
    total = 0
   For i = 1 To 4
       
        barang(i) = InputBox("masukkan nama barang ")
        jumlah(i) = InputBox("masukan jumlah barang")
        Hargasatuan(i) = InputBox("masukan harga satuan")
       
        harga(i) = Val(jumlah(i)) * Val(Hargasatuan(i))
      
        total = total + Val(harga(i))
        Print "nama barang   ="; barang(i)
        Print "jumlah barang ="; jumlah(i)
        Print "hargasatuan   ="; Hargasatuan(i)
        Print "harga         ="; harga(i)
        Print
    Next i
    Print "total ="; total

   
End Sub

VISUAL BASIC looping

6 Looping

cara menggunakan PROGRAM VISUAL BASIC dgn benar

4_Tipe Data

VISUAL BASIC OPERATOR

3 Operator

OOP

Pemrograman berorientasi objek (Inggris: object-oriented programming disingkat OOP) merupakan paradigma pemrograman yang berorientasikan kepada objek. Semua data dan fungsi di dalam paradigma ini dibungkus dalam kelas-kelas atau objek-objek. Bandingkan dengan logika pemrograman terstruktur. Setiap objek dapat menerima pesan, memproses data, dan mengirim pesan ke objek lainnya,

Model data berorientasi objek dikatakan dapat memberi fleksibilitas yang lebih, kemudahan mengubah program, dan digunakan luas dalam teknik piranti lunak skala besar. Lebih jauh lagi, pendukung OOP mengklaim bahwa OOP lebih mudah dipelajari bagi pemula dibanding dengan pendekatan sebelumnya, dan pendekatan OOP lebih mudah dikembangkan dan dirawat.

== Konsep dasar dari Pemrograman Berorientasi Objek Pemrograman orientasi-objek menekankan konsep berikut:

·         Kelas — kumpulan atas definisi data dan fungsi-fungsi dalam suatu unit untuk suatu tujuan tertentu. Sebagai contoh 'class of dog' adalah suatu unit yang terdiri atas definisi-definisi data dan fungsi-fungsi yang menunjuk pada berbagai macam perilaku/turunan dari anjing. Sebuah class adalah dasar dari modularitas dan struktur dalam pemrograman berorientasi object. Sebuah class secara tipikal sebaiknya dapat dikenali oleh seorang non-programmer sekalipun terkait dengan domain permasalahan yang ada, dan kode yang terdapat dalam sebuah class sebaiknya (relatif) bersifat mandiri dan independen (sebagaimana kode tersebut digunakan jika tidak menggunakan OOP). Dengan modularitas, struktur dari sebuah program akan terkait dengan aspek-aspek dalam masalah yang akan diselesaikan melalui program tersebut. Cara seperti ini akan menyederhanakan pemetaan dari masalah ke sebuah program ataupun sebaliknya.

·         Objek - membungkus data dan fungsi bersama menjadi suatu unit dalam sebuah program komputer; objek merupakan dasar dari modularitas dan struktur dalam sebuah program komputer berorientasi objek.

·         Abstraksi - Kemampuan sebuah program untuk melewati aspek informasi yang diproses olehnya, yaitu kemampuan untuk memfokus pada inti. Setiap objek dalam sistem melayani sebagai model dari "pelaku" abstrak yang dapat melakukan kerja, laporan dan perubahan keadaannya, dan berkomunikasi dengan objek lainnya dalam sistem, tanpa mengungkapkan bagaimana kelebihan ini diterapkan. Proses, fungsi atau metode dapat juga dibuat abstrak, dan beberapa teknik digunakan untuk mengembangkan sebuah pengabstrakan.

·         Enkapsulasi - Memastikan pengguna sebuah objek tidak dapat mengganti keadaan dalam dari sebuah objek dengan cara yang tidak layak; hanya metode dalam objek tersebut yang diberi izin untuk mengakses keadaannya. Setiap objek mengakses interface yang menyebutkan bagaimana objek lainnya dapat berinteraksi dengannya. Objek lainnya tidak akan mengetahui dan tergantung kepada representasi dalam objek tersebut.

·         Polimorfisme melalui pengiriman pesan. Tidak bergantung kepada pemanggilan subrutin, bahasa orientasi objek dapat mengirim pesan; metode tertentu yang berhubungan dengan sebuah pengiriman pesan tergantung kepada objek tertentu di mana pesa tersebut dikirim. Contohnya, bila sebuah burung menerima pesan "gerak cepat", dia akan menggerakan sayapnya dan terbang. Bila seekor singa menerima pesan yang sama, dia akan menggerakkan kakinya dan berlari. Keduanya menjawab sebuah pesan yang sama, namun yang sesuai dengan kemampuan hewan tersebut. Ini disebut polimorfisme karena sebuah variabel tungal dalam program dapat memegang berbagai jenis objek yang berbeda selagi program berjalan, dan teks program yang sama dapat memanggil beberapa metode yang berbeda di saat yang berbeda dalam pemanggilan yang sama. Hal ini berlawanan dengan bahasa fungsional yang mencapai polimorfisme melalui penggunaan fungsi kelas-pertama.

·         Dengan menggunakan OOP maka dalam melakukan pemecahan suatu masalah kita tidak melihat bagaimana cara menyelesaikan suatu masalah tersebut (terstruktur) tetapi objek-objek apa yang dapat melakukan pemecahan masalah tersebut. Sebagai contoh anggap kita memiliki sebuah departemen yang memiliki manager, sekretaris, petugas administrasi data dan lainnya. Misal manager tersebut ingin memperoleh data dari bag administrasi maka manager tersebut tidak harus mengambilnya langsung tetapi dapat menyuruh petugas bag administrasi untuk mengambilnya. Pada kasus tersebut seorang manager tidak harus mengetahui bagaimana cara mengambil data tersebut tetapi manager bisa mendapatkan data tersebut melalui objek petugas adminiistrasi. Jadi untuk menyelesaikan suatu masalah dengan kolaborasi antar objek-objek yang ada karena setiap objek memiliki deskripsi tugasnya sendiri.

Kesitimewaan OOP

keistimewaan dalam pembungkusan memudahkan para programmer mengarungi lautan kehidupan dalam meng-coding ria. Ada beberapa istilah inti dari keistimewaan OOP ini, yang paling menarik adalah class, property, method, inheritance, polymorphisme, dan  encapsulation. OOP sering digunakan dalam pembuatan aplikasi besar, dimana ketika penambahan fitur terbaru fungsi encapsulation atau pembungkusan dalam class ini sangat berperan penting. Keuntungan lain adalah maintenance ketika ada bug yang bercokol dalam coding ataupun maintenance jenis lain. Dengan mudah terkontrol. Dan menghasilkan coding yang lebih efisien. Contoh nyata OOP yaitu button. Turunan button seperti bit button, push button dan lain-lain. Dimana button-button tersebut sebenarnya adalah bentuk lain dari button induk yang telah di berikan fitur-fitur tambahan.

ELEKTRO DIGITAL pencarian input dengan menggunakan tabel kebenaran

tugas ed

DASAR PEMROGRAMAN DATA TAMU HOTEL dengan menggunakan RECORD, PROCEDURE DAN PERCABANGAN

tugas DASPRO

PERNYATAAN PERCABAANG IF PADA PASCAL

Pernyataan Percabangan if Pada Pascal