Rabu, 19 Oktober 2016

Langkah – Langkah Cara Membuat Blog di WordPress Terbaru



Mendaftar untuk membuat akun Gratis WordPress

Cara_Membuat_Blog_di_Wordpress_halaman_depan_nyekrip
Halaman Depan
Pertama yang harus kita lakukan adalah menuju web WordPress di ” https://id.wordpress.com/ “, kita akan menjumpai halaman seperti gambar diatas dan klik tombol ” Buat Situs Web ” maka akan mengantarkan kita pada halaman pemilihan nama domain atau blog seperti gambar dibawah ini. Untuk memilih nama domain atau blog silahkan mengunjungi tutorial ” Tips Cara Memilih Nama Domain Blog atau Website “.
Cara_Membuat_Blog_di_Wordpress_memilih_nama_blog_nyekrip
Memilih Nama
Blog WordPress yang gratis, alamat blognya akan selalu berakhir dengan “.wordpress.com“. Nama domain yang dipilih tidak dapat diubah, sedangkan nama blog yang dipilih pada tahap ini masih dapat diubah nantinya. Maka dari itu pemilihan nama domain dalam membuat blog menggunakan wordpress harus disiapkan secara matang.
Pada halaman ini pastikan alamat atau nama blog yang dipilih masih tersedia, lihat gambar yang telah di area kotak diatas, setelah itu tinggal melanjutkan dengan klik tombol ” Buat Situs Anda dan Lanjutkan ” dan kita akan diarahkan pada halaman berisi formulir untuk membuat blog sekaligus akun WordPress secara gratis seperti gambar dibawah ini.
Mengisi Formulir
Penjelasan nomor pada gambar diatas.
  • Nomor satu merupakan tempat kita mengetik alamat atau nama blog
  • Nomor dua merupakan tempat kita mengetik alamat email, jika belum punya email silahkan mengunjungi tutorial ” Cara Membuat Email Baru Lengkap Gambar “
  • Nomor tiga merupakan tempat kita mengetik nama akun kita di WordPress, ini juga pastikan kalau masih tersedia
  • Nomor empat merupakan tempat kita mengetik password atau kata sandi
Setelah kita mengisikan formulir diatas, selanjutnya klik tombol ” Langkah Berikutnya “, maka kita akan diantarkan pada halaman ” Cari Alamat Kustom ” seperti gambar dibawah ini. Jika kita ingin menggunakan sub-domain maka kita lewati aja pada langkah ini dengan klik tombol ” Tidak, Terima Kasih “.
Cara_Membuat_Blog_di_Wordpress_Cari_alamat_kustom_nyekrip
Cari Alamat Kustom
Setelah klik tombol tersebut kita akan diarahkan dalam sebuah halaman untuk memilih template atau tema blog kita, pada tahap ini silahkan pilih tema yang menurut kita bagus atau langsung saja memilih tema yang standar karena nantinya bisa kita ganti sesuka kita.
Cara_Membuat_Blog_di_Wordpress_memilih_tema_nyekrip
Memilih Tema
Setelah memilih tema kita akan menghadapi halaman untuk memilih paket, karena dari awal niat kita ingin yang gratis, maka langsung saja pilih paket yang gratis. Lebih jelasnya perhatikan gambar dibawah ini.
Cara_Membuat_Blog_di_Wordpress_memilih_paket_nyekrip
Pilih yang Gratis
Klik tombol ” Pilih Gratis “, maka kita akan menuju halaman dashboard di WordPress.com seperti gambar berikut, pada tahap ini kita sudah selesai dalam membuat blog di WordPress untuk mengetahui panel pengaturan lebih lanjut, silahkan ikuti langkah dibawah ini. Sebelum lebih jauh silahkan anda cek email untuk melakukan proses Aktivasi.

Mengenal Panel Dashboard WordPress

Cara_Membuat_Blog_di_Wordpress_selamat_datang_nyekrip
Halaman Selamat Datang
Perhatikan gambar diatas, sebenarnya halaman yang ditunjukkan pada gambar diatas sudah masuk dashboard cuma saya lebih suka jika masuk langsung ke area ” Admin WP ” karena lebih familiar, oke mari kita bahas nomor pada gambar diatas.
  • Nomor satu merupakan tombol untuk membuat post baru
  • Nomor dua merupakan link menuju pembuatan blog baru
  • Nomor tiga merupakan link jika kita ingin melihat blog kita
  • Nomor empat merupakan link menuju ke area ” Admin WP “
