Minggu, 24 November 2013

Sejarah Tentang PHP

Pada awalnya PHP merupakan kependekan dari Personal Home Page (Situs personal). PHP pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995. Pada waktu itu PHP masih bernama Form Interpreted (FI), yang wujudnya berupa sekumpulan skrip yang digunakan untuk mengolah data formulir dari web.
Selanjutnya Rasmus merilis kode sumber tersebut untuk umum dan menamakannya PHP/FI. Dengan perilisan kode sumber ini menjadi sumber terbuka, maka banyak pemrogram yang tertarik untuk ikut mengembangkan PHP.
Pada November 1997, dirilis PHP/FI 2.0. Pada rilis ini, interpreter PHP sudah diimplementasikan dalam program C. Dalam rilis ini disertakan juga modul-modul ekstensi yang meningkatkan kemampuan PHP/FI secara signifikan.
Pada tahun 1997, sebuah perusahaan bernama Zend menulis ulang interpreter PHP menjadi lebih bersih, lebih baik, dan lebih cepat. Kemudian pada Juni 1998, perusahaan tersebut merilis interpreter baru untuk PHP dan meresmikan rilis tersebut sebagai PHP 3.0 dan singkatan PHP diubah menjadi akronim berulang PHP: Hypertext Preprocessing.
Pada pertengahan tahun 1999, Zend merilis interpreter PHP baru dan rilis tersebut dikenal dengan PHP 4.0. PHP 4.0 adalah versi PHP yang paling banyak dipakai pada awal abad ke-21. Versi ini banyak dipakai disebabkan kemampuannya untuk membangun aplikasi web kompleks tetapi tetap memiliki kecepatan dan stabilitas yang tinggi.
Pada Juni 2004, Zend merilis PHP 5.0. Dalam versi ini, inti dari interpreter PHP mengalami perubahan besar. Versi ini juga memasukkan model pemrograman berorientasi objek ke dalam PHP untuk menjawab perkembangan bahasa pemrograman ke arah paradigma berorientasi objek.
Berikut ini adalah contoh program yang relatif lebih kompleks yang ditulis dengan menggunakan PHP. Contoh program ini adalah program untuk menampilkan 20 bilangan pertama dari deret bilangan Fibonacci.
<?php
function fibonacci_seq( $panjang ) {
   for( $l = array(0,1), $i = 2, $x = 0; $i < $panjang; $i++ )
        $l[] = $l[$x++] + $l[$x];
   return $l;
}
fibonacci_seq(20);
// Angka "20" dapat diganti sesuai keinginan
?>
  1. 'Bahasa pemrograman PHP adalah sebuah bahasa script yang tidak melakukan sebuah kompilasi dalam penggunaanya.'
  2. 'Web Server yang mendukung PHP dapat ditemukan dimana - mana dari mulai apache, IIS, Lighttpd, hingga Xitami dengan konfigurasi yang relatif mudah.'
  3. 'Dalam sisi pengembangan lebih mudah, karena banyaknya milis - milis dan developer yang siap membantu dalam pengembangan.'
  4. 'Dalam sisi pemahamanan, PHP adalah bahasa scripting yang paling mudah karena memiliki referensi yang banyak.'
  5. 'PHP adalah bahasa open source yang dapat digunakan di berbagai mesin (Linux, Unix, Macintosh, Windows) dan dapat dijalankan secara runtime melalui console serta juga dapat menjalankan perintah-perintah system.'
PHP memiliki 8 (delapan) tipe data yaitu :
  1. Integer
  2. Double
  3. Boolean
  4. String
  5. Object 
  6. Array
  7. Null
  8. Nill
  9. Resource

    sumber: http://oktohsb.blogspot.com/2012/07/sejarah-php_10.html

Jumat, 15 November 2013

