All Stories

Sabtu, 17 Desember 2011

Belajar ilmu komputer | Sabtu, 17 Desember 201109.50 | 1 Comment so far

Membuat Program Tes Aplikasi Buta Warna dengan VB 6.0

wahhhhh....kamu sangat beruntung hari ini !! saya akan bagikan source code, bagaimana membuat aplikasi tes buta warna dengan menggunakan bahasa pemrogram Visual Basic 6.0
Jarang-jarang loh ada yang mau bagi-bagikan aplikasi yang lengkap dengan source code nya...dan kamu juga bisa merubah-ubah tampilan dan bentuk ekspresi logikanya sesuai dengan kebutuhan kamu.
Tetapi sebelumnya kamu harus menginstal  VBSKINER sebagai pengganti skin default bawaan visual basic 6.0, kamu bisa download disini
Aplikasi ini terdiri dari 8 form dan 1 module dan untuk administrator username="ADMIN" dan password "ADMIN", nih berikut tampilan dan source codenya :
Pertama-tama aktifkan componen di visual basic 6.0, yaitu :
  1. VB skinner
  2. Microsoft ADO Data Control 6.0
  3. Microsoft Common Dialog 6.0
  4. Microsoft Datagrid 6.0
  5. Microsoft Windows Common Control-2 6.0

Module
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset

Sub koneksi()
    Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
    db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\database\ishihara.Mdb"
End Sub


Form Menu Utama (download source code)

Tombol register = cmdreg
Tombol tes = cmdtes
Tombol Login = cmdhasil
Tombol About me = cmdabout
Tombol Keluar = cmdexit
Box Username = nama
Box password = pass

Form Register (download source code)


Label tanggal = tgl
Label register = nomor
Tombol Tambah = cmdtambah
Tombol Simpan = cmdsimpan
DTpicker lahir = lahir
Text nama = nama
Text alamat = alamat
Text pekerjaan = kerja
Tombol Keluar = cmdkeluar

Form Administrator (download source code)


Text Kode Petugas = kode
Text nama = nama
Text jabatan = jabatan
Tombol tambah = cmdtambah
Tombol Simpan = cmdsimpan
Tombol keluar = cmdkeluar

Form Mode (download source code)


Combo Petugas = cmbpetugas
Text nomor = norepasien
Tombol Proses = cmdproses
Tombol Batal = cmdkeluar

Form Tanya (download source code)


Text Nomor = noreg
Tombol Ok = cmdok
Tombol Batal = cmdkeluar

Form Tes Buta Warna (download source code)


Text tanggal = tgl
Text no register = noreg
Text petugas = petugas
text pasien = pasien
Image gambar = gambar
Label pertanyaan = tanya
Tombol ya = cmdya
Tombol tidak = cmdtdk
text jawab = jawab
Tombol cek = cmdcek

Form Hasil Tes (download source code)


Semua label = urutkan semua
Tombol cetak = cmdcetak
Tombol keluar = cmdkeluar
Tombol Batal = cmdkeluar

Kalau kesusahan membentuknya kamu bisa download aplikasi lengkapnya disini.
Selamat Mencoba yah !!

Sumber : http://tonie-di.blogspot.com/2011/11/membuat-program-tes-aplikasi-buta-warna.html

Membuat Program Tes Aplikasi Buta Warna dengan VB 6.0

wahhhhh....kamu sangat beruntung hari ini !! saya akan bagikan source code, bagaimana membuat aplikasi tes buta warna dengan menggunakan bahasa pemrogram Visual Basic 6.0
Jarang-jarang loh ada yang mau bagi-bagikan aplikasi yang lengkap dengan source code nya...dan kamu juga bisa merubah-ubah tampilan dan bentuk ekspresi logikanya sesuai dengan kebutuhan kamu.
Tetapi sebelumnya kamu harus menginstal  VBSKINER sebagai pengganti skin default bawaan visual basic 6.0, kamu bisa download disini
Aplikasi ini terdiri dari 8 form dan 1 module dan untuk administrator username="ADMIN" dan password "ADMIN", nih berikut tampilan dan source codenya :
Pertama-tama aktifkan componen di visual basic 6.0, yaitu :
  1. VB skinner
  2. Microsoft ADO Data Control 6.0
  3. Microsoft Common Dialog 6.0
  4. Microsoft Datagrid 6.0
  5. Microsoft Windows Common Control-2 6.0

Module
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset

Sub koneksi()
    Set db = New ADODB.Connection
    Set rs = New ADODB.Recordset
    db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\database\ishihara.Mdb"
End Sub


Form Menu Utama (download source code)

Tombol register = cmdreg
Tombol tes = cmdtes
Tombol Login = cmdhasil
Tombol About me = cmdabout
Tombol Keluar = cmdexit
Box Username = nama
Box password = pass

Form Register (download source code)


Label tanggal = tgl
Label register = nomor
Tombol Tambah = cmdtambah
Tombol Simpan = cmdsimpan
DTpicker lahir = lahir
Text nama = nama
Text alamat = alamat
Text pekerjaan = kerja
Tombol Keluar = cmdkeluar

Form Administrator (download source code)


Text Kode Petugas = kode
Text nama = nama
Text jabatan = jabatan
Tombol tambah = cmdtambah
Tombol Simpan = cmdsimpan
Tombol keluar = cmdkeluar

Form Mode (download source code)


Combo Petugas = cmbpetugas
Text nomor = norepasien
Tombol Proses = cmdproses
Tombol Batal = cmdkeluar

Form Tanya (download source code)


Text Nomor = noreg
Tombol Ok = cmdok
Tombol Batal = cmdkeluar

Form Tes Buta Warna (download source code)


Text tanggal = tgl
Text no register = noreg
Text petugas = petugas
text pasien = pasien
Image gambar = gambar
Label pertanyaan = tanya
Tombol ya = cmdya
Tombol tidak = cmdtdk
text jawab = jawab
Tombol cek = cmdcek

Form Hasil Tes (download source code)


Semua label = urutkan semua
Tombol cetak = cmdcetak
Tombol keluar = cmdkeluar
Tombol Batal = cmdkeluar

Kalau kesusahan membentuknya kamu bisa download aplikasi lengkapnya disini.
Selamat Mencoba yah !!

Sumber : http://tonie-di.blogspot.com/2011/11/membuat-program-tes-aplikasi-buta-warna.html

1 komentar:

Cara Mempercepat Koneksi Internet

Belajar ilmu komputer | 09.33 | Be the first to comment!


cara mempercepat koneksi internet
  • Mempercepat koneksi internet dengan gpedit. Secara default, Windows menyisakan 20% dari total bandwith yang tersedia untuk update sistem operasi dan QoS. Ini membuat kita "hanya" memakai 80% dari total bandwith yang tersedia. Walau Microsoft menjelaskan bahwa Limit Reservable Bandwidth itu tidak mengganggu bandwith real, namun setiap kita menyalakan komputer, maka bandwith kita akan mengakses update microsoft untuk mencari patch atau update terbaru, yang jelas menyedot bandwith kita. Untuk menghilangkan Limit Reservable Bandwidth, maka kita bisa merubahnya lewat :
Start -> Run -> ketik gpedit.msc -> Local Computer Policy -> Computer Configuration -> Administrative Templates -> Network -> QOS Packet Scheduler -> Limit Reservable Bandwidth -> Pilih Disable.
  • Mempercepat koneksi internet dengan DNS cache. DNS Cache adalah menyimpan histori atau cache dari situs yang pernah kita kunjungi, sehingga saat kita membukanya kembali tidak lagi mendownload dari internet, tapi dari internal komputer kita yang tentunya akan lebih mempercepat browsing. Untuk mengaktifkan DNS Cache, maka salinlah kode berikut di notepad dan simpan file tersebut dengan nama bebas seperti dnscache.reg kemudian jalankan :
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters]
"CacheHashTableBucketSize"=dword:00000001
"CacheHashTableSize"=dword:00000180
"MaxCacheEntryTtlLimit"=dword:0000fa00
"MaxSOACacheEntryTtlLimit"=dword:0000012d
  • Menggunakan DNS yang cepat. DNS yang baik serta tidak down mampu menentukan kecepatan koneksi internet anda. Anda bisa mencoba beberapa DNS yang bisa dipakai. Pilihlah DNS yang paling dekat dari lokasi anda adalah salah satu trik untuk mempercepat koneksi. Berikut ini beberapa daftar DNS yang bisa anda pakai.
FREE Public DNS Server
Google DNS Server
8.8.8.8
8.8.4.4

ScrubIt Public dns server
67.138.54.100
207.225.209.66

Dnsadvantage dns server:156.154.70.1
156.154.71.1

OpenDNS free dns server:208.67.222.222
208.67.220.220

Speedy Telkom DNS Server :
202.134.0.155
203.130.196.5
202.134.1.10
203.130.208.18
203.130.206.250
202.134.1.5
203.130.206.250
203.130.193.74
202.134.0.155
222.124.204.34
202.134.1.10
203.130.209.242
61.94.192.12

