Cara Mengetahui Lama Pemakaian Komputer

Mungkin ada diantara anda yang sering tidak mengecek lama pemakaian komputer anda. Atau sudah berapa lama komputer terpakai. Dengan mengetahui lama pemakaian komputer, bisa membantu kita untuk mengistirahatkan (shutdown) komputer. Agar komputer anda bisa kembali dingin dan mudah-mudahan komputer bisa awet.

Lama waktu pemakaian komputer dihitung mulai dari komputer start (booting) hingga saat anda melakukan pengecekan lama pemkaian.

Untuk mengetahui lama pemakaian komputer, bisa lakukan prosedur berikut:

1. Pada start menu, pilih Start -> Run
    ketik cmd
    Klik tombol OK

2. Akan muncul commad prompt

  

3. Ketik systeminfo
    kemudian tekan enter

  

4. Akan terlihat lama pemakaian komputer
    (dalam contoh ini, lama pemakaian komputer saya adalah 6 jam 47 menit 22 detik)
   
  

Menampilkan Shortcut WEB Favorite di Desktop

Shorcut sangat membantu untuk mengakses aplikasi dengan cepat. Selain aplikasi yang berextensi exe, atau dokumen exetensi doc, xls, jpg, dan extensi lainnya dapat dibuat shortcutnya di desktop. Alamat web juga bisa dibuat shorcutnya di desktop komputer anda. Hal ini cocok digunakan untuk membuat shorcut web yang sering dikunjungi.

Prosedur pembuatannya :
1. Pada address bar browser,ketik halaman web yang sering dikunjungi
    contoh: http://www.detik.com
    Bisa juga ketik : detik kemudian tekan tombol Ctrl+Enter (detik Ctrl+Enter) (tanpa tanda +) maka   akan muncul halaman detik

2. Klik dan drag ( diklik + digeser) ikon web detik yang ada di address bar browser, tempatkan ikon tersebut di desktop, kemudian lepaskan kliknya. Otomatis di desktop akan muncul shorcut web detik

 

3. Untuk membuka situs tersebut, anda hanya perlu melakukan double klik pada shortcut tsb, kemudian browser anda akan tebuka otomatis.

 

Membuat Laporan Dengan Crystal Report

Ada banyak cara untuk membuat sebuah laporan yang dipakai oleh suatu program. Cara satu cara yang dipakai adalah dengan menggunakan Crystal Report. Dengan software ini laporan mudah dibuat dan lebih terlihat rapi. Yang dimaksud laporan disini adalah laporan yang dibuat untuk program microsoft visual basic. Bisa dibilang ini adalah lanjutan dari tulisan saya yang sebelumnya yaitu tentang pembuatan program penjualan buku yang telah kita pelajari. Tapi tentunya pada komputer anda harus sudah terinstall software Crystal Report ini terlebih dahulu jika ingin mempelajarinya.

Setelah Crystal Report terinstall, langkah2 yang harus dilakukan berikutnya adalah:

1. Buka program Crystal Report (CR).

2. Pada layar Welcome terlihat ada 3 pilihan.

•   Using The Report Expert untuk membuat laporan secara otomatis.
•   As A Blank Report untuk membuat laporan secara manual.
•   Open An Existing Report untuk membuka laporan yang sudah pernah dibuat.

3. Untuk tutorial ini kita memakai yang USING THE REPORT EXPERT.

4. Pada CR gallery pilihlah yang STANDARD maka akan muncul layar berikutnya.

5. Pada bagian pertama kita disuruh memasukan Data dari laporan yang ingin kita buat. pilihlah yang DATABASE jika anda membuat laporan untuk program yang berhubungan dengan database.

6. Pada Data Explorer, pilih DATABASE FILES.

7. lalu pilih FIND DATABASE FILE dan carilah database yang telah anda buat.

8. Setelah database dipilih, maka terlihatlah semua Table yang ada di database tersebut.

9. Pilihlah nama Table yang anda butuhkan dengan menekan tombol ADD. Dan disini juga boleh memasukan banyak Table.

