Posted by: Didik | 28 December 2010

SQL date_format ()

Date_format () – Fungsi untuk menampilkan berbagai informasi tentang waktu.

Sintaksis

DATE_FORMAT(date,format)

Tersedia jenis:

Format Deskripsi

%a Singkatan nama hari

%b Singkatan nama bulan

%c Bulan, numerik

%D Hari bulan dengan akhiran Bahasa Inggris

%d Hari dari bulan, angka (00-31)

%e Hari bulan, numerik (0-31)

%f Mikrodetik

%H Jam (00-23)

%h Jam (12/01)

%I Jam (12/01)

%i Menit, angka (00-59)

%j Hari tahun (001-366)

%k Jam (0-23)

%l Jam (1-12)

%M Nama Bulan

%m Bulan, numerik (00-12)

%p AM atau PM

%r Waktu, (jj AM ss atau PM:: mm) 12-jam

%S Detik (00-59)

%s Detik (00-59)

%T Waktu, 24-jam (jj: mm: ss)

%U Minggu (00-53) di mana hari Minggu adalah hari pertama dalam minggu

%u Minggu (00-53) dimana Senin adalah hari pertama dalam minggu

%V Minggu (01-53) di mana hari Minggu adalah hari pertama minggu, digunakan dengan% X

%v Minggu (01-53) dimana Senin adalah hari pertama minggu, digunakan dengan% x

%W Nama hari

%w Hari minggu (0 = Minggu, 6 = Sabtu)

%X Tahun minggu di mana hari Minggu adalah hari pertama minggu, empat digit, digunakan dengan% V

%x Tahun seminggu dimana Senin adalah hari pertama minggu, empat digit, digunakan dengan v%

%Y Tahun, empat digit

%y Tahun, dua digit

Contoh

Menggunakan fungsi NOW (), untuk mendapatkan tanggal / waktu:

 

DATE_FORMAT(NOW(),’%b %d %Y %h:%i %p’)

DATE_FORMAT(NOW(),’%m-%d-%Y’)

DATE_FORMAT(NOW(),’%d %b %y’)

DATE_FORMAT(NOW(),’%d %b %Y %T:%f’)

Hasil Query:

 

Nov 04 2008 11:45 PM

11-04-2008

04 Nov 08

04 Nov 2008 11:45:34:243

Posted by: Didik | 30 November 2010

How to use the System Tray directly from Visual Basic

1. Add the following code to the declarations section of a standard module in your project:

‘user defined type required by Shell_NotifyIcon API call
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

‘constants required by Shell_NotifyIcon API call:
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201 ‘Button down
Public Const WM_LBUTTONUP = &H202 ‘Button up
Public Const WM_LBUTTONDBLCLK = &H203 ‘Double-click
Public Const WM_RBUTTONDOWN = &H204 ‘Button down
Public Const WM_RBUTTONUP = &H205 ‘Button up
Public Const WM_RBUTTONDBLCLK = &H206 ‘Double-click