Itulah beberapa tips dan trik mempercepat koneksi Internet yang bisa anda coba. Sebenarnya masih banyak Cara Mempercepat Koneksi Internet, seperti memakai plugins atau addons untuk browser, menggunakan ip proxy dan sebagainya. Semoga bermanfaat.


cara mempercepat koneksi internet
  • Mempercepat koneksi internet dengan gpedit. Secara default, Windows menyisakan 20% dari total bandwith yang tersedia untuk update sistem operasi dan QoS. Ini membuat kita "hanya" memakai 80% dari total bandwith yang tersedia. Walau Microsoft menjelaskan bahwa Limit Reservable Bandwidth itu tidak mengganggu bandwith real, namun setiap kita menyalakan komputer, maka bandwith kita akan mengakses update microsoft untuk mencari patch atau update terbaru, yang jelas menyedot bandwith kita. Untuk menghilangkan Limit Reservable Bandwidth, maka kita bisa merubahnya lewat :
Start -> Run -> ketik gpedit.msc -> Local Computer Policy -> Computer Configuration -> Administrative Templates -> Network -> QOS Packet Scheduler -> Limit Reservable Bandwidth -> Pilih Disable.
  • Mempercepat koneksi internet dengan DNS cache. DNS Cache adalah menyimpan histori atau cache dari situs yang pernah kita kunjungi, sehingga saat kita membukanya kembali tidak lagi mendownload dari internet, tapi dari internal komputer kita yang tentunya akan lebih mempercepat browsing. Untuk mengaktifkan DNS Cache, maka salinlah kode berikut di notepad dan simpan file tersebut dengan nama bebas seperti dnscache.reg kemudian jalankan :
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Dnscache\Parameters]
"CacheHashTableBucketSize"=dword:00000001
"CacheHashTableSize"=dword:00000180
"MaxCacheEntryTtlLimit"=dword:0000fa00
"MaxSOACacheEntryTtlLimit"=dword:0000012d
  • Menggunakan DNS yang cepat. DNS yang baik serta tidak down mampu menentukan kecepatan koneksi internet anda. Anda bisa mencoba beberapa DNS yang bisa dipakai. Pilihlah DNS yang paling dekat dari lokasi anda adalah salah satu trik untuk mempercepat koneksi. Berikut ini beberapa daftar DNS yang bisa anda pakai.
FREE Public DNS Server
Google DNS Server
8.8.8.8
8.8.4.4

ScrubIt Public dns server
67.138.54.100
207.225.209.66

Dnsadvantage dns server:156.154.70.1
156.154.71.1

OpenDNS free dns server:208.67.222.222
208.67.220.220

Speedy Telkom DNS Server :
202.134.0.155
203.130.196.5
202.134.1.10
203.130.208.18
203.130.206.250
202.134.1.5
203.130.206.250
203.130.193.74
202.134.0.155
222.124.204.34
202.134.1.10
203.130.209.242
61.94.192.12

Itulah beberapa tips dan trik mempercepat koneksi Internet yang bisa anda coba. Sebenarnya masih banyak Cara Mempercepat Koneksi Internet, seperti memakai plugins atau addons untuk browser, menggunakan ip proxy dan sebagainya. Semoga bermanfaat.

0 komentar:

Rabu, 14 Desember 2011

Form Notifikasi / Pemberitahuan

Belajar ilmu komputer | Rabu, 14 Desember 201110.44 | Be the first to comment!


Form notifikasi / pemberitahuan adalah form yang digunakan untuk memberitahukan informasi tertentu. Form ini akan muncul secara slide di bagian kanan bawah layar.
Contoh aplikasi yang menggunakannya adalah aplikasi antivirus SMADAV, yang akan memunculkan form notifikasi ketika mendeteksi sebuah flash drive baru.
Download contoh source code-nya disini.


Form notifikasi / pemberitahuan adalah form yang digunakan untuk memberitahukan informasi tertentu. Form ini akan muncul secara slide di bagian kanan bawah layar.
Contoh aplikasi yang menggunakannya adalah aplikasi antivirus SMADAV, yang akan memunculkan form notifikasi ketika mendeteksi sebuah flash drive baru.
Download contoh source code-nya disini.

0 komentar:

Menampilkan Data di ListView

Belajar ilmu komputer | 10.37 | Be the first to comment!


Kontrol ListView sering digunakan sebagai alternatif selain kontrol DataGrid, bilamana suatu data ingin ditampilkan secara readonly serta terlihat lebih simpel dan rapi.
Download source code-nya disini.


Kontrol ListView sering digunakan sebagai alternatif selain kontrol DataGrid, bilamana suatu data ingin ditampilkan secara readonly serta terlihat lebih simpel dan rapi.
Download source code-nya disini.

0 komentar:

Just Share : Membuat Penghitung Lama Komputer dengan VB

Belajar ilmu komputer | 10.03 | Be the first to comment!


Sembari menanti melanjutkan kuliah, lagi gak ada kerjaan dan udah lama mengkoding. Saya kali mau share cara membuat penghitung lama komputer, yang jelas menggunakan Visual Basic. Nah ini caranya :
  • Pada Form Masukkan Timer
  • Tambahkan enam Label susun seperti gambar berikut:
  • Klik dua kali Timer, Masukkan Kode Berikut Pada Timer

01If Val(detik) <= 9 Then
02    detik = Val(detik) + 1
03    detik = "0" & detik
04Else
05    detik = Val(detik) + 1
06End If
07     
08    If Val(detik) > 59 Then
09    detik = "00"
10    menit = Val(menit) + 1
11         
12        If Val(menit) <= 9 Then
13        menit = "0" & menit
14        Else
15        End If
16         
17    End If
18     
19    If Val(menit) > 59 Then
20    menit = "00"
21    jam = Val(jam) + 1
22        If Val(jam) < 9 Then
23        jam = "0" & jam
24        Else
25        End If
26    End If
Udah Begitu Saja!!!...
Jalankan exe pada startup.
Klo gak mau ribet silahkan download disini.

Gimana Bisa???...



Sembari menanti melanjutkan kuliah, lagi gak ada kerjaan dan udah lama mengkoding. Saya kali mau share cara membuat penghitung lama komputer, yang jelas menggunakan Visual Basic. Nah ini caranya :
  • Pada Form Masukkan Timer
  • Tambahkan enam Label susun seperti gambar berikut:
  • Klik dua kali Timer, Masukkan Kode Berikut Pada Timer

01If Val(detik) <= 9 Then
02    detik = Val(detik) + 1
03    detik = "0" & detik
04Else
05    detik = Val(detik) + 1
06End If
07     
08    If Val(detik) > 59 Then
09    detik = "00"
10    menit = Val(menit) + 1
11         
12        If Val(menit) <= 9 Then
13        menit = "0" & menit
14        Else
15        End If
16         
17    End If
18     
19    If Val(menit) > 59 Then
20    menit = "00"
21    jam = Val(jam) + 1
22        If Val(jam) < 9 Then
23        jam = "0" & jam
24        Else
25        End If
26    End If
Udah Begitu Saja!!!...
Jalankan exe pada startup.
Klo gak mau ribet silahkan download disini.

Gimana Bisa???...

0 komentar:

Quick Acces Toolbar Codejock CommandBars 13.0.0

Belajar ilmu komputer | 09.57 | Be the first to comment!


Kali ini saya akan memberikan tips membuat quick access toolbar yaitu icon kecil dekat tombol ribbon, seperti dibawah ini.
Icon disamping itulah yang nantinya kita buat. disini kita akan membuat tiga icon New, Copy, dan Print caranya sebagai berikut.

1. Pertama buat konstanta

1Public Const ID_FILE_NEW = 4001
2Public Const ID_EDIT_COPY = 4002
3Public Const ID_FILE_PRINT = 4003

2. Masukkan Script Quick Access Toolbar berikut.
1RibbonBar.QuickAccessControls.Add xtpControlButton, ID_FILE_NEW, "&New"
2RibbonBar.QuickAccessControls.Add xtpControlButton, ID_EDIT_COPY, "&Copy"
3RibbonBar.QuickAccessControls.Add xtpControlButton, ID_FILE_PRINT, "&Print"

Gampang bukan!...Silahkan Mencoba!

Sumber : http://djuliar.blogspot.com/2011/10/quick-acces-toolbar-codejock.html#more


Kali ini saya akan memberikan tips membuat quick access toolbar yaitu icon kecil dekat tombol ribbon, seperti dibawah ini.
Icon disamping itulah yang nantinya kita buat. disini kita akan membuat tiga icon New, Copy, dan Print caranya sebagai berikut.

1. Pertama buat konstanta

1Public Const ID_FILE_NEW = 4001
2Public Const ID_EDIT_COPY = 4002
3Public Const ID_FILE_PRINT = 4003

