Do CreateINI

Local cFile
cFile = “c:\sampleini.ini”
=MakeFile(cFile)

= WritePrivateProfileSection (”One”,;
“ID=001″ + Chr(0) +”Path = c:”+CHR(0) ,;
cFile)
= WritePrivateProfileSection (”Two”,;
“ID=002″ + Chr(0) +”Path = d:”+CHR(0) ,;
cFile)
= WritePrivateProfileSection (”Three”,;
“ID=003″ + Chr(0) +”Path = e:”+CHR(0) ,;
cFile)

PROCEDURE  MakeFile (cFile)
IF FILE (cFile)
DELETE FILE (cFile)
ENDIF

hFile = FCREATE (cFile)
= FCLOSE (hFile)

PROCEDURE  CreateINI
DECLARE WritePrivateProfileSection IN kernel32;
STRING lpAppName,;
STRING lpString,;
STRING lpFileName

DECLARE WritePrivateProfileString IN kernel32;
STRING lpAppName,;
STRING lpKeyName,;
STRING lpString,;
STRING lpFileName

enjoy it…!
source

Gammu adalah semacam service yang bisa digunakan sebagai SMS Gateway. Kelebihan gammu antara lain multi platform (Linux,Windows) dan aplikasi SMS Gateway bisa dibangun dari berbagai bahasa program seperti PHP, Java, VFP, Delphi,VB dll. Seperti judul diatas, tentu saja disini saya menggunakan VFP (Visual Foxpro) sebagai interface aplikasi SMS Gateway. J

Step 1

Download file gammu for windows disini. (saya menggunakan versi 1.09.00)

Step 2

Ekstrak file gammu di sebuah folder Anda, misalnya c:\gammu

Step 3

Setting konfigurasi Gammu dengan mengedit file gammurc :

[gammu]

port =

(isi sesuai port yang dikenali HP saat terhubung dengan computer dan akhiri dengan tanda :)

connection =

Jenis koneksi HP. Selengkapnya bisa dilihat disini

Contoh konfigurasi saya dengan menggunakan HP Sony Erricson W200i

[gammu]

Port = com14:

Connection = AT115200

Tes koneksi dengan mengetik command dos prompt :

Gammu –identify

Jika berhasil akan muncul seperti ini:

Manufacturer : Sony Ericsson

Model : unknown (AAB-1022044-BV)

Firmware : R4JA011

IMEI : 359703216549870

SIM IMSI : 510132165498701

Step 4

Setting konfigurasi SMS Daemon.

Ubah file smsdrc pada bagian :

[gammu]

Port = diisi sesuai dengan port pada file gammurc

[smsd]

PIN = isi nomor PIN kartu jika Sim Card memelukan nomor PIN

– setting for –smsd MYSQL—-

User = root

Password = passwordroot

Pc = localhost

Database = smsd

Step 5

Membuat database smsd. File dump (ber-extension .sql) untuk membuat table-table sudah disediakan gammu dan bisa dijalankan menggunakan phpmyadmin ataupun tools mysql lain.

Step 6

Menjalankan Gammu sebagai service. Ketik di dos prompt:

Gammu –-smsd MYSQL smsdrc

Jika berhasil akan muncul di dos prompt :

Press Ctrl+C to stop the program………

– bersambung–

cKon = SQLSTRINGCONNECT(”Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydata.mdb;Uid=Admin;Pwd=;”)

IF ckon <= 0
MESSAGEBOX(”Database Conection Failed”,0+16,”Error”)
CLEAR EVENTS
QUIT
ELSE
MESSAGEBOX(”Database Conection Succeed”,0+16,”Succeed”)

ENDIF

Here is some code to terminate active windows application with visual foxpro :

