Monday, July 25, 2016

How to read and evaluate a formula from String using PHP


How to read and evaluate a formula from String using PHP
I'm sorry if cannot post the exact code as text. I'm having a hard time converting it to text because it mess up with html. formula reader basically converts a formula written as string and evaluate it. I hope it helps.


Friday, December 4, 2015

Win Free Training For Life

Win Free Training For Life

Tuesday, September 23, 2014

Photo Viewer using C# WPF

//Image Viewer
//create a folder named "images" under your application folder.
//then add an image viewer on your application and named it "Image_Viewer"
// next, add the code below under your browse image button or under MouseDown event of your Image_Viewer
//under Properties choose Common,Stretch=Uniform, StretchDirection=Both
//also add the following directives
//using System.IO;
//using Microsoft.Win32;

String AppPath = System.AppDomain.CurrentDomain.BaseDirectory;
OpenFileDialog dlg = new OpenFileDialog();


dlg.Filter = "(.jpg)|*.jpg";
dlg.DefaultExt = ".jpg";
dlg.ShowDialog();

try
    {
            if (System.IO.Directory.Exists(AppPath + "images") == false)
                {
                    System.IO.Directory.CreateDirectory(AppPath + "images");

                }

                //MessageBox.Show("@" + AppPath + "images\\" + System.IO.Path.GetFileName(dlg.FileName));
                File.Copy(dlg.FileName, AppPath + "images\\" + System.IO.Path.GetFileName(dlg.FileName), true);


                BitmapImage b = new BitmapImage();
                b.BeginInit();
                b.UriSource = new Uri(AppPath + "images\\" + System.IO.Path.GetFileName(dlg.FileName), UriKind.Absolute);
                b.CacheOption = BitmapCacheOption.OnLoad;
                b.EndInit();
               
                Image_Viewer.Source = b;

                //throw new Exception("");
        }
catch (Exception ex)
    {
        MessageBox.Show(ex.Message);
        }

Thursday, September 18, 2014

DateTimePicker for C# WPF

DateTimePicker dateTimePicker = new DateTimePicker{
     Format = DateTimePickerFormat.Time,
     ShowUpDown = true // Set to false if you don't want the up and down arrows to select the time 
};

DateTime.ToString() Guides

DateTime.ToString() Guides 

 

All the patterns:

0 MM/dd/yyyy 08/22/2006
1 dddd, dd MMMM yyyy Tuesday, 22 August 2006
2 dddd, dd MMMM yyyy HH:mm Tuesday, 22 August 2006 06:30
3 dddd, dd MMMM yyyy hh:mm tt Tuesday, 22 August 2006 06:30 AM
4 dddd, dd MMMM yyyy H:mm Tuesday, 22 August 2006 6:30
5 dddd, dd MMMM yyyy h:mm tt Tuesday, 22 August 2006 6:30 AM
6 dddd, dd MMMM yyyy HH:mm:ss Tuesday, 22 August 2006 06:30:07
7 MM/dd/yyyy HH:mm 08/22/2006 06:30
8 MM/dd/yyyy hh:mm tt 08/22/2006 06:30 AM
9 MM/dd/yyyy H:mm 08/22/2006 6:30
10 MM/dd/yyyy h:mm tt 08/22/2006 6:30 AM
10 MM/dd/yyyy h:mm tt 08/22/2006 6:30 AM
10 MM/dd/yyyy h:mm tt 08/22/2006 6:30 AM
11 MM/dd/yyyy HH:mm:ss 08/22/2006 06:30:07
12 MMMM dd August 22
13 MMMM dd August 22
14 yyyy'-'MM'-'dd'T'HH':'mm':'ss.fffffffK 2006-08-22T06:30:07.7199222-04:00
15 yyyy'-'MM'-'dd'T'HH':'mm':'ss.fffffffK 2006-08-22T06:30:07.7199222-04:00
16 ddd, dd MMM yyyy HH':'mm':'ss 'GMT' Tue, 22 Aug 2006 06:30:07 GMT
17 ddd, dd MMM yyyy HH':'mm':'ss 'GMT' Tue, 22 Aug 2006 06:30:07 GMT
18 yyyy'-'MM'-'dd'T'HH':'mm':'ss 2006-08-22T06:30:07
19 HH:mm 06:30
20 hh:mm tt 06:30 AM
21 H:mm 6:30
22 h:mm tt 6:30 AM
23 HH:mm:ss 06:30:07
24 yyyy'-'MM'-'dd HH':'mm':'ss'Z' 2006-08-22 06:30:07Z
25 dddd, dd MMMM yyyy HH:mm:ss Tuesday, 22 August 2006 06:30:07
26 yyyy MMMM 2006 August
27 yyyy MMMM 2006 August