2. Masukkan Script Quick Access Toolbar berikut.
1RibbonBar.QuickAccessControls.Add xtpControlButton, ID_FILE_NEW, "&New"
2RibbonBar.QuickAccessControls.Add xtpControlButton, ID_EDIT_COPY, "&Copy"
3RibbonBar.QuickAccessControls.Add xtpControlButton, ID_FILE_PRINT, "&Print"

Gampang bukan!...Silahkan Mencoba!

Sumber : http://djuliar.blogspot.com/2011/10/quick-acces-toolbar-codejock.html#more

0 komentar:

Membuat Laporan dengan Report Control Codejock

Belajar ilmu komputer | 09.52 | 1 Comment so far


Mungkin ini masalah yang banyak di alami oleh beberapa programmer yaitu sulitnya membuat laporan atau report terhadap sebuah data. Pada kesempatan kali ini saya akan memberikan cara membuat laporan dengan mudah dan dengan interface yang menarik, selain itu, kita dapat memilih orientation dari kertas yaitu bisa Portrait dan Landscape dengan beberapa coding pemanggil database untuk menampilkan datanya, mari kita mulai, tapi sebelum itu berikut tampilan hasil dari Print Preview laporan dengan Report Control Codejock :
Komponen Yang Dibutuhkan :
  1. Xtreme CommandBar ActiveX Control
  2. Xtreme Report ActiveX Control

Siapkan satu database dan tabel misalkan seperti berikut :



Selanjutnya buat form baru dan koneksikan dengan database anda misalkan menggunakan database access. koneksi tidak akan dibahas disini, untuk lebih jelasnya masalah koneksi database bisa searching di google dan tambahkan komponen CommandBars dan Report Control pada Component Visual Basic :



sehingga meghasilkan component berikut di toolbox :



Selanjutnya masukkan satu CommandBars, satu Report Control, satu PrintPreview, susun komponen berikut pada form seperti gambar dibawah ini :


Selanjutnya mari kita berkoding,
Pertama, memanggil datanya terlebih dahulu, disini saya menggunakan ADODB, scirpt SQL bebas diubah sesuai kebutuhan, kita pakai script berikut :

01Option Explicit
02Dim Rs As ADODB.Recordset
03
04Private Sub TampilData()
05Set Rs = New ADODB.Recordset
06Rs.CursorType = adOpenStatic
07Rs.CursorLocation = adUseClient
08Rs.Open "SELECT kodeBuku, judul, ISBN, pengarang, penerbit, " _
09& "kategori, rak, jmlHalaman, tahun, tglMasuk, harga, qty " _
10& "FROM Buku ORDER BY kodeBuku", Conn, adOpenDynamic, adLockOptimistic
11Set ReportControl.DataManager.DataSource = Rs
12          
13ReportControl.DataManager.DataBind
14ReportControl.PaintManager.HeaderRowsDividerStyle = xtpReportFixedRowsDividerThin
15ReportControl.HeaderRecords.DeleteAll
16ReportControl.PopulateHeaderRows
17
18With Me.ReportControl
19.PaintManager.DrawGridForEmptySpace = True
20.PaintManager.HorizontalGridStyle = xtpGridSolid
21.PaintManager.VerticalGridStyle = xtpGridSolid       
22.Populate
23End With
24End Sub

Kedua, kita buat report control kita rapi dan memberi header laporan dengan nama instansi kita, berikut scriptnya :

01Private Sub FormatGrid()
02ReportControl.Columns(0).Width = 150
03ReportControl.Columns(0).Caption = "Kode Buku"
04ReportControl.Columns(1).Width = 400
05ReportControl.Columns(1).Caption = "Judul"
06ReportControl.Columns(2).Width = 225
07ReportControl.Columns(2).Caption = "ISBN"
08ReportControl.Columns(3).Width = 200
09ReportControl.Columns(3).Caption = "Pengarang"
10ReportControl.Columns(4).Width = 150
11ReportControl.Columns(4).Caption = "Penerbit"
12ReportControl.Columns(5).Width = 150
13ReportControl.Columns(5).Caption = "Kategori"
14ReportControl.Columns(6).Width = 150
15ReportControl.Columns(6).Caption = "Rak"
16ReportControl.Columns(7).Width = 200
17ReportControl.Columns(7).Caption = "Jumlah Halaman"
18ReportControl.Columns(8).Width = 150
19ReportControl.Columns(8).Caption = "Tahun"
20ReportControl.Columns(9).Width = 175
21ReportControl.Columns(9).Caption = "Tanggal Masuk"
22ReportControl.Columns(10).Width = 100
23ReportControl.Columns(10).Caption = "Harga"
24ReportControl.Columns(11).Width = 100
25ReportControl.Columns(11).Caption = "Banyak"
26
27With Me.ReportControl.PrintOptions
28.Landscape = True
29.Header.FormatString = "Nama" & vbCr & "Alamat" & vbCr & "Telepon"
30.Header.Font.Bold = True
31.Header.Font.Size = 10
32.Footer.FormatString = "Tanggal Cetak : &D" & vbCr & "Halaman &p/&P"
33End With
34End Sub

Ketiga, Pada Form_Load Tambahkan Script berikut agar kita bisa menggunakan ShortCut Ctrl+P untuk preview laporannya, untuk sementara Print Preview di visible = False, berikut script di Form_Load :

1Private Sub Form_Load()
2Me.PrintPreview.Visible = False
3Me.CommandBars.KeyBindings.Add 8, vbKeyP, 100
4Me.Caption = "Preview Data Buku (Press Ctrl+P for Print Preview)"
5
6AmbilKoneksi
7TampilData
8FormatGrid
9End Sub

Keempat, Tambahkan script berikut agar data di Report Control masuk ke Print Preview :

1Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
2   Select Case Control.Id
3   Case 100
4      Set Me.PrintPreview.PrintView = Me.ReportControl.CreatePrintView
5       
6      Me.ReportControl.Visible = False
7      Me.PrintPreview.Visible = True
8   End Select
9End Sub

Kelima, Agar besar ukuran laporan bisa berubah sesuai besar kecilnya form beri script berikut :


1Private Sub Form_Resize()
2   With Me.PrintPreview
3      .Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
4   End With
5    
6   With Me.ReportControl
7      .Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
8   End With
9End Sub

Keenam, dan yang terakhir kita beri Action pada tombol Print dan tombol close yang berada pada Print Preview :


1Private Sub PrintPreview_CloseClick()
2   Me.ReportControl.Visible = True
3   Me.PrintPreview.Visible = False
4End Sub
5
6Private Sub PrintPreview_PrintClick()
7PrintPreview.ShowPrintDialog
8PrintPreview_CloseClick
9End Sub

Mudah Bukan!....Selamat Mencoba!!!
Semoga cara ini memberi kemudahan bagi yang lagi pusing membuat laporan.
Yang membutuhkan file project download-nya silahkan. saya belajar dari file ini.


Mungkin ini masalah yang banyak di alami oleh beberapa programmer yaitu sulitnya membuat laporan atau report terhadap sebuah data. Pada kesempatan kali ini saya akan memberikan cara membuat laporan dengan mudah dan dengan interface yang menarik, selain itu, kita dapat memilih orientation dari kertas yaitu bisa Portrait dan Landscape dengan beberapa coding pemanggil database untuk menampilkan datanya, mari kita mulai, tapi sebelum itu berikut tampilan hasil dari Print Preview laporan dengan Report Control Codejock :
Komponen Yang Dibutuhkan :
  1. Xtreme CommandBar ActiveX Control
  2. Xtreme Report ActiveX Control

Siapkan satu database dan tabel misalkan seperti berikut :



Selanjutnya buat form baru dan koneksikan dengan database anda misalkan menggunakan database access. koneksi tidak akan dibahas disini, untuk lebih jelasnya masalah koneksi database bisa searching di google dan tambahkan komponen CommandBars dan Report Control pada Component Visual Basic :



sehingga meghasilkan component berikut di toolbox :



Selanjutnya masukkan satu CommandBars, satu Report Control, satu PrintPreview, susun komponen berikut pada form seperti gambar dibawah ini :


Selanjutnya mari kita berkoding,
Pertama, memanggil datanya terlebih dahulu, disini saya menggunakan ADODB, scirpt SQL bebas diubah sesuai kebutuhan, kita pakai script berikut :

01Option Explicit
02Dim Rs As ADODB.Recordset
03
04Private Sub TampilData()
05Set Rs = New ADODB.Recordset
06Rs.CursorType = adOpenStatic
07Rs.CursorLocation = adUseClient
08Rs.Open "SELECT kodeBuku, judul, ISBN, pengarang, penerbit, " _
09& "kategori, rak, jmlHalaman, tahun, tglMasuk, harga, qty " _
10& "FROM Buku ORDER BY kodeBuku", Conn, adOpenDynamic, adLockOptimistic
11Set ReportControl.DataManager.DataSource = Rs
12          
13ReportControl.DataManager.DataBind
14ReportControl.PaintManager.HeaderRowsDividerStyle = xtpReportFixedRowsDividerThin
15ReportControl.HeaderRecords.DeleteAll
16ReportControl.PopulateHeaderRows
17
18With Me.ReportControl
19.PaintManager.DrawGridForEmptySpace = True
20.PaintManager.HorizontalGridStyle = xtpGridSolid
21.PaintManager.VerticalGridStyle = xtpGridSolid       
22.Populate
23End With
24End Sub