10. Untuk nama Table yang dipilih maka akan terlihat ada tanda checklist pada Table tersebut dan Table tersebut langsung masuk pada bagian DATA yaitu pada daftar Table yang akan digunakan untuk laporan (Tables available for reports).

11. Jika sudah pilihlah tombol CLOSE pada Data Explorer tadi.

12. Berikutnya pada bagian LINKS. Jika Table anda mempunyai hubungan antar Table (Relationships/Links) maka secara otomatis akan dihubungkan melalui index atau primary key antar Table tersebut.

13. Pada bagian FIELDS, masukanlah field field yang anda ingin masukan ke dalam laporan dengan cara menekan tombol ADD untuk memasukan satu persatu atau ADD ALL untuk memasukan semua field sekaligus.

14. Di bagian ini, anda juga bisa membatalkan atau menghapus field field yang telah anda masukan ke dalam laporan dengan menekan tombol REMOVE untuk menghapus satu persatu atau REMOVE ALL untuk menghapus semua field sekaligus.

15. Anda bisa mengatur posisi dari field field tadi dengan menekan tombol panah keatas atau panah kebawah sehingga field yang anda pilih bisa bertukar posisi.

16. Anda juga bisa mengganti nama field tadi dengan merubahnya pada bagian COLUMN HEADING.

17. Untuk bagian bagian seterusnya anda bisa menekan tombol NEXT untuk meneruskan proses pembuatan laporan itu sampai terakhir atau anda juga bisa menekan tombol BACK bila ada bagian yang ingin dirubah. Jadi dalam pembuatan laporan disini anda bisa melewati beberapa proses atau bagian yang ada.

18. Untuk bagian bagian selanjutnya adalah hanya tambahan saja (Optional) yaitu Group, Total, TopN, Chart, Select, dan yang terakhir adalah Style. Lewati saja bagian yang menurut anda tidak diperlukan, sampai akhirnya pada bagian Style.

19. GROUP digunakan untuk mengelompokkan field field laporan anda menjadi suatu kelompok. Misalnya anda bisa mengelompokkan field field yang ada di table transaksi menjadi berdasarkan tanggal, maka hasil laporan pun akan tersusun dan dekelompokan berdasarkan tanggal.

20.  Bagian TOTAL dan TOP N tidak akan bisa dipilih jika anda tidak memilih GROUP.

21. Bagian TOTAL digunakan untuk menyisipkan suatu perhitungan dari suatu field ke dalam laporan. Contohnya anda bisa menambahkan jumlah total kesuluruhan dari semua data transaksi anda.

22. Bagian TOP N digunakan untuk mengurutkan suatu group.

23. Selanjutnya anda juga bisa menambahkan sebuah diagram atau Chart pada bagian CHART dan bisa disusun secara vertikal (keatas) atau horizontal (kesamping). Disitu terdapat berbagai macam diagram yang bisa anda pakai.

24. Bagian SELECT bisa anda gunakan untuk menambahkan suatu sub laporan.

25. Yang terakhir adalah bagian STYLE. Anda bisa memilih gaya laporan anda sendiri apakah ingin menampilkannya agar tersusun menjadi sebuah Table atau tanpa Table atau ada juga beberapa pilihan lainnya.

26. Jangan lupa untuk menambahkan judul dari Laporan tersebut pada kotak TITLE.

27. ADD PICTURE digunakan untuk menambahkan sebuah gambar ke dalam laporan anda jika itu diperlukan.

28. Jika semua sudah diatur, tinggal menekan tombol FINISH untuk mengakhirinya.

29. Hasil laporan akhirnya dimunculkan dan anda bisa melihat isi data dari laporan itu.

30. Perlu diperhatikan bahwa di layar tampilan tersebut terdapat dua bagian yaitu:

•   DESIGN untuk mendisain atau merubah dan mengutak atik laporan tadi. Pada bagian ini isi data tidak diperlihatkan.
•   PREVIEW untuk melihat isi dari data yang didisain (data diperlihatkan). Sebenarnya anda juga bisa mengutak atik laporan anda pada bagian ini.

31. Anda bisa menambahkan field, group, total, garis, kotak, tulisan, gambar atau hal hal lain dengan menekan INSERT pada bagian menu. Dengan tool tool tersebut laporan anda bisa jadi kelihatan lebih indah.

