Kamis, 17 Januari 2013

Penghitung Sederhana menggunakan Macromedia (Tugas)



1.  Kali ini kita akan membuat perhitungan sederhana menggunakan Macromedia dengan sedikit
      tambahan kata-kata :-).
     Pertama,
    Buatlah Form berdasarkan gambar di atas dengan menggunakan Type text Static, Input text
    dan Dynamic Text
2. Untuk menampilkan border pada Tipe Input Text dan Dynamic Text, pada propertis Klik icon
     "Show Border Around Text"  lalu klik ke bagian yg ingin ditampilkan.
3.  Misalnya saja nama variabel spt diatas, dan uk dynamic text nama variabelx "output"
4.  Klik kanan pada tombol Proses lalu pilih Action
5.  Ketik listing 
     on (release) {
    total = Number (txtjum) * Number (txthsat);
    output = "Halo Saudara " + txtnm + " dengan No. Langganan " + txtno +

      " Anda membeli " + txtbrg + " dengan total belanjaan sebesar Rp. " + total;;
     }

6.  Untuk menjalankannya tekan CTRL+ENTER
7.  Hasilnya spt dibawah ini

     
8. Isilah sesuai dengan yg anda inginkan, terus tekan tombol PROSES
9. Contoh yg saya ketik seperti dibawah ini

    

Rabu, 16 Januari 2013

Kalkulator Penghitung Presentase pada Flash ActionScript 2.0

Tutorial kali ini adalah mengenai pembuatan kalkulator untuk menghitung persentase sebuah data menggunakan program Macromedia/Adobe Flash dan ActionScript 2.0. Kita hanya akan menggunakan script dan perhitungan matematika sederhana. Ada 2 mode perhitungan yang akan kita buat.
Mode pertama berfungsi untuk mengetahui persentase dari sebuah data, sedangkan mode kedua adalah untuk megetahui angka dari sebuah data total dan berapa persen input yang dimasukkan. Untuk mode kedua ini dapat digunakan untuk menghitung pengeluaran zakat dari jumlah total harta. Berikut langkah-langkah pembuatannya :
  1. Buka sebuah flash document baru 200 x 300 pixels
  2. Buat sebuah layer baru dan beri nama “as”, ubah nama layer 1 menjadi “simbol”
  3. Klik frame 1 layer as tekan F6, lakukan hal yang sama dengan frame 1 layer simbol
  4. Klik frame 1 layer simbol. Buatlah teks dengan ketentuan sebagai berikut :
  5. Klik frame 2 layer simbol. Buatlah teks dengan ketentuan sebagai berikut :
  6. Untuk memberi bingkai berupa garis hitam disekeliling teks, pada panel properties klik “show border around text”
  7. Klik frame 1 layer simbol, buat sebuah tombol bertuliskan “mode 2”,beri instance name “mode2”
  8. Klik frame 2 layer simbol, buat sebuah tombol bertuliskan “mode 1”,beri instance name “mode1”
  9. Klik frame 1 layer as, tekan F9 lalu masukkan script :
stop()
mode2.onRelease=function(){
nextFrame()
}
onEnterFrame = function () {
Hasil.text = (Input2.text/Input1.text)*100+" %";
};
  1. Klik frame 2 layer as, tekan F9 lalu masukkan script :
stop();
mode1.onRelease = function() {
prevFrame();
};
onEnterFrame = function () {
Hasil.text = (Input1.text*Input2.text)/100;
};
Tekan Ctrl+Enter untuk test movie
       






Variabel pada Flash ActionScript 2.0

Variabel berfungsi untuk menggantikan suatu pernyataan atau nilai. Hal ini juga berlaku dalam pemrograman flash maupun pemrograman lainnya.Dalam flash, terdapat babarapa tipe variabel, yaitu :


- Number, contoh : skor=1000

- String, contoh : nama=”mobil”

- Boolean, contoh : jalan=false , jalan=true

- Array, contoh : hari=[“senin”,”selasa”,”rabu”]



Contoh 1 :

nilai=0

skor=nilai



Dari contoh diatas dapat disimpulkan bahwa “skor” bernilai sama dengan variable “nilai”, maka nilai “skor” pun akan berubah menyesuaikan nilai dari variable “nilai”.Lihat contoh 2 !



Contoh 2 :

nilai=0

onEnterFrame=function(){

skor=nilai

if(random(10)==5){

nilai++

}

}



Dari contoh kedua dapat dilihat bahwa variable nilai akan bertambah jika 10 angka yang diacak sama dengan 5,maka nilai variable “nilai” bertambah 1 pada tempo yang tidak beraturan,begitu pula pada “skor”. “skor” disini biasanya diterapkan sebagai variable dari sebuah dynamic text pada stage.



