Animasi Text Efek Mesin Ketik


Tips & Trik Delphi, Tips Belajar Delphi, Belajar Delphi Online
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
procedure
DisplaySlowText(S: String);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DisplaySlowText (S : String);
var
N : Integer;
begin
for N := 1 to Length (S) do
begin
Memo1.Text := Memo1.Text + S[N];
Application.ProcessMessages;
Sleep (165);
end;
end;


procedure
TForm1.Button1Click(Sender: TObject);
begin
DisplaySlowText(‘Tips Belajar Delphi Online……..’);
end;

end.

TransCODE Software
Iklan

Pengertian Koperasi


Berbeda dengan perusahaan komersil, khususnya perseroan terbatas dan firma, yang didirikan oleh orang-orang yang memiliki modal yang cukup untuk memulai usaha koperasi biasanya didirikan oleh sekumpulan orang-orang dengan modal yang lemah, karena itu di dalam koperasi selalu ada unsur yang sosial sekaligus unsur ekonomi. Memiliki unsur ekonomi, karena sebagai sebuah badan usaha koperasi harus  beroperasi sebagai layaknya usaha komersil. Di mana setiap koperasi harus memiliki produk untuk dijual kepada masyarakat sebagai sumber penghasilan koperasi dan sebagai unsur sosial koperasi bertujuan meningkatkan kesejahteraan anggota nya.

Secara umum koperasi dapat di artikan sekumpulan orang yang secara sukarela mempersatukan diri untuk memperjuangkan peningkatan kesejahteraan ekonomi mereka, melalui pembentukan sebuah badan usaha yang dikelola secara demokratis.

Sementara itu menurut Pasal 1 UU No.25/1992 yang di maksud dengan koperasi di Indonesia adalah suatu badan usaha yang memiliki dasar asas kekeluargaan.

Koperasi adalah badan usaha yang beranggotakan orang-seorang atau badan hokum koperasi dengan melandaskan kegiatannya berdasarkan prinsip koperasi sekaligus sebagai gerakan ekonomi rakyat yang berdasar atas asas kekeluargaan.

Koperasi juga berfungsi sebagai wadah untuk mengorganisir pendayagunaan dan pemanfaatan sumber  daya yang dimiliki anggota koperasi (PSAK No.27, 2004)

Koperasi adalah badan usaha yang mengorganisir  pemanfaatan dan pendayagunaan sumber daya ekonomi para anggotanya atas dasar prinsip-prinsip koperasi dan kaidah usaha ekonomi untuk meningkatkan taraf hidup anggota pada khususnya dan masyarakat kerja pada umumnya. Dengan demikian koperasi merupakan gerakan ekonomi dan sokoguru perekonomian nasional

Rincian pengertian tentang koperasi dari uraian di atas :

  • Koperasi adalah suatu perkumpulan yang didirikan oleh orang-orang yang memiliki kemampuan ekonomi terbatas, yang bertujuan untuk memperjuangkan peningkatan kesejahteraan ekonomi mereka.
  • Bentuk kerjasama dalam koperasi bersifat sukarela.
  • Tiap-tiap anggota koperasi memiliki hak dan kewajiban yang sama.
  • Tiap-tiap anggota koperasi berkewajiban untuk mengembangkan serta mengawasi jalannya usaha koperasi.
  • Resiko dan keuntungan usaha koperasi di tanggung dan dibagi secara adil.

Pesan Sekarang Juga !!!
Software Koperasi, Rp 750.000,-

Klik Di Sini

Jl. Kadipaten Lor No. 37 Kraton, Yogyakarta 55132 Telp: 0274-8251157

Facebook bisa bicara


INILAH.COM, Jakarta- Dalam beberapa minggu ke depan jutaan user akan bisa mennikmati komunikasi suara dengan kualitas bagus di Facebook. Vivox berencana menawarkan nomor gratis yang dapat digunakan untuk menelepon.

Teknologi baru itu bukan ditawarkan langsung oleh Facebook, tetapi oleh Vivox. Perusahaan yang berbasis di Boston itu menyediakan layanan suara terintegrasi untuk dunia virtual, seperti di Second Life dan EVE Online yang sudah memiliki 15 juta user di seluruh dunia.

Layanan yang saat ini masih versi beta tertutup itu memungkinkan pengguna Facebook bercakap-cakap dengan siapa pun yang ada di daftar teman-teman.

Kedepan bahkan dapat mengikutsertakan user nonfacebook, seiring dengan penawaran Vivox untuk menawarkan nomor panggilan gratis secara konferensi.

Yang lebih penting lagi, menurut salah satu pendiri Vivox, Monty Sharma, perusahaan itu membuat teknologi untuk pihak ketiga. Hal itu berarti hampir semua aplikasi, dapat mempunyai komponen suara.

Untuk saat ini tidak diketahui berapa banyak user Facebook yang akan menggunakan teknologi Vivox, dan Facebook tidak terlibat dalam mempromosikan layanan baru itu.

Mengecek Alamat Email dengan Delphi


Tips & Trik Delphi, Tips Belajar Delphi, Belajar Delphi Online
unit CekMail;

 

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;

type

TForm1 = class(TForm)Button1: TButton;Edit1: TEdit;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

function CekEMail(EMail: String): Boolean;

var

s: String;

posisi: Integer;

begin

posisi:= pos(‘@’, EMail);

if posisi > 1 then

begin

s:= copy(EMail,posisi+1,Length(EMail));

if (pos(‘.’, s) > 1) and (pos(‘.’, s) < length(s)) then

Result:= true else Result:= false;

end

else

Result:= false;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if CekEmail(Edit1.Text) then

begin

ShowMessage(‘Format e-mail sudah benar‘);

end

else

begin

ShowMessage(‘Cek kembali’);

end

end;

end.

TransCODE Software

Mempercantik Tampilan Form dengan Hint


Tips & Trik Delphi, Tips Belajar Delphi, Belajar Delphi Online
unit Unit1;

 

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure tampilkanhint(Sender: TObject);

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.tampilkanhint(Sender: TObject);
begin
label1.Caption:=application.Hint;
StatusBar1.SimpleText:=application.Hint;
caption:=application.Hint;
end;

procedure
TForm1.FormCreate(Sender: TObject);
begin
application.ShowHint:=true;
application.OnHint:=tampilkanhint;
end;

end.

TransCODE Software