Kedua, kita buat report control kita rapi dan memberi header laporan dengan nama instansi kita, berikut scriptnya :

01Private Sub FormatGrid()
02ReportControl.Columns(0).Width = 150
03ReportControl.Columns(0).Caption = "Kode Buku"
04ReportControl.Columns(1).Width = 400
05ReportControl.Columns(1).Caption = "Judul"
06ReportControl.Columns(2).Width = 225
07ReportControl.Columns(2).Caption = "ISBN"
08ReportControl.Columns(3).Width = 200
09ReportControl.Columns(3).Caption = "Pengarang"
10ReportControl.Columns(4).Width = 150
11ReportControl.Columns(4).Caption = "Penerbit"
12ReportControl.Columns(5).Width = 150
13ReportControl.Columns(5).Caption = "Kategori"
14ReportControl.Columns(6).Width = 150
15ReportControl.Columns(6).Caption = "Rak"
16ReportControl.Columns(7).Width = 200
17ReportControl.Columns(7).Caption = "Jumlah Halaman"
18ReportControl.Columns(8).Width = 150
19ReportControl.Columns(8).Caption = "Tahun"
20ReportControl.Columns(9).Width = 175
21ReportControl.Columns(9).Caption = "Tanggal Masuk"
22ReportControl.Columns(10).Width = 100
23ReportControl.Columns(10).Caption = "Harga"
24ReportControl.Columns(11).Width = 100
25ReportControl.Columns(11).Caption = "Banyak"
26
27With Me.ReportControl.PrintOptions
28.Landscape = True
29.Header.FormatString = "Nama" & vbCr & "Alamat" & vbCr & "Telepon"
30.Header.Font.Bold = True
31.Header.Font.Size = 10
32.Footer.FormatString = "Tanggal Cetak : &D" & vbCr & "Halaman &p/&P"
33End With
34End Sub

Ketiga, Pada Form_Load Tambahkan Script berikut agar kita bisa menggunakan ShortCut Ctrl+P untuk preview laporannya, untuk sementara Print Preview di visible = False, berikut script di Form_Load :

1Private Sub Form_Load()
2Me.PrintPreview.Visible = False
3Me.CommandBars.KeyBindings.Add 8, vbKeyP, 100
4Me.Caption = "Preview Data Buku (Press Ctrl+P for Print Preview)"
5
6AmbilKoneksi
7TampilData
8FormatGrid
9End Sub

Keempat, Tambahkan script berikut agar data di Report Control masuk ke Print Preview :

1Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
2   Select Case Control.Id
3   Case 100
4      Set Me.PrintPreview.PrintView = Me.ReportControl.CreatePrintView
5       
6      Me.ReportControl.Visible = False
7      Me.PrintPreview.Visible = True
8   End Select
9End Sub

Kelima, Agar besar ukuran laporan bisa berubah sesuai besar kecilnya form beri script berikut :


1Private Sub Form_Resize()
2   With Me.PrintPreview
3      .Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
4   End With
5    
6   With Me.ReportControl
7      .Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
8   End With
9End Sub

Keenam, dan yang terakhir kita beri Action pada tombol Print dan tombol close yang berada pada Print Preview :


1Private Sub PrintPreview_CloseClick()
2   Me.ReportControl.Visible = True
3   Me.PrintPreview.Visible = False
4End Sub
5
6Private Sub PrintPreview_PrintClick()
7PrintPreview.ShowPrintDialog
8PrintPreview_CloseClick
9End Sub

Mudah Bukan!....Selamat Mencoba!!!
Semoga cara ini memberi kemudahan bagi yang lagi pusing membuat laporan.
Yang membutuhkan file project download-nya silahkan. saya belajar dari file ini.

1 komentar:

Selasa, 12 Juli 2011

Football, Fashion and Phones = Fun with Widgetbox Mobile

Belajar ilmu komputer | Selasa, 12 Juli 201113.07 | Be the first to comment!

Football, Fashion and Phones = Fun with Widgetbox Mobile

Question: What do an Italian football club and a swanky New York/Miami production studio have in common? (Besides a tendency towards on-field and on-screen drama, of course!)
Answer: Forza Pescara and Splashlight have both shown their mobile savvy by building Widgetbox apps to take their sites to your phones.



Now “tifosi del Pescara” (supporters of Pescara) and Splashlight clients like InStyle, Tiffany & Co. and Marc Jacobs can connect with the latest info and news wherever they carry their mobile phones (read: everywhere).

While it’s possible that the two apps share a similar target market - Italian fashionistas who love soccer isn’t a big stretch - these apps are notable for the ways they help their fans and clients stay connected.

Forza Pescara’s app contains a collection of video clips and highlight reels from the team. Miss that latest save (or awesome GOOOOALLL!)? Now you can catch up when you’re away from the TV and on-the-go.

While Splashlight’s app doesn’t have a gallery of video clips, it does show a location-aware map of their studio locations in Miami and New York. One can easily imagine this being a lifesaver for a harried fashion assistant rushing to make it to the shoot on time, or an art director trying to find the perfect place to film their next ad campaign.

Of course, there’s one more thing these two apps have in common: they’re both entered in Widgetbox’s 5K Mobile App Contest and are eligible to win prizes including a $299 Apple gift card, a free Diamond service subscription, and an expert consultation on building a great app. The contest is still going strong, but we’re getting close to 5k - hurry and create your free app today for your chance to win!

Football, Fashion and Phones = Fun with Widgetbox Mobile

Question: What do an Italian football club and a swanky New York/Miami production studio have in common? (Besides a tendency towards on-field and on-screen drama, of course!)
Answer: Forza Pescara and Splashlight have both shown their mobile savvy by building Widgetbox apps to take their sites to your phones.



Now “tifosi del Pescara” (supporters of Pescara) and Splashlight clients like InStyle, Tiffany & Co. and Marc Jacobs can connect with the latest info and news wherever they carry their mobile phones (read: everywhere).

While it’s possible that the two apps share a similar target market - Italian fashionistas who love soccer isn’t a big stretch - these apps are notable for the ways they help their fans and clients stay connected.

Forza Pescara’s app contains a collection of video clips and highlight reels from the team. Miss that latest save (or awesome GOOOOALLL!)? Now you can catch up when you’re away from the TV and on-the-go.

While Splashlight’s app doesn’t have a gallery of video clips, it does show a location-aware map of their studio locations in Miami and New York. One can easily imagine this being a lifesaver for a harried fashion assistant rushing to make it to the shoot on time, or an art director trying to find the perfect place to film their next ad campaign.

Of course, there’s one more thing these two apps have in common: they’re both entered in Widgetbox’s 5K Mobile App Contest and are eligible to win prizes including a $299 Apple gift card, a free Diamond service subscription, and an expert consultation on building a great app. The contest is still going strong, but we’re getting close to 5k - hurry and create your free app today for your chance to win!

0 komentar:

Selasa, 28 Juni 2011

Membuat grafik di excel 2007 kasus range data tidak berdekatan

Belajar ilmu komputer | Selasa, 28 Juni 201110.24 | Be the first to comment!


Jika range data berdekatan misalkan pada kolom A dan B, atau kolom B dan C maka untuk membuat grafik cukup blok range data kemudian klik toolbar grafik maka akan tampil grafiknya. Sedangkan untuk kasus range data tidak berdekatan (terpisah oleh satu atau beberapa kolom), maka diperlukan kombinasi tombol Ctrl (keyboard) untuk memilih range data tersebut.

Contoh sederhana  untuk kasus ini adalah:
1. Buat data/tabel tiga kolom seperti di bawah ini
a. Sorot kolom A (range A4:A8) , selanjutnya tekan tombol Ctrl bersamaan dengan proses blok kolom C (range C4:C8)
b. Di menu bar pilih Insert , Pie - 2D Pie



2. Jika proses di atas berhasil maka akan tampil grafik seperti di bawah ini :


Jika range data berdekatan misalkan pada kolom A dan B, atau kolom B dan C maka untuk membuat grafik cukup blok range data kemudian klik toolbar grafik maka akan tampil grafiknya. Sedangkan untuk kasus range data tidak berdekatan (terpisah oleh satu atau beberapa kolom), maka diperlukan kombinasi tombol Ctrl (keyboard) untuk memilih range data tersebut.

Contoh sederhana  untuk kasus ini adalah:
1. Buat data/tabel tiga kolom seperti di bawah ini
a. Sorot kolom A (range A4:A8) , selanjutnya tekan tombol Ctrl bersamaan dengan proses blok kolom C (range C4:C8)
b. Di menu bar pilih Insert , Pie - 2D Pie