Public Declare Function SetForegroundWindow Lib “user32” _
(ByVal hwnd As Long) As Long
Public Declare Function Shell_NotifyIcon Lib “shell32” _
Alias “Shell_NotifyIconA” _
(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Public nid As NOTIFYICONDATA

2. Add the following code to any form in your project that you want to respond to the System Tray Icon, or Notification Icon, for your application:

Private Sub Form_Load()
‘the form must be fully visible before calling Shell_NotifyIcon
Me.Show
Me.Refresh
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = “Your ToolTip” & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
‘this procedure receives the callbacks from the System Tray icon.
Dim Result As Long
Dim msg As Long
‘the value of X will vary depending upon the scalemode setting
If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If
Select Case msg
Case WM_LBUTTONUP ‘514 restore form window
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
Case WM_LBUTTONDBLCLK ‘515 restore form window
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
Case WM_RBUTTONUP ‘517 display popup menu
Result = SetForegroundWindow(Me.hwnd)
Me.PopupMenu Me.mPopupSys
End Select
End Sub

Private Sub Form_Resize()
‘this is necessary to assure that the minimized window is hidden
If Me.WindowState = vbMinimized Then Me.Hide
End Sub

Private Sub Form_Unload(Cancel As Integer)
‘this removes the icon from the system tray
Shell_NotifyIcon NIM_DELETE, nid
End Sub

Private Sub mPopExit_Click()
‘called when user clicks the popup menu Exit command
Unload Me
End Sub

Private Sub mPopRestore_Click()
‘called when the user clicks the popup menu Restore command
Dim Result As Long
Me.WindowState = vbNormal
Result = SetForegroundWindow(Me.hwnd)
Me.Show
End Sub

3. Make the following Property Settings on the same form to which you added the above code:

Property Required Setting for Taskbar Notification Area example
———————————————————————–
Icon = The icon you want to appear in the system tray.
Minbutton = True
ShownInTaskbar = False

4. Add the following Menu items to the same form using the Menu Editor:

Caption Name Enabled Visible Position
———————————————————
&SysTray mPopupSys True False Main Level
&Restore mPopRestore True True Inset one
&Exit mPopExit True True Inset one

You can add additional menu items as needed.
Back to the top
Taskbar Notification Area Flexibility
You can modify the ToolTip that appears over the Notification icon by changing the following line in the Form_Load procedure:

.szTip = “Your ToolTip” & vbNullChar

Replace “Your ToolTip” with the text that you want to appear.

You can modify the Icon that appears in the Taskbar Notification Area by changing the following line in the Form_Load procedure:

.hIcon = Me.Icon

Replace Me.Icon with any Icon in your project.

You can change any of the Taskbar Notification Area settings at any time after the use of the NIM_ADD constant by reassigning the values in the nid variable and then using the following variation of the Shell_NotifyIcon API call:

Shell_NotifyIcon NIM_MODIFY, nid.

However, if you want a different form to receive the callback, then you will need to delete the current icon first using “Shell_NotifyIcon NIM_Delete, nid” as the NIM_Modify function will not accept a new Hwnd, or you will need to add another Icon to the systray for the new form using “Shell_NotifyIcon NIM_ADD, nid” after refilling the nid type with the new forms Hwnd. You can also declare separate copies of the nid type for each form that you want to display an icon for in the Windows System Tray and change them in each form’s activate event using the NIM_DELETE and NIM_ADD sequence.

Membuat service dengan vb6 memang sangat tidak dianjutkan, makanya jangan heran setelah kita mendownload beberapa source code yang mengklaim bisa membuat service di vb6 dan mencobanya yang ada hanya error pada saat dijalankan atau berhasil sampai mendaftarkan ke service tetapi gagal pada saat ingin running/start.

Tetapi jangan kuatir setelah Anda membaca artikel ini, Anda akan dengan mudah membuat service di windows.

Sebenarnya ini adalah artikel lama tapi kayaxnya masih jarang dibahas diblog-blog pemrograman lokal atau mungkin mereka sudah merasa cukup puas dengan membuat aplikasi yang bisa running pada saat windows diaktifkan.

Salah satu keuntungan aplikasi dibuat service adalah bisa running tanpa harus login ke windows dan tentunya tidak semua aplikasi harus dibuat service cukup aplikasi-aplikasi tertentu saja, contoh sample aplikasi yang ada disini.

Contoh-contoh source code yang mengklaim bisa membuat service dengan vb6 biasanya menggunakan fungsi-fungsi API yang buanyakkk dan seperti biasa kalo salah-salah bermain API bisa terbakar loh😀

Di artikel kali ini kita akan mencoba cara yang mudah/instan yaitu dengan menggunakan komponen NT Service Control Module.

Untuk sample program yang akan kita bahas nanti akan membutuhkan 2 parameter pada saat dijalankan yaitu :

1. /i -> untuk menginstall/mendaftarkan aplikasi sebagai service
2. /u -> untuk menguninstall/menghapus aplikasi dari service

Adapun fungsi yang digunakan untuk mendapatkan parameter yang dilewatkan ke aplikasi kita adalah :

1. Command -> Variant
2. Command$ -> String

Ke 2 fungsi diatas adalah fungsi yang sama hanya return valuenya saja yang beda, berikut contoh penggunaan fungsi tersebut :

Public Sub Main()
Dim param As String

param = Command$
Select Case param
Case "/i"
'TODO : install sevice

Case "/u"
'TODO : uninstall service

Case Else
'parameter tidak dikenal
End Select
End Sub

Komponen NT Service Control Module mempunya beberapa method, properties dan event yang memudahkan kita untuk membuat service :

Oke kita mulai saja langkah-langkah pembuatan service di vb dengan menggunakan komponen NT Service Control Module :
1. Buat project baru dan tambahkan komponen NT Service Control Module (komponen ini bisa Anda download pada bagian akhir artikel)

2. Masuk ke bagian editor code form kemudian tambahkan prosedur berikut :
Private Sub initNTService()
On Error GoTo ServiceError

stopService = False

With NTService1
.DisplayName = "Coding4ever NT Service"
.ServiceName = "coding4everNTService"

lblAnimasi.Caption = .DisplayName & " Loading"

'Install the service
If Command$ = "/i" Then

'enable interaction with desktop
.Interactive = True
.StartMode = svcStartAutomatic

'Install the program as an NT service
If .Install Then
'Save the TimerInterval Parameter in the Registry
.SaveSetting "Parameters", "TimerInterval", "45"

MsgBox .DisplayName & ": installed successfully"

Else
MsgBox .DisplayName & ": failed to install"
End If

End

'Remove the Service Registry Keys and uninstall the service
ElseIf Command$ = "/u" Then
If .Uninstall Then
MsgBox .DisplayName & ": uninstalled successfully"
Else
MsgBox .DisplayName & ": failed to uninstall"
End If

End

'Invalid parameter
ElseIf Command$ "" Then
MsgBox "Invalid Parameter"
End
End If

'Retrive the stored value for the timer interval
tmrAnimasi.Interval = CInt(.GetSetting("Parameters", "TimerInterval", "45"))

'enable Pause/Continue. Must be set before StartService
'is called or in design mode
.ControlsAccepted = svcCtrlPauseContinue

'connect service to Windows NT services controller
.StartService
End With

Exit Sub
ServiceError:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description)
End Sub