32. Bahkan di laporan ini juga banyak terdapat tool yang mirip dengan yang ada di microsoft office word. Misalnya untuk membuat huruf tebal, miring, garis bawah atau membuat tulisan menjadi ke kiri, kanan, tengah atau rata dan sebagainya.

33. Jangan lupa untuk menyimpan laporan yang telah anda buat.

CARA MENGHUBUNGKAN CRYSTAL REPORT KE VISUAL BASIC

• Buka project dan form yang ingin dibuatkan laporannya.
• Klik kanan pada Toolbox dan pilih Component.
• Pada bagian Controls, pilihlah Crystal Report Control. Tekan Apply dan Oke.
• Setelah Tool Crystal Report muncul pada toolbox, letakkanlah di dalam form tersebut.
• Contoh rumus yang dituliskan di listing programnya:

             Crystalreport1.ReportFileName = App.Path & “\NamaLaporan.rpt”

             Crystalreport1.WindowState = crptMaximized
             Crystalreport1.RetrieveDataFiles
             Crystalreport1.Action = 1

Demikianlah cara membuat laporan dengan Crystal Report Dan coba perhatikan hasil laporan anda pasti terlihat lebih rapi dibandingkan apabila anda membuatnya dengan cara yang lain. Sekian dan Terima kasih. Wassalam !

Live Streaming Hollywood PREMIERES TV

Menampilkan Properti Universal Data Link (UDL) Open, Edit, Save

 Private mstrProvider            As String
 Private mstrIntegratedSecurity  As String
 Private mstrUserId              As String
 Private mstrInitialCatalog      As String
 Private mstrDataSource          As String
 Private mstrPersistSecurityInfo As String
 Private mstrMode                As String
 Private mstrConnectTimeout      As String
 Private mstrInitialFileName     As String
 Private mstrUdlFilePath         As String
 Private mstrExtendedProperties  As String
 Private mstrCurrentLanguage     As String
 Private mstrNetworkAddress      As String
 Private mstrNetworkLibrary      As String
 Private mstrApplicationName     As String
 Private mstrInitString          As String
 Private mstrNewConnectionString As String
 Public Enum enumUDLInfo
     udlProvider = 1
     udlIntegratedSecurity = 2
     udlUserId = 3
     udlInitialCatalog = 4
     udlDataSource = 5
     udlPersistSecurityInfo = 6
     udlMode = 7
     udlConnectTimeout = 8
     udlInitialFilename = 9
     udlUDLFilePath = 10
     udlExtendedProperties = 11
     udlCurrentLanguage = 12
     udlNetworkAddress = 13
     udlNetworkLibrary = 14
     udlApplicationName = 15
 End Enum
 Public Function GetUdlInit() As Boolean
 On Error GoTo GetUdlInitErr
 Dim objFSO          As Scripting.FileSystemObject
 Dim objFile         As Scripting.TextStream
 Dim strData         As String
 Set objFSO = New Scripting.FileSystemObject
 If Not objFSO.FileExists(GetUdlDir & GetUdlName & ".cfg") Then
     If objFSO.FileExists(UDLFilePath) Then
        Open UDLFilePath For Input As #1
             Input #1, strData
             Input #1, strData
             Input #1, strData
        Close 1
     Else
         Open GetUdlDir & GetUdlName & ".cfg" For Output As #1
         Print #1, strData
         Close 1
     End If
     Open GetUdlDir & GetUdlName & ".cfg" For Output As #1
     Print #1, strData
     Close 1
 Else
     Open GetUdlDir & GetUdlName & ".cfg" For Input As #2
         Input #2, strData
     Close 2
 End If
 mstrProvider = StripInfo(strData, udlProvider)
 mstrPersistSecurityInfo = StripInfo(strData, udlPersistSecurityInfo)
 mstrDataSource = StripInfo(strData, udlDataSource)
 mstrIntegratedSecurity = StripInfo(strData, udlIntegratedSecurity)
 mstrUserId = StripInfo(strData, udlUserId)
 mstrInitialCatalog = StripInfo(strData, udlInitialCatalog)
 mstrMode = StripInfo(strData, udlMode)
 mstrConnectTimeout = StripInfo(strData, udlConnectTimeout)
 mstrInitialFileName = StripInfo(strData, udlInitialFilename)
 mstrExtendedProperties = StripInfo(strData, udlExtendedProperties)
 mstrCurrentLanguage = StripInfo(strData, udlCurrentLanguage)
 mstrNetworkAddress = StripInfo(strData, udlNetworkAddress)
 mstrNetworkLibrary = StripInfo(strData, udlNetworkLibrary)
 mstrApplicationName = StripInfo(strData, udlApplicationName)
 mstrInitString = strData
 GetUdlInit = True