2. Jika proses di atas berhasil maka akan tampil grafik seperti di bawah ini :

0 komentar:

Cara membuat grafik regresi linier di excel 2007

Belajar ilmu komputer | 10.19 | Be the first to comment!
Analisa regresi dalam statistika adalah salah satu metode untuk menentukan hubungan sebab-akibat antara satu variabel dengan variabelyang lain. Variabel bebas digambarkan dalam grafik sebagai sumbu X. Variabel yang dipengaruhi digambarkan dalam sumbu Y. Kedua variabel ini dapat merupakan variabel acak (random), namun variabel yang dipengaruhi harus selalu variabel acak.Analisis regresi adalah salah satu analisis yang luas pemakaiannya dalam berbagai bidang ilmu yang memerlukan analisis sebab-akibat boleh dipastikan mengenal analisis ini.

Berikut ini adalah contoh penerapan microsoft excel untuk membuat  grafik regresi linier. Untuk lebih detail silahkan ikuti prosedur berikut:

1.Buat tabel seperti di bawah ini
Blok kolom A dan B yang berisi data
Di Menu bar pilih Insert - Scatter , pilih type Scatter with only mark






2.Akan tampil garfik regresi seperti gambar di bawah ini
Jika Chart Layout tidak muncul di toolbar, double klik pada Chart area
Pilih Layout yang menampilkan fungsi persamaan linier dan nilai R
Maka akan tampil persamaan linier di dalam plot area , persamaan tersebt bisa digeser agar tampilannya lebih menarik


3.Bagian legenda (legend) berupa Series dan Linear(Series1) bisa dihapus , sehingga ruang plot area menjadi lebih lebar seperti gambar di bawah

Analisa regresi dalam statistika adalah salah satu metode untuk menentukan hubungan sebab-akibat antara satu variabel dengan variabelyang lain. Variabel bebas digambarkan dalam grafik sebagai sumbu X. Variabel yang dipengaruhi digambarkan dalam sumbu Y. Kedua variabel ini dapat merupakan variabel acak (random), namun variabel yang dipengaruhi harus selalu variabel acak.Analisis regresi adalah salah satu analisis yang luas pemakaiannya dalam berbagai bidang ilmu yang memerlukan analisis sebab-akibat boleh dipastikan mengenal analisis ini.

Berikut ini adalah contoh penerapan microsoft excel untuk membuat  grafik regresi linier. Untuk lebih detail silahkan ikuti prosedur berikut:

1.Buat tabel seperti di bawah ini
Blok kolom A dan B yang berisi data
Di Menu bar pilih Insert - Scatter , pilih type Scatter with only mark






2.Akan tampil garfik regresi seperti gambar di bawah ini
Jika Chart Layout tidak muncul di toolbar, double klik pada Chart area
Pilih Layout yang menampilkan fungsi persamaan linier dan nilai R
Maka akan tampil persamaan linier di dalam plot area , persamaan tersebt bisa digeser agar tampilannya lebih menarik


3.Bagian legenda (legend) berupa Series dan Linear(Series1) bisa dihapus , sehingga ruang plot area menjadi lebih lebar seperti gambar di bawah

0 komentar:

Cara menggabungkan IF dan HLOOKUP di excel 2007

Belajar ilmu komputer | 10.17 | Be the first to comment!


Dalam postingan yang lain saya membahas tentang penggunaan fungsi IF dan VLOOKUP , dalam bahasan ini akan diulas tentang cara menggabungkan fungsi IF dan HLOOKUP
Secara umum syntax fungsi IF adalah :
IF (logical_test, value_if_true, value_if_false)
dengan:
a. Logical_test bisa berupa sebuah nilai atau ekspresi yang dapat dievaluasi ke TRUE (benar) atau FALSE (salah)
b. Value_if_true adalah nilai yang dikembalikan/dihasilkan jika logical_test bernilai benar
c. Value_if_false adalah nilai yang dikembalikan/dihasilkan jika logical_test bernilai salah

Sedangkan untuk fungsi HLOOKUP sintaxnya seperti di bawah ini
HLOOKUP (lookup_value, table_array, row_index_num, range_lookup)
Dimana:
Lookup_value adalah nilai yang akan ditemukan pada baris pertama dari tabel array (tabel referensi). Lookup_value dapat berupa nilai, referensi, atau string teks.

Table_array adalah tabel yang berisi informasi untuk fungsi hlookup.
Row_index_num adalah index baris tabel array yang akan diambil nilainya
Range_lookup adalah rentang fungsi hlookup.

Untuk penerapan fungsi IF dan HLOOKUP di excel 2007 bisa ikuti prosedur berikut:

1.Buat tabel kerja dan 2 buah tabel referensi seperti di bawah ini
Tabel kerja berisi Tahun , Kode kertas, Jenis kertas dan harga kertas
Kolom untuk jenis kertas dan harga kertas dikosongkan karena akan diisi dengan formula yang menggunakan fungsi IF dan HLOOKUP
Tabl referensi dibuat menjadi 2 buah yaitu tabel referensi 1 berisi data kertas untuk tahun 2010 , tabel referensi 2 berisi data kertas untuk tahun 2011
Kode kertas Q001 , Q002 , Q003, Q004
Jenis Kertas HVS , Folio , A4, A4S
Harga bervariasi tergantung jenis kertas dan tahun




Sekarang buat formula:
a. Di sel D4 ketik formula HLOOKUP berikut :
=HLOOKUP(C4,$G$3:$K$5,2)
b. Di sel E4 ketik formula gabungan fungsi IF dan HLOOKUP eperti di bawah ini :
=IF(B4=2010,(HLOOKUP(C4,$G$3:$K$5,3,0)),(HLOOKUP(C4,$G$8:$K$10,3,0)))
2. Hasilnya akan terlihat seperti di bawah ini

Silahkan dicoba penggabungan fungsi  IF dan Hlookup di excel 2007 di atas.


Dalam postingan yang lain saya membahas tentang penggunaan fungsi IF dan VLOOKUP , dalam bahasan ini akan diulas tentang cara menggabungkan fungsi IF dan HLOOKUP
Secara umum syntax fungsi IF adalah :
IF (logical_test, value_if_true, value_if_false)
dengan:
a. Logical_test bisa berupa sebuah nilai atau ekspresi yang dapat dievaluasi ke TRUE (benar) atau FALSE (salah)
b. Value_if_true adalah nilai yang dikembalikan/dihasilkan jika logical_test bernilai benar
c. Value_if_false adalah nilai yang dikembalikan/dihasilkan jika logical_test bernilai salah

Sedangkan untuk fungsi HLOOKUP sintaxnya seperti di bawah ini
HLOOKUP (lookup_value, table_array, row_index_num, range_lookup)
Dimana:
Lookup_value adalah nilai yang akan ditemukan pada baris pertama dari tabel array (tabel referensi). Lookup_value dapat berupa nilai, referensi, atau string teks.

Table_array adalah tabel yang berisi informasi untuk fungsi hlookup.
Row_index_num adalah index baris tabel array yang akan diambil nilainya
Range_lookup adalah rentang fungsi hlookup.

Untuk penerapan fungsi IF dan HLOOKUP di excel 2007 bisa ikuti prosedur berikut:

1.Buat tabel kerja dan 2 buah tabel referensi seperti di bawah ini
Tabel kerja berisi Tahun , Kode kertas, Jenis kertas dan harga kertas
Kolom untuk jenis kertas dan harga kertas dikosongkan karena akan diisi dengan formula yang menggunakan fungsi IF dan HLOOKUP
Tabl referensi dibuat menjadi 2 buah yaitu tabel referensi 1 berisi data kertas untuk tahun 2010 , tabel referensi 2 berisi data kertas untuk tahun 2011
Kode kertas Q001 , Q002 , Q003, Q004
Jenis Kertas HVS , Folio , A4, A4S
Harga bervariasi tergantung jenis kertas dan tahun




Sekarang buat formula:
a. Di sel D4 ketik formula HLOOKUP berikut :
=HLOOKUP(C4,$G$3:$K$5,2)
b. Di sel E4 ketik formula gabungan fungsi IF dan HLOOKUP eperti di bawah ini :
=IF(B4=2010,(HLOOKUP(C4,$G$3:$K$5,3,0)),(HLOOKUP(C4,$G$8:$K$10,3,0)))
2. Hasilnya akan terlihat seperti di bawah ini

Silahkan dicoba penggabungan fungsi  IF dan Hlookup di excel 2007 di atas.

0 komentar:

Cara menggabungkan fungsi if dan vlookup di excel 2007

Belajar ilmu komputer | 10.15 | Be the first to comment!