Sekarang mari kita menuju area Admin WP dengan klik link yang ditunjuk-kan pada nomor empat, maka kita akan melihat halaman baru seperti gambar dibawah ini.
Cara_Membuat_Blog_di_Wordpress_gambar_wp_admin_nyekrip
Admin WP
Perhatikan gambar diatas, mari kita bahas nomor pada gambar tersebut.
  • Nomor satu merupakan tempat informasi akun kita, dan juga tempat link jika kita mau logout
  • Nomor dua merupakan area informasi jika kita belum melakukan aktivasi akun dengan mengunjungi link yang telah dikirimkan ke email yang telah kita gunakan untuk pendaftaran tadi
  • Nomor tiga merupakan informasi tentang penggunaan space, perhatikan bahwa dalam akun gratis ini kita hanya bisa menyimpan maksimal sebesar 3000 MB atau 3 GB.klik disini
Diposting oleh di Tidak ada komentar:

Senin, 17 Oktober 2016

Cara Membuat Program Sederhana Menggunakan Delphi


  1. Buka aplikasi Delphi
  2. Kemudian klik Run Program
  3. Kemudian buat form baru dengan cara klik file > New > Form
  4. Kemudian desain form tersebut yang digunakan sebagai form inputan seperti gambar dibawah ini:
  5. Cara Membuat Program Sederhana Menggunakan Delphi
  6. Setelah membuat form tersebut, buat lagi 1 form yang digunakan untuk menampilkan inputan dari form satu, seperti gambar dibawah ini:
    Cara Membuat Program Sederhana Menggunakan Delphi
  7. Masukkan kode dibawah ini ke dalam form pertama:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;



type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Panel1: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
DateTimePicker1: TDateTimePicker;
GroupBox1: TGroupBox;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;



var
Form1: TForm1;



implementation



uses Unit2;



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);



begin



Form2.Show;
Form2.Edit1.Text:='Kirana';
Form2.Edit2.Text:='solo';
Form2.Edit3.Text:=Form1.ComboBox1.Text;
Form2.Edit4.Text:=FormatDateTime('d/m/y',DateTimePicker1.Time);
If RadioButton1.checked= True then
Form2.Edit5.Text:='Islam';
If RadioButton2.checked= True then
Form2.Edit5.Text:='Katholik';
If RadioButton3.checked= True then
Form2.Edit5.Text:='Kristen';
If RadioButton4.checked= True then
Form2.Edit5.Text:='Hindu';
If RadioButton5.checked= True then
Form2.Edit5.Text:='Islam';



If RadioButton6.checked= True then
Form2.Edit6.Text:='Mesin Otomotif';
If RadioButton7.checked= True then
Form2.Edit6.Text:='Manajemen Informatika';
If RadioButton8.checked= True then
Form2.Edit6.Text:='Komunikasi Massa';
If RadioButton9.checked= True then
Form2.Edit6.Text:='Perhotelan';
If RadioButton10.checked= True then
Form2.Edit6.Text:='Farmasi';






end;



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



end.
      7.  Kemudian jalankan program di form1 dan isi sesuai dengan informasi anda seperti gambar                 dibawah ini:
Cara Membuat Program Sederhana Menggunakan Delphi
      8. Setelah itu klik kirim data maka hasil inputan di form satu tadi tampil di form 2 seperti gambar          dibawah ini:klik disini
Cara Membuat Program Sederhana Menggunakan Delphi
Diposting oleh di Tidak ada komentar:

Cara Membuat Kakulator Matematika Delphi

Kali ini saya akan mengajari Anda membuat sebuah Kalkulator Matematika ya mungkin agak mirip dengan Casio. Langsung saja lihat hasil runningnya di bawah ini.


Kren kan, ya iyalah. Itu pakai Skin makanya terlihat kren. Pertama, tentunya Anda harus menyiapkan dan mengatur komponen seperti di atas, OK. Jika sudah maka lanjutkan ke sintaksis. Anda tinggal perhatikan beberapa tombol dan sintaksisnya. Kedua, perhatikan di bagian Uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, ExtCtrls, Math, Mask, MPlayer, sSkinProvider, sSkinManager;