The patterns for DateTime.ToString ( 'd' ) :

0 MM/dd/yyyy 08/22/2006

The patterns for DateTime.ToString ( 'D' ) :

0 dddd, dd MMMM yyyy Tuesday, 22 August 2006

The patterns for DateTime.ToString ( 'f' ) :

0 dddd, dd MMMM yyyy HH:mm Tuesday, 22 August 2006 06:30
1 dddd, dd MMMM yyyy hh:mm tt Tuesday, 22 August 2006 06:30 AM
2 dddd, dd MMMM yyyy H:mm Tuesday, 22 August 2006 6:30
3 dddd, dd MMMM yyyy h:mm tt Tuesday, 22 August 2006 6:30 AM

The patterns for DateTime.ToString ( 'F' ) :

0 dddd, dd MMMM yyyy HH:mm:ss Tuesday, 22 August 2006 06:30:07

The patterns for DateTime.ToString ( 'g' ) :

0 MM/dd/yyyy HH:mm 08/22/2006 06:30
1 MM/dd/yyyy hh:mm tt 08/22/2006 06:30 AM
2 MM/dd/yyyy H:mm 08/22/2006 6:30
3 MM/dd/yyyy h:mm tt 08/22/2006 6:30 AM

The patterns for DateTime.ToString ( 'G' ) :

0 MM/dd/yyyy HH:mm:ss 08/22/2006 06:30:07

The patterns for DateTime.ToString ( 'm' ) :

0 MMMM dd August 22

The patterns for DateTime.ToString ( 'r' ) :

0 ddd, dd MMM yyyy HH':'mm':'ss 'GMT' Tue, 22 Aug 2006 06:30:07 GMT

The patterns for DateTime.ToString ( 's' ) :

0 yyyy'-'MM'-'dd'T'HH':'mm':'ss 2006-08-22T06:30:07

The patterns for DateTime.ToString ( 'u' ) :

0 yyyy'-'MM'-'dd HH':'mm':'ss'Z' 2006-08-22 06:30:07Z

The patterns for DateTime.ToString ( 'U' ) :

0 dddd, dd MMMM yyyy HH:mm:ss Tuesday, 22 August 2006 06:30:07

The patterns for DateTime.ToString ( 'y' ) :

0 yyyy MMMM 2006 August

Building a custom DateTime.ToString Patterns