Mesran.blogspot.com tempat berbagi ilmu pemograman JUGA


 Pada artikel sebelumnya sudah terdapat Mesran.net. Nah, sekarang kita bahas tentang Mesran.blogspot.com .gak jauh beda dengan mesran.net.Dua-duanya memiliki kesamaan yaitu,sama-sama tempat berbagi ilmu pemograman. Bedanya kalau tugas-tugas kuliah mahasiwa/i STMIK Budidarma Medan khususnya matakuliah yang dibimbing oleh Pak Mesran ya letaknya di Mesran.blogspot.com . Sedangkan kalau Quiz, letaknya di Mesran.net. Disini juga terdapat Silabus Perkuliahan, Modul Perkuliahan, bahkan sampai E-book juga bisa didownload. bagaimana menarik bukan!. Contoh-contoh program lainnya juga ada seperti : Visual Basic 6, VB Net, Visual C#, Pascal, C/C++, PHP.jika ingin menambah wawasan anda, berkunjung  aja ke Mesran.blogspot.com  anda gak akan nyesal kok berkunjung ke mesran.blogspot.com malah anda akan lagi, lagi dan lagi ingin berkunjung kesana karna semakin menariknya mesran.blogspot.com hahaha.Selamat mencoba.:)

Program Transaksi Sederhana dengan Borland Delphi 7


Komponen yang digunakan :
- Komponen Standart : Panel, Edit, Label, Memo, Button
Listing Program :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;

Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Memo4: TMemo;
Memo5: TMemo;
Edit7: TEdit;
Memo6: TMemo;
Timer1: TTimer;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var harga1,harga2,harga3,tot1,tot2,tot3,total,diskon,uang,bayar,kembali: currency;
jml1,jml2,jml3:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Text:=’ -Pilih-’;
ComboBox2.Text:=’ -Pilih-’;
ComboBox3.Text:=’ -Pilih-’;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Memo4.Clear;
Memo5.Clear;
Memo6.Clear;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
harga1:=StrToCurr(Edit1.Text);
harga2:=StrToCurr(Edit2.Text);
harga3:=StrToCurr(Edit3.Text);
jml1:=StrToInt(Edit4.Text);
jml2:=StrToInt(Edit5.Text);
jml3:=StrToInt(Edit6.Text);
tot1:=harga1*jml1;
tot2:=harga2*jml2;
tot3:=harga3*jml3;
Memo1.Text:=CurrToStr(tot1);
Memo2.Text:=CurrToStr(tot2);
Memo3.Text:=CurrToStr(tot3);
total:=tot1+tot2+tot3;
Memo4.Text:=CurrToStr(total);
Button2.Visible:=True;
Button3.Visible:=True;
Button4.Visible:=True;
total:=StrToCurr(Memo4.Text);
if total>=2000000 then
diskon:=100000
else diskon:=50000;
Memo5.Text:=CurrToStr(diskon);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
uang:=StrToCurr(Edit7.Text);
bayar:=total-diskon;
kembali:=uang-bayar;
Memo6.Text:=CurrToStr(kembali);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ComboBox1.Text:=’ -Pilih-’;
ComboBox2.Text:=’ -Pilih-’;
ComboBox3.Text:=’ -Pilih-’;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
Memo4.Clear;
Memo5.Clear;
Memo6.Clear;
Button2.Visible:=false;
Button3.Visible:=false;
Button4.Visible:=false;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=0 then
harga1:=2000000
else if ComboBox1.ItemIndex=1 then
harga1:=1000000
else if ComboBox1.ItemIndex=2 then
harga1:=500000;
Edit1.Text:=CurrToStr(harga1);
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if ComboBox2.ItemIndex=0 then
harga2:=200000
else if ComboBox2.ItemIndex=1 then
harga2:=100000
else if ComboBox2.ItemIndex=2 then
harga2:=50000;
Edit2.Text:=CurrToStr(harga2);
end;
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if ComboBox3.ItemIndex=0 then
harga3:=250000
else if ComboBox3.ItemIndex=1 then
harga3:=150000
else if ComboBox3.ItemIndex=2 then
harga3:=100000;
Edit3.Text:=CurrToStr(harga3);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label7.Caption:=TimeToStr(now);
Label6.Caption:=DateToStr(now);
end;
end

sumber: http://sinausateruse.wordpress.com/2012/04/30/program-transaksi-sederhana-dengan-borland-delphi-7/

Kamis, 14 November 2013

Contoh Program Pencarian Nilai Huruf dan Pemakaian Fungsi Mid, Right dalam VB.Net

 Soal Tugas Belajar Bahasa Pemograman

Masukkan NPM (13111000,13111011,13112011)
Masukkan Kode Dosen (kd001,kd002,kd003)
Masukkan Kode Matakuliah (mk001,mk002,mk003)