Ok, sudah lihat kan ada perubahan. Ini karena kita akan menggunakan beberapa fungsi Matematika. tentunya ini tidak ada di Delphi sebelumnya, jadi harus Anda tambahkan dulu.
Selanjutnya, buatkan prosedure tersendiri di bagian type, yakni:
    procedure BtsinClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure AktifkanTombol;
  procedure CekInput;
    procedure bt1Click(Sender: TObject);
    procedure bt0Click(Sender: TObject);
    procedure bt2Click(Sender: TObject);
    procedure bt3Click(Sender: TObject);
    procedure bt4Click(Sender: TObject);
    procedure bt5Click(Sender: TObject);
    procedure bt6Click(Sender: TObject);
    procedure bt7Click(Sender: TObject);
    procedure bt8Click(Sender: TObject);
    procedure bt9Click(Sender: TObject);
    procedure BtBaruClick(Sender: TObject);
    procedure Btx2Click(Sender: TObject);
    procedure BtakarClick(Sender: TObject);
    procedure BtpangkatClick(Sender: TObject);
    procedure bthasilClick(Sender: TObject);
    procedure BtcosClick(Sender: TObject);
    procedure BttanClick(Sender: TObject);
    procedure BtexpClick(Sender: TObject);
    procedure BtLnClick(Sender: TObject);
    procedure Bt1perxClick(Sender: TObject);
    procedure BtFaktorialClick(Sender: TObject);
    procedure BtkaliClick(Sender: TObject);
    procedure btbagiClick(Sender: TObject);
    procedure bttambahClick(Sender: TObject);
    procedure btkurangClick(Sender: TObject);
    procedure btpersenClick(Sender: TObject);
    procedure bttitikClick(Sender: TObject);
    procedure btbulatClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

Lanjut lagi, perhatikan di bagian Var.

var
  Form1: TForm1;
  Hasil : Real; //untuk menampung hasil proses
  Kosong : Boolean; //untuk pengecekan input data
  NoBaru : Boolean; //untuk mengecek hasil proses baru
  I,N : Integer; //untuk Variabel indek dalam program
Nah, ini dia sintaksis lengkapnya, perhatikan dengan seksama ya.
Procedure TForm1.AktifkanTombol;
Begin
btpangkat.Enabled:=True;
BtTitik.Enabled:=True;
end;

Procedure TForm1.CekInput;
Begin
AktifkanTombol;
if length(trim(edinput.Text))=0 then
Begin
application.MessageBox('Masukan Angka Dulu...','Cek Input',
MB_IconStop);
edInput.SetFocus;
Kosong:=True;
end
else
Begin
Kosong:=False;
exit;
end;
end;

//Tombol Tekan Angka
procedure TForm1.bt1Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='1';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'1';
end;


procedure TForm1.bt0Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='0';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'0';
end;


procedure TForm1.bt2Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='2';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'2';
end;

//Tombol Angka 3
procedure TForm1.bt3Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='3';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'3';
end;
//Tombol Angka 4
procedure TForm1.bt4Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='4';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'4';
end;

//Tombol Angka 5
procedure TForm1.bt5Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='5';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'5';
end;

//Tombol Angka 6
procedure TForm1.bt6Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='6';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'6';
end;

//Tombol Angka 7
procedure TForm1.bt7Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='7';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'7';
end;

//Tombol Angka 8
procedure TForm1.bt8Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='8';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'8';
end;

//Tombol Angka 9
procedure TForm1.bt9Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='9';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'9';
end;

procedure TForm1.Btx2Click(Sender: TObject);
var Kw:Real;
begin
CekInput;
if kosong=true then
exit
else
begin
Kw:=strToFloat(edinput.Text);
edinput.Text:=FloatToStr(sqr(Kw));
end;
end;

procedure TForm1.BtakarClick(Sender: TObject);
var aKw:Real;
begin
CekInput;
if kosong=true then
exit
else
begin
akw:=strToFloat(edinput.Text);
edinput.Text:=FloatToStr(sqrt(aKw));
end;
end;


procedure TForm1.BtpangkatClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
stcetak.Caption:=edinput.Text;
stOperasi.Caption:='x^y';
edinput.Text:='';
edinput.SetFocus;
btpangkat.Enabled:=False;
BtTitik.Enabled:=False;
end;
end;

procedure TForm1.bthasilClick(Sender: TObject);
var x,n1,n2:integer;
Bil1,Bil2:Real;
begin
CekInput;
if kosong=true then
exit
else
begin
if length(trim(stCetak.Caption))=0 then exit;
bil1:=strToFloat(stCetak.Caption);
bil2:=strToFloat(EdInput.Text);
n1:=strToint(stCetak.Caption);
n2:=strToint(EdInput.Text);
if StOperasi.Caption='x^y' then
Begin
hasil:=1;
for x:=1 to strToInt(EdInput.Text) do
begin
Hasil:=Hasil*Bil1;
End;
End
else if StOperasi.Caption='*' Then
Hasil:=bil1*bil2
else if StOperasi.Caption='/' Then
Hasil:=bil1/bil2
else if StOperasi.Caption='+' Then
Hasil:=bil1+bil2
else if StOperasi.Caption='-' Then
Hasil:=bil1-bil2
else if StOperasi.Caption='Div' Then
Hasil:=n1 div n2
else if StOperasi.Caption='Mod' Then
Hasil:=n1 mod n2
else if StOperasi.Caption='nPr' Then
Hasil:=bil1+bil2
else if StOperasi.Caption='nCr' Then
Hasil:=bil1-bil2
else
exit;
aktifkanTombol;
StCetak.Caption:=FloatToStr(Bil2);
EdInput.Text:=FloatToStr(Hasil);
NoBaru:=True;
end;
end;