The following details the meaning of each pattern character. Note the K and z character.
d Represents the day of the month as a number from 1 through 31. A single-digit day is formatted without a leading zero
dd Represents the day of the month as a number from 01 through 31. A single-digit day is formatted with a leading zero
ddd Represents the abbreviated name of the day of the week (Mon, Tues, Wed etc)
dddd Represents the full name of the day of the week (Monday, Tuesday etc)
h 12-hour clock hour (e.g. 7)
hh 12-hour clock, with a leading 0 (e.g. 07)
H 24-hour clock hour (e.g. 19)
HH 24-hour clock hour, with a leading 0 (e.g. 19)
m Minutes
mm Minutes with a leading zero
M Month number
MM Month number with leading zero
MMM Abbreviated Month Name (e.g. Dec)
MMMM Full month name (e.g. December)
s Seconds
ss Seconds with leading zero
t Abbreviated AM / PM (e.g. A or P)
tt AM / PM (e.g. AM or PM
y Year, no leading zero (e.g. 2001 would be 1)
yy Year, leadin zero (e.g. 2001 would be 01)
yyy Year, (e.g. 2001 would be 2001)
yyyy Year, (e.g. 2001 would be 2001)
K Represents the time zone information of a date and time value (e.g. +05:00)
z With DateTime values, represents the signed offset of the local operating system's time zone from Coordinated Universal Time (UTC), measured in hours. (e.g. +6)
zz As z but with leadin zero (e.g. +06)
zzz With DateTime values, represents the signed offset of the local operating system's time zone from UTC, measured in hours and minutes. (e.g. +06:00)
f Represents the most significant digit of the seconds fraction; that is, it represents the tenths of a second in a date and time value.
ff Represents the two most significant digits of the seconds fraction; that is, it represents the hundredths of a second in a date and time value.
fff Represents the three most significant digits of the seconds fraction; that is, it represents the milliseconds in a date and time value.
ffff Represents the four most significant digits of the seconds fraction; that is, it represents the ten thousandths of a second in a date and time value. While it is possible to display the ten thousandths of a second component of a time value, that value may not be meaningful. The precision of date and time values depends on the resolution of the system clock. On Windows NT 3.5 and later, and Windows Vista operating systems, the clock's resolution is approximately 10-15 milliseconds.
fffff Represents the five most significant digits of the seconds fraction; that is, it represents the hundred thousandths of a second in a date and time value. While it is possible to display the hundred thousandths of a second component of a time value, that value may not be meaningful. The precision of date and time values depends on the resolution of the system clock. On Windows NT 3.5 and later, and Windows Vista operating systems, the clock's resolution is approximately 10-15 milliseconds.
ffffff Represents the six most significant digits of the seconds fraction; that is, it represents the millionths of a second in a date and time value. While it is possible to display the millionths of a second component of a time value, that value may not be meaningful. The precision of date and time values depends on the resolution of the system clock. On Windows NT 3.5 and later, and Windows Vista operating systems, the clock's resolution is approximately 10-15 milliseconds.
fffffff Represents the seven most significant digits of the seconds fraction; that is, it represents the ten millionths of a second in a date and time value. While it is possible to display the ten millionths of a second component of a time value, that value may not be meaningful. The precision of date and time values depends on the resolution of the system clock. On Windows NT 3.5 and later, and Windows Vista operating systems, the clock's resolution is approximately 10-15 milliseconds.
F Represents the most significant digit of the seconds fraction; that is, it represents the tenths of a second in a date and time value. Nothing is displayed if the digit is zero.
: Represents the time separator defined in the current DateTimeFormatInfo..::.TimeSeparator property. This separator is used to differentiate hours, minutes, and seconds.
/ Represents the date separator defined in the current DateTimeFormatInfo..::.DateSeparator property. This separator is used to differentiate years, months, and days.
" Represents a quoted string (quotation mark). Displays the literal value of any string between two quotation marks ("). Your application should precede each quotation mark with an escape character (\).
' Represents a quoted string (apostrophe). Displays the literal value of any string between two apostrophe (') characters.
%c Represents the result associated with a c custom format specifier, when the custom date and time format string consists solely of that custom format specifier. That is, to use the d, f, F, h, m, s, t, y, z, H, or M custom format specifier by itself, the application should specify %d, %f, %F, %h, %m, %s, %t, %y, %z, %H, or %M. For more information about using a single format specifier, see Using Single Custom Format Specifiers.
||\c || Represents the escape character, and displays the character "c" as a literal when that character is preceded by the escape character (\). To insert the backslash character itself in the result string, the application should use two escape characters ("\\").
Any other character copies any other character to the result string, without affecting formatting. ||

This guide is from http://www.geekzilla.co.uk/View00FF7904-B510-468C-A2C8-F859AA20581F.htm

Sunday, April 13, 2014

Send and Receive SMS using VB6

 Send and Receive SMS using VB6 No Third Party Software Required


How to Use.

