October 2011 ~ Brajamusti Sangkala

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 »

Be Optima Computer

Gambar logo dan seni lukis @ Brajamusti Sangkala

Read more »

Girls Asian Sexy

Be Optima Computer

Girls Asian Sexy@Brajamusti Sangkala

Read more »

Be Optima Computer

Sourch code :

//mode continuos

void setup()

{

size(400,200);

}

void draw()

{

background(205,222,0);

int d;

d=second();

//pemandangan

fill(50,20,210);

rect(0-d*10,0,1000,100);

//jalan

fill(5);

rect(0-d*10,100,1000,50);

//line

fill(255);

rect(-d+20-d*5,125,37,2);

fill(255);

rect(-d+90-d*5,125,37,2);

fill(255);

rect(-d+160-d*5,125,37,2);

fill(255);

rect(-d+230-d*5,125,37,2);

fill(255);

rect(-d+300-d*5,125,37,2);

fill(255);

rect(-d+370-d*5,125,37,2);

fill(255);

rect(-d+440-d*5,125,37,2);

fill(250);

rect(-d+510-d*5,125,37,2);

fill(250);

rect(-d+580-d*5,125,37,2);

fill(250);

rect(-d+650-d*5,125,37,2);

fill(250);

rect(-d+720-d*5,125,37,2);

fill(250);

rect(-d+790-d*5,125,37,2);

fill(255);

rect(-d+860-d*5,125,37,2);

fill(255);

rect(-d+930-d*5,125,37,2);

fill(250);

rect(-d+1000-d*5,125,37,2);

fill(250);

rect(-d+1070-d*5,125,37,2);

fill(250);

rect(-d+1140-d*5,125,37,2);

fill(250);

rect(-d+1220-d*5,125,37,2);

//tower

fill(5);

rect(390-d*2,50,2,50);

fill(5);

Read more »

Be Optima Computer

import java.io.*;
class tugas {

    public static void main (String[] arg) throws IOException
{
    int bnr,p;
    double g;
    String[] mapel;
    mapel = new String[6];

    //mengisi array element
    mapel[0] = "Bahasa Indonesia, Soal = 50";
    mapel[1] = "Bahasa Inggris, Soal = 50";
    mapel[2] = "Matematika, Soal = 40";
    mapel[3] = "Fisika, Soal = 40";
    mapel[4] = "Kimia, Soal = 40";
    mapel[5] = "Biologi, Soal = 40";

    System.out.println("******TUGAS PRAKTIKUM BAHASA PEMROGRAMAN******");
    System.out.println("**********************************************\n");

Read more »

Be Optima Computer

import java.io.*;
class conversi {

    public static void main (String[] arg) throws IOException
{
    int rp,p;
    double g;
    BufferedReader br;
    br =new BufferedReader(new InputStreamReader(System.in));
        System.out.println("Konversi Mata Uang Rupiah");
        System.out.println("1.Dollar");
        System.out.println("2.Yen");
        System.out.println("3.Bath Thailand");
        System.out.println("Masukkan Nilai Rupiah:Rp. ");
        rp =Integer.parseInt(br.readLine());
        System.out.println("Masukkan Pilihan Anda:");
        p =Integer.parseInt(br.readLine());

        if(p==1)
        {g =rp/10000;

Read more »