Permasalahan:

Buatlah sebuah pernyataan menggunakan satu variable yang menyatakan bahwa suatu tombol belum diklik, dan menampilkan nilai yang akan bertambah jika tombol diklik.

1. Buatlah sebuah persegi panjang menggunakan rectangle tool pada toolbox.

2. Dengan menggunakan static text, buatlah tulisan “KLIK DISINI” di area persegi panjang yang telah dibuat. (optional)

3. Tekan tombol V pada keyboard atau pilih selection tool pada toolbox. Seleksi seluruh persegi panjang beserta teksnya dengan melakukan dragging dari luar persegi.


Gambar 1.1

4. Klik kanan pada persegi panjang yang telah diseleksi, lalu pilih convert to symbol atau dengan menekan tombol F8 pada keyboard.

5. Pilih button sebagai type dan ketikkan “tombol” pada kolom name, tekan OK.

Gambar 1.2

6. Patikan button “tombol” masih terseleksi, bula panel properties lalu ketikkan “tombol” pada kolom instance name.

Gambar 1.3



7. Buatlah sebuah dynamic teks tanpa tulisan di bawah tombol. Pada panel properties ketikkan “teks” sebagai variable.

Gambar 1.4

8. Klik kanan frame 1 layer 1 lalu pilih action atau dengan menekan tombol F9 pada keyboard.

9. Pada panel action, masukkan script :

//membuat variable baru bernama i yang bernilai 0

i = 0;

//menampilkan teks pada dynamic text yang mempunyai variable "teks"

//tanda petik diantara teks dan bewarna hijau berarti teks biasa dan bukan berupa variable

teks = "Button belum diklik";

//perintah jika button yang mempunyai istance name "tombol" ditekan lalu tekanan pada mouse dilepaskan

tombol.onRelease = function() {

//variable i akan bertambah 1 jika tombol ditekan lalu dilepaskan 1 kali

i++;

teks = "Button telah diklik sebanyak "+i+" kali";

};



10. Tekan tombol Ctrl + Enter untuk melihat hasil movie. Pada gambar 1.5 menunjukkan bahwa button sama sekali belum diklik. Coba lihat perbedaannya setelah button diklik 1 kali dan seterusnya. Hanya angkanya saja yang berubah sesuai dengan berapa kali button diklik.


Gambar 1.5
 Gambar 1.6
 
 
 
 

Rabu, 09 Januari 2013

MID Komputer Grafik (Huruf H)

Membuat Huruf  "H" Balok

