Sabtu, 10 September 2016

MULAI JUAL PC GAMES LAGI

Hai guys, setelah sekian lama vakum untuk ga jualan PC games, maka mulai hari ini Tgl 10 September 2016 sampai seterusnya saya mulai jualan kembali..
Tinggal request aja game nya apa, misalkan game yang agan pesen ga ada dalam list saya, mohon tunggu sekitaran 3 sampe 5 hari (tergantung kapasitas gamenya), kalo ada dalam list saya, ya langsung saya burning game nya
Rp. 10.000/kaset plus Plastik CD (No Cover) tergantung dalam 1 game ada berapa kaset, ya tinggal dikalikan saja (Harga tidak termasuk biaya install, mau di installin tambah goceng)
COD aja langsung ke rumah saya (GA KEMANA2).
Kontek saya aja di nomor 08657702999 / 082221200065

Jumat, 04 Desember 2015

CARA MEMBUAT CLIENT SERVER DENGAN DATABASE MYSQL DAN MENGGUNAKAN VB.NET SEBAGAI BAHASA PEMOGRAMANNYA

CONFIGURATION SERVER
1.       Open your localhost/phpmyadmin
2.       Import your database in localhost example db_printing_station.sql
3.       Choose tab users

4.       Click add user

5.       Fill textbox
Menu Login Information
·         username : client_ps
·         host : %
Note :
If you write with ip address client, the server only access that ip address and another client cant access the server
example : %192.168.100.140
·         password : mleisure
·         re-type : mleisure
·         generator password :
·         Menu Database for user
Choose None


Menu Privileges click Check All
Click Add User

6.       Click Edit Privelege on client_ps

7.       Go Menu Database specific priveleges
Choose db_printing_station

This rules for client can acces db_printing_station only (OPTIONAL)

Click go will show

Click Check all (OPTIONAL)

8.       Open control panel
9.       Window firewall
10.   Advanced setting
11.   Inbound Rules
12.   New Rule
13.   Select port - next

14.   fill textbox spesific local ports : 3306     - next

15.   choose allow connection - next

16.   Check All Domain, Private and Public - next


17.   Fill the name rule - finish




  CONFIGURATION CLIENT
1.       Change db_uid : client_ps   - on your connection setting in vb.net
2.       Change db_server : 192.168.100.140   - on your connection setting in vb.net
Note : That ipaddress server
3.       Run your program in vb.net

If you want see database on server you must install sqlyog
this configuration new connection mysql host

Number 1 and number 2 is Ipaddress the server
Number 3 and number 4 user and password client on server localhost/phpmyadmin
Number 5 is port default mysql
Number 6
If you not write thats textbox you will see all database on server but if you want more spesific database write db_printing_station
Click connect


Finally run your program in vb.net and you will connect database on the server

Kamis, 22 Oktober 2015

DELETE FOLDER DAN ALL FILE TANPA PERMASALAHAN ACCESS DENIED

Dim path As String =  "D:\Coba" 'Coba adalah nama folder yang berisi file-file
Dim r = My.Computer.FileSystem.GetDirectoryInfo(path)
r.Attributes = FileAttributes.Normal
My.Computer.FileSystem.DeleteDirectory(path, FileIO.DeleteDirectoryOption.DeleteAllContents)

Kamis, 08 Oktober 2015

CARA MEMBUAT AUTOSLEEP DAN AUTO WAKEUP SETIAP HARI DI WINDOWS MENGGUNAKAN TASK SCHEDULER WINDOWS

Buat project baru
buat seperti ini di form



download file di link ini dan ekstrack
https://mega.nz/#!awA1SSYZ!ZeGfg9kPQmxg_U4dHTN4yXHdpX-5ht1qaOi9FAtd41Y

add reference Microsoft.Win32.TaskScheduler dari folder yang di download
Simpan file Sleep.bat dan Wakeup.bat di drive D

Masukan skrip di bawah ini

Imports Microsoft.Win32.TaskScheduler
Public Class TaskSchedule
    Private Sub setSleep_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles setSleep.Click
        Using ts As New TaskService()
            ' Create a new task definition and assign properties
            Dim td As TaskDefinition = ts.NewTask
            td.RegistrationInfo.Description = "For Sleep PC"

             Dim dt As New DailyTrigger
            dt.StartBoundary = Format(DateTimePicker1.Value, "dd/MM/yyyy HH:mm:ss")
            dt.DaysInterval = 1
            dt.Enabled = True
            td.Triggers.Add(dt)

            ' Add an action (shorthand) that runs Notepad
            td.Actions.Add(New ExecAction("D:\Sleep.bat"))
            td.Settings.StopIfGoingOnBatteries = False
            td.Settings.StartWhenAvailable = False
     
            ' Register the task in the root folder
            ts.RootFolder.RegisterTaskDefinition("Auto Sleep PC", td)
     
        End Using
    End Sub