Beberapa fungsi logika yang tersedia di excel 2007 dan sering digunakan adalah fungsi AND, FALSE,IF,IFERROR,NOT,OR,TRUE. Dalam postingan kali ini akan dibahas tentang salah satu dari fungsi logika tersebut yaitu penggunaan fungsi IF. Atau lebih detailnya Fungsi IF digabungkan dengan fungsi VLOOKUP.

Salahsatu keunggulan excel 2007 adalah kemudahan yang ditawarkan untuk menggabungkan fungsi-fungsi yang tersedia tanpa perlu khawatir dengan compatibiltas fungsi tersebut.

Jika dalam contoh sebelumnya saya menggunakan fungsi IF dengan satu buah tabel referensi bisa dilihat disini Fungsi IF VLOOKUP , Dalam contoh ini akan digunakan dua buah tabel referensi .


Untuk menggabung fungsi IF dan VLOOKUP bisa ikuti prosedur berikut :

1. Buat tabel kerja dan dua buah tabel referensi, sederhananya seperti gambar di bawah ini :
 Kosongkan kolom D dan E karena nantinya akan diisi dengan formula







2. Dalam sel D4 akan berisi formula yang menggunakan fungsi VLOOKUP , fungsi VLOOKUP ini akan mengecek nilai pada sel C4 selanjutnya akan mencocokkan dengan nilai pada range G4:I7, jika menemukan nilai yang sama maka sel D4 akan diisi dengan nilai referensi yang ada di kolom H (kolom kedua dalam range G4:I7)
Di sel D4 ketik formula berikut :
=VLOOKUP(C4,$G$4:$I$7,2)

Di sel E4 ketik penggabungan formula IF dan VLOOKUP berikut
=IF(B4=2010,(VLOOKUP(C4,$G$4:$I$7,3,0)),(VLOOKUP(C4,$G$10:$I$13,3,0)))
Hasilnya akan tampak seperti di bawah ini


Formula pada sel E4 jika diterjemahkan ke dalam bahasa manusia kira-kira bunyi perintahnya seperti di bawah ini:
Jika sel B4 bernilai 2010 maka gunakan fungsi vlookup pada sel E2 dengan tabel referensi pada range G4:I7 (G$4:$I$7, tanda $ menandakan alamat absolut), selanjutnya cocokkan nilai P001 pada sel C4 dengan nilai yang ada pada range G4:I7, jika ditemukan nilai yang sama maka ambil nilai yang ada pada kolom ke 3 pada range G4:I7 kemudian masukkan ke dalam sel E4
Jika sel B4 tidak bernilai 2010 maka terapkan fungsi VLOOKUP pada range $G$10:$I$13 dengan prosedur seperti saat B4 bernilai true namun tabel referensi pada range $G$10:$I$13

Kira-kira seperti cerita pendek di atas excel menerjemahkan perintah tentang penggabungan fungsi IF dan VLOOKUP. Silahkan dikembangkan dengan menggunakan logika dan kasus yang lebih kompleks misalnya tabel referensi lebih dari 2 , variable di kolom B lebih dari 3 , atau tabel referensi berada pada sheet yang berbeda dengan tabel kerja.


Beberapa fungsi logika yang tersedia di excel 2007 dan sering digunakan adalah fungsi AND, FALSE,IF,IFERROR,NOT,OR,TRUE. Dalam postingan kali ini akan dibahas tentang salah satu dari fungsi logika tersebut yaitu penggunaan fungsi IF. Atau lebih detailnya Fungsi IF digabungkan dengan fungsi VLOOKUP.

Salahsatu keunggulan excel 2007 adalah kemudahan yang ditawarkan untuk menggabungkan fungsi-fungsi yang tersedia tanpa perlu khawatir dengan compatibiltas fungsi tersebut.

Jika dalam contoh sebelumnya saya menggunakan fungsi IF dengan satu buah tabel referensi bisa dilihat disini Fungsi IF VLOOKUP , Dalam contoh ini akan digunakan dua buah tabel referensi .


Untuk menggabung fungsi IF dan VLOOKUP bisa ikuti prosedur berikut :

1. Buat tabel kerja dan dua buah tabel referensi, sederhananya seperti gambar di bawah ini :
 Kosongkan kolom D dan E karena nantinya akan diisi dengan formula







2. Dalam sel D4 akan berisi formula yang menggunakan fungsi VLOOKUP , fungsi VLOOKUP ini akan mengecek nilai pada sel C4 selanjutnya akan mencocokkan dengan nilai pada range G4:I7, jika menemukan nilai yang sama maka sel D4 akan diisi dengan nilai referensi yang ada di kolom H (kolom kedua dalam range G4:I7)
Di sel D4 ketik formula berikut :
=VLOOKUP(C4,$G$4:$I$7,2)

Di sel E4 ketik penggabungan formula IF dan VLOOKUP berikut
=IF(B4=2010,(VLOOKUP(C4,$G$4:$I$7,3,0)),(VLOOKUP(C4,$G$10:$I$13,3,0)))
Hasilnya akan tampak seperti di bawah ini


Formula pada sel E4 jika diterjemahkan ke dalam bahasa manusia kira-kira bunyi perintahnya seperti di bawah ini:
Jika sel B4 bernilai 2010 maka gunakan fungsi vlookup pada sel E2 dengan tabel referensi pada range G4:I7 (G$4:$I$7, tanda $ menandakan alamat absolut), selanjutnya cocokkan nilai P001 pada sel C4 dengan nilai yang ada pada range G4:I7, jika ditemukan nilai yang sama maka ambil nilai yang ada pada kolom ke 3 pada range G4:I7 kemudian masukkan ke dalam sel E4
Jika sel B4 tidak bernilai 2010 maka terapkan fungsi VLOOKUP pada range $G$10:$I$13 dengan prosedur seperti saat B4 bernilai true namun tabel referensi pada range $G$10:$I$13

Kira-kira seperti cerita pendek di atas excel menerjemahkan perintah tentang penggabungan fungsi IF dan VLOOKUP. Silahkan dikembangkan dengan menggunakan logika dan kasus yang lebih kompleks misalnya tabel referensi lebih dari 2 , variable di kolom B lebih dari 3 , atau tabel referensi berada pada sheet yang berbeda dengan tabel kerja.

0 komentar:

istilah-istilah dan fungsi formula excel 2007

Belajar ilmu komputer | 10.00 | Be the first to comment!


