Membuat Program Transaksi Bengkel Sederhana.

Sumber : BINA SARANA INFORMATIKA



Properties
Label1 : Caption = BENGKEL OKE
Label2 : Caption = Kode Oli
Label3 : Caption = Jumlah Beli
Label4 : Caption = Pembayaran
Label5 : Caption = Potongan
Label6 : Caption = PPN
Label7 : Caption = Total Bayar
Label8 : Caption = Merk
Label9 : Caption = Harga Oli
Label10 : Caption = Uang Bayar
Label11 : Caption =Uang Kembali
Label12 : Caption = Fixed Single
Label13 : Caption = Fixed Single
ComboBox1 : Name = Combo1
Textbox1 : Name = txtjumbel
Text = Tulisan Text1 Dihapus
Textbox2 : Name = txtpembayaran
Text = Tulisan Text1 Dihapus
Textbox3 : Name = txtpot
Text = Tulisan Text1 Dihapus
Textbox4 : Name = txtppn
Text = Tulisan Text1 Dihapus
Textbox5 : Name = txttolbar
Text = Tulisan Text1 Dihapus
Textbox6 : Name = txtmerk
Text = Tulisan Text1 Dihapus
Textbox7 : Name = txtharga
Text = Tulisan Text1 Dihapus
Textbox8 : Name = txtservice
Text = Tulisan Text1 Dihapus
Textbox9 : Name = txtbayar
Text = Tulisan Text1 Dihapus
Textbox10 : Name = txtkembali
Text = Tulisan Text1 Dihapus
CommandButton1 : Name = cmdhitung
Caption = Hitung
CommandButton2 : Name = cmdclear
Caption = Clear
CommandButton3 : Name = cmdexit
Caption = Exit
Frame1 : Caption = Biaya Service
OptionButton1 : Caption = Mobil
Name = opt1
OptionButton2 : Caption = Motor
Name = opt2
Timer1 : Interval = 250

Listing Program

Private Sub cmdclear_Click()
Combo1 = ""
txtbayar = ""
txtkembali = ""
txttolbar = ""
txtservice = ""
txtjumbel = ""
txtpot = ""
txtmerk = ""
txtpembayaran = ""
txtpot = ""
txtharga = ""
txtppn = ""
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub CMDHITUNG_Click()
txtpembayaran = Val(txtjumbel * txtharga) + txtservice
If Val(txtpembayaran) > 50000 Then
txtpot = Val(txtpembayaran * 0.1)
End If
txtppn = Val(txtpembayaran * 0.05)
txttolbar = Val(txtpembayaran - txtpot) + Val(txtppn)
End Sub

Private Sub cmdhitung_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtbayar.SetFocus
End If
End Sub

Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
txtmerk = "Penzoil"
txtharga = "35000"
ElseIf Combo1.ListIndex = 1 Then
txtmerk = "Agip"
txtharga = "30000"
ElseIf Combo1.ListIndex = 2 Then
txtmerk = "Top One"
txtharga = "27000"
Else
txtmerk = "Mesran"
txtharga = "20000"
End If
End Sub





Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjumbel.SetFocus
End If
End Sub

Private Sub Form_Activate()
Combo1.AddItem "PZ"
Combo1.AddItem "AG"
Combo1.AddItem "TO"
Combo1.AddItem "MS"
txtservice.Enabled = False
txtpembayaran.Enabled = False
txtppn.Enabled = False
txtkembali.Enabled = False
txtharga.Enabled = False
txtmerk.Enabled = False
txtpot.Enabled = False
End Sub

Private Sub opt1_Click()
txtservice = "5000"
End Sub

Private Sub opt2_Click()
txtservice = "3000"
End Sub



Private Sub Timer1_Timer()
Label12.Caption = Date
Label13.Caption = Time
End Sub

Private Sub txtbayar_Change()
txtkembali = Val(txtbayar) - Val(txttolbar)
End Sub

Private Sub txtjumbel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CMDHITUNG.SetFocus
End If
End Sub

