Membuat Aplikasi Auto Shutdown di Visual Basic

Membuat Aplikasi Auto Shutdown di Visual Basic - Pada kesempatan kali ini saya akan memberikan tips dan trick seputar bahasa pemrograman visual basic 0.6, pada postingan kali ini saya akan memberikan judul yaitu Membuat Aplikasi Auto Shutdown di Visual Basic , untuk membuat aplikasi ini anda diharapkan sudah mengetahui tau bisa dengan bahasa pemrograman visual basic 0.6 jika anda belum tahu sama sekali mengenai bahasa pemrograman silahkan pelajari disini.

Untuk membuat Aplikasi Auto Shutdown, silahkan simak panduannya dibawah ini.

1. Buka Aplikasi Microsoft Visual Basic 0.6, jika anda belum punya silahkan download aplikasi di internet.
2. Setelah aplikasi terbuka, selanjutnya yaitu dengan membuat Form Aplikasi seperti gambar berikut ini.
   
3. Pastikan anda sudah menambahkan komponen-komponen pada visual Basic 0.6 seperti pada gambar diatas tadi.
4. Setelah Form Aplikasi selesai dibuat, selanjutnya yaitu dengan menambahkan script aplikasinya yang bertujuan untuk menjalankan aplikasi aga bisa digunakan untuk membuat auto shutdown pada komputer yang anda miliki.
   
   Private formHeight As Integer
   Private formWidth As Integer
   
   Private Sub ChangeDay(Optional ByVal dateNow As Boolean)
       Dim oldVal As Integer
       If Not dateNow Then oldVal = cmbDay.Text
       cmbDay.Clear
       Dim dd As Integer
       Select Case cmbMonth.ListIndex + 1
           Case 1, 3, 5, 7, 8, 10, 12
               dd = 31
           Case 2
               If Val(Format(Now, "YYYY")) Mod 4 = 0 Then
                   dd = 29
               Else
                   dd = 28
               End If
           Case Else
               dd = 30
       End Select
       Dim i As Integer
       For i = 1 To dd
           cmbDay.AddItem i
           If i = Val(Format(Now, "DD")) And dateNow Then
               cmbDay.Text = i
           End If
       Next i
       If Not dateNow Then
           If oldday <= dd Then
               cmbDay.Text = oldVal
           Else
               cmbDay.Text = dd
           End If
       End If
   End Sub
   
   Public Function GetMonthNumber(ByVal monStr As String) As Integer
       Dim retInt As Integer
       Dim month As String
       month = "January, February, March, April, May, June, July, August, September, October, November, December"
       Dim monArr() As String
       monArr = Split(month, ",")
       Dim i As Integer
       For i = 0 To UBound(monArr)
           If UCase(Trim(monArr(i))) = UCase(Trim(monStr)) Then
               retInt = i + 1
           End If
       Next i
       GetMonthNumber = retInt
   End Function
   
   Private Sub InitComponents()
       formHeight = Me.Height
       formWidth = Me.Width
       Dim month As String
       month = "January, February, March, April, May, June, July, August, September, October, November, December"
       Dim monArr() As String
       monArr = Split(month, ",")
       Dim i As Integer
       For i = 0 To UBound(monArr)
           cmbMonth.AddItem Trim(monArr(i))
           If Val(Format(Now, "MM")) = i + 1 Then
               cmbMonth.Text = Trim(monArr(i))
           End If
       Next i
       ChangeDay True
       For i = 0 To 23
           cmbHour.AddItem i
           If i = Val(Format(Now, "hh")) Then
               cmbHour.Text = i
           End If
       Next i
       For i = 0 To 59
           cmbMin.AddItem i
           If i = Val(Split(Format(Now, "hh:mm"), ":")(1)) Then
               cmbMin.Text = i
           End If
       Next i
       lblDate.Caption = "Date: " & Format(Now, "MMMM dd, YYYY hh:mm:ss AM/PM")
   End Sub
   
   Private Sub cmbDay_KeyDown(KeyCode As Integer, Shift As Integer)
       If KeyCode = vbKeyDelete Then KeyCode = 0
   End Sub
   
   Private Sub cmbDay_KeyPress(KeyAscii As Integer)
       KeyAscii = 0
   End Sub
   
   Private Sub cmbHour_KeyDown(KeyCode As Integer, Shift As Integer)
       If KeyCode = vbKeyDelete Then KeyCode = 0
   End Sub
   
   Private Sub cmbHour_KeyPress(KeyAscii As Integer)
       KeyAscii = 0
   End Sub
   
   Private Sub cmbMin_KeyDown(KeyCode As Integer, Shift As Integer)
       If KeyCode = vbKeyDelete Then KeyCode = 0
   End Sub
   
   Private Sub cmbMin_KeyPress(KeyAscii As Integer)
       KeyAscii = 0
   End Sub
   
   Private Sub cmbMonth_Click()
       ChangeDay
   End Sub
   
   Private Sub cmbMonth_KeyDown(KeyCode As Integer, Shift As Integer)
       If KeyCode = vbKeyDelete Then KeyCode = 0
   End Sub
   
   Private Sub cmbMonth_KeyPress(KeyAscii As Integer)
       KeyAscii = 0
   End Sub
   
   Private Sub cmdCancel_Click()
       cmdSet.Enabled = True
       cmdCancel.Enabled = False
       Timer1.Enabled = False
   End Sub
   
   Private Sub cmdSet_Click()
       cmdSet.Enabled = False
       cmdCancel.Enabled = True
       Timer1.Enabled = True
   End Sub
   
   Private Sub Form_Load()
       InitComponents
   End Sub
   
   Private Sub Form_Resize()
       If Me.WindowState <> vbMinimized Then
           Me.Height = formHeight
           Me.Width = formWidth
       End If
   End Sub
   
   Private Sub Timer1_Timer()
       If Val(Format(Now, "MM")) = GetMonthNumber(cmbMonth.Text) And Val(Format(Now, "DD")) = Val(cmbDay.Text) _
               And Val(Format(Now, "hh")) = Val(cmbHour.Text) And Val(Split(Format(Now, "hh:mm"), ":")(1)) = Val(cmbMin.Text) Then
           If optShutdown.Value Then
               Call Shell("Shutdown /s") 'to shutdown
               Timer1.Enabled = False
           ElseIf optRestart.Value Then
               Call Shell("Shutdown /r") 'to restart
               Timer1.Enabled = False
           ElseIf optLogoff.Value Then
               Call Shell("Shutdown /l") 'to log off
               Timer1.Enabled = False
           ElseIf optAbort.Value Then
               Call Shell("Shutdown /a") 'to Abort
               Timer1.Enabled = False
           End If
       End If
   End Sub
   
   Private Sub Timer2_Timer()
       lblDate.Caption = "Date: " & Format(Now, "MMMM dd, YYYY hh:mm:ss AM/PM")
   End Sub
5. Untuk mencoba tekan RUN atau F5 untuk menjalankan alikasinya.
6. Selamat mencoba

Demikian artikel mengenai  Membuat Aplikasi Auto Shutdown di Visual Basic semoga bisa bermanfaat bagi anda dan dapat digunakan sebagaimana mestinya, terima kasih.