1. Connect your broadband device to your PC that support sending and receiving SMS or your phone.
2. Install driver for your device.
3. Then stop all programs associated with your device like device dashboard. If you will not stop your device dashboard, you can send SMS but you cannot received SMS directly from your program.
4. Run this program and choose your device listed on the combo box(cbo). If your device is not on the list. click refresh device list(cmdrefresh).
5. Click Test Connection(cmdconnect).
6. You may start sending SMS.
7. Tick Receive Message(chk)

Components

1. Microsoft Comm Control 6.0

Module Code


Public GSMPort As String
Public GSMDescription As String
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public OK As Boolean
Public Error As Boolean


Function gsmConnect(xMSComm As MSComm, xPort As String) As String


    On Error Resume Next
   
    With xMSComm
    .CommPort = xPort
    .Settings = "9600,N,8,1"
    .Handshaking = comRTS
    .RTSEnable = True
    .DTREnable = True
    .RThreshold = 1
    .SThreshold = 1
    .InputMode = comInputModeText
    .InputLen = 0
    .PortOpen = True
    End With
   
    If Err.Number = 0 Then
        gsmConnect = "Connection Successful"
    Else
        gsmConnect = "Cannot connect to" & GSMDescription & "." & Err.Description
       
        GSMCom = ""
        GSMDescription = ""
    End If
       
End Function

Sub Wait_For_Response()
Dim Start

   Start = Timer
   Do While Timer < Start + 8
      DoEvents
      If OK Then
        Exit Sub
      End If
      If Error Then
        Exit Sub
      End If
   Loop
End Sub

Form Code

Private Sub chk_Click()

Screen.MousePointer = vbDefault
    If chk.Value = 0 Then
        If MSComm1.PortOpen = True Then
            Timer1.Enabled = False
            MSComm1.PortOpen = False
            'StatusBar1.Panels(1).Text = "Auto responder is inactive..."
           
        End If
    ElseIf chk.Value = 1 Then

       ' StatusBar1.Panels(1).Text = "Waiting for incoming messages..."
       
        getComPorts
        Connect_Now
        Timer1_Timer
        Timer1.Enabled = True
        'received2
    End If

End Sub

Private Sub cmdclose_Click()

Unload Me

End Sub

Private Sub cmdconnect_Click()
   
    If Len(Trim(cbo.Text)) = 0 Then
        MsgBox "Please choose device to connect.", vbwarning, "Alert!"
            cbo.SetFocus
        Exit Sub
    End If
   
    On Error Resume Next
    Screen.MousePointer = vbHourglass
    MSComm1.PortOpen = False
    getComPorts
   
    MsgBox gsmConnect(MSComm1, GSMPort)
   
    Screen.MousePointer = vbDefault
    MSComm1.PortOpen = False
   
End Sub

Private Sub cmdrefresh_Click()


    'On Error Resume Next
        cbo.Clear
       
    Set WMIObjectSet = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("select * from Win32_PnPEntity")
   
    For Each wmiobject In WMIObjectSet
        If InStr(wmiobject.Name, "COM") Then
        If InStr(wmiobject.Name, "COM ") Then GoTo nope
            cbo.AddItem wmiobject.Name
           
nope: End If
      Next
        Set WMIObjectSet = Nothing
       
End Sub

Private Sub getComPorts()

    On Error Resume Next
   
    If Mid(cbo.Text, Len(Trim(cbo.Text)) - 2, 1) = "M" Then
    GSMPort = Mid(cbo.Text, Len(Trim(cbo.Text)) - 1, 1)
    Else
    GSMPort = Mid(cbo.Text, Len(Trim(cbo.Text)) - 2, 2)
    End If
    GSMDescription = cbo.Text

End Sub

Private Sub Connect_Now()


On Error GoTo errmali
If Len(Trim(GSMPort)) = 0 Then
    MsgBox "Please check your connection to the device."

Else
    With MSComm1
    .CommPort = GSMPort
    .Settings = "9600,N,8,1"
    .Handshaking = comRTS
    .RTSEnable = True
    .DTREnable = True
    .RThreshold = 1
    .SThreshold = 1
    .InputMode = comInputModeText
    .InputLen = 0
    .PortOpen = True