Membuat Kalkulator Sederhana dengan Visual basic 6.0

Sumber: Bina Sarana Informatika



Properties

Label1 : Caption = KALKULATOR
Name = LBLKALKULATOR
Label2 : Caption = NILAI PERTAMA
Label3 : Caption = NILAI KEDUA
Label4 : Caption = HASIL
Label5 : Caption = Tanggal Sekarang
Label6 : Caption = Jam Sekarang
Textbox1 : Name = TXTPERTAMA
Text = Tulisan Text1 dihapus
Textbox2 : Name = TXTKEDUA
Text = Tulisan Text1 dihapus

Textbox3 : Name = TXTHASIL
Text = Tulisan Text1 dihapus
CommandButton1 : Name = CMDTAMBAH
Caption = +
CommandButton2 : Name = CMDKURANG
Caption = -
CommandButton3 : Name = CMDKALI
Caption =*
CommandButton4 : Name = CMDBAGI
Caption =/
CommandButton5 : Name = CMDPANGKAT
Caption = ^
CommandButton6 : Name = CMDTEBAL
Caption = &TEBAL
CommandButton7 : Name = CMDMIRING
Caption =&MIRING
CommandButton8 : Name = CMDGARISBAWAH
Caption = &GARIS BAWAH
CommandButton9 : Name = CMDBIRU
Caption = &BIRU
CommandButton10 : Name = CMDKUNING
Caption = K&UNING
CommandButton11 : Name = CMDKELUAR
Caption = &KELUAR
Timer1 : Interval=100





Listing Program

Private Sub CMDBAGI_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) / Val(TXTKEDUA.Text)
End Sub

Private Sub CMDBIRU_Click()
LBLKALKULATOR.ForeColor = vbBlue
End Sub

Private Sub CMDGARISBAWAH_Click()
LBLKALKULATOR.FontUnderline = True
End Sub

Private Sub CMDKALI_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) * Val(TXTKEDUA.Text)
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDKUNING_Click()
LBLKALKULATOR.ForeColor = vbYellow
End Sub

Private Sub CMDKURANG_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) - Val(TXTKEDUA.Text)
End Sub

Private Sub CMDMIRING_Click()
LBLKALKULATOR.FontItalic = True
End Sub

Private Sub CMDNORMAL_Click()
LBLKALKULATOR.ForeColor = vbBlack
LBLKALKULATOR.FontBold = False
LBLKALKULATOR.FontItalic = False
LBLKALKULATOR.FontUnderline = False
End Sub

Private Sub CMDPANGKAT_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) ^ Val(TXTKEDUA.Text)
End Sub

Private Sub CMDTAMBAH_Click()
TXTHASIL.Text = Val(TXTPERTAMA.Text) + Val(TXTKEDUA.Text)
End Sub

Private Sub CMDTEBAL_Click()
LBLKALKULATOR.FontBold = True
End Sub

Private Sub Timer1_Timer()
Ltanggal.Caption = Format(Now, "dd-mm-yyyy")
Ljam.Caption = Format(Now, "hh:mm:ss Am/Pm")
End Sub

ARTIKEL DESAIN GRAFIS

KATEGORI: ARTIKEL DESAIN GRAFIS

Tentang Desain Grafis
Post Date: 12 November 2008 By Fery Gunawan

Dewasa ini kita sering mendengar tentang Grafis dan Desain Grafis, apaan sih itu ?. Grafis artinya gambar, dimana setiap gambar mengandung sebuah pesan yang akan disampaikan si pembuat gambar kepada khalayak. Sedangkan Desain Grafis adalah sebuah ilmu dan keahlian dalam perancangan media komunikasi untuk menyampaikan pesan kepada orang lain baik itu berupa informasi mengenai sebuah produk dan jasa, ide ke dalam bentuk visual.

Sebuah produk desain yang sudah dipublikasikan kepada khalayak, tercipta melalui beberapa proses tahapan atau jenjang.

