taman

taman

Sabtu, 16 Juni 2012

Count On Me – Bruno Mars


Count On Me – Bruno Mars

If you ever find yourself stuck in the middle of the sea,
I'll sail the world to find you
If you ever find yourself lost in the dark and you can't see,
I'll be the light to guide you

Find out what we're made of
When we are called to help our friends in need

You can count on me like 1 2 3
I'll be there
And I know when I need it I can count on you like 4 3 2
And you'll be there
Cause that's what friends are supposed to do, oh yeah

Wooooh, Wooooh
yeah Yeah

If you toss and you turn and you just can't fall asleep
I'll sing a song
beside you
And if you ever forget how much you really mean to me
Everyday I will
remind you

Ohh
Find out what we're made of
When we are called to help our friends in need

You can count on me like 1 2 3
I'll be there
And I know when I need it I can count on you like 4 3 2
You'll be there
Cause that's what friends are supposed to do, oh yeah

Wooooh, Wooooh
Yeah Yeah

You'll always have my shoulder when you cry
I'll never let go
Never say goodbye

You can count on me like 1 2 3
I'll be there
And I know when I need it I can count on you like 4 3 2
You'll be there
Cause that's what friends are supposed to do, oh yeah

Wooooh, Wooooh
you can count on me cos' I can count on you

TIMER VB


LISTING PROGRAM

PADA FORM 1 :
==================================================================
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 15
If Label1.Left = -Label1.Left Then
Label1.Left = Form1.Width
End If

End Sub

Private Sub Next_Click()
Form2.Show
Form1.Hide
End Sub
==================================================================

PADA FORM 2 :
==================================================================
Private Sub Timer1_Timer()
Label1.ForeColor = QBColor((Rnd) * 15)

End Sub

Private Sub Timer2_Timer()
Me.Width = Me.Width + 100
If Me.Width >= 11250 Then
Timer2.Enabled = False
End If

End Sub
 ====================================================================








LOGIKA PROGRAM


PADA FORM 1 :
==================================================================
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 15
If Label1.Left = -Label1.Left Then
Label1.Left = Form1.Width
End If

End Sub
pada timer1 kita membuat label1 kemudian buat teks berjalan, kearah kiri dengan kecepatannya 15.

Private Sub Next_Click()
Form2.Show
Form1.Hide
End Sub

program ini akan menampilkan form2 dan form1 ditutup.

PADA FORM 2 :
==================================================================

Private Sub Timer1_Timer()
Label1.ForeColor = QBColor((Rnd) * 15)

End Sub

pada label satu tulisan berjalan akan di beri warna

Private Sub Timer2_Timer()
Me.Width = Me.Width + 100
If Me.Width >= 11250 Then
Timer2.Enabled = False
End If

End Sub

EFEK LEBAR FORM, FORM AKAN MELEBAR KEKANAN DENGAN KECEPATAN GERAK 100,  JIKA LEBAR MELEBIHI 11250 MAKA AKAN BERHENTI.



DELPHI


LISTING PROGRAM

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin

end;

end.









LOGIKA PROGRAM


Sebelum kita masuk ke Borland Delphi 7.0, kita membuat database terlebih dahulu dengan cara:
  1. Start > all program > Ms office > ms Access > file > new > blank database > create table in design view.
  2. Ketikan pada field name:
    • NPM (number)
    • NAMA (text)
    • KELAS (text)
    • TANGGAL  LAHIR (date/time)
    • JENIS KELAMIN(text)
  3. Simpan dengan nama table1 > gunakan primary key (untuk table lebih dari satu gunakan primary key, atau ketika kita ingin menggunakan relathionship)

Langkah-langkah pembuatan pada Borland delphi:
1.      Pertama kita klik ADO pilih icon  ADOConnection
Buat pengaturan pada object inspector:
·         ConnectionString > pada Use connection String > Build > select or enter a database name > pilih data dari Ms. Acces yang telah dibuat yaitu > E:\MAHASISWA.mdb > test connection untuk menguji keberadaan file document > OK.
·         Pada name ketikan > ADOConnection1
2.      Kemudian ADOTable
Buat pengaturan pada object inspector:
·         Pada name ketikan > ADOTable1
3.      Lalu DataSource
Buat pengaturan pada object inspector:
·         Pada name ketikan > DataSource1
4.      Pada data snap pilih icon DBGrid
Buat pengaturan pada object inspector:
·         Pada name ketikan > DBGrid1
5.      Lanjutkan klik DBNavigator
Buat pengaturan pada object inspector:
·         Pada name ketikan > DBNavigator1
6.      Setelah itu kita jalankan programnya dengan cara klik tombol Run atau F9
7.      Gunakan tombol navigator untuk memindahkan ke kolom selanjutnya maupun sebelumnya. 

OUTPUT

NPM Python

Ini adalah kodingan mencari suatu data dari NPM kita,  nah disini saya igin mencari juruusan dan angkatan keberapa dari NPM, lalu kita nanti akan mencetak nama dan NPM juga, silahkan lihat.....


nama=raw_input("masukkan nama:")
npm=raw_input("masukkan npm:")
def jur(npm):
    jurusan=npm[0]
    return jurusan
def ang(npm):
    angkatan=npm[3:5]
    return angkatan
