Selasa, 30 Oktober 2012

Hari ini saya diskusi tentang alur program parkir bersama team analisa dan desain database. Hari ini diulas alur , transaksi dan macam-macam tentang program parkir. Berhasil membuat rumus untuk biaya akhir parkir dengan fitur yang fleksibel. Tugas untuk besok adalah testing rumus lewat microsoft excel. 

Senin, 29 Oktober 2012

Hari Senin ini saya baru saja masuk prakerin setelah 2 hari tidak masuk prakerin. Hari ini saya diberitahu oleh teman – teman tentang tugas yang diberikan oleh Pak Chandra untuk membuat project tempat parkir.

Hari Kamis tanggal 25 Oktober 2012 ternyata diskusi bersama Pak Chandra tentang koordinasi teamnya. Ini hasil diskusi kemarin :

Struktur :

Koordinator        : Desi Anggraini

Analisis sistem    : Digna*, Bayu, Rosiana

Database Desainer  : Alaudin*, Digna

User interface     : Alfian*, Bangkit

Programmer         : Semua (Bangkit*)

Testing            : Rosiana*, Alaudin

Dokumentator       : Bayu*, Haris, Digna, Bangkit

Installer          : Alfian*, Bangkit

Technical Support : Haris

Hari ini juga saya mengejar ketinggalan untuk observasi ke Batos. 

Jumat, 26 Oktober 2012

Hari Raya Idul Adha

Kamis, 25 Oktober 2012

Ijin dispensasi kompetisi wushu sansa Porkot Kota Batu 

Rabu, 24 Oktober 2012

Ijin dispensasi kompetisi wushu sansa Porkot Kota Batu 

Selasa, 23 Oktober 2012

Belajar Mandiri 

Senin, 22 Oktober 2012

Hari ini saya melanjutkan perpustakaan, dan browsing beberapa artikel

Jumat, 19 Oktober 2012

Hari Jumat ini saya kembali mengerjakan project perpustakaan. 

Tab dalam Tampilan Crystal Report (Formula)

Selamat pagi guys :)

Hari ini saya berkesampatan untuk memosting artikel tutorial untuk menambahkan tab lewat formula di Crystal Report 8.5.

Berikut langkah-langkahnya :

1. Buka crystal report 8.5

Kamis, 18 Oktober 2012