//Tombol Sinus
procedure TForm1.BtsinClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(Sin(Hasil*pi/180));
end;
end;
//Tombol Cos
procedure TForm1.BtcosClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(Cos(Hasil*pi/180));
end;
end;

//Tombol Tan
procedure TForm1.BttanClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(Tan(Hasil*pi/180));
end;
end;

procedure TForm1.BtexpClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(Exp(Hasil));
end;
end;

procedure TForm1.BtLnClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(Ln(Hasil));
end;
end;

procedure TForm1.Bt1perxClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(1/Hasil);
end;
end;

procedure TForm1.BtFaktorialClick(Sender: TObject);
var Hfaktorial:Integer;
begin
CekInput;
if kosong=true then
exit
else
begin
hasil:=1;
HFaktorial:=StrToInt(edinput.Text);
for i:=HFaktorial downto 1 do
begin
hasil:=hasil*i;
edinput.Text:=FloatToStr(Hasil);
end;
end;

end;

procedure TForm1.BtkaliClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
stcetak.Caption:=edinput.Text;
stOperasi.Caption:='*';
edinput.Text:='';
edinput.SetFocus;
end;
end;

procedure TForm1.btbagiClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
stcetak.Caption:=edinput.Text;
stOperasi.Caption:='/';
edinput.Text:='';
edinput.SetFocus;
end;
end;

procedure TForm1.bttambahClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
stcetak.Caption:=edinput.Text;
stOperasi.Caption:='+';
edinput.Text:='';
edinput.SetFocus;
end;
end;

procedure TForm1.btkurangClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
stcetak.Caption:=edinput.Text;
stOperasi.Caption:='-';
edinput.Text:='';
edinput.SetFocus;
end;
end;

procedure TForm1.btpersenClick(Sender: TObject);
Var Persen:Real;
begin
CekInput;
if kosong=true then
exit
else
begin
Persen:=StrToFloat(EdInput.Text);
EdInput.Text:=FloatToStr(Persen/100);
end;
end;

procedure TForm1.bttitikClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
BtTitik.Enabled:=False;
EdInput.Text:=EdInput.Text+',';
end;
end;

procedure TForm1.btbulatClick(Sender: TObject);
Var Minus:Real;
begin
CekInput;
if kosong=true then
exit
else
begin
Minus:=StrToFloat(EdInput.Text);
EdInput.Text:=FloatToStr(Minus*(0-1));
end;
end;

procedure TForm1.btCosecClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(1/Sin(Hasil*pi/180));
end;
end;

procedure TForm1.btHapusClick(Sender: TObject);
begin
NoBaru:=False;
aktifkanTombol;
StOperasi.Caption:='';
edinput.Text:='';
stcetak.Caption:='';
edinput.SetFocus;
end;

procedure TForm1.btSecClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(1/Cos(Hasil*pi/180));
end;
end;

procedure TForm1.btCotClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
Hasil:=StrToFloat(edinput.Text);
edinput.Text:=floatToStr(1/Tan(Hasil*pi/180));
end;
end;

procedure TForm1.bt000Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='0';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'000';
end;

procedure TForm1.btDivClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
stcetak.Caption:=edinput.Text;
stOperasi.Caption:='Div';
edinput.Text:='';
edinput.SetFocus;
end;
end;

procedure TForm1.btModClick(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
stcetak.Caption:=edinput.Text;
stOperasi.Caption:='Mod';
edinput.Text:='';
edinput.SetFocus;
end;
end;

procedure TForm1.bt00Click(Sender: TObject);
begin
if NoBaru=True Then
begin
edinput.Text:='0';
NoBaru:=False;
end
else
edinput.Text:=Edinput.Text+'00';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
CekInput;
if kosong=true then
exit
else
begin
stcetak.Caption:=edinput.Text;
stOperasi.Caption:='nPr';
edinput.Text:='';
edinput.SetFocus;
btpangkat.Enabled:=False;
BtTitik.Enabled:=False;
end;
end;
klik disini
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)