End With
End If
Exit Sub
errmali:
    MsgBox "Please check your connection to the device."
   
End Sub

Private Sub cmdsend_Click()


On Error Resume Next
    MSComm1.PortOpen = False
    Connect_Now
    MSComm1.Output = "AT" & vbCrLf
    Sleep 500
   
    MSComm1.Output = "AT+CMGF = 1" & vbCrLf
    Sleep 500
   
    MSComm1.Output = "AT+CMGS = " & Chr(34) & txtcontact.Text & Chr(34) & vbCrLf
    Sleep 1000
   
    MSComm1.Output = txtsms.Text & Chr(26)
    Sleep 2000

End Sub

Public Sub received2()


On Error Resume Next
Dim rawmsg, msgno, msgdate, mobile, msgreceived As String
'StatusBar1.Panels(1).Text = "new message received..."

MSComm1.Output = "AT+CMEE = 1" & Chr$(13)
Do
    DoEvents
    buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK")
buffer$ = ""

StatusBar1.Panels(1).Text = "processing new message..."

MSComm1.Output = "AT+CMGF = 1" & Chr$(13)

Do
    DoEvents
    buffer$ = buffer$ & MSComm1.Input
Loop Until InStr(buffer$, "OK")
'List All Messages
buffer$ = ""

MSComm1.Output = "AT+CMGL = " & Chr(34) & "ALL" & Chr(34) & vbCrLf
Do
DoEvents
buffer$ = MSComm1.Input

If InStr(buffer$, "+CMGL:") Then
    'List2.AddItem Replace(Split(buffer$, ",")(2), Chr(34), "") & "-" & Replace(Split(buffer$, ",")(1), "REC", "") & "-" & Replace(Split(buffer$, ",")(4), Chr(34), "") & "-" & Replace(Split(buffer$, Chr(13))(2), Chr(10), "")
    rawmsg = Replace(Split(buffer$, ",")(2), Chr(34), "") & "-" & Replace(Split(buffer$, ",")(1), "REC", "") & "-" & Replace(Split(buffer$, ",")(4), Chr(34), "") & "-" & Replace(Split(buffer$, Chr(13))(2), Chr(10), "")
   
    msgno = Val(Replace(Split(buffer$, ",")(0), "+CMGL:", "")) 'Split(rawmsg, "-")(0) & vbCrLf
    msgno = Trim(msgno)
   
    msgdate = Split(rawmsg, "-")(2) & vbCrLf
    msgdate = Replace(Replace(msgdate, Chr(10), ""), Chr(13), "")
   
    mobile = Split(rawmsg, "-")(0) & vbCrLf
    mobile = Replace(Replace(Replace(mobile, "+63", ""), Chr(10), ""), Chr(13), "")
   
    msgreceived = Split(rawmsg, "-")(3) & vbCrLf
    msgreceived = Replace(Replace(Trim(msgreceived), Chr(10), ""), Chr(13), "")

    ' display received message in a listbox name List2
   
    'List2.AddItem "Msg. No : " & msgno & " Date: " & msgdate & " Mobile No. :" & mobile & " SMS : " & msgreceived
    'KEYWORD is for auto reply, remove the block of code if you do not want to create an auto reply of received message
   
    If UCase(msgreceived) = "KEYWORD" Then
            'Process received message here
        Screen.MousePointer = vbHourglass
                           
        MSComm1.Output = "AT" & vbCrLf
   
            Wait_For_Response
                                   
            MSComm1.Output = "AT+CMGF = 1" & vbCrLf
           
              'This line can be removed if your modem will always be in Text Mode...
           
            Wait_For_Response
           
            MSComm1.Output = "AT+CMGS = " & Chr(34) & "+63" & mobile & Chr(34) & vbCrLf
           
            'Replace this with your mobile Phone 's No.
           
            Wait_For_Response
                                   
            MSComm1.Output = "HI from SMS" & Chr(26)
                'Sleep 2000
            Wait_For_Response
           
                Screen.MousePointer = vbDefault
                                        
    End If
    'end of KEYWORD block of code
   
         List2.AddItem "Msg. No : " & msgno & " Date: " & msgdate & " Mobile No. : +63" & mobile & " SMS : " & msgreceived
            'Delete SMS after reading
            cmd = "AT+CMGD = " & msgno
            MSComm1.Output = cmd & vbCrLf
            Wait_For_Response
       
