Wajah Baru rand Cikarang City Akhir Tahun 2009
[info]ahmad_daffa

Ini ada lah gambar yang diambil oleh teman kita : (
http://febriharsanto.wordpress.com)



Brosur harga grand cikarang city update agustus 2009 adalah sebagai berikut






Sms gratis via Internet
[info]ahmad_daffa
Ini ada sms gratis via internet.
Bisa diperlukan jika memang kepepet tidak punya pulsa.
nasraul.blogspot.com/2009/04/sms-gratis-fren-indosat-esia-im3.html
atau
203.130.232.83/indexs.php


Buat file pdf banyak halaman (database)
[info]ahmad_daffa
Berikut skrip phpnya:

<?php
require('fpdf/fpdf.php');

class PDF extends FPDF
{
var $col=0;

//Page header
function Header()
{
    //Logo
    //$this->Image('logo_pb.png',10,8,33);
    //Arial bold 15
    $this->SetFont('Arial','B',15);
    //Move to the right
    $this->Cell(80);
    //Title
    //$this->Cell(30,10,'Title',1,0,'C');
    //Line break
    $this->Ln(20);
}

//Page footer
function Footer()
{
    //Position at 1.5 cm from bottom
    $this->SetY(-15);
    //Arial italic 8
    $this->SetFont('Arial','I',8);
    //Page number
    $this->Cell(0,10,'Page '.$this->PageNo().'/{nb}',0,0,'C');
}



function SetCol($col)
{
    //Move position to a column
    $this->col=$col;
    $x=10+$col*65;
    $this->SetLeftMargin($x);
    $this->SetX($x);
}


}

// Connect to the db.
//require_once ('./includes/dbconn.php');
mysql_connect("localhost","root","mysql");
mysql_select_db("wisuda");

$sql="select nama, gelar, tempat, tlbuku, nrp, alamatbuku, lulusbuku, predikatbuku, judulskripsibuku, jurusan, foto, nrptahun status from biomhs WHERE status ='1' and jurusan = 'S1 Manajemen'  ORDER BY nrptahun ASC "; //ORDER BY `id` DESC LIMIT 100
$qry=mysql_query($sql) or die (mysql_error());

$pdf=new PDF('L','mm','A4');
$pdf->Open();
//$pdf->SetAutoPageBreak(false);
$pdf->AddPage();
$pdf->AliasNbPages();


$pdf->SetFont('Times','',8);
$pdf->SetY(4);
$pdf->SetX(4);

    while($row = mysql_fetch_array($qry))
    {
        if ($i == 5)
        {

            $pdf->SetAutoPageBreak(false);
            $pdf->AddPage();
            $pdf->AliasNbPages();
            $pdf->SetY(4);
            $pdf->SetX(4);
            //$y_axis = $y_axis + $row_height;
            $i=0;

        }
       
        //function Cell($w,$h=0,$txt='',$border=0,$ln=0,$align='',$fill=0,$link='')
        $kolom1 = 50;
        $kolom2 = 25;
        $kolom3 = 3;
        $kolom4 = 90;
        $tinggi1 = 8;
        $tinggi2 = 2.8;
        $tinggi3 = 1;
        $tinggi4 = 8;


        $pdf->Cell($kolom1,$tinggi1,' ',0,0,'C');
        $pdf->Cell($kolom2,$tinggi1,' ',0,0,'C');
       
        $pdf->Cell($kolom3,$tinggi1,' ',0,0,'C');
        $pdf->SetFont('Times','B',9);
        $pdf->Cell($kolom4,$tinggi1,$row['nama'].$row['gelar'],0,0,'C');
        $pdf->Ln();
       
        $i++;
       

    }

$pdf->Output();


Keterangan:
1. Tentunya database telah dibuat:
(select nama, gelar, tempat, tlbuku, nrp, alamatbuku, lulusbuku, predikatbuku, judulskripsibuku, jurusan, foto, nrptahun status from biomhs WHERE status ='1' and jurusan = 'S1 Manajemen'  ORDER BY nrptahun)
2. file pendukung pdf telah ada.
(require('fpdf/fpdf.php');)


Ngaji Rabuan
[info]ahmad_daffa
Assalamu'alaikum Warohmatullahi Wabarokatuh.

Ada 3 hal kriteria sehingga orang bisa disebut baik.
1. Sudahkah ada melakukan perjalanan selama 1 hari bersamanya
2. Apakah anda tetangganya
3. Apakah dia dapat menyampaikan amanah
Barulah dia dapat dikatakan baik.

5 Hal yang dilakukan di kuburan
1. Datang dengan niat berziarah yang benar
2. Mengucap salam kepada ahli kubur ...
3. Mendoakan ahli kubur ... (lirih, tidak keras / tidak berbisik)
4. Membersihkan kuburan
5. Memberi sedekah kepada petugas kuburan
Yang tidak boleh dilakukan di kuburan
1. Membaca mushaf (Al'Quran) (tanpa mushaf dan hanya sepintas membaca dalam hati tidak mengapa)
2. Sholat dikuburan

Mudah-mudahan informasi ini bermanfaat. Jika salah dan ada sumber lain yang membangun saya terima.
(Sumber informasi : kajian Rabu Ubaya - pendengar)

Mengatur Keuangan : Pengeluaran Harian
[info]ahmad_daffa
Bagaimana mengatur keuangan yang baik ???

Banyak buku yang membahas tentang itu, namun banyak kendala yang aku hadapi sehingga berat sekali membaca buku, meluangkan waktu untuk membaca, mencari artikel dan lain-lain. (Ya... rasa malas mungkin yang merajai).

Namun rasa keinginan yang besar untuk dapat mengatur keuangan memang ada.
Sehingga aku mencoba mencatat segala pengeluaran harianku.
Dari pengeluarn kecil seperti parkir, belanja, jajan hingga pengeluarn besar seperti servis, beras, transfer, dan lain-lain.

Intinya ingin aku mengetahui seberapa penting barang yang aku beli dan seberapa butuh barang yang aku beli.
Sehingga perkembangan selanjutnya barang yang aku beli bisa dikategorikan.
Misalnya kategori
1. masak/belanja
2. jajan
3. rekening listrik air
4. alat mandi & cuci,
5. susu, bubur dll.

Kategori ini menyulitkan dan banyak kategori yang ada.
Dan sering kali kesulitan mengelompokkan kategori yang mana.
Misalnya untuk parkir ? tembel ban dll.

Pernah juga dengan kategori yang ada selama sebulan, aku buat grafknya tujuannya supaya lebih jelas lagi pengeluaran mana yang besar. Namun hal tersebut ternyata setelah beberapa lama grafik itu tidak berguna karena tidak bisa mengatur dan mengkontrol pengeluaran harianku.

Dan kategori-kategori diatas hanya dapat menampilkan pengeluaran harian tanpa dapat mengontrol pengeluaran harian.
Pengenya sih aku ada sistem warning (peringatan) bahwa gaji pada tanggal ini sisa segini dan pengeluaran telah segini.
Itu yang aku harapkan.
Dan pengenya juga bisa tahu hal itu tanpa kesulitan menjumlah angka di buku harian atau menyalakan komputer dan membuat grafiknya atau jumlahnya.

Mungkin dari sobat pembaca dapat memberikan solusi yang tepat ???

Setelah beberapa waktu, terpikirkan aku ada cara lain untuk mengatur keuangan dan mengkontol keuangan yaitu membagi berdasarkan 4 besar, yaitu:
1. Pendapatan bersih
     pendapatan yang telah dikurangi dengan estimasi kebutuhan sehari-hari untuk sekali beli (belanja rutin harian)
2. Pengeluaran harian
    berisi lembaran angka pengeluaran harian total dari pertama gajian; pengeluaran 0 (nol) hingga tanggal tua pengeluaran (hampir sama dengan gaji bersih / sama dengan gaji bersih / minus; melebihi gaji bersih)
3. Pegeluaran sekali beli (belanja rutin harian)
    misalnya: beras 50 kg, telur 1 kg, minyak goreng 10 kg, bensin Rp. 150.000,- transfer Rp.355.000,-, susu dan bubur Rp.70.000,-, rekenign air dan listrik Rp.100.000,-, servis spdmtr Rp.150.000,-,  alat mandi,cuci,diterjen,shampo, odol Rp. 150.000,-, bedak, m.telon Rp. 50.000,-, pulsa Rp.20.000,- ruhani Rp. 20.000,- Total Rp. ....,-
4. Tanggal hari pengeluaran berjalan
    urutan angka dari 1 sampai dengan 31 sesuai dengan tanggal pengeluaran (urutan ini juga merupakan urutan pengeluaran belanja harian masak sehingga dikali dengan Rp.10.000,-)

Keempat kategori besar ini dibuat dilembaran-lembaran sehingga jika telah terpenuhi lembarannya dibalik ke belakang sehingga muncul lembaran yang belum terpenuhi termasuk di kategori ke 2 pengeluaran harian berisi lembaran bertulisa angka pengeluaran. semakin banyak pengeluaran maka semakin banyak lembaran yang dilipat kebelakang.

Gambar Kontrol Pengeluaran di awal bulan


Gambar Kontrol Pengeluaran di akhir bulan


Lembaran pengeluaran berlawanan dengan lembaran gaji bersih. Semakin banyak pengeluaran maka semakin sedikit gaji bersih yang tersisa.

Dan hal tersebut diatas sangat efektif mengkontrol pengeluaran dengan membatasi dari awal pengeluaran dan gaji bersih. Namun untuk pencatatan harian tetap diperlukan sebagai pencatatan data pengeluaran yang terjadi (diluar pengeluaran rutin yang tercatat). Juga sebagai data inventaris barang atas pengeluaran pembelian barang.

Sekian informasi dari aku, semoga bermanfaat bagi yang membutuhkan. bagi yang kurang jelas boleh bertanya.


Aplikasi database Visual Basic
[info]ahmad_daffa


Cara kerja software ini adalah:

Jika database berubah otomatis data yang ditampilkan oleh program visual basic berubah.

Catatan:
Program ini digunakan oleh mesin AOI (Auto Optical Inspection) untuk mengecek tebal tipisnya solderan pada board PCB di PT PANASONIC.
Mesin AOI mendeteksi dengan sinar optiknya lalu memberi nilai pada database dan tersimpan dalam programnya.
Program ini menampilkan datanya secara langsung tanpa membuka data pada mesin AOI karena di mesin AOI tidak disertakan data langsung yang bisa diamati.


Database Access : $VIS$TMP.mdb

Table :
1. BLOCK_T
2. BOARD      :
    Fields : PRODUCT_N | PRODUCT_NUMBER | VERSION | REVISION | DATE | MEMO1 | MEMO2 | MEMO3 | BEGSTEP | ENDSTEP | SOLDERS

3. CONFIG
4. COUNTER
5. EDGE
6. FMARK
7. POINT
    Fields : NoID | MACHINE | PRODUCT_NUMBER | SOLDER_POINT

8. SIZE
    Fiels : No | LEFT | TOP

9. STEPS
10. SYSTEM
11. WORK1
12. WORK2

Tabel yang diperlukan adalah tabel yang ada Fielsnya.

QUERIES :
1. BLOCK

    Fields : NO | SKIP | COMMENT | X1 | Y1 | X2 | Y2 | ROTATE | ZOOM | USELOGIC | LOGIC | PASS | FAIL | FALSE | STATUS | FALSE01 |

2. COUNTER_Q
    Fields : ENABLE | PASS | FAIL | TOTAL

Queris adalah tabel bekerjanya data mesin AOI baik tulis maupun baca.

Form : AOI(Form1.frm)

Private Sub Command1_Click()


    
frm_Planing.Show
'AOI.Visible = False
Command1.Enabled = False
End Sub

Private Sub Form_Load()
If App.PrevInstance Then ShowPrevInstance
Call FormTopMost(AOI.hwnd)





'======== Melihat dari database ===========
Data1.DatabaseName = App.Path & "\$VIS$TMP.mdb"
Data1.RecordSource = "BOARD"
Data1.Refresh
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
    AOI.Caption = Data1.Recordset("PRODUCT_NUMBER")
    

    Data1.Recordset.MoveNext
Loop
Data1.Refresh


'======== Melihat dari database ===========
Data2.DatabaseName = App.Path & "\$VIS$TMP.mdb"
Data2.RecordSource = "POINT"
Data2.Refresh
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
   lbl_JMLTTK.Caption = Data2.Recordset("SOLDER_POINT")
   Data2.Recordset.MoveNext
Loop
Data2.Refresh


End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload AOI
Unload frm_EditPLAN
Unload frm_Planing

End Sub

Private Sub Timer1_Timer()
Dim PASS, FALSE01, FASE As Long
Dim RS1, RS2, RS3 As ADODB.Recordset
Dim CONN_PASS As ADODB.Connection
Dim CONN_FALSE01 As ADODB.Connection
Dim CONN_FASE As ADODB.Connection



'CONN_FALSE01 ================
Set CONN_FALSE01 = New ADODB.Connection
CONN_FALSE01.Provider = "Microsoft.Jet.OLEDB.4.0"
CONN_FALSE01.Open App.Path & "\$VIS$TMP.mdb"

'=== Jumlah FALSE01 tertinggi
Set RS2 = New ADODB.Recordset
RS2.Open "Select sum(FALSE01) as MAXF from BLOCK", CONN_FALSE01, adOpenStatic, adLockReadOnly
FALSE01 = RS2!MAXF
If FALSE01 = Null Then
    Label3.Caption = 1
    Else
    Label3.Caption = FALSE01
End If


'CONN_COUNTER ================
Set CONN_TOTAL = New ADODB.Connection
CONN_TOTAL.Provider = "Microsoft.Jet.OLEDB.4.0"
CONN_TOTAL.Open App.Path & "\$VIS$TMP.mdb"

'=== Jumlah COUNTER tertinggi
Set RS3 = New ADODB.Recordset
RS3.Open "Select sum(TOTAL) as MAXT from COUNTER_Q", CONN_TOTAL, adOpenStatic, adLockReadOnly
TOTAL = RS3!MAXT

If Label3.Caption = 0 Then
        Label7.Caption = 0
    Else
        Label7.Caption = Format(Val((Label3.Caption / (lbl_JMLTTK.Caption * 4 * TOTAL)) * 1000000), "####")
End If


End Sub

Private Sub Timer2_Timer()


Dim PASS, FALSE01, FASE As Long
Dim RS1, RS2, RS3 As ADODB.Recordset
Dim CONN_PASS As ADODB.Connection
Dim CONN_FALSE01 As ADODB.Connection
Dim CONN_FASE As ADODB.Connection


    


'CONN_FALSE01 ================
Set CONN_FALSE01 = New ADODB.Connection
CONN_FALSE01.Provider = "Microsoft.Jet.OLEDB.4.0"
CONN_FALSE01.Open App.Path & "\$VIS$TMP.mdb"

'=== Jumlah FALSE01 tertinggi
Set RS2 = New ADODB.Recordset
RS2.Open "Select sum(FALSE01) as MAXF from BLOCK", CONN_FALSE01, adOpenStatic, adLockReadOnly
FALSE01 = RS2!MAXF
If FALSE01 = Null Then
    Label3.Caption = 1
    Else
    Label3.Caption = FALSE01
End If


'CONN_COUNTER ================
Set CONN_TOTAL = New ADODB.Connection
CONN_TOTAL.Provider = "Microsoft.Jet.OLEDB.4.0"
CONN_TOTAL.Open App.Path & "\$VIS$TMP.mdb"

'=== Jumlah COUNTER tertinggi
Set RS3 = New ADODB.Recordset
RS3.Open "Select sum(TOTAL) as MAXT from COUNTER_Q", CONN_TOTAL, adOpenStatic, adLockReadOnly
TOTAL = RS3!MAXT

If Label3.Caption = 0 Then
        Label7.Caption = 0
    Else
        Label7.Caption = Format(Val((Label3.Caption / (lbl_JMLTTK.Caption * 4 * TOTAL)) * 1000000), "####")
End If


End Sub


Private Sub ShowPrevInstance()
Dim OldTitle As String
OldTitle = App.Title

App.Title = "Panasonic - Aplikasi ini akan ditutup!"

ll_WindowHandle = FindWindow("ThunderRT6Main", OldTitle)


If ll_WindowHandle = 0 Then Exit Sub
    ll_WindowHandle = GetWindow(ll_WindowHandle, GW_HWNDPREV)
    
    Call OpenIcon(ll_WindowHandle)
    Call SetForegroundWindow(ll_WindowHandle)
    End

End Sub


Form : frm_EditPLAN(frm_EditPLAN)



Private Sub Command1_Click()


'======= Replace Data Base =====
frm_Planing.Data1.DatabaseName = App.Path & "\$VIS$TMP.mdb"
frm_Planing.Data1.RecordSource = "POINT"
frm_Planing.Data1.Refresh
frm_Planing.Data1.Recordset.Edit
frm_Planing.Data1.Recordset("SOLDER_POINT") = Text1(0).Text
frm_Planing.Data1.Recordset("PRODUCT_NUMBER") = Text1(1).Text
frm_Planing.Data1.Recordset.Update
frm_Planing.Data1.Refresh



'======= Replace Flex Data ====

frm_Planing.Flex.Col = 1
frm_Planing.Flex.Text = Text1(1).Text
frm_Planing.Flex.Col = 2
frm_Planing.Flex.Text = Text1(0).Text

frm_Planing.Label1.Caption = Text1(1).Text
Unload Me
frm_Planing.Show

End Sub



Private Sub Form_Load()
Call FormTopMost(frm_EditPLAN.hwnd)
    frm_EditPLAN.Left = AOI.Left
    frm_Planing.Left = AOI.Left


    frm_EditPLAN.Top = AOI.Top + 900
    frm_Planing.Top = AOI.Top + 900
End Sub

Form : frm_Planning(frm_Planning.frm)


Private Sub Command1_Click()
'======== Kirim ke database ===========
Data2.DatabaseName = App.Path & "\$VIS$TMP.mdb"
Data2.RecordSource = "POINT"
Data2.Refresh
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
    Data2.Recordset.Edit
    Data2.Recordset("SOLDER_POINT") = frm_Planing.Flex.Text
    AOI.lbl_JMLTTK.Caption = Data2.Recordset("SOLDER_POINT")
    
    Data2.Recordset.Update
    Data2.Recordset.MoveNext
Loop
Data2.Refresh

'======= Replace Data Base =====
Data3.DatabaseName = App.Path & "\$VIS$TMP.mdb"
Data3.RecordSource = "SIZE"
Data3.Refresh
Data3.Recordset.Edit
Data3.Recordset("LEFT") = Text1.Text
Data3.Recordset("TOP") = Text2.Text
Data3.Recordset.Update
Data3.Refresh

    AOI.Left = frm_Planing.Text1.Text
    frm_EditPLAN.Left = frm_Planing.Text1.Text
    frm_Planing.Left = frm_Planing.Text1.Text

    AOI.Top = frm_Planing.Text2.Text
    frm_EditPLAN.Top = frm_Planing.Text2.Text + 900
    frm_Planing.Top = frm_Planing.Text2.Text + 900

    Unload Me
    'AOI.Show
    AOI.Command1.Enabled = True


End Sub

Private Sub Flex_Click()
frm_EditPLAN.Label2.Caption = Flex.Row

For XX = 1 To 2
    Flex.Col = XX
    If XX = 1 Then frm_EditPLAN.Text1(1).Text = Flex.Text
    If XX = 2 Then frm_EditPLAN.Text1(0).Text = Flex.Text
Next

frm_EditPLAN.Show
frm_Planing.Visible = False
End Sub

Private Sub Form_Load()
Call FormTopMost(frm_Planing.hwnd)



    
Flex.Cols = 3
Flex.Rows = 1
Flex.Row = 0
Flex.RowHeight(0) = 400
Flex.ForeColor = RGB(0, 0, 255)

For CC = 0 To Flex.Cols - 1
    Flex.Col = CC

    If CC = 0 Then
        Flex.Text = "No"
        Flex.ColWidth(CC) = 350
        Flex.ColAlignment(CC) = 4
    ElseIf CC = 1 Then
        Flex.Text = "Type Ballast"
        Flex.ColWidth(CC) = 1450
        Flex.ColAlignment(CC) = 1
    ElseIf CC = 2 Then
        Flex.Text = "Point"
        Flex.ColWidth(CC) = 700
        Flex.ColAlignment(CC) = 1
    End If
    Flex.FixedAlignment(CC) = 4
    Flex.CellFontBold = True
Next
Flex.ForeColor = RGB(0, 0, 0)


'======== Melihat dari database ===========
Data1.DatabaseName = App.Path & "\$VIS$TMP.mdb"
Data1.RecordSource = "BOARD"
Data1.Refresh
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
    frm_Planing.Caption = "Product : " & Data1.Recordset("PRODUCT_NUMBER")
    Data1.Recordset.MoveNext
Loop
Data1.Refresh


'======== Melihat dari database ===========
Data2.DatabaseName = App.Path & "\$VIS$TMP.mdb"
Data2.RecordSource = " select * from POINT " & _
                     " where MACHINE='AOI'" & _
                     " order by val(NoID)"
Data2.Refresh
If Not Data2.Recordset.EOF Then Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF()
    Flex.AddItem Data2.Recordset("NoID")
    REC = REC + 1
    Flex.Row = REC
    For COLOM = 1 To 2
        Flex.Col = COLOM
        Select Case COLOM
            Case 1
                Flex.ForeColor = vbBlue
                Flex.CellFontBold = True
                Flex.Text = Data2.Recordset("PRODUCT_NUMBER")
                Flex.ColAlignment(COLOM) = 1

            Case 2
                Flex.ForeColor = vbBlue
                Flex.CellFontBold = True
                Flex.Text = Data2.Recordset("SOLDER_POINT")
                Flex.ColAlignment(COLOM) = 4
            End Select
    Next
    Data2.Recordset.MoveNext
Loop
Data2.Refresh

'======== Melihat dari database ===========

Data3.DatabaseName = App.Path & "\$VIS$TMP.mdb"
Data3.RecordSource = "SIZE"
Data3.Refresh
Data3.Recordset.MoveFirst
Do While Not Data3.Recordset.EOF
    Text1.Text = Data3.Recordset("LEFT")
    Text2.Text = Data3.Recordset("TOP")
    Data3.Recordset.MoveNext
Loop
Data3.Refresh



    frm_EditPLAN.Left = AOI.Left
    frm_Planing.Left = AOI.Left
    frm_EditPLAN.Top = AOI.Top + 900
    frm_Planing.Top = AOI.Top + 900
End Sub


Private Sub GurhanButton1_Click()

Unload Me
End Sub


Modul : mdl_CENTER(mdl_CENTER.bas)



Global PASSCALTRON As String
Global LUP_STATUS As Boolean
Global LFORM, TFORM As Integer
Global ALAT, sett, param As String
Global Meas_DIV, Meas_TICKER As Byte
Global ALERT As Boolean
Global REPORT_DATA As String
Global CCX, BBX As String
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Const EWX_SHUTDOWN As Long = 1

Private Declare Function GetVolumeSerialNumber Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Public XMouse, YMouse As Integer
'===========
Public Const INVALID_HANDLE_VALUE = -1
Public Const MAX_PATH = 260

Public Type FILETIME
     dwLowDateTime As Long
     dwHighDateTime As Long
  End Type

Public Type WIN32_FIND_DATA
   dwFileAttributes As Long
   ftCreationTime As FILETIME
   ftLastAccessTime As FILETIME
   ftLastWriteTime As FILETIME
   nFileSizeHigh As Long
   nFileSizeLow As Long
   dwReserved0 As Long
   dwReserved1 As Long
   cFileName As String * MAX_PATH
   cAlternate As String * 14
End Type

Public Type SECURITY_ATTRIBUTES
     nLength As Long
     lpSecurityDescriptor As Long
     bInheritHandle As Long
End Type

Public Declare Function CreateDirectory Lib "kernel32" _
   Alias "CreateDirectoryA" _
  (ByVal lpPathName As String, _
   lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Public Declare Function CopyFile Lib "kernel32" _
   Alias "CopyFileA" _
  (ByVal lpExistingFileName As String, _
   ByVal lpNewFileName As String, _
   ByVal bFailIfExists As Long) As Long

Public Declare Function FindFirstFile Lib "kernel32" _
   Alias "FindFirstFileA" _
  (ByVal lpFileName As String, _
  lpFindFileData As WIN32_FIND_DATA) As Long

Public Declare Function FindNextFile Lib "kernel32" _
   Alias "FindNextFileA" _
  (ByVal hFindFile As Long, _
   lpFindFileData As WIN32_FIND_DATA) As Long

Public Declare Function FindClose Lib "kernel32" _
      (ByVal hFindFile As Long) As Long
      
Declare Function ShellAbout Lib "shell32" Alias "ShellAboutA" _
                            (ByVal hwnd As Long, _
                            ByVal szApp As String, _
                            ByVal szOtherStuff As String, _
                            ByVal hIcon As Long) As Long
      
Public SA As SECURITY_ATTRIBUTES
'=== ATTRIBUT FORM ===
Private Declare Function DeleteMenu Lib "user32.dll" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwnewlong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
 
Public Const MF_BYCOMMAND = &H0&
Public Const MF_BYPOSITION = &H400&
Public Const SC_ARRANGE = &HF110
Public Const SC_CLOSE = &HF060
Public Const SC_HOTKEY = &HF150
Public Const SC_HSCROLL = &HF080
Public Const SC_KEYMENU = &HF100
Public Const SC_MAXIMIZE = &HF030
Public Const SC_MINIMIZE = &HF020
Public Const SC_MOVE = &HF010
Public Const SC_NEXTWINDOW = &HF040
Public Const SC_PREVWINDOW = &HF050
Public Const SC_RESTORE = &HF120
Public Const SC_SIZE = &HF000
Public Const SC_VSCROLL = &HF070
Public Const SC_TASKLIST = &HF130
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOP = 0
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
Public Const GWL_STYLE = (-16)
 
Public Enum T_WindowStyle
    WS_BORDER = &H800000
    WS_CAPTION = &HC00000
    WS_CHILD = &H40000000
    WS_CHILDWINDOW = (WS_CHILD)
    WS_CLIPCHILDREN = &H2000000
    WS_CLIPSIBLINGS = &H4000000
    WS_DISABLED = &H8000000
    WS_DLGFRAME = &H400000
    WS_EX_ACCEPTFILES = &H10&
    WS_EX_DLGMODALFRAME = &H1&
    WS_EX_NOPARENTNOTIFY = &H4&
    WS_EX_TOPMOST = &H8&
    WS_EX_TRANSPARENT = &H20&
    WS_GROUP = &H20000
    WS_HSCROLL = &H100000
    WS_MAXIMIZE = &H1000000
    WS_MAXIMIZEBOX = &H10000
    WS_MINIMIZE = &H20000000
    WS_MINIMIZEBOX = &H20000
    WS_OVERLAPPED = &H0&
    WS_ICONIC = WS_MINIMIZE
    WS_POPUP = &H80000000
    WS_VISIBLE = &H10000000
    WS_VSCROLL = &H200000
    WS_SYSMENU = &H80000
    WS_TABSTOP = &H10000
    WS_THICKFRAME = &H40000
    WS_TILED = WS_OVERLAPPED
    WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
    WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU)
    WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW
    WS_SIZEBOX = WS_THICKFRAME
End Enum


Public Function VolumeSerialNumber(ByVal RootPath As String) As String
Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim maxlen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim S As String

If GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, maxlen, Flags, Name, NameSize) Then
    S = Format(Hex(Serial), "00000000")
    VolumeSerialNumber = Left(S, 4) + "-" + Right(S, 4)
Else
    VolumeSerialNumber = "0000-0000"
End If
End Function

Public Function rgbCopyFiles(sSourcePath As String, sDestination As String, sFiles As String) As Long

Dim WFD As WIN32_FIND_DATA
Dim r As Long
Dim hFile As Long
Dim bNext As Long
Dim copied As Long
Dim currFile As String
     
   Call CreateDirectory(sDestination, SA)
   hFile = FindFirstFile(sSourcePath & sFiles, WFD)
   If (hFile = INVALID_HANDLE_VALUE) Then
        KOPIFILE = "ERROR"
        Exit Function
   End If
     
   If hFile Then
      Do
         currFile = Left$(WFD.cFileName, InStr(WFD.cFileName, Chr$(0)))
         Call CopyFile(sSourcePath & currFile, sDestination & currFile, False)
         copied = copied + 1
         bNext = FindNextFile(hFile, WFD)
      Loop Until bNext = 0
   End If
   Call FindClose(hFile)
   rgbCopyFiles = copied
End Function

Sub CEK_Keycode(KeyCode As Integer)
If KeyCode = 110 Or KeyCode = 8 Or KeyCode = 190 Then
    DoEvents
Else
    If KeyCode < 48 Or _
       (KeyCode > 57 And KeyCode < 96) Or _
       KeyCode > 105 Then
            MsgBox "NUMERIC value Only !", vbInformation, ""
    End If
End If
End Sub


Public Sub FormTopMost(hwnd As Long)
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE
End Sub
 
Public Sub FormNoTopMost(hwnd As Long)
    SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE
End Sub
 
Public Sub FormTop(hwnd As Long)
    SetWindowPos hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOSIZE + SWP_NOMOVE
End Sub
 
Public Sub RemoveSystemMenu(hwnd As Long, RemoveClose As Boolean)
    Dim hMenu As Long
 
    hMenu = GetSystemMenu(hwnd, False)
    DeleteMenu hMenu, SC_MAXIMIZE, MF_BYCOMMAND
    DeleteMenu hMenu, SC_MINIMIZE, MF_BYCOMMAND
    DeleteMenu hMenu, SC_SIZE, MF_BYCOMMAND
    DeleteMenu hMenu, SC_MOVE, MF_BYCOMMAND
    DeleteMenu hMenu, SC_RESTORE, MF_BYCOMMAND
    DeleteMenu hMenu, SC_NEXTWINDOW, MF_BYCOMMAND
    If RemoveClose Then
        DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND
        DeleteMenu hMenu, 0, MF_BYPOSITION
    End If
End Sub
 
Public Sub RemoveMaxMinButtons(hwnd As Long)
    Dim X As Long
 
    X = GetWindowLong(hwnd, GWL_STYLE)
    X = X And Not WS_MINIMIZEBOX
    X = X And Not WS_MAXIMIZEBOX
    SetWindowLong hwnd, GWL_STYLE, X
End Sub
 
Public Sub AddMaxMinButtons(hwnd As Long)
    Dim X As Long
 
    X = GetWindowLong(hwnd, GWL_STYLE)
    X = X Or WS_MINIMIZEBOX
    X = X Or WS_MAXIMIZEBOX
    SetWindowLong hwnd, GWL_STYLE, X
End Sub
 
Public Sub SetWindowStyle(hwnd As Long, mAttribute As T_WindowStyle, Enable As Boolean)
    Dim X As Long
 
    X = GetWindowLong(hwnd, GWL_STYLE)
    If Enable Then
        X = X Or mAttribute
    Else
        X = X And Not mAttribute
    End If
    SetWindowLong hwnd, GWL_STYLE, X
End Sub


Moduls : mdl_Aplikasi_One(Aplikasi_One.bas)

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function OpenIcon Lib "user32" (ByVal hwnd As Long) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Const GW_HWNDPREV = 3





Informasi Tebaru Grand Cikarang City (19 Mei 2009)
[info]ahmad_daffa
Assalamu'alaikum Wr. Wb.
Berikut informasi terbaru dari seorang teman di blog internet (http://febriharsanto.wordpress.com)

Dari data yang di paparkan tertanggal 27 April 2009 masih berlangsung akad kredit terbaru.
Akad tersebut berlokasi di Bekasi.

Berikut foto-foto yang saya dapat dari saudara febriharsanto.


Dari gambar-gambar di atas. Dapat di simpulkan bahwa pada saat ini masih dilakukan pembangunan WTP. Sedangkan beberapa rumah sudah berdiri (blok DEF).

Saya yang memiliki rumah di blok D, memang cukup lama menantikan realisasi WTP dan pemasangan pipa ke rumah. Mengingat saya mengambil paket perdana dari akhir tahun 2007. Realisasi akad kredit 26 Nopember 2008 (kondisi rumah 80%). Dan sekarang sedang menantikan pemasangan pipa air.

Sekian.
Wassalamu'alaikum Wr. Wb.


Tinggalku di Surabaya
[info]ahmad_daffa
Assalamu'alaikum Warohmatullahi Wabarokatuh

Sekarng aku tinggal dengan abi dan umi di Perumahan Benowo Indah dekat dengan
rumah kakek dan neneku di Aspol Kolombo.

Transport dari Cikarang ke Surabaya:
- dari Perumahan Grand Cikarang City D17 No 21 naik ojek ke depan (Rp.5.000,-)
- lalu dari jalan raya Cikarang Lemahabang naik angkot / metromini ke terminal cikarang (Rp.5.000,-)
- Dari terminal Cikarang naik bis mayasari bakti tujuan senin / kwitang (rp.20.000,-)
- Di perempatan kwitang lampu merah turun oper ojek / bajaj / taxi menuju Stasiun Gambir (Rp.5.000,-)
- Di Stasiun Gambir naik kereta Gumarang / Anggrek (Rp.180.000,-/Rp.270.000,-)

Sampai di Surabaya:
- turun di stasiun pasar turi naik angkot / becak ke arah pasar turi.
- untuk ke rumah kakek dan nenekku bisa naik bis P1 tujuan Perak tapi turun di kolombo.
- untuk ke perumahan Benowo Indah bisa naik angkot BJ arah Benowo lalu dilanjutkan dengan naik becak.

Alamat di Benowo : Perumahan Benowo Indah CT17, Surabaya
Alamat di Perak : Jl. Ikan Kerapu Aspol Kolombo No 21 A, Surabaya



www.eastjava.com/tourism/surabaya/

Tiap liburan akhir tahun abi akan ke cikarang.
Untuk liburan tahun ini dari tanggal 23 Desember 2009 sampai dengan 2 Januari 2010.

Sekian dulu cerita keluargaku dan rumahku di Surabaya

Wasalamu'alaikum Warohmatullahi Wabarokatuh.

Skrip file pdf 2 halaman (database mysql)
[info]ahmad_daffa
<?php
//require('E:\AppServ\www\belajarpdf\fpdf.php');
require('fpdf/fpdf.php');
define('FPDF_FONTPATH','font/');


class PDF extends FPDF
{
//Current column
var $col=0;
//Ordinate of column start
var $y0;

    //Page header
    function Header()
    {
    //Page header
    global $title;

    $this->SetFont('Arial','',8);
    $w=$this->GetStringWidth($title)+6;
    $this->SetX((210-$w)/2);
    $this->SetDrawColor(0,80,180);
    $this->SetFillColor(230,230,0);
    $this->SetTextColor(220,50,50);
    $this->SetLineWidth(1);
    //$this->Cell($w,9,$title,1,1,'C',true);
    $this->Ln(100);
    //Save ordinate
    $this->y0=$this->GetY();
    }

    //Page footer
    function Footer()
    {
    //Page footer
    $this->SetY(-15);
    $this->SetFont('Arial','',8);
    $this->SetTextColor(128);

        //$this->Cell(80,10,$this->PageNo()+132,0,0,'R');
    }

   
    function SetCol($col)
    {
        //Set position at a given column
        $this->col=$col;
        $x=10+$col*65;
        $this->SetLeftMargin($x);
        $this->SetX($x);
    }

    function AcceptPageBreak()
    {
        //Method accepting or not automatic page break
        if($this->col<10)
        {
            //Go to next column
            $this->SetCol($this->col+1);
            //Set ordinate to top
            $this->SetY($this->y0);
            //Keep on page
            return false;
        }
        else
        {
            //Go back to first column
            $this->SetCol(0);
            //Page break
            return true;
        }
    }


}



// Connect to the db.
//require_once ('./includes/dbconn.php');
mysql_connect("localhost","root","mysql");
mysql_select_db("wisuda");

$sql="select nama, gelar, tempat, tlbuku, nrp, alamatbuku, lulusbuku, predikatbuku, judulskripsibuku, jurusan, foto, nrptahun status from biomhs WHERE (status ='1' and jurusan = 'S1 Akuntansi')  and  (nrptahun > '0')  ORDER BY nrptahun ASC LIMIT 5"; //ORDER BY `id` DESC LIMIT 100
$qry=mysql_query($sql) or die (mysql_error());




$pdf=new PDF('L','mm','A4');
$pdf->Open();
//$pdf->SetAutoPageBreak(false);
$pdf->AddPage();
$pdf->AliasNbPages();


$pdf->SetFont('Times','',8);
$pdf->SetY(4);
$pdf->SetX(4);

//$max=5;
//$i=0;
//$j=0;
//$no=0;
//$row_height = 6;
//$y_axis = $y_axis + $row_height;


   
    while($row = mysql_fetch_array($qry))
    {
        if ($i == 5)
        {

            $pdf->SetAutoPageBreak(false);
            $pdf->AddPage();
            $pdf->AliasNbPages();
            $pdf->SetY(4);
            $pdf->SetX(4);
            //$y_axis = $y_axis + $row_height;
            //$i=0;

        }
       
        //function Cell($w,$h=0,$txt='',$border=0,$ln=0,$align='',$fill=0,$link='')
        $kolom1 = 50;
        $kolom2 = 25;
        $kolom3 = 3;
        $kolom4 = 90;
        $tinggi1 = 8;
        $tinggi2 = 2.7;
        $tinggi3 = 1;
        $tinggi4 = 8;


        $pdf->Cell($kolom1,$tinggi1,' ',0,0,'C');
        $pdf->Cell($kolom2,$tinggi1,' ',0,0,'C');
       
        $pdf->Cell($kolom3,$tinggi1,' ',0,0,'C');
        $pdf->SetFont('Times','B',9);
        $pdf->Cell($kolom4,$tinggi1,$row['nama'].$row['gelar'],0,0,'C');
        $pdf->Ln();
       
        $pdf->SetFont('');
        $pdf->SetFont('Times','',8);
        $pdf->Cell($kolom1,$tinggi2,' ',0,0,'C');
        $pdf->Cell($kolom2,$tinggi2,'Tempat / Tgl. Lahir',0,0,'L');
        $pdf->Cell($kolom3,$tinggi2,':',0,0,'L');
        $pdf->Cell($kolom4,$tinggi2,$row['tempat'].", ".$row['tlbuku'],0,0,'L');   
        $pdf->Ln();
       
        $pdf->Cell($kolom1,$tinggi2,' ',0,0,'C');
        $pdf->Cell($kolom2,$tinggi2,'Nomor Pokok',0,0,'L');
        $pdf->Cell($kolom3,$tinggi2,':',0,0,'L');
        $pdf->Cell($kolom4,$tinggi2,$row['nrp'],0,0,'L');
        $pdf->Ln();
       
        $pdf->Cell($kolom1,$tinggi2,' ',0,0,'C');
        $pdf->Cell($kolom2,$tinggi2,'Alamat',0,0,'L');
        $pdf->Cell($kolom3,$tinggi2,':',0,0,'L');
        $pdf->Cell($kolom4,$tinggi2,$row['alamatbuku'],0,0,'L');
        $pdf->Ln();
       
        $pdf->Cell($kolom1,$tinggi2,' ',0,0,'C');
        $pdf->Cell($kolom2,$tinggi2,'Lulus Pada Tanggal',0,0,'L');
        $pdf->Cell($kolom3,$tinggi2,':',0,0,'L');
        $pdf->Cell($kolom4,$tinggi2,$row['lulusbuku'], 0,0,'L');
        $pdf->Ln();
       
        $pdf->Cell($kolom1,$tinggi2,' ',0,0,'C');
        $pdf->Cell($kolom2,$tinggi2,'Predikat',0,0,'L');
        $pdf->Cell($kolom3,$tinggi2,':',0,0,'L');
        $pdf->Cell($kolom4,$tinggi2,$row['predikatbuku'],0,0,'L');
        $pdf->Ln();
       
        $pdf->Cell($kolom1,$tinggi2,' ',0,0,'C');
        $pdf->Cell($kolom2,$tinggi2,'Judul Skripsi / Ta',0,0,'L');
        $pdf->Cell($kolom3,$tinggi2,':',0,0,'L');
        //MultiCell(float w, float h, string txt [, mixed border [, string align [, boolean fill]]])
        $pdf->MultiCell($kolom4,$tinggi2,$row['judulskripsibuku'],0,'J');
        //$pdf->MultiCell($kolom4,$tinggi2,$row['judulskripsi2'],1,'L');
        //Cell(float w [, float h [, string txt [, mixed border [, int ln [, string align [, boolean fill [, mixed link]]]]]]])
        //$pdf->Cell($kolom4,$tinggi2,$row['judulskripsi'],1,1,'L');

        $pdf->Cell($kolom1,$tinggi3,' ',0,0,'R');
        $pdf->Cell($kolom2,$tinggi3,' ',0);
        $pdf->Cell($kolom3,$tinggi3,'',0,0,'C');
        $pdf->Cell($kolom4,$tinggi3,'_________________________________________________________________________________________________________',0,0,'R');
        $pdf->Ln();   
       
        $i++;
       
        if ($j == 5)
        {

            //$pdf->SetAutoPageBreak(false);
            //$pdf->AddPage();
            //$pdf->AliasNbPages();
            //$pdf->SetY($y_axis_initial);
            //$pdf->SetX(10);
            //$y_axis = $y_axis + $row_height;
            $j=0;
        }
       
       
        //$halaman = .$this->PageNo();
        //for ($i = 1; $i <= $halaman; $i++)
        //{
        //    for ($j = 1; $j <= 5; $j++)
        //    {
        //    $pdf->Cell(50,50,$j,0,0,'C');

        //    }
        //}
       


                //$foto = $row['nrp'];
                $foto = $row['nrp'];
                $foto= $foto. "" .".jpg";

               
                $posisifotox = 30;
                $posisifotoy = ($j*34.5)+ 10;
                //$posisifotoy1 = 12;                //(1*30)-10=10
                //$posisifotoy2 = 50;                //(2*30)-10=40
                //$posisifotoy3 = 90;                //3
                //$posisifotoy4 = 110;            //4
                //$posisifotoy5 = 140;            //5

                $pdf->Image($foto,$posisifotox,$posisifotoy,25,25);
                //masalahnya adalah $i*30 foto terus kebawah tidak restart ke atas lagi untuk halaman ke 2
               
                //$pdf->Image($foto,$posisifotox,$posisifotoy1,30,30);
                //$pdf->Image($foto,$posisifotox,$posisifotoy2,30,30);
                //$pdf->Image($foto,$posisifotox,$posisifotoy3,30,30);
                //$pdf->Image($foto,$posisifotox,$posisifotoy4,30,30);
                //$pdf->Image($foto,$posisifotox,$posisifotoy5,30,30);

            $j++;
    }
        //$pdf->MultiCell($kolom3,$tinggi2, "D test multicell line 1\ntest multicell line 2\ntest multicell line 3", 1, 'J', 0, 2);
$pdf->Output();
?>


Database:
-- phpMyAdmin SQL Dump
-- version 2.9.2
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Generation Time: May 18, 2009 at 05:19 PM
-- Server version: 5.0.27
-- PHP Version: 5.2.1
--
-- Database: `wisuda`
--

-- --------------------------------------------------------

--
-- Table structure for table `biomhs`
--

CREATE TABLE `biomhs` (
  `nrp` varchar(20) NOT NULL,
  `nama` varchar(30) NOT NULL,
  `alamat` varchar(50) NOT NULL,
  `ipk` decimal(4,2) NOT NULL,
  `tempat` varchar(20) NOT NULL,
  `tl` date NOT NULL,
  `p` char(1) NOT NULL,
  `judulskripsi` text NOT NULL,
  `lulus` text NOT NULL,
  `tglinput` datetime NOT NULL,
  `oleh` varchar(10) NOT NULL,
  `status` tinyint(4) NOT NULL default '0',
  `foto` varchar(30) NOT NULL,
  `statusbar` tinyint(4) NOT NULL default '0',
  `olehbar` varchar(10) NOT NULL,
  `statusfoto` varchar(2) NOT NULL,
  `gelar` varchar(10) NOT NULL,
  `predikat` varchar(20) NOT NULL,
  `jurusan` varchar(20) NOT NULL,
  `judulskripsibuku` text NOT NULL,
  `tlbuku` text NOT NULL,
  `alamatbuku` text NOT NULL,
  `lulusbuku` text NOT NULL,
  `predikatbuku` text NOT NULL,
  `nrptahun` text,
  PRIMARY KEY  (`nrp`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;


Skrip kalender.php
[info]ahmad_daffa
<?php
    /******************************************************
     Calender 2.22
     Written by Erik Holman at 6 May 2004
     Started at 16:00 and ended at 17:00
     
     CHANGES by Daniele Russolillo, 18 May 2004
       + variables for CSS definition of week days
       + variables for easy translation of week days and months
       + infotitles for previous/following URLS on the calendar
       Personal homepage at http://daniele.nkoni.org  If you like
       the changes have a look at http://www.nkoni.org/ and
       pass it on to help 500 Ugandan AIDS Orphans.

     CHANGES by Erik Holman, 19 May 2004
       + variables for the language file.
       + added possibility to load language files
      
   CHANGES by Erik Holman, 17 June 2004
     + Added possibility to load events from MySQL database
    
   BUG SOLVED by Erik Holman, 24 June 2004
     - Instead of loading one event, all the events will be shown now.

     To look for from Erik Holman changes just FIND e-man within this script...
     To look for from darussol changes just FIND darussol within this script...

     ===================================
     This scripts prints  a calendar  into a table on the
     page.  You can set some variables to get a differend
     layout.

     Visit www.my-php.tk for more free PHP scripts.
    ******************************************************/

    /////////////////////////////////////////////
    //Declare some variables
    //
    $calendar_script          = "kalendar.php"; //The location of this script
    $calendar_language        = "uk";       //The extension of the calendar language file.

    $content_background_color = "#F0F8FE";   //Background color of the column
    $content_font_color       = "#000000";   //The font color
    $content_font_size        = 14;          //Font-size in pixels
    $content_font_style       = "normal";    //Set to italic or normal
    $content_font_weight      = "normal";    //Set to bold or normal

    $today_background_color   = "white";   //Background color of the column
    $today_font_color         = "blue";   //The font color
    $today_font_size          = 14;          //Font-size in pixels
    $today_font_style         = "normal";    //Set to italic or normal
    $today_font_weight        = "bold";      //Set to bold or normal

    $event_background_color   = "#ffeece";   //Background color of the column
    $event_background_color2  = "#EEEEEE";   //Background color of the 2nd column (event popup)
    $event_font_color         = "#000000";   //The font color
    $event_font_size          = 10;          //Font-size in pixels
    $event_font_style         = "normal";    //Set to italic or normal
    $event_font_weight        = "normal";      //Set to bold or normal
  $event_popup_width        = "500";       //Width  of the popup for the events
  $event_popup_height       = "400";       //Height of the popup for the events
   
    $head_background_color    = "#BEE3FD";   //Background color of the column
    $head_font_color          = "black";   //The font color
    $head_font_size           = 14;          //Font-size in pixels
    $head_font_style          = "normal";    //Set to italic or normal
    $head_font_weight         = "normal";      //Set to bold or normal
   
    //darussol: CSS OPTIONS FOR WEEK DAYS
    $days_head_background_color = "#CEE9FE";   //Background color of the column
    $days_head_font_color       = "gray";   //The font color
    $days_head_font_size        = 14;          //Font-size in pixels
    $days_head_font_style       = "normal";    //Set to italic or normal
    $days_head_font_weight      = "normal";      //Set to bold or normal
   
    $table_border             = 0;           //The border of the table
    $table_cellspacing        = 1;           //Cellspacing of the table
    $table_cellpadding        = 10;           //Cellpadding of the table
    $table_width              = '';          //Table width in pixels or %'s
    $table_height             = '';          //Table height in pixels or %'s
   
    $head_link_color          = "green";    //The color of the link for previous/next month
   
    $font_family = "Verdana";
   
    /* 17 June 2004 : Check readme.txt for MySQL code for the database table */

    $events_from_database     = true;        //Set to true if you want to retrieve events
    $database                 = "lapangan";  //Name of the database within the event_table
  $server                   = "localhost"; //Name of the server
  $username                 = "root";  //MySQL username
  $password                 = "mysql";  //MySQL password
  $event_table              = "calendar_events"; //Name of the calendar_events
    //
    /////////////////////////////////////////////
   
    /////////////////////////////////////////////
    //Load the language into usable variables
    //

    //darussol: TRANSLATION (18 May 2004)
    //        : Fill in the names of the days/months in variables
    //e-man   : LOAD TRANSLATION FILE INTO VARIABLES (from darussol)(19 May 2004)
    //        : Put the days/months names from language file into a array   

    $language_file  = "calendar." . $calendar_language;        //Language file into variable
    //$fd             = fopen( $language_file, "r" );             //Open the language file
    //$fd             = fread( $fd, filesize( $language_file ) ); //Read the opened file
    $language_array = explode( "\n" , $fd );                    //Put file info into array

    $dayname   = array_slice($language_array,0,7); //The names of the days

    $monthname = array_slice($language_array,7);   //The rest of the language file are the monthnames
    //
    /////////////////////////////////////////////


    /////////////////////////////////////////////
    //Use the date to build up the calendar. From the Query_string or the current date
    //   
    if( isset( $_GET['date'] ) )
        list($month,$year) = explode("-",$_GET['date']);
    else
    {
        $month = date("m");
        $year  = date("Y");
    }
    //
    /////////////////////////////////////////////

    $date_string = mktime(0,0,0,$month,1,$year); //The date string we need for some info... saves space ^_^

    $day_start = date("w",$date_string);  //The number of the 1st day of the week

    /////////////////////////////////////////////
    //Filter the current $_GET['date'] from the QUERY_STRING
    //
    $QUERY_STRING = ereg_replace("&date=".$month."-".$year,"",$_SERVER['QUERY_STRING']);
    //
    /////////////////////////////////////////////
   

    /////////////////////////////////////////////
    //Calculate the previous/next month/year
    //
    if( $month < 12 )
    {
        $next_month = $month+1;
        $next_date = $next_month."-".$year;
    }
    else
    {
        $next_year = $year+1;
        $next_date = "1-".$next_year;
        $next_month = 1;
    }
    if( $month > 1 )
    {
        $previous_month = $month-1;
        $next_month    = $month+1;
        $previous_date = $previous_month."-".$year;
    }
    else
    {
        $previous_year = $year-1;
        $previous_date = "12-".$previous_year;
        $previous_month = 12;
    }
    //
    /////////////////////////////////////////////

    // darussol: DEFINITION OF THETRANSLATED MONTH+YEAR TO BE USED IN THE TABLE AND INFO-TITLES (18 May 2004)
    // e-man   : USING THE VALUES OF THE PREVIOUS AND NEXT MONTH FOR THE TITLE DAY (19 May 2004);
    $table_caption_prev = $monthname[$previous_month-1] . " " . $year; // previous
    $table_caption      = $monthname[date("n",$date_string)-1] . " " . $month . " " . $year; // current echo date("d F Y", strtotime($row_rs_list['tl'])); ini yang aku edit
  if ($next_month == 13){
    $next_month = 1;
    $year++;
  }
    $table_caption_foll = $monthname[$next_month-1] . " " . $year;   // following
   
    /////////////////////////////////////////////
    //Print the calendar css code
    //
  echo "
        <style type=\"text/css\">
            a.cal_head
            {
                color: " . $head_link_color . ";
            }
            a.cal_head:hover
            {
                text-decoration: none;
            }
            .cal_head
            {
                background-color: " . $head_background_color . ";
                color:            " . $head_font_color . ";
                font-family:      " . $font_family . ";
                font-size:        " . $head_font_size . ";
                font-weight:      " . $head_font_weight . ";
                font-style:       " . $head_font_style . ";
            }
            .cal_days /*darussol*/
            {
                background-color: " . $days_head_background_color . ";
                color:            " . $days_head_font_color . ";
                font-family:      " . $font_family . ";
                font-size:        " . $days_head_font_size . ";
                font-weight:      " . $days_head_font_weight . ";
                font-style:       " . $days_head_font_style . ";
            }
            .cal_content
            {
                background-color: " . $content_background_color . ";
                color:            " . $content_font_color . ";
                font-family:      " . $font_family . ";
                font-size:        " . $content_font_size . ";
                font-weight:      " . $content_font_weight . ";
                font-style:       " . $content_font_style . ";
            }
            .cal_today
            {
                background-color: " . $today_background_color . ";
                color:            " . $today_font_color . ";
                font-family:      " . $font_family . ";
                font-size:        " . $today_font_size . ";
                font-weight:      " . $today_font_weight . ";
                font-style:       " . $today_font_style . ";
            }
             .cal_event, a.cal_event /* e-man 17-06-04 */
            {
                background-color: " . $event_background_color . ";
                color:            " . $event_font_color . ";
                font-family:      " . $font_family . ";
                font-size:        " . $event_font_size . ";
                font-weight:      " . $event_font_weight . ";
                font-style:       " . $event_font_style . ";
            }
        </style>
  ";
    //
    /////////////////////////////////////////////
   

    /////////////////////////////////////////////
    //show events in popup?
    //
    if (isset ($_GET['show_event'])){
    list ($year, $month, $day) = explode ("-", $_GET['event_date']);
    $query = "
      SELECT *
      FROM " . $event_table . "
      WHERE EventYear  = '" . $year . "'
      AND   EventMonth = '" . $month . "'
      AND   EventDay   = '" . $day . "'
      ORDER BY EventTime ASC
    ";

    /* connect to the database */
    $database_connection = mysql_connect ($server, $username, $password);
    mysql_select_db ($database, $database_connection);
    $result = mysql_query ($query) or die(mysql_error());

    /* initize the variabele color_alternated (boolean) */
    $color_alternated = false;

    /* header of the table */
    echo "<table width=\"100%\" border=\"" . $table_border . "\" cellpadding=\"" . $table_cellpadding . "\" cellspacing=\"" . $table_cellspacing . "\">";

    $date_string = mktime(0,0,0,$month,$day,$year);
    $month = sprintf("%01d",$month);

    echo "<tr><td align=\"center\" class=\"cal_head\" colspan=\"4\">".$day." " . $monthname[$month-1] . " ".$year."</td>
    </tr>";        //yang aku edit colspan 2 ke 3

    echo "<tr><td style=\"background-color:".$background_color_row."\" align=\"center\" class=\"cal_head\" >Time
    </td>
    <td style=\"background-color:".$background_color_row."\" align=\"center\" class=\"cal_head\" >Finish
    </td>
    <td style=\"background-color:".$background_color_row."\" align=\"center\" class=\"cal_head\" >Event
    </td>
    <td style=\"background-color:".$background_color_row."\" align=\"center\" class=\"cal_head\" >Konfirm
    </td>
    </tr>";        //diatas untuk menambah judul tabel

    /* loop through the results via a mysql_fetch_assoc () */
    while ($record = mysql_fetch_assoc ($result)){
      if ($color_alternated){
        $color_alternated = false;
        $background_color_row = $event_background_color;
      }
      else{
        $color_alternated = true;
        $background_color_row = $event_background_color2;
      }
      echo "<tr class=\"cal_event\">
              <td style=\"background-color:".$background_color_row."\" width=\"1\">" . $record['EventTime'] . "</td>
              <td style=\"background-color:".$background_color_row."\" width=\"1\">" . $record['FinishTime'] . "</td>
                            <td style=\"background-color:".$background_color_row."\">" . nl2br($record['Event']) . "</td>
              <td style=\"background-color:".$background_color_row."\" >" . $record['konfirmasi'] . "</td>
          
            </tr>";
            //yang aku edit menambah record tanggal
            //<td><a href="update.php?tanggal=1 April 2009">1 April 2009</a></td>
        // <td><a class=\"cal_head\" href=\"" . $_SERVER['PHP_SELF'] . "?" . $QUERY_STRING . "&amp;date=" .
         //       $next_date . "\" title=\"" . $table_caption_foll . "\">&raquo;</a></td>

             // <td style=\"background-color:".$background_color_row."\" width=\"1\">" . $record['tanggal'] . "</td>   
    // <td  style=\"background-color:".$background_color_row."\" width=\"1\"><a  href="" update.php "?" tanggal "=" . $record['tanggal'] . ">. $record['tanggal'] .</a></td>
              
         
    }
    /* close the table */
    echo "</table>";

    /* bring an exit so the script will terminate*/
    exit;
    }
    //
    /////////////////////////////////////////////
   
    /////////////////////////////////////////////
    //Print the calendar table header
    //
    echo "
        <script language=\"javascript\">
      function open_event(date_stamp){
        window.open(\"" . $calendar_script . "?show_event=true&event_date=\" + date_stamp, \"calendar_popup\",\"height=" . $event_popup_height . ",width=".$event_popup_width."\");
      }
        </script>
        <table border=\"" . $table_border . "\" cellpadding=\"" . $table_cellpadding . "\" cellspacing=\"" . $table_cellspacing . "\" style=\"height:" . $table_height . "\" width=\"" . $table_width . "\">
            <tr>
                <td align=\"center\" class=\"cal_head\"><a class=\"cal_head\" href=\"" . $_SERVER['PHP_SELF'] . "?" . $QUERY_STRING . "&amp;date=" .
                $previous_date . "\" title=\"" . $table_caption_prev . "\">&laquo;</a></td>
                <td align=\"center\" class=\"cal_head\" colspan=\"5\">" . $table_caption . "</td>
                <td align=\"center\" class=\"cal_head\"><a class=\"cal_head\" href=\"" . $_SERVER['PHP_SELF'] . "?" . $QUERY_STRING . "&amp;date=" .
                $next_date . "\" title=\"" . $table_caption_foll . "\">&raquo;</a></td>
            </tr>

            <tr>
                <td class=\"cal_days\">S".$dayname[0]."</td>
                <td class=\"cal_days\">M".$dayname[1]."</td>
                <td class=\"cal_days\">T".$dayname[2]."</td>
                <td class=\"cal_days\">W".$dayname[3]."</td>
                <td class=\"cal_days\">T".$dayname[4]."</td>
                <td class=\"cal_days\">F".$dayname[5]."</td>
                <td class=\"cal_days\">S".$dayname[6]."</td>
            </tr>
            <tr>
            ";
    //ini yang aku ubah tambah nama hari
    /////////////////////////////////////////////
   
    /////////////////////////////////////////////
    //The empty columns before the 1st day of the week
    //
    for( $i = 0 ; $i < $day_start; $i++ )
    {
        echo "<td class=\"cal_content\">&nbsp;</td>";
    }
    //
    /////////////////////////////////////////////
   
    $current_position = $day_start; //The current (column) position of the current day from the loop
   
    $total_days_in_month = date("t",$date_string); //The total days in the month for the end of the loop

    /////////////////////////////////////////////
    //Retrieve events for the current month + year
    //e-man : added 07 June 04
  if ($events_from_database)
  {
    $database_connection = mysql_connect ($server, $username, $password);
    mysql_select_db ($database, $database_connection);
    $result = mysql_query("
      SELECT *
      FROM " . $event_table . "
      WHERE
        EventYear = '" . $year . "'
      AND
        EventMonth = '" . $month . "'
    ");
    while ($record = mysql_fetch_assoc($result)){
      $event[$record['EventDay']] = $record;
    }
  }
    //
    /////////////////////////////////////////////

    /////////////////////////////////////////////
    //Loop all the days from the month
    //
    for( $i = 1; $i <= $total_days_in_month ; $i++)
    {
        $class = "cal_content";
       
        if( $i == date("j") && $month == date("n") && $year == date("Y") )
            $class = "cal_today";
       
        $current_position++;

    /* is there any event on this day? Yes, create a link. No clear the (previous) string */
        $link_start = "";
        $link_end   = "";


    /* if there is an event do */
        if( isset($event[$i]) )
    {
      $link_start = "<a href=\"javascript:;\" class=\"cal_event\" onclick=\"javascript: open_event('".$year."-".$month."-".$i."');\">";
      $link_end   = "</a>";
      $class      = "cal_event";
    }

    /* for the event filter */
    /* e-man : added 07 June 04 */
    $date_stamp = $year."-".$month."-".sprintf( "%02d",$i);
   
        echo "<td align=\"center\" class=\"" . $class . "\">" . $link_start . $i . $link_end . "</td>";
        if( $current_position == 7 )
        {
            echo "</tr><tr>\n";
            $current_position = 0;
        }
    }
    //
    /////////////////////////////////////////////
   
    $end_day = 7-$current_position; //There are
   
    /////////////////////////////////////////////
    //Fill the last columns
    //   
    for( $i = 0 ; $i < $end_day ; $i++ )
        echo "<td class=\"cal_content\"></td>\n";
    //
    /////////////////////////////////////////////
   
    echo "</tr></table>";  // Close the table


?>

Database:
-- phpMyAdmin SQL Dump
-- version 2.9.2
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Generation Time: May 18, 2009 at 05:27 PM
-- Server version: 5.0.27
-- PHP Version: 5.2.1
--
-- Database: `lapangan`
--

-- --------------------------------------------------------

--
-- Table structure for table `calendar_events`
--

CREATE TABLE `calendar_events` (
  `EventId` bigint(20) NOT NULL auto_increment,
  `EventYear` int(4) NOT NULL default '0',
  `EventMonth` int(2) NOT NULL default '0',
  `EventDay` int(2) NOT NULL default '0',
  `EventTime` time NOT NULL default '00:00:00',
  `tanggal` text,
  `Event` text,
  `konfirmasi` text,
  `FinishTime` time NOT NULL default '00:00:00',
  `user` text,
  `pilihan` text,
  PRIMARY KEY  (`EventId`)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8 AUTO_INCREMENT=169 ;


Rumahku di Cikarang City
[info]ahmad_daffa


Angkutan Umum:
Metromini 3/4

Lokasi:
Jl. Raya Cikarang Cibarusah

Fasilitas Umum:
Dekat Stasiun Lemahabang dan Stasiun Cikarang
Dekat Pasar Tradisional dan Pasar Modern SGC (Sentra Grosir Cikarang)

Galeri Fotoku (0-11bulan)
[info]ahmad_daffa







Skrip upload dari csv ke mysql
[info]ahmad_daffa
<?php
/*
Mas Iwan buat dulu tabel temporary nya ya, dinamai tempwisuda aja. Fieldnya
nrp,nama,alamat,judulskripsi,lulus.
*/
if ($_POST['t']=='tarik')
{
        //kosongkan tabel temporary
        $deltemp=mysql_query("truncate table tempwisuda");
        if (!$deltemp){
                $pesan=mysql_error();
                echo $pesan;
        }
               
                $target_path = "file/";  //direktori tempat file upload akan disimpan

                $target_path = $target_path . basename( $_FILES['uploadedfile']['name']);

                if(move_uploaded_file($_FILES['uploadedfile']['tmp_name'], $target_path)) {
                            echo "File ".  basename( $_FILES['uploadedfile']['name']).
                            " telah di upload...<br>";

                          # first get a mysql connection as per the FAQ
                          $fcontents = file ('file/datawisuda.csv');  // nama file ditentukan adalah
datawisuda.csv
                       
                          # expects the csv file to be in the same dir as this script

                          for($i=0; $i<sizeof($fcontents); $i++) {
                                      $line = trim($fcontents[$i]);
                                      $arr = explode(",", $line);
                                     
                                $sql = "insert into tempwisuda(nrp,nama,alamat,judulskripsi,lulus) values
('".implode("','", $arr) ."')";
                                      mysql_query($sql);
                        }
               
                        //proses updating tabel biomhs untuk isi data judul skripsi dll
                        $kueri_temp=mysql_query("select * from tempwisuda order by nrp");
                        while ($temp=mysql_fetch_array($kueri_temp)){
$kueri_bio=mysql_query("update biomhs set nama='".$temp['nama']"',
alamat='".$temp['alamat']."',judulskripsi='".$temp['judulskripsi']."',lulus='".$temp['lulus']."'
where nrp='".$temp['nrp']."'");
                        }
                        // untuk script yg ini bisa dimodif sesuai selera mas Iwan
                        $hasil_update=mysql_affected_rows();
                        if ($hasil_update>0){
                                echo "Data bio sudah terupdate...";
                        }
                        else{
                                echo "Data bio tidak dapat terupdate!";
                        }
                        // untuk script yg ini bisa dimodif sesuai selera mas Iwan

                } else{
                            echo "<font color='red'>Terjadi Error pada saat upload file, Silahkan coba
lagi!</font>";
                }
       
}//close post tarik
?>

<center><h1>Upload Data Wisudawan</h1></center>
<form enctype="multipart/form-data" name="data_wisudawan" action="" method="post">
<input type="hidden" name="MAX_FILE_SIZE" value="10000000" />
<input type="hidden" name="t" value="tarik" />
<table>
<tr>
        <td align="right">Masukkan File Data Wisudawan</td>
        <td>:</td>
        <td><input name="uploadedfile" type="file" size="45" /></td>
</tr>
<tr>
        <td width="165" align="right"><input type="submit" name="proses" value="Proses"
class="submit" /></td>
        <td width="13"></td>
        <td width="271"><input type="reset" name="reset" value="Batal" class="submit" /></td>
</tr>
</table>
</form>

Database:
-- phpMyAdmin SQL Dump
-- version 2.9.2
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Generation Time: May 18, 2009 at 05:29 PM
-- Server version: 5.0.27
-- PHP Version: 5.2.1
--
-- Database: `wisuda`
--

-- --------------------------------------------------------

--
-- Table structure for table `biomhs`
--

CREATE TABLE `biomhs` (
  `nrp` varchar(20) NOT NULL,
  `nama` varchar(30) NOT NULL,
  `alamat` varchar(50) NOT NULL,
  `ipk` decimal(4,2) NOT NULL,
  `tempat` varchar(20) NOT NULL,
  `tl` date NOT NULL,
  `p` char(1) NOT NULL,
  `judulskripsi` text NOT NULL,
  `lulus` text NOT NULL,
  `tglinput` datetime NOT NULL,
  `oleh` varchar(10) NOT NULL,
  `status` tinyint(4) NOT NULL default '0',
  `foto` varchar(30) NOT NULL,
  `statusbar` tinyint(4) NOT NULL default '0',
  `olehbar` varchar(10) NOT NULL,
  `statusfoto` varchar(2) NOT NULL,
  `gelar` varchar(10) NOT NULL,
  `predikat` varchar(20) NOT NULL,
  `jurusan` varchar(20) NOT NULL,
  `judulskripsibuku` text NOT NULL,
  `tlbuku` text NOT NULL,
  `alamatbuku` text NOT NULL,
  `lulusbuku` text NOT NULL,
  `predikatbuku` text NOT NULL,
  `nrptahun` text,
  PRIMARY KEY  (`nrp`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table `tempwisuda`
--

CREATE TABLE `tempwisuda` (
  `nrp` varchar(100) NOT NULL,
  `nama` text,
  `alamat` text,
  `judulskripsi` text,
  `lulus` text,
  PRIMARY KEY  (`nrp`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8;

-- --------------------------------------------------------

--
-- Table structure for table `usrwisuda`
--

CREATE TABLE `usrwisuda` (
  `id` smallint(5) NOT NULL auto_increment,
  `username` varchar(10) NOT NULL default '',
  `password` varchar(10) NOT NULL default '',
  PRIMARY KEY  (`id`),
  UNIQUE KEY `username` (`username`)
) ENGINE=MyISAM  DEFAULT CHARSET=utf8 AUTO_INCREMENT=57 ;


Perumahan Grand Cikarang City
[info]ahmad_daffa


grandcikarangcity.blogspot.com/

Di Over Kredit atau Di kontrakkan

Perumahan Type 30/60 2 kamar
(luas bangunan 30m2 luas tanah 60m2)
Alamat : Perumahan GCC jl. raya cikarang lemahabang D17 No 21
Fasilitas : air WTP, PLN
Hubungi : Erik :  031-3553167 (Home) / 031-91733187 (Esia)

Start Kredit:
Desember 2008
Besar angsuran Rp. 350.000,- selama 2 tahun pertama (subsidi)
Tahun berikutnya sekitar Rp. 650.000,-
lama kredit 13 tahun

Di Kontrakkan 1 tahun
Rp. (nego)

Di Over Kredit
Rp. (nego)

Home