GetUdlInitExit:
     If Not objFSO Is Nothing Then Set objFSO = Nothing
     If Not objFile Is Nothing Then Set objFile = Nothing
     Close
     Exit Function
GetUdlInitErr:
     GetUdlInit = False
     Resume GetUdlInitExit
 End Function
 Private Function StripInfo(ByVal str_Data As String, _
                            ByVal enum_UdlInfo As enumUDLInfo) As String
 On Error GoTo StripInfoErr

 Dim lngFind     As Long
 Select Case enum_UdlInfo
     Case udlProvider
     If PropertyValue(str_Data, "Provider=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, "Provider="))
     End If
     Case udlPersistSecurityInfo
     If PropertyValue(str_Data, "Persist Security Info=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Persist Security Info="))
     End If
     Case udlUserId
     If PropertyValue(str_Data, "User ID=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "User ID="))
     End If
     Case udlDataSource
     If PropertyValue(str_Data, "Data Source=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, "Data Source="))
     End If
     Case udlMode
     If PropertyValue(str_Data, "Mode=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, "Mode="))
     End If
     Case udlConnectTimeout
     If PropertyValue(str_Data, "Connect Timeout=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Connect Timeout="))
     End If
     Case udlInitialCatalog
     If PropertyValue(str_Data, "Initial Catalog=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Initial Catalog="))
     End If
     Case udlIntegratedSecurity
     If PropertyValue(str_Data, "Integrated Security=") < 0 Then
        StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Integrated Security="))
     End If
     Case udlInitialFilename
     If PropertyValue(str_Data, "Initial File Name=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Initial File Name="))
     End If
     Case udlExtendedProperties
     If PropertyValue(str_Data, "Extended Properties=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Extended Properties="))
     End If
     Case udlCurrentLanguage
     If PropertyValue(str_Data, "Current Language=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Current Language="))
     End If
     Case udlNetworkAddress
     If PropertyValue(str_Data, "Network Address=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Network Address="))
     End If
     Case udlNetworkLibrary
     If PropertyValue(str_Data, "Network Library=") < 0 Then
        StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Network Library="))
     End If
     Case udlApplicationName
      If PropertyValue(str_Data, "Application Name=") < 0 Then
         StripInfo = SplitString(str_Data, _
                     PropertyValue(str_Data, _
                     "Application Name="))
      End If
 End Select
StripInfoExit:
     Exit Function
StripInfoErr:
     Resume StripInfoExit
 End Function
 Private Function PropertyValue(ByVal str_String As String, _
                                ByVal str_PropertyValue As String) As Long
 PropertyValue = InStr(1, str_String, str_PropertyValue, vbTextCompare)
 If PropertyValue < 0 Then
     PropertyValue = PropertyValue + Len(str_PropertyValue)
 End If
 End Function
 Private Function SplitString(ByVal str_Text As String, _
                              ByVal lng_StartAt As Long) As String
 On Error GoTo SplitStringErr
 Dim lngLoop As Long
 Dim strTemp As String
 For lngLoop = lng_StartAt To Len(str_Text)
             strTemp = Mid(str_Text, lngLoop, 1)
             If strTemp < ";" Then
                 If strTemp < "" Then
                     SplitString = SplitString & strTemp
                 Else
                     Exit For
                 End If
             Else
                 Exit For
             End If
 Next lngLoop
SplitStringExit:
     Exit Function