End If
Loop Until InStr(buffer$, "OK")
buffer$ = ""

End Sub

Private Sub Timer1_Timer()

received2
    'Timer1.Enabled = false
   ' StatusBar1.Panels(1).Text = "Waiting for incoming messages..."
    MSComm1.PortOpen = False
    MSComm1.PortOpen = True
End Sub

Monday, July 29, 2013

Java and MySQL(Select, Insert, Update and Delete)

I'm using eclipse as my IDE for this example. I also added the MySQL connector for Java on its CLASSPATH via File, Properties, Run/Debug Settings, click class name, Edit, click ClassPath tab, User Entries, Add External Jars, then browse for the latest MySQL connector for java, in my case I'm using  "mysql-connector-java-5.1.23-bin.jar", open and apply. Then you can begin using "com.mysql.jdbc.Driver" .

You can download a copy of the MySQL J connector from the official MySQL site.

Database Name :  test
Table Name : User
Columns :    UserName and Password

Server: localhost
User: root
Password: root
Port: 3308


import javax.swing.*;
import java.awt.Dimension;
import java.awt.Toolkit;
import java.awt.event.*;
import java.sql.*;

public class login {

Connection con=null;
Statement st=null;
ResultSet rs=null;
JFrame fra1 = new JFrame("User Log-in");
JLabel lun = new JLabel("User Name: ");
JLabel lpw = new JLabel("Password : ");
JTextField txtun = new JTextField(10);
JTextField txtp = new JTextField(10);
JButton b = new JButton("Login");

public login(){
connect();
frame();
}

public void connect(){
try {
String driver="com.mysql.jdbc.Driver";
Class.forName(driver);
String db = "jdbc:mysql://localhost:3308/test";
con=DriverManager.getConnection(db,"root" , "root");
st=con.createStatement();
}
catch(Exception ex){
JOptionPane.showMessageDialog(null, ex.getMessage().toString());
}
}

public void frame(){
int w=250, h=150;
Dimension screen = Toolkit.getDefaultToolkit( ).getScreenSize( );
int x = (screen.width-w)/2;
int y = (screen.height-h)/2;
fra1.setSize(w,h);
fra1.setLocation(x, y);
fra1.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
//fra1.setLayout(new FlowLayout());
fra1.setVisible(true);
JPanel p = new JPanel();
p.add(lun);
p.add(txtun);
p.add(lpw);
p.add(txtp);
p.add(b);
fra1.add(p);

b.addActionListener(new ActionListener(){

public void actionPerformed(ActionEvent arg0) {
try {
String u = txtun.getText().trim();
String p = txtp.getText().trim();

//Guide to using Insert, Update and Delete
//String nonquery ="INSERT INTO User (`UserName`, `Password`) VALUES ('" + u + "', '" + p + "')";
//st.executeUpdate(nonquery);

String sql ="SELECT * FROM User WHERE `UserName` LIKE '" + u + "' AND `Password`
LIKE '" + p + "'";
rs=st.executeQuery(sql);

int c=0;
while(rs.next()){
//The code to retrieve date from column table
//JOptionPane.showMessageDialog(null,  "User Name : " + (String) rs.getObject("UserName"));
c+=1;
}

if (c>0){
JOptionPane.showMessageDialog(null,  "Record Found!");
}
Else {
JOptionPane.showMessageDialog(null, "Record NOT Found!");
}
}
catch(Exception ex){
JOptionPane.showMessageDialog(null, ex.getMessage().toString());
}
}});
}

public static void main(String[] args) {
new login();
}
}