Selanjutnya kita tinggal panggil di event Form_Load :
Private Sub Form_Load()
Call initNTService
End Sub

3. Langkah selanjutnya kita tinggal membuat kode untuk menghandle event-event berikut :

* Continue
* Control
* Pause
* Start
* Stop
Private Sub NTService1_Continue(Success As Boolean)
'Handle the continue service event
On Error GoTo ServiceError

tmrAnimasi.Enabled = True
lblAnimasi.Caption = NTService1.DisplayName & " Running"
Success = True

NTService1.LogEvent svcEventInformation, svcMessageInfo, "Service continued"

Exit Sub
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub

Private Sub NTService1_Control(ByVal mEvent As Long)
'Take control of the service events
On Error GoTo ServiceError

lblAnimasi.Caption = NTService1.DisplayName & " Control signal " & CStr([mEvent])

Exit Sub
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub

Private Sub NTService1_Pause(Success As Boolean)
'Pause Event Request
On Error GoTo ServiceError

tmrAnimasi.Enabled = False
lblAnimasi.Caption = NTService1.DisplayName & " Paused"
NTService1.LogEvent svcEventError, svcMessageError, "Service paused"
Success = True

Exit Sub
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub

Private Sub NTService1_Start(Success As Boolean)
'Start Event Request
On Error GoTo ServiceError

lblAnimasi.Caption = NTService1.DisplayName & " Running"
Success = True

Exit Sub
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub

Private Sub NTService1_Stop()
'Stop and terminate the Service
On Error GoTo ServiceError

lblAnimasi.Caption = NTService1.DisplayName & " Stopped"
stopService = True

Unload Me

ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub

4. Terakhir adalah kode untuk menghandle jika di program service kita ditutup (event Form_Unload)
Private Sub Form_Unload(Cancel As Integer) 'Unload the Service
If Not stopService Then
If MsgBox("Are you sure you want to unload the service?..." & vbCrLf & "the service will be stopped", vbQuestion + vbYesNo, "Stop Service") = vbYes Then
NTService1.stopService
lblAnimasi.Caption = NTService1.DisplayName & " Stopping"

Cancel = True

Else
Cancel = True
End If
End If
End Sub

Untuk menguji program yang kita buat berhasil atau tidak lakukan langkah-langkah berikut :

1. Compile project kita, misal hasil compile -> coding4everNTService.exe

2. Buat 2 buah file dengan ekstensi .bat atau .cmd, ke 2 file ini bertugas untuk menginstall/menguninstall aplikasi kita sebagai service
Isi file Install.bat
coding4everNTService /i

Isi file Uninstall.bat
coding4everNTService /u

Buka file config.inc.php di direktori phpMyAdmin, trus cari entry pertama pada variabel $cfg[‘Servers’][$i][‘auth_type’], gunakan nilai config ataucookie, bukan http.

Nah lebih masalah lagi mas karena sejak mysql 4.1 keatas itu untuk encript passwordnya berbeda dengan encript password sebelumnya jadi kalau di set ada passwordnya mesti diupdate dulu dengan fungsi old_password untuk passwordnya mas…
saya pernah mengalami hal sama ketika pertama kali menggunakan mysql 4.1

Update dengan perintah :

UPDATE mysql.user SET PASSWORD = OLD_PASSWORD(‘yourpassword’) WHERE USER=’youruser’ AND HOST=’%’;

 