SplitStringErr:
     Resume SplitStringExit
 End Function
 Public Function OpenUdl(ByRef ctl_FormName As Form) As Boolean
 On Error GoTo OpenUdlErr
 Dim objOpenUdl  As MSDASC.DataLinks
 Dim cnnOpenUdl  As ADODB.Connection
 Set objOpenUdl = New MSDASC.DataLinks
 Set cnnOpenUdl = New ADODB.Connection
 If GetUdlInit Then
     cnnOpenUdl.ConnectionString = mstrInitString
     objOpenUdl.hWnd = ctl_FormName.hWnd
     objOpenUdl.PromptEdit cnnOpenUdl
     mstrInitString = cnnOpenUdl.ConnectionString
     SaveUdl mstrInitString
     GetUdlInit
     OpenUdl = True
 End If
OpenUdlExit:
     If Not objOpenUdl Is Nothing Then Set objOpenUdl = Nothing
     If Not objcnnopenudl Is Nothing Then Set cnnOpenUdl = Nothing
     Exit Function
OpenUdlErr:
     OpenUdl = False
     Resume OpenUdlExit
 End Function
 Public Function SaveUdl(ByVal str_ConnectionString As String) As Boolean
 On Error GoTo SaveUdlErr
 Dim objFSO  As Scripting.FileSystemObject
 Dim objFile As Scripting.TextStream
 Set objFSO = New Scripting.FileSystemObject
 Set objFile = objFSO.CreateTextFile(GetUdlDir & GetUdlName & ".cfg", True)
     objFile.WriteLine str_ConnectionString
     objFile.Close
     SaveUdl = True
SaveUdlExit:
     If Not objFile Is Nothing Then Set objFile = Nothing
     If Not objfsl Is Nothing Then Set objFSO = Nothing
  
     Exit Function
SaveUdlErr:
     SaveUdl = False
     Resume SaveUdlExit
 End Function
 Public Function UdlExists() As Boolean
 On Error GoTo UdlExistsErr
 Dim objFSO  As Scripting.FileSystemObject
 Set objFSO = New FileSystemObject
 If UDLFilePath < "" Then
     UdlExists = objFSO.FileExists(UDLFilePath)
 Else
     UdlExists = False
 End If
UdlExistsExit:
     If Not objFSO Is Nothing Then Set objFSO = Nothing
     Exit Function
UdlExistsErr:
     UdlExists = False
     Resume UdlExistsExit
 End Function
 Public Function Properties(ByVal str_PropertyName As String, _
                            ByVal str_InitString As String) As String
 On Error GoTo PropertiesErr
 If PropertyValue(str_InitString, str_PropertyName & "=") < 0 Then
         Properties = SplitString(str_InitString, _
                     PropertyValue(str_InitString, str_PropertyName & "="))
 End If
PropertiesExit:
     Exit Function
PropertiesErr:
     Resume PropertiesExit
 End Function
 Public Function CreateUdl(ctl_Form As Form) As String
 On Error GoTo CreateUdlErr

 Dim objCreateUdl    As MSDASC.DataLinks
 Dim cnnCreateUdl    As ADODB.Connection
 Set objCreateUdl = New MSDASC.DataLinks
 Set cnnCreateUdl = New ADODB.Connection
 objCreateUdl.hWnd = ctl_Form.hWnd
 cnnCreateUdl.Open (objCreateUdl.PromptNew)
 CreateUdl = cnnCreateUdl.ConnectionString
 InitString = cnnCreateUdl.ConnectionString
 cnnCreateUdl.Close
CreateUdlExit:
     If Not objCreateUdl Is Nothing Then Set objCreateUdl = Nothing
     If Not cnnCreateUdl Is Nothing Then Set cnnCreateUdl = Nothing
     Exit Function
CreateUdlErr:
     Resume CreateUdlExit
 End Function
 Public Function GetUdlName() As String
 On Error GoTo GetUdlNameErr

 Dim intloop As Integer
 For intloop = Len(UDLFilePath) To 1 Step -1
 If Mid(UDLFilePath, intloop, 1) = "" Then
     GetUdlName = Mid(UDLFilePath, intloop + 1)
     GetUdlName = Left(GetUdlName, (Len(GetUdlName) - 4))
     Exit For
 End If
 Next intloop
