FOTO SAMPUL

Welcome to WordPress. This is your first post. Edit or delete it, then start blogging!Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, ...

Category name clash

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. ...

Test with enclosures

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Block quotes

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

Contributor post, approved

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

TEKA TEKI ALBERT EINSTEIN

Posted by Unknown - - 0 komentar

Pertanyaan Teka-teki Albert Einstein:
  1. Ada lima buah rumah, masing-masing memiliki warna berbeda. Setiap rumah dihuni satu orang pria dengan kebangsaaan yang berbeda-beda pula.
  2. Setiap penghuni rumah menyukai jenis minuman tertentu, merokok satu merk rokok tertentu dan memelihara satu jenis hewan tertentu.
  3. Tak satupun dari kelima orang itu yang minum-minuman yang sama, merokok satu merk rokok yang sama, dan memelihara hewan yang sama seperti penghuni yang lain.
Pertanyaan: Siapakah yang memelihara IKAN?

Petunjuk:
  1. Orang Inggris tinggal di dalam rumah berwarna merah.
  2. Orang Swedia memelihara anjing.
  3. Orang Denmark senang minum teh.
  4. Rumah berwarna hijau terletak tepat di sebelah kiri rumah berwarna putih.
  5. Penghuni rumah berwarna hijau senang minum kopi.
  6. Orang yang merokok PallMall memelihara burung.
  7. Penghuni rumah yang terletak ditengah-tengah senang minum susu.
  8. Penghuni rumah berwarna kuning merokok Dunhill.
  9. Orang Norwegia tinggal di rumah paling pertama.
  10. Orang yang merokok Marlboro tinggal di sebelah orang yang memelihara kucing.
  11. Orang yang memelihara kuda tinggal di sebelah orang yang merokok Dunhill.
  12. Orang yang merokok Winfield senang minum bir.
  13. Di sebelah rumah berwarna biru tinggal orang Norwegia.
  14. Orang Jerman merokok Rothmans.
  15. Orang yang merokok Marlboro bertetangga dengan orang yang minum air.

einstein berendapat bahwa 98% penduduk di dunia tidak dapat menjawabnya, hanya 2 % yang dapat menjawabnya. Jika Anda termasuk kategori orang yang disebut 2 PERSEN itu. Maka, Anda akan mencobanya. Silahkan?
[ Read More ]

Latihan_60_46110021

Posted by Unknown - - 0 komentar

FORM LATIHAN


Name : Latihan_60_46110021
Text : Latihan_60_46110021
Object
Properti
2 label
Text :   - No. Transaksi
-   Nama Kasir
2 text box
Name: - NT_46110021
             NK_46110021
1 button
Name: view_46110021
Text : preview



CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.


D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_60_46110021
    Private Sub View_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110021.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_59_46110021, Application.StartupPath, "data report.accdb")

        Latihan_53_46110021.CRV_46110021.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("Kasir", NK_46110021.Text)

        'Mengatur(Filter)
        Latihan_53_46110021.CRV_46110021.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110021.Text & "'"

        'Menampilkan form 53
        If Latihan_53_46110021.Visible = False Then
            Latihan_53_46110021.Show()
        Else
            Latihan_53_46110021.Activate()
        End If
    End Sub
End Class

LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A.  Pilih tombol start debugging lalu pilih form Latihan_60_46110021, maka jendela Latihan_60_46110021 akan muncul
B.      Isi No.transaksi dan Nama Kasir di text box sesuai dengan keinginan anda lalu tekan preview
[ Read More ]

Latihan_59_46110021

Posted by Unknown - - 0 komentar


LANGKAH MEMBUAT REPORT LATIHAN  59

1.        Klik menu project lalu pilih add new item.

2.        Setelah kotak dialognya muncul, pilih categories “Reporting”, lalu templates “ Crystal Report”. Lalu ubah nama report sesuai dengan keinginan.

3.        Setelah itu akan muncul kotak dialog “Crystal Report Galleries”. Pilih as a blank report. Setelah itu tekan OK.

4.        Pada field explorer, klik kanan pada “ database field”, kemudian pilih database expert.

5.        Setelah muncul kotak dialog “ Database expert”. Pilih create new connection. Lalu pilih OLE DB (ADO).

6.        Kotak dialog OLE DB (ADO) akan muncul. setelah itu, pilih provider “Microsoft office 12.0 access database engine OLE DB Prov. Kemudian tekan tombol next.

7.        Kemudian, isi data source, berdasarkan dimana tempat database tersimpan. Lalu tekan next dan finish.

8.        Kemudian pada dataexpert > create new connetion > OLE DB (ADO) akan muncul bebrapa table. Tapi, pada latihan ini pilih table Barang , table Detailtransaksi, table mastertransaksi lalu tekan tanda > lalu ok

9.        Kemudian pilih seret kode barang, nama barang dari table barang dan notrans, unit, dan harga dari table detailtransaksi  tanggaltransaksi, jenistransaksi dan keterangan dari table mastertransaksi pada section 3 (details).

