Source Code PHP Expert Systems Applications

Hello friend of the Smart Learning PHP, still at the end of 2012 ya. This time I wanted to share with you a PHP application, ie the application of expert systems. Friend already knew what it was all an expert system?Expert System is an artificial system or application where we can consult the expert of a field through short questions contained in a program that ended up on the questions that we answer will result in a conclusion and a solution that can solve our problems. Almost as much as we consult the doctor, the doctor will ask us what our complaints and what we feel and he will tell us what we are and what the cure disease. Well so does the Expert Systems Applications.Examples of Expert Systems Expert Systems Applications Doctor is Online. Where are we going to get some questions about...

Changing Border Color of Controls

  Existing controls in VB does not provide a property to change the color bordernya. So if you want to change the color bordernya additional code is required.How to make it as below:Create a new project with a form and a Module therein.Module type in the following code: [ VB 6.0 ] Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long Private...

Figures TextBox Class

Usually when you want to create a TextBox that can only be filled with the numbers made ​​any procedure in the TextBox. If the TextBox is only 1 or 2 may not be a problem,but what if 10 pieces. It will be less efficient because a lot of code duplication. Because it needs to be made specifically TextBox Class numbers to save the code. Download SourceC...

CrystalReport Without Database

Not always use CrystalReport must use the Database. Here are examples of its application in the manufacture of Name Card application. Download SourceC...

Calculating Date Difference

When you need a code to calculate the date difference between 2 data either day, month, or year, the following example: Fungsi : DateDiff( Interval Type, First Date, Second Date ) Jenis IntervalKeterangan dDay (Hari) mMonth (Bulan) yyyyYear (Tahun) hHour (Jam) nMinute (Menit) sSecond (Detik) wwWeek (Minggu) qQuater (4 Bulan) Suppose you want to calculate the difference in days between the date of January 15, 2012 (written # 01/15/2012 #) and 20 Jan 2012, which means it will use a type of interval "d".t = DateDiff("d", #1/15/2012#, #1/20/2012#) , hasilnya 5 If the date obtained from controls such as the DateTimePicker, then the code:t = DateDiff("d", DateTimePicker1.Value, DateTimePicker2.Valu...

Round Decimal Numbers

Many ways in VB to round a number / decimal numbers into integers. If you do not understand, here's a brief explanation:      Automatic rounding      Rounding is done automatically depending on the number is.     If the primary number is odd and decimal numbers> = 0.5, then the rounding up (main numbers plus 1) and if the decimal number <0.5, then the rounding down.     However, if the main number is 0 or even, and decimal numbers> 0.5, then the rounding up and when the decimal number <= 0.5, then the rounding down.     i = CInt (0.4), the result is 0     i = CInt (0.5), the result is 0     i = CInt (0.6), the result 1    ...

Reforming Child Form in MDI Form

If you're making project that uses MDI Form, there is good to add code to set the Child Form to make it look neat. Cascade Kode : [ VB 6.0 ] Me.Arrange vbCascade [ VB .NET ] Me.LayoutMdi(MdiLayout.Cascade) Tile Horizontal Kode : [ VB 6.0 ] Me.Arrange vbTileHorizontal [ VB .NET ] Me.LayoutMdi(MdiLayout.TileHorizontal) Tile Vertical Kode : [ VB 6.0 ] Me.Arrange vbTileVertical [ VB .NET ] Me.LayoutMdi(MdiLayout.TileVertical) To facilitate the user to use it, you can create a special menu like thi...

Application Block Websites

This is an application used to block or blocking pulled Computer to access the website / specific sites of the Browser. Download SourceC...

Pinger apps

As the name implies, this application is useful to ping the website. This application is also useful for stabilizing a weak internet connection. Download SourceC...

ListBox can be in Edit

In order for the items contained in the ListBox can be edited, it would require a special way by combining it with the TextBox. Here's how: Add 1 ListBox, then 1 TextBox (property Visible = False) to the Form. Type this code in the event ListBox1_MouseDoubleClick: Dim i As Integer = ListBox1.SelectedIndex If i < 0 Then Exit Sub With TextBox1   .Top = ListBox1.GetItemRectangle(i).Top + ListBox1.Top   .Left = ListBox1.GetItemRectangle(i).Left + ListBox1.Left   .Text = ListBox1.Items(i)   .Visible = True   .Focus() End With Type This code in event TextBox1_KeyPress : If e.KeyChar = Chr(Keys.Enter) Then  ...

Detect the version of MS Office

The easiest way to detect the version of MS Office that are installed on the computer, that is by reading the registry value. Here's the code:Write the function code in the new module: Function VersiOffice(ByVal Aplikasi As String) As String     On Error GoTo Ero     Dim Reg As Object     Dim s As String            Set Reg = CreateObject("Wscript.Shell")     s = Reg.RegRead("HKCR\" & Aplikasi & ".Application\CurVer\")     VersiOffice = Replace(s, Aplikasi & ".Application.", "", , , 1)    Ero: End Function Use code like this: Dim v As String v = VersiOffice("Word") If v <> "" Then     MsgBox ("Microsoft Word versi " & v) Else    ...

Progress on the Taskbar

Cara menambahkan Progress di Taskbar ini hanya bisa diterapkan pada Windows 7 menggunakan VB .NET. Library yang digunakannya adalah WindowsAPICodePack. Download SourceC...

Pressing the button with code

Here's how to push Button / Button using code, so without doing click using the mouse pointer.Write the following code in the event '(Declarations)' of Form [VB 6.0] Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) [VB.Net] Private Declare Function SendMessage Lib"user32.dll" Alias "SendMessageA"(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByRef lParam As Object) As Integer Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = &H202 Now for practice use code like the following: [VB 6.0] SendMessage Command1.hwnd, &HF3, 1, 0 Sleep 150 SendMessage Command1.hwnd, &HF3,...

Visual Styler

Visual Styler is a control that is used to change the appearance of the form and its controls in it. The interface can be changed to such Office, Mac, or Vista.Its use is very easy, you just add the control to the Form Visual Styler. Then select the desired view in VisualStyle his property. After that save the Project to make changes. Download Visual Sty...

EDraw Office Viewer

Edraw Office Viewer is used to help control displays office files Word, Excel, PowerPoint into a Form. Download EDraw Office Vie...

Web Search Applications

This application is a simple application that was made to make it easier for internet users in the internet web pecarian like using Google, Yahoo, Bing, etc. Download SourceC...