unit Waode;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    txtx1: TEdit;
    txty1: TEdit;
    txttebal: TEdit;
    txttinggi: TEdit;
    txttx: TEdit;
    txtty: TEdit;
    txtsx: TEdit;
    txtsy: TEdit;
    cmdgambar: TButton;
    procedure cmdgambarClick(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, y0, y1, y2, y3, y4, y5, y6, y7, y8, y9, y10, y11, y12, tx, ty, sx, sy  : Integer;
  tx1, tx2, tx3, tx4, tx5, tx6, tx7, tx8, tx9, tx10, tx11, tx12, ty1, ty2, ty3, ty4, ty5, ty6, ty7, ty8, ty9, ty10, ty11, ty12  : Integer;
  sx1, sx2, sx3, sx4, sx5, sx6, sx7, sx8, sx9, sx10, sx11, sx12, syo, sy1, sy2, sy3, sy4, sy5, sy6, sy7, sy8, sy9, sy10, sy11, sy12 : Integer;
implementation

{$R *.dfm}

procedure TForm1.cmdgambarClick(Sender: TObject);
begin
x1 := StrToInt(txtx1.Text);
y1 := StrToInt(txty1.Text);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
with Form1 do
begin
Canvas.MoveTo(0, round(Height div 2));
Canvas.LineTo(round(Width), round(Height div 2));
Canvas.MoveTo(round(Width div 2), 0);
Canvas.LineTo(round(Width div 2), round(Height));

x0 := Width div 2;
y0 := Height div 2;
end;
end;

end.

Sabtu, 05 Januari 2013

Kalkulator Sederhana dengan Macromedia Flash 8

    Kamu pemah menggunakan kalkulator? Dahulu orang meng-hitungdidalam kepala,mencoret-coretkertasatau menggunakan sempoa. Sekarang, kita dapat menggunakan komputer kecil yang disebut kalkulator untuk mengerjakan perhitungan. Kalkulator juga membutuhkan listrik. Listrik di sini berfungsi sebagai pengontrol mesin elektronik pada kalkulator. Ini juga berlaku buat perangkat komputer. Setelah kita mengetahui sedikit tentang kalkulator, kita akan membuatnya. Disini saya akan menggunakan Macromedia Flash 8.
   Langkah-langkahnya hampir sama dengan artikel lalu tentang membuat form. Jadi, mula2 dbuat terlebih dahulu form, kalau udah lupa buka kembali http://waode-sabaria.blogspot.com/2013/01/membuat-form-pada-macromedia-8.html.
1. Buatlah Delapan (8) form type INPUT TEXT, namavariabel misalnya x1, x2, x3, x4, x5, x6, x7, x8
2. Delapan (8) form type STATIC TEXT, ketik operasi aritmatika (+, -, /,  x , dan = )
3. Buatlah Empat (4) form type DYNAMIC TEXT, nama variabel mis: hasil1, hasil2, hasil3, hasil4
4. Button/ tombol Empat (4) untuk menghitung hasilnya.

Contoh design seperti di bawah ini.

5. Untuk masing-masing BUTTON, klik kanan dan pilih ACTION.
6.Ketik listingnya:

    Button1
     on (release) {
    hasil1 = Number (x1) + Number (x2);
     }

    Button2
    on (release){
    hasil2 = x3 - x4;
     }

   Button 3
    on (release) {
    hasil3 = x5 / x6;
    }

   Button 4
   on (release) {
    hasil4 = x7 * x8;
    }

7. Jika sudah selesai tekan CTRL+ENTER
8. Lalu isi dengan angka yang diinginkan, trus tekan buttonnya deh
9. Semoga berhasil.

Membuat FORM pada Macromedia 8

Tadi sempat belajar membuat form menggunakan Macromedia Flash 8 ternyata mengasyikkan. Langkah-langkahnya pun bisa dbilang mudah dipahami, it's simple.
Berikut langkah-langkah dalam Membuat FORM pada Macromedia Flash 8.
1. Buka lembaran baru > CFREATE NEW pada Macromedia Flash 8
2. Pada bagian PROPERTIES, klik SIZE  untuk mengubah ukuran lembar kerja sesuai kebutuhan
     dan BACKGROUND untuk memngubah warna lembar kerja kita
3. Pada bagian TOOLBOX, pilih TEXT TOOL untuk mulai menulis sesuatu gituuu...
4. Pada PROPERTIES, ada beberapa hal yg bisa di ubah sebelum di_klik pada lembar kerja, yaitu:
    a.TYPE TEXTt ada 3:
        STATIC TEXT : untuk teks yg tidak diubah lagi
        INPUT TEXT : uk teks yg akan diinput dan biasa diberi nama variabel
        DINAMIC TEXT : uk teks yg brsifat dinamis ( tergantung input yg diberikan)
    b. FONT & FONT SIZE uk mengubah jenis dan ukuran huruf
    c. AUTO KERN tidak diberi centang jika input yang akan dimasukkan berupa angka
5. Stelah pengaturan sesuai dengan yg diinginkan, lalu klik pada lembar kerja kemudian ketik yang 
    diinginkan. Misal:
     untuk type STATIC TEXT diisi dengan NAMA
     uk type INPUT TEXT, pada PROPERTIES > VAR bri nama variabel dengan TXTNAMA
     uk type DYNAMIC TEXT,  pada PROPERTIES > VAR bri nama variabel dengan OUTPUT
6. Jika sudah selesay, beri 1 tombol uk proses 
     pilih menu WINDOW > COMMON LIBRARIES > BUTTONS
7. uk memilih tombolnya, klik 2x pada gbr folder, lalu pilih 1 dan klik ke lembar keja
8. Beri action, caranya KLIK KANAN pada TOMBOL, pilih ACTION
9. Ketik listingnya:
     ON (RELEASE) {
     OUTPUT = INPUT;
      }
10. atau jika ingin menambahkan kata2 lain, caranya tambahkan simbol tambah (+) dam kalimatnya
       diapit tanda kutip dua ("...."), misalnya :
      ON (RELEASE) {
     OUTPUT = "selamat" +  INPUT  + " Semangat";
      }
11. selamat mencoba


















Kamis, 03 Januari 2013

Membuat Peta menggunakan Arc View

Salam SIG (Sistem Informasi Geografi)

Sodara2 sebangsa setanah, seair dan seudara... menulis lagi gak dilarang kan? Udah tau menggambar peta atau belum? Bukan yang pake tangan, tapi yg menggunakan salah satu software Arc View. Disini saya akan berbagi cara agar dapat membuat peta dengan 1 themes dengan beberapa poligon, line, maupun poin, kemudian kita akan membentuk tabelnya.
Langkah2ya:
1. Buka programnya > ESRI > tekan button  OK > lalu tekan button YES
2. Pilih menu FILE > EKSTENSION > beri tanda centang untuk mengaktifkan pada box JPEG     
    dan aktifkan pula 2 box diatasnya (maaf sy lupa namax_ :-), heheh lanjuuuuuuut)