oWMI = GETOBJECT(’winmgmts://’)
cQuery = “select * from win32_process where name=’calc.exe’”
oResult = oWMI.ExecQuery(cQuery)
? oResult.Count
FOR EACH oProcess IN oResult
? oProcess.Name
oProcess.Terminate(0)
NEXT

source

Ada beberapa hal yang sebaiknya dilakukan dan tidak dilakukan dalam pemrograman Visual Foxpro.

• Jangan gunakan variable PUBLIC. Variabel public sulit dilAcak dan bukan design yang baik.

• Tidak menggunakan Formsets.

• Jangan sering (overload) Form.Refresh. Terlalu banayak form.refresh bisa memperlambat aplikasi

• Gunakan awalan (prefix) untuk jenis & obyek. Misalnya cName,nPrice

• Hindari SET FILTER karena bisa memperlambat kinerja aplikasi kecuali disaat Rushmore tidak dapat digunakan.

• Jangan lupa SETs anda. Ingat SETs anda saat BeforeOpenTables event pada DataEnvironment saat form menggunakan Private DataSession. Atau bisa juga SETs pada Form.Load()

• Setiap tabel harus memiliki Primary Key

• Hindari pengulangan penulisan code (code repition) yang sama

• Gunakan default Window Close button

• Jangan menggunakan garis bawah dalam penamaan variabel dan field

• Jika memungkinkan, ikuti Panduan Standar MS Windows Design

• Komentar. Tidak hanya komentar dalam code, tapi juga dalam properti dan metode dalam Form, class designer, tables & fields dalam table designer dan modul-modul dalam project manager. Anda akan mendapatkan bahwa komentar anda sangat membantu anda.

• Gunakan SEEK PADR(field_name,field_len) jika ingin melakukan pencarian secara exact match

• Gunakan local table jika memungkinkan

Selengkapnya bisa dibaca dari sini

Dalam pemrograman Visual Foxpro, kadang kita memerlukan sesuatu kontrol agar bisa lebih memudahkan user menjalankan program / aplikasi. Pada contoh ini saya mencoba ilustrasikan penggunaan kontrol combo box dalam Grid.

Buatlah sebuah form dan letakkan grid control ke dalam form. Dalam contoh ini, grid memiliki 3 kolom (header).

Letakkan sebuah kontrol combo box dan klik kanan -> Cut

Here is a Visual Foxpro example that create an OO calc spreadsheet.

VfpOOoCalcExample()

PROCEDURE VfpOOoCalcExample()
* Create a spreadsheet.
LOCAL oDoc
oDoc = OOoOpenURL( “private:factory/scalc” )

* Get first sheet
LOCAL oSheet
oSheet = oDoc.getSheets().getByIndex( 0 )

Read the rest of this entry »

Declaration :

DECLARE INTEGER GetUserName IN advapi32;
STRING  @ lpBuffer,;
INTEGER @ nSize

Usage :

nSize = 250
cBuffer = REPLICATE(Chr(0), nSize)
= GetUserName(@cBuffer, @nSize)
cBuffer = STRTRAN(cBuffer, CHR(0), “”)
? cBuffer
? GETENV(”USERNAME”)

In an application program (visual foxpro) is common if the first time the program is run for a user login form will appear. One method is to run the login form first and then the main form. There is also the method still run form the main form at the same time raise login first before the user can access other programs. Here are some tips for both methods:

• Set properties Form login

windowstype = Modal

ShowWindow = 1 - InTopLevelForm

• Declare variables to accommodate the public the results of the login form on the main form

FormUtama.Load:

Public n_login

n_login = 0

• Run the login form on the main form activate

FormUtama.Activate :

IF n_Login = 0

DO FORM formlogin.scx

ENDIF

in the form log added:

cmdOK.click:

n_Login = 1

Have a nice try…

Visual Basic - Non ODBC

Set db = New Connection
db.CursorLocation = adUseClient
db.Open “PROVIDER=MSDataShape;Data PROVIDER=” & _
“Microsoft.Jet.OLEDB.4.0;Data Source=” _
& App.Path & “\fpdata.mdb;Jet OLEDB:” & _
“Database Password=”;”

Read the rest of this entry »