GetUdlNameExit:
     Exit Function
GetUdlNameErr:
     Resume GetUdlNameExit
 End Function
 Public Function GetUdlDir() As String
 On Error GoTo GetUdlDirErr

 Dim intloop As Integer
 For intloop = Len(UDLFilePath) To 1 Step -1
 If Mid(UDLFilePath, intloop, 1) = "" Then
     GetUdlDir = Mid(UDLFilePath, 1, (intloop))
     Exit For
 End If
 Next intloop
GetUdlDirExit:
      Exit Function
GetUdlDirErr:
     Resume GetUdlDirExit
 End Function
 Public Property Get Provider() As String
 Provider = mstrProvider
 End Property
 Public Property Let Provider(ByVal str_Provider As String)
 mstrProvider = str_Provider
 End Property
 Public Property Get IntegratedSecurity() As String
 IntegratedSecurity = mstrIntegratedSecurity
 End Property
 Public Property Let IntegratedSecurity(ByVal str_IntegratedSecurity As String)
 mstrIntegratedSecurity = str_IntegratedSecurity
 End Property
 Public Property Get PersistSecurityInfo() As String
 PersistSecurityInfo = mstrPersistSecurityInfo
 End Property
 Public Property Let PersistSecurityInfo(ByVal str_PersistSecurityInfo As String)
 mstrPersistSecurityInfo = str_PersistSecurityInfo
 End Property
 Public Property Get UserId() As String
 UserId = mstrUserId
 End Property
 Public Property Let UserId(ByVal str_UserId As String)
 mstrUserId = str_UserId
 End Property
 Public Property Get InitialCatalog() As String
 InitialCatalog = mstrInitialCatalog
 End Property
 Public Property Let InitialCatalog(ByVal str_InitialCatalog As String)
 mstrInitialCatalog = str_InitialCatalog
 End Property
 Public Property Get DataSource() As String
 DataSource = mstrDataSource
 End Property
 Public Property Let DataSource(ByVal str_DataSource As String)
 mstrDataSource = str_DataSource
 End Property
 Public Property Get InitialFileName() As String
 InitialFileName = mstrInitialFileName
 End Property
 Public Property Let InitialFileName(ByVal str_InitialFileName As String)
 mstrInitialFileName = str_InitialFileName
 End Property
 Public Property Get Mode() As String
 Mode = mstrMode
 End Property
 Public Property Let Mode(ByVal str_Mode As String)
 mstrMode = str_Mode
 End Property
 Public Property Get ConnectTimeout() As String
 ConnectTimeout = mstrConnectTimeout
 End Property
 Public Property Let ConnectTimeout(str_ConnectTimeout As String)
 mstrConnectTimeout = str_ConnectTimeout
 End Property
 Public Property Get UDLFilePath() As String
 UDLFilePath = mstrUdlFilePath
 End Property
 Public Property Let UDLFilePath(ByVal str_UDLFilePath As String)
 mstrUdlFilePath = str_UDLFilePath
 End Property
 Public Property Get ExtendedProperties() As String
 ExtendedProperties = mstrExtendedProperties
 End Property
 Public Property Let ExtendedProperties(ByVal str_ExtendedProperties As String)
 mstrExtendedProperties = str_ExtendedProperties
 End Property
 Public Property Get CurrentLanguage() As String
 CurrentLanguage = mstrCurrentLanguage
 End Property
 Public Property Let CurrentLanguage(ByVal str_CurrentLanguage As String)
 mstrCurrentLanguage = str_CurrentLanguage
 End Property
 Public Property Get NetWorkAddress() As String
 NetWorkAddress = mstrNetworkAddress
 End Property
 Public Property Let NetWorkAddress(ByVal str_NetWorkAddress As String)
 mstrNetworkAddress = str_NetWorkAddress
 End Property
 Public Property Get NetworkLibrary() As String
  NetworkLibrary = mstrNetworkLibrary
 End Property
 Public Property Let NetworkLibrary(ByVal str_NetworkLibrary As String)
 mstrNetworkLibrary = str_NetworkLibrary
 End Property
 Public Property Get ApplicationName() As String
 ApplicationName = mstrApplicationName
 End Property
 Public Property Let ApplicationName(ByVal str_ApplicationName As String)
 mstrApplicationName = ApplicationName
 End Property
 Public Property Get InitString() As String
 InitString = mstrInitString
 End Property
 Public Property Let InitString(ByVal str_InitString As String)
 mstrInitString = str_InitString
 End Property

