Friday, June 4, 2010

Watch television TV stations live on your PC

src= "http://www.bigextracash.com/images/tv-14.jpeg"
hspace= "8" vspace= "6" border= "0" align= "left"
title= "Watch television - Online Internet TV" alt= "Watch TV - Online IP television" >
Access to
4000 Online television shows from your notebook.
No need of of a TV hardware. Pure picture - no monthly fee needed.


Watch television stations live from home. All you need is
our Internet TV software,
your PC, and online connection.



One of the most convenient things about online internet television is that since you are watching it on your
computer when a advertising comes around instead of having to sit through it you can just surf the web, which gets rid of the pain of commercials.



Let's talk about the opportunities of Online TV. With
Internet TV you are able to watch channels on the number of
devices like, your computer monitor, an iPhone, a notebook, or even
with the right connections you can upload films and entertainments
to your regular TV. With last modern hardware, high speed
or wireless online connections and well designed electronics,
you can even connect to television on personal cellular phone.



Most people can't afford the expensive television packages often come from
companies who offer big list of shows.
This is where our Internet television software comes in.
With this affordable and accessible commodity for your home, you can cut your fees
drastically and only think about internet costs. Some shops such as malls and bookstores even
offer internet for small fee or for free depending on where you go.

Tuesday, June 1, 2010

Advertise to over 10 million users around the globe

Millions of Shoppers

Millions of Shoppers


Reach millions of customers searching for products and services.

Our auditory is day by day growing and now it's over 25 million unique customers every month.
We send traffic from trusted local and global promotion webpages, which bring potential
visitors from North America, Western Europe and upcoming markets.

Get More Hits, Get More Shoppers...




Increase search engine rank

Increase your web-site search engine rank


Be presented on search engines is one of the most critical ways to increase website
traffic and expose your content or service to people that might be interested in your product.

All major search engines utilize an algorithm to calculate your web-site ranks.

They know the number of sites are linking to your website; more links and hits
better rank for your website.

Get Higher Rank...




Get More Visitors

Get More Customers, Get More Sales!!!


With no constant stream of customers you cannot have stable around the clock revenue.

You cannot get sales if no one visits your web-site. You have to have customers
to see your business, every day, 24 hours!

We help more than 30,000 customers get more visitors from Internet.

You can increase your sales by receiving thousands of real interested shoppers to see your products.

More Shoppers...


Thursday, May 20, 2010

My affiliate

please visit here

Thursday, April 29, 2010

Monday, July 21, 2008

Form Entri Employee - VFP

On Form1.Refresh :
THISFORM.txtNoPokok.Value = ''
THISFORM.txtNoPokok.Enabled= .T.
THISFORM.txtNoInduk.Value = ''
THISFORM.txtNama.Value = ''
THISFORM.txtUnit.Value = ''
THISFORM.cmdSave.Enabled = .F.
THISFORM.cmdCancel.Enabled = .F.
THISFORM.cmdErase.Enabled= .F.

SELECT datakar.no_pokok,datakar.no_induk,datakar.nama,datakar.unit from datakar INTO CURSOR ListKar
SELECT ListKar
INDEX on RIGHT(ALLTRIM(no_pokok),4) TAG nop ADDITIVE
THISFORM.grid1.RecordSourceType = 1
THISFORM.grid1.RecordSource = "listkar"
THISFORM.grid1.column1.Width = 100
THISFORM.grid1.column1.header1.Caption = 'ID #1'
THISFORM.grid1.column2.Width = 100
THISFORM.grid1.column2.header1.Caption = 'ID #2'
THISFORM.grid1.column3.Width = 150
THISFORM.grid1.column3.header1.Caption = 'Name'
THISFORM.grid1.column4.Width = 125
THISFORM.grid1.column4.header1.Caption = 'Unit'
THISFORM.txtNoPokok.SetFocus

On Form1.Unload :
IsFormActive = .F.
LogData.ENABLED = .T.

On txtNoPokok.LostFocus :
*!* ID # 1
LOCAL c_NoPokok as String
c_NoPokok = THISFORM.txtNoPokok.Value
IF LEN(ALLTRIM(c_NoPokok)) # 0
SELECT * FROM datakar WHERE no_pokok = c_NoPokok INTO CURSOR CekNoPokok
SELECT CekNoPokok
GO TOP
IF !BOF()
LOCAL n_Jawab
n_Jawab = MESSAGEBOX("No. Pokok in sudah tercatat."+CHR(13)+"Edit data ini?",4+48+256,"Cek No. Pokok")
IF n_Jawab = 6 && YES
THISFORM.txtNoInduk.Value = CekNoPokok.no_induk
THISFORM.txtNama.Value = CekNoPokok.nama
THISFORM.txtUnit.Value = CekNoPokok.unit
THISFORM.txtNoPokok.Enabled= .F.
ENDIF
ENDIF
THISFORM.cmdSave.Enabled = .T.
THISFORM.cmdCancel.Enabled = .T.
THISFORM.cmdErase.Enabled= .T.
SELECT CekNoPokok
USE
ENDIF