Ketentuan :
1 digit dari sebelah kanan NPM menentukan jenjang yaitu S1,D3,D1
4 digit dari sebelah kanan NPM dan dari 4 digit tsb diambil 2 karakter untuk menentukan jurusan
2 digit dari sebelah kanan Kode Dosen menentukan Nama Dosen
2 digit dari sebelah kanan Kode Matakuliah menentukan Nama Matakuliah    

ini coding programnya:

 Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Npm.Items.Add("13111000")
        Npm.Items.Add("13111011")
        Npm.Items.Add("13112011")

        kd_dosen.Items.Add("kd001")
        kd_dosen.Items.Add("kd002")
        kd_dosen.Items.Add("kd003")

        Kd_mkul.Items.Add("mk001")
        Kd_mkul.Items.Add("mk002")
        Kd_mkul.Items.Add("mk003")


        Dim i As Integer
        For i = 100 To 1 Step -10
            Nlai_kehadiran.Items.Add(i)
            Ntugas.Items.Add(i)
            N_uts.Items.Add(i)
            N_uas.Items.Add(i)

           
        Next

    End Sub

    Private Sub Npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Dim x As String
        x = Microsoft.VisualBasic.Right(Npm.Text, 1)
        If x = "0" Then
            jenjang.Text = "S1"
        ElseIf x = "1" Then
            jenjang.Text = "D3"
        Else
            jenjang.Text = "D1"
        End If

        x = Microsoft.VisualBasic.Mid(Npm.Text, 4, 2)
        If x = "11" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "11" Then
            jurusan.Text = "Sistem Informasi"
        ElseIf x = "12" Then
            jurusan.Text = "Manajemen"
        Else
            jurusan.Text = "-"
        End If
        Select Case Npm.Text
            Case "13111000"
                Nama.Text = "Doni M"
            Case "13111011"
                Nama.Text = "Hendra S"
            Case "13112011"
                Nama.Text = "Bagus H"
            Case Else
                Nama.Text = "-"

        End Select
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Npm.Text = ""
        Nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kd_dosen.Text = ""
        Nm_dosen.Text = ""
        Kd_mkul.Text = ""
        Nm_mkul.Text = ""
        Nlai_kehadiran.Text = ""
        Ntugas.Text = ""
        N_uts.Text = ""
        N_uas.Text = ""
        Nakhir.Text = ""
        N_hruf.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Nakhir.Text = 0.1 * Nlai_kehadiran.Text + 0.15 * Ntugas.Text + 0.3 * N_uts.Text + 0.45 * N_uas.Text

      
        If Nakhir.Text >= 60 Then
            keterangan.Text = "LULUS"
        Else
            keterangan.Text = "GAGAL"
        End If
        Select Case Nakhir.Text
            Case Is >= 80
                N_hruf.Text = "A"
            Case 70 To 79
                N_hruf.Text = "B"
            Case 60 To 69
                N_hruf.Text = "C"
            Case 50 To 59
                N_hruf.Text = "D"
            Case Is <= 49
                N_hruf.Text = "E"
        End Select
      
    End Sub

    Private Sub Kd_mkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_mkul.SelectedIndexChanged

        Dim y As String
        y = Microsoft.VisualBasic.Right(Kd_mkul.Text, 2)
        If y = "01" Then
            Nm_mkul.Text = "Pemograman Visual"
        ElseIf y = "02" Then
            Nm_mkul.Text = "Arsitektur Informasi"
        ElseIf y = "03" Then
            Nm_mkul.Text = "Struktur Data"
        End If
    End Sub

    Private Sub kd_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_dosen.SelectedIndexChanged

        Dim z As String
        z = Microsoft.VisualBasic.Right(kd_dosen.Text, 2)
        If z = "01" Then
            Nm_dosen.Text = "Mesran S.Kom, M.Kom"
        ElseIf z = "02" Then
            Nm_dosen.Text = "Sony Bahagia S.Kom"
        ElseIf z = "03" Then
            Nm_dosen.Text = "Sinar Sinurat S.Kom, M.Kom"
        End If

    End Sub
End Class


Hasil Programnya:
















sumber:materi dari pak mesran S.kom,M.kom