Visual Comunicator
Merupakan orang pertama yang menerima pesan dari klien dalam pembuatan sebuah produk informasi. Visual Comunicator mempelajari kepada siapa pesan disampaikan, dengan tujuan apa pesan disampaikan, siapa pembuat pesan dan membuat ide bagaimana bentuk visual dari pesannya itu.

Visualiser
Orang yang menindaklanjuti ide atau gagasan dari Visual Comunicator, dia bertugas untuk memvisualisasikan/ menggambarkan suatu ide yang asalnya masih dalam angan-angan menjadi bentuk sket kasar (draft) dari apa yang ditangkapnya. Diperlukan orang yang mempunyai kemampuan yang tinggi dalam menggambar ilustrasi yang ada pada posisi ini.

Copy Writer

Selesai membuat draft, selanjutnya menjadi tugas copy writer untuk merancang kata-kata yang pas untuk desain tersebut, terkadang keberhasilan seorang copy writer dalam mengolah kata-katanya mampu menjadi maskot dan mendongkrak perhatian kalangan terhadap desain grafis yang dibuat. Sorang copy writer harus mampu menangkap ide dan mengkomunikasikan ide tersebut kepada khalayak agar orang yang melihatnya mengikuti pesan yang kita sampaikan

Pekerja Grafis
Konsep sudah ada, draft sudah dibuat dan rancangan kata kata sudah disusun, selanjutnya menjadi tugas pekerja grafis untuk menyusun typographi, tata letak (layout), elemen gambar agar menjadi menarik, dan memiliki nilai artisitik yang tinggi. Yang selanjutnya tugas pekerja grafis ini mempersiapkan karya tersebut untuk diserahkan kebagian percetakan. Seorang deainer adalah perancang , membuat sebuah karya yang asalnya tidak ada menjadi ada , bukan mengulang sebuah karya yang sudah ada, jika desainer mengulang karya yang sudah ada sebelumnya, lebih tepat disebut seorang pekerja grafis. Seorang desainer tidak mempunyai alasan untuk mengulang sebuah elemen yang sama pada karyanya, karena tujuan dan penyampaian pesanya tidak akan pernah sama. Seandainyapun sama tentu dengan alasan kuat, misalnya dalam periode yang berbeda..

Karya seni murni berbeda dengan dengan karya desain grafis, pada desain grafis memiliki tujuan agar penerima pesan mengikuti atau terpengaruh terhadap pesan kita untuk selanjutnya mengikuti apa yang disampaikan oleh sipembuat pesan. Pada desain grafis lebih mementingkan prinsip komunikatif daripada artisitik. Akan menjadi karya grafis yang sia-sia jika sebuah karya Grafis memiliki nilai artistik yang tinggi, namun tidak memiliki nilai komunikatif untuk disampaikannya.

Semoga Bermanfaat
Terima kasih

Link Share Tutorial
http://www.ilmugrafis.com/artikel.php?page=tentang-desain-grafis

Layanan ilmugrafis.com
Maaf Belum Tersedia

+++ Cara Bookmark Web / Tandai Website
Internet Explorer :
Favorites --> Add to Favorites...

Firefox Browser :
Tekan CTRL + D

Google Chrome:
Tekan CTRL + Shift + B --> Organize --> Add Page [ name: ilmugrafis & url: www.ilmugrafis.com ]

+++ Disclaimer / Laporan Penyalahgunaan +++

Semua Konten ilmuGRAFIS bertujuan untuk pembelajaran dan kepentingan pendidikan semata, mohon untuk tidak menyalahgunakan informasi dan pengetahuan yang diperoleh untuk hal - hal yang merugikan orang lain.

Kami melakukan segala upaya untuk memastikan bahwa informasi di website ilmugrafis ini tersaji seakurat dan sebaik mungkin. Laporkan jika ada konten ataupun informasi yang tidak berkenan dengan kontak kami (E-mail, Phone or SMS).

Semoga Bermanfaat - Terima kasih

Copyright Design by ilmugrafis.com - Website Pendidikan Desain Grafis Indonesia