3. Pilih peta yang akan diikuti. caranya
    VIEW > ADD THEMES
4. Pada kotak dialog bagian kiri bawah pilih IMAGE SOURCE DATA, dan pada bagian kanan
     bawah untuk directory penyimpanannya pilih folder peta yang akan digambar.
    Setelah itu tekan    OK.
5. Pada bagian properties, aktifkan peta dengan memberi tanda centang pada box.
6.  Pilih menu VIEW > NEW THEMES > pilih POLIGON, LINE atau  POIN ssuai kbutuhan. OK.
7. Buatlah garis sesuai dengan yang ada pada peta, 1 theme uk beberapa poligon, line.
8. pilih menu VIEW > TABLE
9. Pada menu TABLE tsb, pilih sub menu EDIT > ADD FIELD
    Kotak Dialog yang muncul, isikan Name sesuai dengan yang akan dibuat, lalu isi TYPE DATA,
     dan panjang datanya
10. Pilih icon panah yang mengarak ke kiri atas (ada 3 icon berjejer, bagian tengah) uk mengedit.
       Tekan ENTER jika sudah selesai.
11. nanti di lanjut lagi..

Rabu, 02 Januari 2013

Menggambar Limas pada Delphi 7

     Menggambar limas menggunakan Delphi 7. Masih ingatkan dengan pelajaran SD tempo doloeee? Kalau udah agak rabun saya akan memberikan sedikit gambarannya agar terang benderang namun tidak silau, hehehe (santai sjenak). Nah, Limas merupakan salah satu bangun ruang tiga dimensi yang dibatasi oleh alas berbentuk segi-n (maksudnya jenis alasnya bermacam2, misl ada segi 3, segi-4, segi-5:-) red), dan sisi tegak berbentuk segitiga. Kebetulan saat ini saya yang akan dibangun adalah limas segi 4, dimana memiliki 5 titik sudut. Jadi, tiap sudut pada gambar yang akan dibuat akan memiliki koordinat (x,y). Langkah2nya mirip(hamipr = postingan lalu ttg Menggambar Kubus 
http://waode-sabaria.blogspot.com/2012/12/menggambar-kubus-menggunakan-delphi-7.html  





















Untuk Listingnya lihat saja di bawah ini.
 
_______________________________________________________________________________
unit LimasWaOde;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    txtsisi: TEdit;
    txtx1: TEdit;
    txty1: TEdit;
    cmdgambar: TButton;
    cmdkeluar: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cmdkeluarClick(Sender: TObject);
    procedure cmdgambarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  sisi, x0, x1, x2, x3, x4, x5, y0, y1, y2, y3, y4, y5 : integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
with Form1 do
begin
Canvas.Brush.Style := bsCross;
Canvas.Brush.Color := clYellow;
Canvas.MoveTo(0, round(Height div 2));
Canvas.LineTo(Width, round(Height div 2));
Canvas.MoveTo(round(Width div 2), 0);
Canvas.LineTo(round(Width div 2), round(Height div 2));
end;
end;

procedure TForm1.cmdkeluarClick(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.cmdgambarClick(Sender: TObject);
begin
x0 := Form1.Width div 2;
y0 := Form1.Height div 2;
x1:= StrToInt(txtx1.Text);
y1 := StrToInt(txty1.Text);
sisi := StrToInt(txtsisi.Text);
x2 := x1 + sisi;
x3:= x2 + round(sisi/4);
x4:= x1 + round(sisi/4);
x5 := x1 + round(sisi/4);
y2 := y1;
y3 := y2 + sisi;
y4 := y3;
y5 := 2 * sisi;

with Form1 do
begin
  Refresh;
  Canvas.Polygon([point(round(x0+x1), round(y0-y1)), point(round(x0+x2), round(y0-y2)), point(round(x0+x3), round(y0-y3)), point(round(x0+x4), round(y0-y4))]);
 
  Canvas.MoveTo(round(x0+x1), round(y0-y1));
  Canvas.LineTo(round(x0+x5), round(y0-y5));
  Canvas.MoveTo(round(x0+x2), round(y0-y2));
  Canvas.LineTo(round(x0+x5), round(y0-y5));
  Canvas.MoveTo(round(x0+x3), round(y0-y3));
  Canvas.LineTo(round(x0+x5), round(y0-y5));
  Canvas.MoveTo(round(x0+x4), round(y0-y4));
  Canvas.LineTo(round(x0+x5), round(y0-y5));
end;
end;

end.
 ____________________________________________________________________________
selamat mencoba, semoga berhasil :-)














------------------------------------------------------ab@---------------------------------------------------------