Algoritma pemrograman sistem pada komputer Client



Pada pemrograman sistem ini, program yang berjalan pada computer Client dapat diuraikan sebagai berikut :
1)      Algoritma Program Utama
Program utama ini diletakan pada Modul  Global, yang secara langsung memanggil Form Komputer Klien, akan tetapi sebelumnya telah membentuk sebuah port, pada system ini ditetapkan nilai port yaitu “1256”.


Port -> Int
Begin
            If Command ¬ “ “ then
                        Port ¬ 1256
            Endif
            Tampil Form KomputerKlien
If Aplikasi ¬ Jalan then
            Exit
    Else
            If Error then
                        KoneksiUlang
                 Else
                        TcpIpKlien ¬ Port
                        TcpIpKlien ¬ Listen
            Endif
            If KoneksiUlang then
                        Port ¬ Port + 1
                        TcpIpKlien ¬ Port
                        TcpIpKlien ¬ Listen
            Endif
Endif
End

 
















Sesuai dengan Socket Client  yang bersifat pasif, dalam hal ini Client akan menunggu adanya permintaan sambungan dari Administrator dan melaksanakan instruksi serta mengirimkan informasi yang dibutuhkan, maka pada program ini menggunakan prosedur case dan memanggil fungsi-fungsi yang dikirimkan. Prosedur Case pada penerimaan instruksi yang selanjutnya  memanggil  fungsi yang didefinisikan.


InstruksiMsk,Drive,Command ¬ String
Begin
            Select Case Command
                                Case "Dpt_Inform"
                                    IdKlien.AmbilInformasi
                        Case "DptInformSystem"
                                                IdKlien.DptInformSystem
                        Case "BukaCDRomKlien"
                                    IdKlien.BukaCDRomKlien
                        Case "TutupCDRomKlien"
                                    IdKlien.TutupCDRomKlien
                        Case "ShutDown"
                                    Call ShutDown(ExitOptions.EWX_SHUTDOWN)
                        Case "HangUp_Internet_Klien"
                                    IdKlien.HangUp_Internet_Klien
                        Case "Tutup_Aplikasi"
                                    IdKlien.CloseWindow Drive
                        Case "OffLine_Program_Klien"
                                    IdKlien.ShutDown
                                    TcpIpKlien.Close
                                    Unload Me
                        Case "Ganti_Resolusi"
                                    IdKlien.ChangeRes Drive
                        Case "Ganti_Walpaper_Klien"
                                    IdKlien.GantiWallpaperKlien
                        Case "Dpt_Drives"
                                    IdKlien.GetDrives
                        Case "PesanDialog"
                                    IdKlien.PesanDialog Drive
                        Case "PesanSingkat"
                                    IdKlien.PesanSingkat Drive
                        Case "IsiDialog"
                                    IdKlien.Dialog Drive
                        Case "PesanDesktop"
                                                PesanDesktop Drive
Case “LihatLayarUser”
            If InstruksiMsk ¬ 15 then
               Panggil File(C:\Layar.old)
               If File (C:\Layar.old <> “” then
                  NamaFile=FreeFile
                  Buka(C:\Layar.old)
                                             KirimDataKeAdministrator (TampilinData)
               Endif
            Endif
Case Else
KirimDataKeAdministrator "Pesan_Salah,Tidak Ada instruksi yang lain !!"
            End case
End
 










 untuk melihathalaman selanjutnya klik disini



Popular posts from this blog

Kode Singkatan Komponen Listrik Dan Elektronik

Cara Mengatasi E31 Canon MP258

Cara Mengukur Trimpot