excel-2007Microsoft Excel merupakan perangkat lunak untuk mengolah data secara otomatis meliputiperhitungan dasar, penggunaan fungsi-fungsi, pembuatan grafik dan manajemen data.Perangkat lunak ini sangat membantu untuk menyelesaikan permasalahan administratif mulai yang paling sedernaha sampai yang lebih kompleks. Permasalahan sederhana tersebut misalnya membuat rencana kebutuhan barang meliputi namabarang, jumlah barang dan perkiraan harga barang.  Contoh permasalahan yang lebih kompleks adalah pembuatan laporan keuangan (general ledger) yang memerlukan banyak perhitungan, manajemen data dengan menampilkan grafik atau pivot tabel atau penggunaan fungsi-fungsi matematis ataupun logika pada sebuah laporan. untuk lebih jelasnya fungsi-fungsi tersebut di sampaikan pada paparan di bawah ini
Istilah-istilah dalam Excel
1. Cell : merupakan bagian terkecil dari worksheet yng dapat diisi dengan jumlah karakter (max. 255 karakter) isi cell dapat berupa value, formula atau text. Contoh : cell A3, cell D5
2. Worksheet (lembar Kerja) : merupakan kumpulan dari 256 kolom dan 65536 baris.
3. Workbook (buku kerja) : merupakan kumpulan dari 256 worksheet (berlabel sheet1 sampai sheet 256)
4. Range : merupakan sekelompok cell yang akan mendapataksi sama sesuai perintah yang anda jalankan. Pemberian alamat/ address dilakukan mulai dari cell sudut kiri atas sampai cell sudut kanan bawah. Contoh : A4:D6 → range mulai dari cell A4 sampai cell D6
5. Alamat Relatif : merupakan alamat yang jika dituliskan kedalam bentuk rumus atau fungsi akan berubah jika dicopy ke cell lain.
Contoh : cell berisi formula A5*6 ,B3 dicopy ke C5 formula pada C5 berubah menjadi B8*6
6. Alamat Semi Absolut : merupakan alamat yang dituliskan dengan tanda $ didepan baris atau kolomsehingga nilai tidak akan berubah.
Contoh : Cell B1 berisi formula $A1*7,B1 dicopy kan ke D5 formula pada D5 menjadi $A5*7
7. Alamat Absolut : merupakan alamat yang dituliskan dengan tanda $ didepan baris dan kolom.tekan tombol F4 untuk menghasilkan alamat absolut pada formula bar. Contoh : cell B1 berisi formula $A$1&5,B1 dicopy kan ke C3 formula pada C3 menjadi $A$1*5
8. Name Box : menunjukkan pada cell/ range yang aktif saat itu. Anda dapat juga membuat nama range melalui kotak nama disebelah kiri formula bar.
Contoh : Holla nama lain range A5:G7
Menulis Rumus
1.Operasi Logika
Dibawah ini terdapat operasi logika anda dapat menggunakan operasi resali atau perbandingan dengan lambang yang digunakan pada Excel dan fungsinya sebagai berikut :
a. = : sama dengan
b. > : lebih besar dari
c. < : lebih kecil dari d. >= : lebih besar atau sama dengan
e. <= : lebih kecil atau sama dengan f. <> : tidak sama dengan
2. Menggunakan Fungsi
Fungsi sebenarnya adalah rumus yang sudah ada disediakan oleh Excel 2003, yang akan membantu dalam proses perhitungan. Kita tinggal memanfaatkan sesuai dengan kebutuhan. Umumnya penulisan Fungsi harus dilengkapi dengan argumen, baik erupa angka, label, rumus, alamat sel atau range. Argumen ini harus ditulis dengan diapit tanda kurung ().
A.Fungsi Logika
Fungsi logika adalah fungsi yang digunakan untuk menyelesaikan perhitungan-perhitungan yang berhubungan dengan pengambilan keputusan fungsi logika yang digunakan adalah :
1. Fungsi If :
Bentuk penulisannya : =If(kondisi,nilai jika benar,nilai jika salah)
Contoh : =If(A5<17,”anak-anak”,”dewasa”)>30,”panas”,if(A5>0,”hangat”,”dingin”))
2. Fungsi String
Fungsi string berfungsi untuk mengubah isi text numeric menjadi bilangan
1. Fungsi VALUE :
digunakan untuk merubah nilai value menjadi nilai text,
penulisannya : =VALUE(text)
2. Fungsi FIND :
digunakan untuk menghasilkan posisi substring dari sebuah string atau suatu nomor yang dicari,penulisannya : =FIND(cari text,pada text,mulai nomor)
3. Fungsi MID
digunakan untu mengambil karakter tertentu dari sederet karakter, penulisannya : =MID(text,posisi awal,jumlah karakter)
4. Fungsi LEFT atau RIGHT :
digunakan untuk mengambil substring sebelah kiri atau kanan string, penulisannya =LEFT atau =RIGHT(text,jumlah karakter)
5. Fungsi REPLACE :
digunakan untuk menggantikan substring dengan substring lain dalam sebuah string (sederetan karakter atau karakter),
penulisannya : =REPLACE(text lama,nomor awal,jumlah karakter,text baru)
6. Fungsi CONCATENATE :
digunakan untuk menggabungkan string menjadi satu kalimat maksimal 30 string,
penulisannya : =CONCATENATE(text1,text2,…)
B. Fungsi Tabel :
Fungsi HLOOKUP dan VLOOKUP digunakan untuk membaca tabel secara vertikal (VLOOKUP) atau secara horizontal (HLOOKUP),
penulisanya : =HLOOKUP(lookup_value,table_array,row_index_num,…)
=VLOOKUP(lookup_value,table_array,row_index_num,…)
Fungsi yang sering digunakan
1. fungsi Sum :
Digunakan untuk menjumlahkan sekumpulan data pada satu range, penulisannya : =SUM(number1,number2,..)
2. Fungsi Average :
Digunakan untuk mencari nilai rata-rata,
penulisannya : =average(number1,number2,…)
3. Fungsi Max :
Digunakan untuk mencari nilai tertinggi dari sekumpulan data, penulisannya : =max(number1,number2,…)
4. Fungsi Min:
Digunakan untuk mencari nilai terendah dari sekumpulan data, penulisannya : =max(number1,number2,…)
5. fungsi Count :
Digunakan untuk menghitung jumlah data dari range yang kita pilih
6. Fungsi Stedev :
Digunakan untuk menentukan standart devisiasi dari suatu range, penulisannya : =stedev(number1,number2,…)
7. Fungsi Var :
Digunakan untuk menentukan nilai varience dari suatu range, penulisannya : =var(number1,number2,…)


excel-2007Microsoft Excel merupakan perangkat lunak untuk mengolah data secara otomatis meliputiperhitungan dasar, penggunaan fungsi-fungsi, pembuatan grafik dan manajemen data.Perangkat lunak ini sangat membantu untuk menyelesaikan permasalahan administratif mulai yang paling sedernaha sampai yang lebih kompleks. Permasalahan sederhana tersebut misalnya membuat rencana kebutuhan barang meliputi namabarang, jumlah barang dan perkiraan harga barang.  Contoh permasalahan yang lebih kompleks adalah pembuatan laporan keuangan (general ledger) yang memerlukan banyak perhitungan, manajemen data dengan menampilkan grafik atau pivot tabel atau penggunaan fungsi-fungsi matematis ataupun logika pada sebuah laporan. untuk lebih jelasnya fungsi-fungsi tersebut di sampaikan pada paparan di bawah ini
Istilah-istilah dalam Excel
1. Cell : merupakan bagian terkecil dari worksheet yng dapat diisi dengan jumlah karakter (max. 255 karakter) isi cell dapat berupa value, formula atau text. Contoh : cell A3, cell D5
2. Worksheet (lembar Kerja) : merupakan kumpulan dari 256 kolom dan 65536 baris.
3. Workbook (buku kerja) : merupakan kumpulan dari 256 worksheet (berlabel sheet1 sampai sheet 256)
4. Range : merupakan sekelompok cell yang akan mendapataksi sama sesuai perintah yang anda jalankan. Pemberian alamat/ address dilakukan mulai dari cell sudut kiri atas sampai cell sudut kanan bawah. Contoh : A4:D6 → range mulai dari cell A4 sampai cell D6
5. Alamat Relatif : merupakan alamat yang jika dituliskan kedalam bentuk rumus atau fungsi akan berubah jika dicopy ke cell lain.
Contoh : cell berisi formula A5*6 ,B3 dicopy ke C5 formula pada C5 berubah menjadi B8*6
6. Alamat Semi Absolut : merupakan alamat yang dituliskan dengan tanda $ didepan baris atau kolomsehingga nilai tidak akan berubah.
Contoh : Cell B1 berisi formula $A1*7,B1 dicopy kan ke D5 formula pada D5 menjadi $A5*7
7. Alamat Absolut : merupakan alamat yang dituliskan dengan tanda $ didepan baris dan kolom.tekan tombol F4 untuk menghasilkan alamat absolut pada formula bar. Contoh : cell B1 berisi formula $A$1&5,B1 dicopy kan ke C3 formula pada C3 menjadi $A$1*5
8. Name Box : menunjukkan pada cell/ range yang aktif saat itu. Anda dapat juga membuat nama range melalui kotak nama disebelah kiri formula bar.
Contoh : Holla nama lain range A5:G7
Menulis Rumus
1.Operasi Logika
Dibawah ini terdapat operasi logika anda dapat menggunakan operasi resali atau perbandingan dengan lambang yang digunakan pada Excel dan fungsinya sebagai berikut :
a. = : sama dengan
b. > : lebih besar dari
c. < : lebih kecil dari d. >= : lebih besar atau sama dengan
e. <= : lebih kecil atau sama dengan f. <> : tidak sama dengan
2. Menggunakan Fungsi
Fungsi sebenarnya adalah rumus yang sudah ada disediakan oleh Excel 2003, yang akan membantu dalam proses perhitungan. Kita tinggal memanfaatkan sesuai dengan kebutuhan. Umumnya penulisan Fungsi harus dilengkapi dengan argumen, baik erupa angka, label, rumus, alamat sel atau range. Argumen ini harus ditulis dengan diapit tanda kurung ().
A.Fungsi Logika
Fungsi logika adalah fungsi yang digunakan untuk menyelesaikan perhitungan-perhitungan yang berhubungan dengan pengambilan keputusan fungsi logika yang digunakan adalah :
1. Fungsi If :
Bentuk penulisannya : =If(kondisi,nilai jika benar,nilai jika salah)
Contoh : =If(A5<17,”anak-anak”,”dewasa”)>30,”panas”,if(A5>0,”hangat”,”dingin”))
2. Fungsi String
Fungsi string berfungsi untuk mengubah isi text numeric menjadi bilangan
1. Fungsi VALUE :
digunakan untuk merubah nilai value menjadi nilai text,
penulisannya : =VALUE(text)
2. Fungsi FIND :
digunakan untuk menghasilkan posisi substring dari sebuah string atau suatu nomor yang dicari,penulisannya : =FIND(cari text,pada text,mulai nomor)
3. Fungsi MID
digunakan untu mengambil karakter tertentu dari sederet karakter, penulisannya : =MID(text,posisi awal,jumlah karakter)
4. Fungsi LEFT atau RIGHT :
digunakan untuk mengambil substring sebelah kiri atau kanan string, penulisannya =LEFT atau =RIGHT(text,jumlah karakter)
5. Fungsi REPLACE :
digunakan untuk menggantikan substring dengan substring lain dalam sebuah string (sederetan karakter atau karakter),
penulisannya : =REPLACE(text lama,nomor awal,jumlah karakter,text baru)
6. Fungsi CONCATENATE :
digunakan untuk menggabungkan string menjadi satu kalimat maksimal 30 string,
penulisannya : =CONCATENATE(text1,text2,…)
B. Fungsi Tabel :
Fungsi HLOOKUP dan VLOOKUP digunakan untuk membaca tabel secara vertikal (VLOOKUP) atau secara horizontal (HLOOKUP),
penulisanya : =HLOOKUP(lookup_value,table_array,row_index_num,…)
=VLOOKUP(lookup_value,table_array,row_index_num,…)
Fungsi yang sering digunakan
1. fungsi Sum :
Digunakan untuk menjumlahkan sekumpulan data pada satu range, penulisannya : =SUM(number1,number2,..)
2. Fungsi Average :
Digunakan untuk mencari nilai rata-rata,
penulisannya : =average(number1,number2,…)
3. Fungsi Max :
Digunakan untuk mencari nilai tertinggi dari sekumpulan data, penulisannya : =max(number1,number2,…)
4. Fungsi Min:
Digunakan untuk mencari nilai terendah dari sekumpulan data, penulisannya : =max(number1,number2,…)
5. fungsi Count :
Digunakan untuk menghitung jumlah data dari range yang kita pilih
6. Fungsi Stedev :
Digunakan untuk menentukan standart devisiasi dari suatu range, penulisannya : =stedev(number1,number2,…)
7. Fungsi Var :
Digunakan untuk menentukan nilai varience dari suatu range, penulisannya : =var(number1,number2,…)