Bermain-main dengan Matematika - (Matematika)

Dim X, Y, two, r, i, m As Single
Private Sub Command1_Click()
    Scale (3, -3)-(-3, 3)
    For s = 0 To 8 Step 0.0001
        Picture3.Visible = False
        r = Tan(7000 * s)
        X = Cos(r * r) * r * Cos(Sin((Tan(Cos(s * r)))))
        Y = Sin(Atn(Cos(s * X)))
        Kolamground.PSet (X, Y), vbRed
    Next s
    Picture4.Visible = False
    Kolamground.Cls
    Scale (2, -2)-(-2, 2)
    For s = 0 To 5 Step 0.0001
        r = Tan(Cos(2000 * s))
        m = Atn(r * s)
        X = Sin(m) * Cos(r) * Atn(m) * Cos(m * (r * m) * Atn(m * r))
        Y = m * X * Tan(Tan(Atn(Cos((s * r)))))
        Kolamground.PSet (X, Y), vbBlue
    Next s
    Kolamground.Cls
    Scale (3, -3)-(-3, 3)
    For s = 0 To 3 Step 0.0001
        r = Cos(5000 * s)
        X = r * Atn(Cos(10 * r))
        Y = r * Sin(Tan(7000 * X * r))
        Kolamground.PSet (Y, X), vbGreen
    Next s
    Kolamground.Cls
    Scale (3, -3)-(-3, 3)
    For s = 0 To 5 Step 0.0001
        r = Tan(1000 * s)
        X = r * Cos(s * r)
        Y = r * Atn(Cos(s * r * s))
        Kolamground.PSet (X, Y), vbBlue
    Next s
    Kolamground.Cls
    Scale (3, -3)-(-3, 3)
    For s = 0 To 5 Step 0.0001
        r = Tan(7000 * s)
        X = r * Cos(s * r * 100)
        Y = r * Atn(Atn(Cos(s * r)))
        Kolamground.PSet (r, Y), vbRed
    Next s
    Kolamground.Cls
    Scale (6, -6)-(-6, 6)
    For s = 0 To 4 Step 0.0001
        r = Tan(100 * s)
        X = r * Cos(s * 1000 * r * 7000)
        Y = r * Tan(Atn(Sin(Atn(Cos(s * r)))))
        Kolamground.PSet (Y, r), vbGreen
    Next s
    Kolamground.Cls
    Scale (2, -2)-(-2, 2)
    For s = 0 To 3 Step 0.0001
        r = Tan(100 * s * s)
        X = r * Cos(r) * (Cos(s * 1000 * r * 7000))
        Y = r * Tan(Atn(Sin(Atn(Sin(Cos(s * r))))))
        Kolamground.PSet (r, X), vbBlue
    Next s
    Kolamground.Cls
    Scale (8, -8)-(-1, 6)
    For s = 0 To 8 Step 0.0001
        r = Tan((Atn(s)))
        X = r * Sin(r) * Cos(r) * (Cos(s * 1000 * r * 7000))
        Y = r * Tan(X) * Tan(s) * Tan(Atn(Sin(Atn(Sin(Cos(s * r))))))
        Kolamground.PSet (r, X), vbRed
    Next s
    Kolamground.Cls
    Scale (2, -2)-(-2, 2)
    For s = 0 To 6 Step 0.0001
        r = Tan(100 * s * s)
        X = r * Cos(r) * (Cos(s * 1000 * r * 7000))
        Y = Sin(X * r * r * Tan(Atn(Sin(Atn(Sin(Cos(s * r)))))))
        Kolamground.PSet (X, Y), vbGreen
    Next s
    Kolamground.Cls
    Picture3.Visible = False
    Picture2.Visible = True
    Picture4.Visible = True
    Picture3.Visible = False
End Sub