10.     Untuk membuat field total unit dan total jumlah  pada section 4, klik kanan field unit dan @jumlah   pada section 3 lalu pilih insert > summary. Pada calculate this summary pilih fungsi SUM lalu tekan OK. Setelah field terbuat seret pada section 4
11.        Buatlah text latihan 59, PT.X,  Rincian Transaksi dengan menggunakan text objext ada toolbox. Jika ingin membuat garis gunakan line object. pada field explore >parameterfield pilih new dan beri nama kasir


[ Read More ]

Latihan_58_46110021

Posted by Unknown - - 0 komentar

FORM LATIHAN


Name : Latihan_58_46110021
Text : Latihan_58_46110021
Object
Properti
3label
Text :   - Rincian Transaksi (Latihan 50) berdasarkan Tanggal
-    Dari Tanggal
-    Sampai Tanggal
2 datetimepicker
Name: DTP1_46110021
           DTP2_46110021
1 button
Name: view_46110021
Text : Preview



CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.


D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.

Public Class Latihan_58_46110021
    Private Sub View_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110021.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110021, Application.StartupPath, "data report.accdb")

        Latihan_53_46110021.CRV_46110021.ReportSource = Laporan
        'Mengatur(Filter)       
        Latihan_53_46110021.CRV_46110021.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi})>=#" & Format(DTP1_46110021.Value.Month & "/" & DTP1_46110021.Value.Day & "/" & DTP1_46110021.Value.Year & "#" & "And datevalue({mastertransaksi.tanggaltransaksi})<=#" & DTP2_46110021.Value.Month & "/" & DTP2_46110021.Value.Day & "/" & DTP2_46110021.Value.Year & "#")

        'Menampilkan form 53
        If Latihan_53_46110021.Visible = False Then
            Latihan_53_46110021.Show()
        Else
            Latihan_53_46110021.Activate()
        End If
    End Sub
End Class

LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A.  Pilih tombol start debugging lalu pilih form Latihan_58_46110021, maka jendela Latihan_58_46110021 akan muncul
B.      Isi tanggal sesuai dengan perintah di datetimepicker sesuai dengan keinginan anda lalu tekan preview
[ Read More ]

Latihan_57_46110021

Posted by Unknown - - 1 komentar

FORM LATIHAN


Name : Latihan_57_46110021
Text : Latihan_57_46110021
Object
Properti
2 label
Text :   - Rincian Transaksi (Latihan 50) berdasarkan Harga
-    Masukkan Harga Minimum yang akan di Preview
1 text box
Name: - isi_46110021
1 button
Name: view_46110021
Text : preview



CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.


D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.

Public Class Latihan_57_46110021
    Private Sub View_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110021.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110021, Application.StartupPath, "data report.accdb")

        Latihan_53_46110021.CRV_46110021.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110021.CRV_46110021.SelectionFormula = "{detailtransaksi.harga} >=" & isi_46110021.Text

        'Menampilkan form 53
        If Latihan_53_46110021.Visible = False Then
            Latihan_53_46110021.Show()
        Else
            Latihan_53_46110021.Activate()
        End If
    End Sub
End Class

LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A.  Pilih tombol start debugging lalu pilih form Latihan_57_46110021, maka jendela Latihan_57_46110021 akan muncul
B.      Isi harga minimum di text box sesuai dengan keinginan anda lalu tekan preview
[ Read More ]

Latihan_56_46110021

Posted by Unknown - - 0 komentar

FORM LATIHAN

Name : Latihan_56_46110021
Text : Latihan_56_46110021
Object
Properti
2 label
Text :   - Rincian Transaksi (Latihan 50) berdasarkan Kode Barang
-    Masukkan Kode Barang yang akan di preview
1 text box
Name: - isi_46110021
1 button
Name: view_46110021
Text : preview



CARA MEMBUAT FORM

A.      Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…

 B.       Ubah nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C.       Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.


D.      Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.

Private Sub View_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110021.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim botto As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = botto.AturDatabase(New Latihan_50_46110021, Application.StartupPath, "data report.accdb")

        Latihan_53_46110021.CRV_46110021.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_46110021.CRV_46110021.SelectionFormula = "{barang.kodebarang} = '" & isi_46110021.Text & "'"

        'Menampilkan form 53
        If Latihan_53_46110021.Visible = False Then
            Latihan_53_46110021.Show()
        Else
            Latihan_53_46110021.Activate()
        End If
    End Sub


Script unik
  
    'Mengatur(Filter)
        Latihan_53_46110021.CRV_46110021.SelectionFormula = "{barang.kodebarang} = '" & isi_46110021.Text & "'"



LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A.  Pilih tombol start debugging lalu pilih form Latihan_56_46110021, maka jendela Latihan_56_46110021 akan muncul
B.      Isi kode barang di text box sesuai dengan keinginan anda lalu tekan pre
[ Read More ]