Brajamusti Sangkala

void setup()
{
size(400,200);
}

void draw()
{
background(0);
if(keyPressed==true)
{
    if(key=='d' || key=='D')
    {
      fill(255,255,0);
      ellipse(100,100,100,100);
    }
    else if(key=='k' || key=='K')
    {
      fill(0,255,0);
      rect(50,50,100,100);
    }
}
}

Read more »

keypress object

Be Optima Computer

void setup()
{
size(400,200);
background(0);
}
color warna=color(255);
void draw()
{
fill(warna);
rect(25,25,50,50);
}

void keyPressed()
{
if(key==CODED)
{
    if(keyCode==LEFT)
    {
      warna=color(255,255,0);
    }
    else if(keyCode==DOWN)
    {
      warna=color(0,255,0);
    }
}
}

Read more »

contoh company profile

Be Optima Computer

Read more »

Be Optima Computer

//program perulangan pembuatan papan catur

int i;
void setup()
{
size(400,360);
}
void draw()
{
//putih
fill(255);
for(i=0; i<350; i=i+45)
rect(20+i,i,45,45);
fill(255);
for(i=0; i<250; i=i+45)
rect(110+i,i,45,45);
fill(255);
for(i=0; i<150; i=i+45)
rect(200+i,i,45,45);
fill(255);
for(i=0; i<50; i=i+45)
rect(290+i,i,45,45);
fill(255);
for(i=0; i<250; i=i+45)
rect(20+i,i+90,45,45);
fill(255);
for(i=0; i<180; i=i+45)
rect(20+i,i+180,45,45);
fill(255);
for(i=0; i<50; i=i+45)
rect(20+i,i+270,45,45);

Read more »

Be Optima Computer

Bagi anda yang suka dengan kuliner camilan makanan ringan yang masih jarang di wilayah nusantara kita, kami menyediakan kuliner camilan makanan ringan " KERUPUK CUMI ", bila anda ingin memesannya tlg hubungi hp 0852 2868 0282

Read more »

Membuat Aplikasi Converter dengan Delphi

Be Optima Computer

Sourch Codenya :
unit conv;

interface

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

type
TFormConv = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edRp: TEdit;
    edPil: TEdit;
    btConvert: TButton;
    btExit: TButton;
    edCon: TEdit;
    label8: TLabel;
    procedure btConvertClick(Sender: TObject);
    procedure btExitClick(Sender: TObject);

Read more »