pil={"jurusan1":"S1-TI","jurusan2":"S1-SI","jurusan3":"S1-SK","jurusan4":"D3-TI","jurusan5":"D3-SI","jurusan6":"D3-SK"}
if jur(npm)=="1":
    jurusan=pil["jurusan1"]
elif jur(npm)=="2":
    jurusan=pil["jurusan2"]
elif jur(npm)=="3":
    jurusan=pil["jurusan3"]
elif jur(npm)=="4":
    jurusan=pil["jurusan4"]
elif jur(npm)=="5":
    jurusan=pil["jurusan5"]
else:
    jurusan=pil["jurusan6"]
if ang(npm)=="10":
    angkatan="20"+npm[3:5]
elif ang(npm)=="11":
    angkatan="20"+npm[3:5]
print"--------------------"
print "nama saya",nama
print "mahasiswa jurusan",jurusan,"angkatan tahun",angkatan

Sabtu, 09 Juni 2012

Mencari Luas Pada Pascal

Berikut adalah kodingan untuk mencari luas pada pascal berbeda dengan mencari luas pada phyton sebelumnya program ini lebih singkat disini ada write maupun read yang membedakannya namun cara kerjanya sama kita sama-sama memilih pilihan berapa kemudian masukan angka dan perogram ini akan menghitung sendiri:







Outputnya adalah:





Program Mencari Luas pada Phyton

Berikut ini merupakan program untuk mencari luas pada bangun datar,dengan menggunakan phyton, berikut kodingannya:


print ('--------------------------------------------')
print ('program mencari luas-luas bangun datar')
print ('--------------------------------------------')

def luas_persegi() :
    print ('--------------------------------------------')
    print (' ' )
    print (' ' )
    print ('--------------------------------------------')
    print ('program mencari luas persegi')
    print ('--------------------------------------------')
    x= float(input ('panjang sisi : '))
    luasp= x*x
    print (' ' )
    print (luasp, 'cm2')

def luas_pp () :
    print ('--------------------------------------------')
    print (' ' )
    print (' ' )
    print ('--------------------------------------------')
    print ('program mencari luas persegi panjang')
    print ('--------------------------------------------')
    x= float(input('masukkan panjangnya : '))
    print (' ' )
    y= float(input ('masukkan lebarnya : '))
    c = x*y
    print (' ' )
    print ('luas persegi panjangnya adalah : ' , c , 'cm2')

def luas_segitiga () :
    print ('--------------------------------------------')
    print (' ' )
    print (' ' )
    print ('--------------------------------------------')
    print ('program mencari luas segitiga' )
    print ('--------------------------------------------')
    x= float(input('masukkan alas segitiga : '))
    y= float(input('masukkan tinggi segitiga :'))
    a=0.5*x*y
    print (' ' )
    print ('luas segitiganya adalah : ' , a, 'cm2')
   
def luas_lingkaran () :
    print ('--------------------------------------------')
    print (' ' )
    print (' ' )
    print ('--------------------------------------------')
    print (' program mencari luas lingkaran ')
    print ('--------------------------------------------')
    x = float(input('masukkan jari-jari lingkaran : '))
    luas = 22/7*x*x
    print ('')
    print ('luas lingkarannya adalah : ' , luas , 'cm2')
             
def luas_jg () :
    print ('--------------------------------------------')
    print (' ' )
    print (' ' )
    print ('--------------------------------------------')
    print (' program mencari luas jajaran genjang ')
    print ('--------------------------------------------')
    x= float(input('masukkan tinggi jajaran genjang : '))
    y= float (input('masukkan alas jajaran genjang :' ))
    luas = x*y
    print ('')
    print ('luas jajaran genjang adalah : ' , luas , 'cm2')

def luas_trapesium () :
    print ('--------------------------------------------')
    print (' ' )
    print (' ' )
    print ('--------------------------------------------')
    print (' program mencari luas trapesium ')
    print ('--------------------------------------------')
    x= float (input('masukkan sisi atas trapesium : '))
    y= float(input('masukkan sisi bawah trapesium : '))
    z= float (input('masukkan tinggi trapesium : '))
    luas = (x+y)*z/2
    print ('')
    print ('luas trapesiumnya adalah : ' , luas, 'cm2')
            
def luas_bk () :
    print ('--------------------------------------------')
    print (' ' )
    print (' ' )
    print ('--------------------------------------------')
    print (' program mencari luas belah ketupat ')
    print ('--------------------------------------------')
    x= float(input('masukkan diagonal 1 : '))
    y= float(input('masukkan diagonal 2 : ' ))
    luas = 0.5*x*y
    print ('')
    print ('luas belah ketupatnya adalah : ', luas, 'cm2')
   
        
pil = int(input('pilihannya adalah : \n 1.persegi \n 2.persegi panjang \n 3.segitiga \n 4.lingkaran \n 5.jajaran genjang \n 6.trapesium \n 7.belah ketupat \n masukkan pilihan yang anda inginkan: '))
if pil == 1 :
    luas_persegi ()
   
elif pil==2 :
    luas_pp()

elif pil==3:
    luas_segitiga()

elif pil==4 :
    luas_lingkaran()

elif pil ==5 :
    luas_jg()

elif pil== 6 :
    luas_trapesium()

elif pil== 7 :
    luas_bk()
else :
    print (' ' )
    print ('anda salah dalam melakukan input ')

berikut hasil outputnya yaaaa...........