0 komentar:

Membuat Efek Photo Booth pada Foto Krisdayanti

Belajar ilmu komputer | 08.47 | Be the first to comment!




ini penampakan dokumen baru nya :

Buka dokumen foto yang mau di pake.. saya pake foto Krisdayanti ..

Pilih salah satu foto Krisdayanti atau foto yang mau dipake lalu crop ukuran 4 inch x 5 inch.. untuk lebih jelasnya liat gambar aja deh yah..
ukuran dokumen kan 4 inch x 20 inch.. saya crop 4 inch x 5 inch biar nanti pas buat 4 foto.. ngerti kan yah ? kalo gak ngerti silahkan konsultasi ke Ki Joko Bodo .. hehehe..

sekarang aplikasikan crop tool tadi ke dalam gambar.. Drag ujung kanan atas gambar ke bawah kiri gambar .. Crop udah sesuai ukuran 4 inch x 5 inch dan 72 pixel

sekarang masukan gambar kedalam dokumen baru tadi.. dengan cara men drag ( klik > tahan > geser ) .. kalo masih ada yang nanya juga tentang DRAG.. duuhh.. kalo kata Kak Rhoma itu namanya Ter … La… Lu .. hehehe.. soalnya anak saya yang masih 7 tahun aja udah ngerti.. :D..
TIPS : cara menghafal drag .. setiap mau tidur ucapkan klik > tahan > geser sebanyak 5 kali.. hehehe..

Perlakukan setiap foto sama.. supaya tidak sirik-sirikan..Crop foto yang lain lalu drag ke dalam dokumen baru.
Atur gambar sehingga berjejer ke bawah…

sekarang kita beri border setiap foto nya..
Klik kanan layer 1 > blending option , lalu pilih stroke

kalo udah sesuai pilih Ok.. oia.. warna nya bebas yah..
supaya blending layer 1 sama dengan layer yang lain.. kita copy paste aja layer style nya..
Klik kanan layer 1 > copy layer style

Aplikasikan ke layer 2.. Klik kanan layer 2 > paste layer style
begitu selanjut nya sampe ke empat foto memiliki border yang sama

Sekarang kita memiliki 4 layer / 4 foto dengan efek yang sama..

Gabungkan semua layer dengan menekan CTRL + E dimulai dari yang paling atas..

Sekarang tinggal layer background yang isinya gambar hasil Merger / gabung..
Buat dokumen baru dengan ukuran 15 x 20 Inch dan 72 Pixel

Drag foto yang tadi di edit ke dalam dokumen baru..

Atur sehingga berada ditengah..

Supaya fotonya jadi bergelombang, Klik Filter > Distort > Shear

Ini hasil pembengkokan ..

Sekarang putar gambar nya dengan move tool atau Klik Edit > transform > rotate

supaya keliatan realistis..kita beri bayangan ..
Buat layer baru di bawah layer 1 dan diatas layer background dan di atas Buat bayangan dengan brush tool warna hitam,

Kurangi opacity nya menjadi 50%

Supaya makin seru dan realistik.. kita beri highlight putih di foto nya.
Buat layer baru di paling atas.. Klik layer > new layer.
gunakan Brush warna putih untuk menghighlight bagian foto yang kira-kira perlu aja..

Ubah opacity nya jadi 75 %

masih keliatan brush putih nya di luar foto .. supaya gak keliatan kita join layer highlight (brush putih) dengan foto..
caranya..
Sambil menekan tombol ALT di keyboard , sorot cursor mouse ke garis diantara layer highlight brush putih dan layer foto sampe cursor mouse nya keliatan gambar dua bulatan.. lalu Klik..

Hasilnya :

Gampang kan ?
Selamat mencobaaa… !!







ini penampakan dokumen baru nya :

Buka dokumen foto yang mau di pake.. saya pake foto Krisdayanti ..

Pilih salah satu foto Krisdayanti atau foto yang mau dipake lalu crop ukuran 4 inch x 5 inch.. untuk lebih jelasnya liat gambar aja deh yah..
ukuran dokumen kan 4 inch x 20 inch.. saya crop 4 inch x 5 inch biar nanti pas buat 4 foto.. ngerti kan yah ? kalo gak ngerti silahkan konsultasi ke Ki Joko Bodo .. hehehe..

sekarang aplikasikan crop tool tadi ke dalam gambar.. Drag ujung kanan atas gambar ke bawah kiri gambar .. Crop udah sesuai ukuran 4 inch x 5 inch dan 72 pixel

sekarang masukan gambar kedalam dokumen baru tadi.. dengan cara men drag ( klik > tahan > geser ) .. kalo masih ada yang nanya juga tentang DRAG.. duuhh.. kalo kata Kak Rhoma itu namanya Ter … La… Lu .. hehehe.. soalnya anak saya yang masih 7 tahun aja udah ngerti.. :D..
TIPS : cara menghafal drag .. setiap mau tidur ucapkan klik > tahan > geser sebanyak 5 kali.. hehehe..

Perlakukan setiap foto sama.. supaya tidak sirik-sirikan..Crop foto yang lain lalu drag ke dalam dokumen baru.
Atur gambar sehingga berjejer ke bawah…

sekarang kita beri border setiap foto nya..
Klik kanan layer 1 > blending option , lalu pilih stroke

kalo udah sesuai pilih Ok.. oia.. warna nya bebas yah..
supaya blending layer 1 sama dengan layer yang lain.. kita copy paste aja layer style nya..
Klik kanan layer 1 > copy layer style

Aplikasikan ke layer 2.. Klik kanan layer 2 > paste layer style
begitu selanjut nya sampe ke empat foto memiliki border yang sama

Sekarang kita memiliki 4 layer / 4 foto dengan efek yang sama..

Gabungkan semua layer dengan menekan CTRL + E dimulai dari yang paling atas..

Sekarang tinggal layer background yang isinya gambar hasil Merger / gabung..
Buat dokumen baru dengan ukuran 15 x 20 Inch dan 72 Pixel

Drag foto yang tadi di edit ke dalam dokumen baru..

Atur sehingga berada ditengah..

Supaya fotonya jadi bergelombang, Klik Filter > Distort > Shear

Ini hasil pembengkokan ..

Sekarang putar gambar nya dengan move tool atau Klik Edit > transform > rotate

supaya keliatan realistis..kita beri bayangan ..
Buat layer baru di bawah layer 1 dan diatas layer background dan di atas Buat bayangan dengan brush tool warna hitam,

Kurangi opacity nya menjadi 50%

Supaya makin seru dan realistik.. kita beri highlight putih di foto nya.
Buat layer baru di paling atas.. Klik layer > new layer.
gunakan Brush warna putih untuk menghighlight bagian foto yang kira-kira perlu aja..

Ubah opacity nya jadi 75 %

masih keliatan brush putih nya di luar foto .. supaya gak keliatan kita join layer highlight (brush putih) dengan foto..
caranya..
Sambil menekan tombol ALT di keyboard , sorot cursor mouse ke garis diantara layer highlight brush putih dan layer foto sampe cursor mouse nya keliatan gambar dua bulatan.. lalu Klik..

Hasilnya :

Gampang kan ?
Selamat mencobaaa… !!



0 komentar:

Followers

Copyright © 2013 Ilmu-komputer. Bloggerized byOzynetwork converted by BloggerTheme9
Blogger template. Proudly Powered by Blogger.
back to top