Bidang Usaha & Akuntansi Koperasi


Ada beberapa cara untuk mengelompokkan koperasi, antara lain menurut bidang usaha, jenis komoditi, jenis anggota dan daerah kerja. Jika berkaitan dengan akuntansi akan lebih tepat sesuai dengan bidang usaha nya. Bidang usaha koperasi mencerminkan jenis produk yang di jual kepada anggota dan para pelanggannya. Dilihat dari sudut pandang akuntansi, maka koperasi dapat di kelompokkan dalam tiga kelompok yaitu koperasi jasa, koperasi niaga dan koperasi produksi.

Koperasi Jasa

Biasanya yang menjadi produk jenis koperasi ini adalah berbagai jenis pelayanan kepada anggota maupun non anggota yang bersifat non fisik.

  • Koperasi Simpan Pinjam adalah koperasi yang memberikan pelayanan penyimpanan dan pinjaman kepada anggota / non anggota.
  • Koperasi Konsumen Jasa adalah koperasi yang anggota nya para konsumen akhir jasa tertentu.
  • Koperasi Pemasaran Jasa adalah koperasi yang anggota nya para penyedia jasa.
  • Koperasi Produsen Jasa adalah koperasi yang menghasilkan jasa bersama-sama.

Koperasi Niaga

Adalah koperasi yang berfungsi sebagai jembatan antara produsen dengan konsumen produk tertentu, sehingga aktivitas utamanya adalah membeli suatu produk dari produsen dan menjualnya kepada konsumen. yang termasuk jenis koperasi adalah

  • Koperasi Konsumen adalah koperasi yang anggotanya adalah konsumen akhir produk tertentu. Salah satu fungsi utama koperasi konsumen adalah melakukan pembelian barang bersama-sama untuk kepentingan anggotanya.
  • Koperasi Pemasaran Barang adalah koperasi yang anggotanya para pemilik atau produsen barang tertentu, sehingga aktivitas utama koperasi adalah membeli barang yang dihasilkan anggotanya dan menjualnya kepada pihak yang membutuhkan.

Koperasi Produksi

Adalah koperasi yang berfungsi sebagai wadah bagi para anggota koperasi untuk mengolah bahan baku tertentu menjadi barang jadi dan memasarkannya. Termasuk di dalam koperasi jenis adalah koperasi produsen.

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

Klik Di Sini

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

Mengecek Kecepatan CPU


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)
lbl1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function GetCPUSpeed: Double;
const
DelayTime = 500;
var
TimerHi, TimerLo: DWORD;
PriorityClass, Priority: Integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority      := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
Sleep(10);
asm
dw 310Fh
mov TimerLo, eax
mov TimerHi, edx
end;
Sleep(DelayTime);
asm
dw 310Fh
sub eax, TimerLo
sbb edx, TimerHi
mov TimerLo, eax
mov TimerHi, edx
end;
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := TimerLo / (1000 * DelayTime);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
lbl1.Caption:=(Format(‘Kecepatan CPU anda adalah : %f MHz’, [GetCPUSpeed]));
end;

end.

TransCODE Software





Enkripsi dan Deskripsi


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)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
Button2: TButton;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
function Decrypt(S: string): string;
function Encrypt(S: string): string;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.Encrypt(S: string): string;
var
Angka, i: Integer;
begin
Result := ‘ ‘ + S;
Angka := 32;
for i := 1 to Length(S) do begin
Angka := Angka + Ord(S[i]);
while Angka > 126 do
Angka := Angka – 95;
end;
Result[1] := Chr(Angka);
for i := 2 to Length(Result) do begin
Angka := Ord(Result[i]) + Ord(Result[i – 1]);
while Angka > 126 do
Angka := Angka – 95;
Result[i] := Chr(Angka);
end;
end;

function TForm1.Decrypt(S: string): string;
var
Angka1, Angka2,
Angka, i: Integer;
begin
Result := S;
for i := Length(S) downto 2 do begin
Angka1 := Ord(S[i]);
Angka2 := Ord(S[i – 1]);
if Angka1 >= Angka2 then
Angka := Angka1 – Angka2
else
Angka := (Angka1 + 95) – Angka2;
while Angka < 32 do
Angka := Angka + 95;
Result[i] := Chr(Angka);
end;
Delete(Result, 1, 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := Encrypt(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.Text := Decrypt(Edit2.Text);
end;

end.

TransCODE Software



Mengecek Tipe Partisi pada Hardisk


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

interface

uses

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

type
TForm1 = class(TForm)
btn1: TButton;
lbl1: TLabel;
lbl2: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function GetHardDiskPartitionType(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
PartitionType: array[0..32] of Char;
begin
GetVolumeInformation(PChar(DriveLetter + ‘:\’),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, PartitionType, 32);
Result := PartitionType;
end;


procedure
TForm1.btn1Click(Sender: TObject);
begin

lbl1.Caption:=’Drive C : Tipe Partsi ‘+ GetHardDiskPartitionType(‘c’);
lbl2.Caption:=’Drive D : Tipe Partsi ‘+ GetHardDiskPartitionType(‘d’);
end;

end.

TransCODE Software



Teks Berjalan Pada Form Caption


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

interface

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

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Old_Title : String;

implementation

{$R *.DFM}

procedure
TForm1.FormCreate(Sender: TObject);
begin
Application.Title := ‘Selamat Belajar Delphi ‘;
Old_Title := Application.Title;
end;

procedure
TForm1.Timer1Timer(Sender: TObject);
var
temp : string;
begin
Temp := Application.Title;
Temp := Temp+Temp[1];
Temp := Copy(Temp,2,length(temp)-1);
Application.Title := temp;
Form1.Caption:=temp;
end;

procedure
TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := NOT Timer1.Enabled;
if Timer1.Enabled = False then
begin
Application.Title := Old_Title;
Form1.Caption := Old_Title;
end;
end;

end.

TransCODE Software