On cmdSave.Click :
*!* Save Record
_SCREEN.MOUSEPOINTER = 11
LOCAL c_NoPokok as String,c_NoInduk as String,c_Nama as String,c_Unit as String

c_NoPokok = ALLTRIM(thisform.txtnoPokok.Value)
c_NoInduk = ALLTRIM(thisform.txtNoInduk.Value)
c_Nama = ALLTRIM(thisform.txtNama.Value)
c_Unit = ALLTRIM(thisform.txtUnit.Value)
SELECT no_pokok FROM datakar WHERE ALLTRIM(no_pokok) = c_NoPokok INTO CURSOR CekDataKaryawan
select CekDataKaryawan
GO top
IF !BOF()
**** update data
UPDATE datakar SET no_pokok = c_NoPokok,;
no_induk = c_NoInduk,;
nama = c_Nama,;
unit = c_Unit ;
WHERE ALLTRIM(no_pokok) = c_NoPokok
ELSE
**** insert data
INSERT INTO datakar ;
(no_pokok,;
no_induk,;
nama,unit) ;
VALUES ;
(c_NoPokok,;
c_NoInduk,;
c_Nama,;
c_Unit)
ENDIF
select CekDataKaryawan
USE
THISFORM.REFRESH
_SCREEN.MOUSEPOINTER = 0

On cmdCancel.Click:
*!* Cancel Entri/Edit Record
_SCREEN.MOUSEPOINTER = 11
THISFORM.REFRESH
_SCREEN.MOUSEPOINTER = 0

On cmdErase.Click:
*!* Erase Record
_SCREEN.MOUSEPOINTER = 11
LOCAL n_Jawab
n_Jawab = MESSAGEBOX("Hapus Data karyawan dengan No. Pokok ini?",4+32+256,"Hapus Data Karyawan")
IF n_Jawab = 6 && YES
DELETE FROM datakar WHERE ALLTRIM(no_pokok) = thisform.txtNoPokok.Value
ENDIF
THISFORM.REFRESH
_SCREEN.MOUSEPOINTER = 0

On cmdExit.Click:
IF TYPE("THISFORM.PARENT")="O"
THISFORMSET.RELEASE
ELSE
THISFORM.RELEASE
ENDIF

Saturday, July 19, 2008

Reduce Memory Usage in VFP

Within a timer, this function can be running periodically to reduce memory usage vfp application.
I have already try and work with well.

Function ReduceMemory()

Declare Integer SetProcessWorkingSetSize In kernel32 As SetProcessWorkingSetSize ;
Integer hProcess , ;
Integer dwMinimumWorkingSetSize , ;
Integer dwMaximumWorkingSetSize
Declare Integer GetCurrentProcess In kernel32 As GetCurrentProcess
nProc = GetCurrentProcess()
bb = SetProcessWorkingSetSize(nProc,-1,-1)
*EOFunct ReduceMemory()

this function created by Bernard Bout

Friday, July 18, 2008

Get Data Temperature Sensor with VFP

This sample VFP code for read data from temperature sensor :

*** Com1 setting = "9600,n,8,1"
thisform.MsCom.settings = "9600,n,8,1"
thisform.timer1.Interval = 1000


** SENSOR 01
VAL_01 = ASC(substr(thisform.MsCom.Input,5,5))
thisform.text1.Value = VAL_01

** SENSOR 02
thisform.MsCom.Output = '02R;'
VAL_02 = ASC(substr(thisform.MsCom.Input,5,5))
thisform.text2.Value = VAL_02

** SENSOR 03
thisform.MsCom.Output=':03R;'
VAL_03 = ASC(substr(thisform.MsCom.Input,5,5))
thisform.text3.Value = VAL_03

** SENSOR 04
thisform.MsCom.Output=':04R;'
VAL_04 = ASC(substr(thisform.MsCom.Input,5,5))
thisform.text4.Value = VAL_04

** SENSOR 05
thisform.MsCom.Output=':05R;'
VAL_05 = ASC(substr(thisform.MsCom.Input,5,5))
thisform.text5.Value = VAL_05

thisform.MsCom.inBufferCount = 0
thisform.MsCom.Refresh