:( Hari ini saya memperbaiki blog dan mosting tentang artikel tutorial

Cara Menyeting Tampilan di Crystal Report 8.5

Pagi \(´⌣`)/
Hari ini saya berkesempatan untuk memosting artikel tentang bagaimana menyeting tampilan di crystal report 8.5..

1.  Saya buka notepad yang berformat ttx.
Lalu saya ubah dengan nama kolom yang sesuai dengan database dan type data tanpa mengubah spacenya.

2. buka crystal report 8.5 

Rabu, 17 Oktober 2012

Hari ini saya berhasil menyelesaikan auto number askes dan print dengan menggunakan formula (space). 

16 Oktober 2012

Selasa ini saya diajarkan oleh Mas Yondy alur dari program saya “Perpustakaan”. Sebelumnya saya bertanya apakah boleh dalam suatu tabel tidak diberi primary key mengantisipasi adanya data yang sama di 1 kolom (supaya tetap bisa run tanpa ada error primary). Setelah dijelaskan oleh Mas Yondy primary key adalah solusi dari pembeda data di dalam suatu database. Supaya mudah untuk di deteksi. Sorenya di chek penambahan crystal report memakai file ttx. Tugas hari ini menambahkan kolom level di database. Gunanya untuk membuat tampilan bertingkat di crystal report. Kembali lagi menggunakan formula dengan file ttx.

Contoh :

15 Oktober 2012

IJIN tidak masuk

IJIN tidak masuk

IJIN tidak masuk

IJIN tidak masuk

12 Oktober 2012

Hari ini saya melanjutkan tugas program teman saya bertakjub perpustakaan :D
Sampai saat ini masih  belum tuntas karena saya tunda tunda :( Planning saya minggu depan sudah siap digunakan .

11 Oktober 2012

Hari ini ada tugas yang diberikan oleh Mas Yondy lagi untuk perbaikan auto number yang kemarin .

10 Oktober 2012

Hari ini saya menyelesaikan auto number function di project input data kelas terapi saya. Ingin tahu functionnya ? auto number function <-- Klik

Auto Number

Hari ini saya mengerjakan function autonumber askes.
Gambarnya

Ketika saya ketikkan 1 di textbox nomor induk, dan dienter akan keluar di textbox ID akan terisi ID selanjutnya. 

Private Sub an()

Dim Urut As Integer, titik As String, id As String

            Dim Hitung As String, jum As String, tmbhtitik As String

If rs.State Then rs.Close

eksekusiSQL = "select Count(id) as id from terapi1 where induk = '" & txtinduk.Text & "'"

rs.Open eksekusiSQL, cn, adOpenKeyset, adLockOptimistic

'Set rs = cn.Execute

                Urut = txtinduk.Text

                titik = "."

                

    With rs

        If rs.EOF Then

        Else

            Hitung = rs.Fields(0)

            jum = Hitung + 1

            tmbhtitik = txtinduk + titik

            id = tmbhtitik + jum

            txtid.Text = id

        txtterapi.SetFocus

        If txtinduk.Text = "0" Then

            Hitung = (rs.Fields!id)

            id = (Hitung)

            txtid = id

                txtterapi.SetFocus

        End If

        End If

        

    End With

End Sub

Lalu jangan lupa: 

Private Sub txtinduk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If rs.State Then rs.Close

eksekusiSQL = "select induk,id,kls_terapi, hal from terapi1 " & _

    " where id = '" & txtinduk.Text & "'"

rs.Open eksekusiSQL, cn, adOpenKeyset, adLockOptimistic

If Not rs.EOF Then

    txtinduk = rs.Fields!id

Call an

Else

If txtinduk.Text <> 0 Then

txtid.Text = txtinduk.Text

txtinduk.Text = 0

End If

    'MsgBox "Maaf nomor induk tidak ada dalam database!"

End If

End If

If Not ((KeyAscii >= 48) And (KeyAscii <= 57) Or KeyAscii = 8) Then

    KeyAscii = 0

End If

End Sub

Program Perpustakaan Made by Me

Sore : )

Kali ini saya berkesampatan untuk mosting hasil program yang saya buat. Sebenernya program ini adalah program utusan teman saya yang diserahkan kepada saya. Pertama saya membuat database di SQLserver express 2008..
Database : perpustakaan

Tabel :

·         Useer (dinamakan useer *double [e] karena di dalam sql “user” itu sudah mengandung makna)

09 Oktober 2012

Sekian lama di beri tugas membuat function auto number, akhirnya hari ini










D I   TA G I H ~

Karena saya kebungungan saya pergi ke sekolah untuk meminta bantuan dari guru produktif saya. Tapi hanya singkat saja. -__- . Akhirnya tugasnya tidak selesai hari ini : ( Masalahnya ada di koneksi saya yang menggunakan koneksi diluar form. Tetapi function hasil diskusi teman saya memakai koneksi di dalam form. Saya tidak bisa menyesuaikan. Lanjut besook >>>>

08 Oktober 2012

Senin ini saya tetap saja melanjutkan projrct perpustakaan saya.

05 Oktober 2012

Hari ini saya melanjutkan program perpustakaan saya ..
Saya masih kesulitan di perintah error primary key. Dulu ketika project askes saya perintah GoTo on Error tidak mengacu pada error primary key tapi pada error yang lain. Kata Mas.Yondy error tidak hanya mengacu pada duplicat primary key. Jadi lebih baik tidak menggunakan GoTo on Error.

03 September 2012

Rabu 3 September 2012 Saya browsing tentang bagaimana membuat function untuk mengenrate string ke integer.

02 Oktober 2012

Hari ini saya melanjutkan kembali project yang kemarin.. Mungkin besok saya posting tutorialnya :)

01 Oktober 2012

Happy New Moon ! Hari ini saya kembali mengerjakan project perpustakaan (desain)

28 September 2012

Hari ini saya mengerjakan project perpustakaan untuk membantu teman saya yang prakerin di tempat lain.