<?php
    if(isset($_POST['submit'])){
        //$files = array_values($_FILES["data"]);
        //print_r($_FILES["data"] );die();
        $count = sizeof($_FILES['data']['name']);
        for($i = 0; $i < $count; $i++){
            if ($_FILES['data']['error'][$i] != UPLOAD_ERR_OK) {
                //show error message or silently go to next file.
                echo 'File upload error ' . $_FILES['data']['error'][$i] . '.<br />';
            }else{
                //do what you want to do here...
                //eg : save file, scan it, etc.
                echo 'file ' . $_FILES['data']['name'][$i] . ' is uploaded!<br />';
            }
        }
    }
?>
<html>
  <head>
    <title>.: Multiple Upload Example :.</title>
    <script language="javascript" type="text/javascript">
        function addNewField(){
            var holder = document.getElementById('uploadholder');
            var row    = document.createElement('tr');holder.appendChild(row);
            var field  = document.createElement('td');row.appendChild(field);
                field.innerHTML = '<input type="file" name="data[]" id="" />';
        }
    </script>
  </head>
  <body>
   <form method="post" enctype="multipart/form-data">
    <table id="uploadholder">
        <!--<tr><td><input type="file" name="data[]" id="" /></td></tr>-->
    </table>
    <input type="button" name="tambah" value="Add Field" onclick="javascript:addNewField()" />
    <input type="submit" name="submit" value="submit" />
   </form>
  </body>
</html>

Deleting Table Row
<html>
<head>
<script type="text/javascript">
function deleteRow(i){
 document.getElementById('myTable').deleteRow(i)
}
</script>
</head>

<body>
<table id="myTable" border="1">
<tr>
 <td>Row 1</td>
 <td><input type="button" value="Delete" onclick="deleteRow(this.parentNode.parentNode.rowIndex)"></td>
</tr>
<tr>
 <td>Row 2</td>
 <td><input type="button" value="Delete" onclick="deleteRow(this.parentNode.parentNode.rowIndex)"></td>
</tr>
<tr>
 <td>Row 3</td>
 <td><input type="button" value="Delete" onclick="deleteRow(this.parentNode.parentNode.rowIndex)"></td>
</tr>
</table>
</body>

</html>



---------------- Versi Lain
<script language="javascript" type="text/javascript">
function addNewField(){
var x=document.getElementById('uploadholder').insertRow(4)
var a=x.insertCell(0)
var b=x.insertCell(1)
var c=x.insertCell(2)
//a.innerHTML=''
//b.innerHTML=''
c.innerHTML='<input type="file" name="data[]" id="" /> <img src="images/tidak.png" style=cursor:pointer border="0" title="Delete" onclick="javascript:deleteRow(this.parentNode.parentNode.rowIndex)"/>'
}
function deleteRow(i){ document.getElementById('uploadholder').deleteRow(i) } </script>
----------------------- Silahkan atur2 sendiri, semoga bermanfaat buat kita semua..... Salam...
Posted by: Didik | 18 June 2010

Book 10

كتاب ترتيب الأوراد وتفصيل إحياء الليل

وهو الكتاب العاشر [من ربع العبادات] من إحياء علوم الدين

وبه اختتام ربع العبادات نفع الله به المسلمين

بسم الله الرحمن الرحيم

نحمد الله على آلائه حمدا كثيرا ونذكره ذكرا لا يغادر في القلب استكبارا ولا نفورا ونشكره إذ جعل الليل والنهار خلفه لمن أراد أن يذكر أو أراد شكورا ونصلي على نبيه الذي بعثه بالحق بشيرا ونذيرا وعلى آله الطاهرين وصحبة الأكرمين الذين اجتهدوا في عبادة الله غدوة وعشيا وبكرة وأصيلا حتى أصبح كل واحد منهم نجما في الدين هاديا وسراجا منيرا.

Read More…

Posted by: Didik | 18 June 2010

Book 9

كتاب الأذكار والدعوات

وهو الكتاب التاسع من ربع العبادات

بسم الله الرحمن الرحيم

الحمد لله الشاملة رأفته العامة رحمته الذي جازى عباده عن ذكرهم بذكرهم فقال تعالى فاذكروني أذكركمورغبهم في السؤال والدعاء بأمره فقال ادعوني أستجب لكم فأطمع المطيع والعاصي والداني والقاصي في الانبساط إلى حضرة جلاله برفع الحاجات والأماني بقوله فإني قريب أجيب دعوة الداع إذا دعان والصلاة على محمد سيد أنبيائه وعلى آله وأصحابه خيرة أصفيائه وسلم تسليما كثيرا.

Read More…

Older Posts »

Categories

Follow

Get every new post delivered to your Inbox.