buff_size := 4000 && 4000 byte buffer
com_ok := COM_OPEN(1,buff_size) && COM1: open
DO WHILE .T. .and. INKEY()<> K_ESC
IF .NOT. com_ok
? “It was not possible to open interface.”
ELSE
init_ok = COM_INIT(1, 9600, “N”, 8, 1)
IF .NOT. init_ok
alert(“It was not possible to initialize the interface”)
ELSE
** SENSOR 01
l_send = COM_SEND(1,”:01R;”)
INKEY(0.5)
c_input = COM_READ(1,COM_COUNT(1)) && Read in 10
IF LEN(ALLTRIM(c_input)) <= 0
t01 = 0
ENDIF
a01 = AT(“01+”,c_input )
IF a01 > 0
b01 = AT(“*”,SUBSTR(c_input ,a01,9))
IF b01 > 0
VAL_01 = VAL(SUBSTR(c_input ,(a01+b01)-5,4))
t01 = VAL_01
ENDIF
ENDIF

COM_FLUSH(1)

@XX,XX SAY TRANSFORM(t01,”###.##”)

ENDIF

ENDIF

IF LastKey() = 27 &&K_ESC
COM_CLOSE(1)
ENDIF
ENDDO

RETURN .T.

Title01 = “LIST OF EMPLOYEES”
Title02 = “COMPANY”

WAIT WINDOW STARTXL_LOC NOWAIT
tmpsheet=GetObject(”,’excel.sheet’)
XLApp=tmpsheet.application
XLApp.Visible=.t.
XLApp.WorkBooks.Add()
XLSheet=XLApp.ActiveSheet
XLSheet.Cells(1,01).Value = Title01
XLSheet.Cells(2,01).Value = Title02
XLSheet.Cells(4,01).Value = “ID”
XLSheet.Cells(4,02).Value = “NAME”
XLSheet.Cells(4,03).Value = “DIVISION”
XLSheet.Cells(4,04).Value = “DATE HIRED”

*!* Open table employee

USE employee AGAIN ALIAS ListEmployee IN 0
SELECT ListEmployee
GO TOP
n_hit = 5
SCAN FOR !EOF()
n_hit = n_hit + 1
XLSheet.Cells(n_hit,01).Value = ListEmployee.ID
XLSheet.Cells(n_hit,02).Value = ListEmployee.NAME
XLSheet.Cells(n_hit,03).Value = ListEmployee.DEPT
XLSheet.Cells(n_hit,04).Value = ListEmployee.DATEHIRED
ENDSCAN
WAIT WINDOW ENDDATA_LOC TIMEOUT 2
SELECT ListEmployee
USE

This sample code for disable menu Data – Employee when employee form activated and enabled when form Employee deactivated.

Create menu Master :

Click “Edit” and create submenu “Employee” :

Click Create button and write command :

DO FORM employee.scx

And save ( CTRL+W).

Then click Option button and put variable mnDataEmployee on ‘Skip For:”

Note: Variable must be declared on General Setup in menu Master :

PUBLIC mnDataEmployee as Boolean

STORE .F. TO mnDataEmployee

Save and Generate menu master.

Open form Employee and add code in :

FormLoad procedure :

mnDataEmployee = .T.

SET SKIP OF BAR 1 OF Data mnDataEmployee

FormRelease procedure :

mnDataEmployee = .F.

SET SKIP OF BAR 1 OF Data mnDataEmployee

Save and close form employee.

Run command with DO master.mpr

lExit = .F.
nTot  = par

cTotal= ALLTRIM(STR(nTot))

FOR i=1 TO LEN(cTotal)
nRp= (LEN(SUBSTR(cTotal,i)))
cRp= SUBSTR(cTotal,i,1)

DO CASE
CASE nRp > 0
GetDetailRupiah(nRp,cRp,@cRupiah)
CASE nRp < 0
nRp= nRp + 3
GetDetailRupiah(nRp,cRp,@cRupiah)
CASE nRp = 0
cRupiah = cRupiah
ENDCASE
NEXT

IF nTot – INT(nTot) > 0
cRupiah = cRupiah
ENDIF

RETURN cRupiah + “RUPIAH “

FUNCTION GetDetailRupiah(nRp,cRp,cRupiah)
local cNilai
DIMENSION aRp(10)
aRp(1) = “SATU “
aRp(2) = “DUA “
aRp(3) = “TIGA “
aRp(4) = “EMPAT “
aRp(5) = “LIMA “
aRp(6) = “ENAM “
aRp(7) = “TUJUH “
aRp(8) = “DELAPAN “
aRp(9) = “SEMBILAN “
aRp(10) = “SEPULUH “

cNilai = ”

DO CASE
CASE nRp = 1
IF VAL(cRp) # 0
cNilai = aRp(VAL(cRp))
ENDIF
cRupiah = cRupiah  + cNilai
CASE nRp = 2 .or. nRp = 8
IF VAL(cRp) # 0
IF VAL(cRp) = 1
i = i + 1
cRp    = SUBSTR(cTotal,i,1)
IF VAL(cRp) # 0
IF VAL(cRp) = 1
cNilai = “SEBELAS “
ELSE
cNilai = aRp(VAL(cRp)) + “BELAS “
ENDIF
ELSE
cNilai = “SEPULUH “
ENDIF
cRupiah = cRupiah  + cNilai

IF nRp = 8
cRupiah = cRupiah+ “JUTA “
ENDIF
ELSE
cNilai  = aRp(VAL(cRp))
cRupiah = cRupiah + cNilai + “PULUH “
ENDIF
ENDIF
CASE nRp = 3 .or. nRp = 9
IF VAL(cRp) # 0
cNilai = aRp(VAL(cRp))
IF VAL(cRp) = 1
cNilai = “SE”
ENDIF
cRupiah = cRupiah +cNilai + “RATUS “
ENDIF
CASE nRp = 4 .OR. nRp = 5 .or. nRp = 6
IF VAL(cRp) # 0
cNilai = aRp(VAL(cRp))
IF VAL(cRp) = 1     && //.AND. EMPTY(cRupiah)
cNilai = “SE”
ENDIF
ENDIF

DO CASE
CASE nRp = 4 .AND. (!EMPTY(cNilai) .OR. RIGHT(ALLTRIM(cRupiah),4) # “JUTA”)
cRupiah = cRupiah + cNilai + “RIBU “
CASE nRp = 5
DO CASE
CASE VAL(cRp) = 1
i = i + 1
cRp    = SUBSTR(cTotal,i,1)
IF VAL(cRp) # 0
cNilai = aRp(VAL(cRp))
IF VAL(cRp) = 1
cNilai = “SE”
ENDIF
cRupiah = cRupiah + cNilai + “BELAS RIBU “
ELSE
cRupiah = cRupiah + “SEPULUH RIBU “
ENDIF
CASE VAL(cRp) == 0
i = i + 1
cRp    = SUBSTR(cTotal,i,1)
IF VAL(cRp) # 0
IF VAL(cRp) = 1
cNilai = “SE”
ELSE
cNilai = aRp(VAL(cRp))
ENDIF
ELSE
cNilai = “”
ENDIF
IF RIGHT(ALLTRIM(cRupiah),4) # “JUTA” .OR. !EMPTY(cNilai)
cRupiah = cRupiah + cNilai + “RIBU “
ENDIF
OTHER
cRupiah = cRupiah + cNilai + “PULUH “
ENDCASE

CASE nRp = 6 .AND. (!EMPTY(cNilai) .OR. RIGHT(ALLTRIM(cRupiah),4) # “JUTA”)
cRupiah = cRupiah + cNilai + “RATUS “
ENDCASE
CASE nRp = 7
IF VAL(cRp) # 0
cNilai = aRp(VAL(cRp))
ENDIF
cRupiah = cRupiah + cNilai + “JUTA “
ENDCASE
RETURN .T.

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

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 BoutReduce

*** 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

Private Sub cmdDownload01_Click()
If lStatusKonek Then
If chkDownload.Value = 0 Then
cmdDownload01.Enabled = False
MousePointer = vbHourglass
End If
Dim dwEnrollNumber As Long
Dim dwVerifyMode As Long
Dim dwInOutMode As Long
Dim timeStr As String
Dim i As Long
Dim lAddNew As Boolean

Dim v1 As String, v2 As Long, v3 As Long

lvX.Refresh
If chkDownload.Value = 1 Then
lvX.ListItems.Clear
End If

v1 = CStr(!no_id)
v2 = !baudrate
v3 = !no_port

If CZKEM1.ReadGeneralLogData(v1) Then
i = 1
CZKEM1.ReadAllUserID v1 ”cboNoMesin01
While CZKEM1.GetGeneralLogDataStr(v1, dwEnrollNumber, dwVerifyMode, dwInOutMode, timeStr)

lvX.ListItems.Add i, , dwEnrollNumber
With lvX.ListItems(i)
.SubItems(1) = IIf(IsNull(timeStr), “”, timeStr)
.SubItems(2) = IIf(IsNull(v1), “”, v1)
.SubItems(3) = IIf(IsNull(dwVerifyMode), “”, IIf(dwVerifyMode = 1, “Fingerprint”, “Password”))
DoEvents
End With

Dim d_TimeStr As Date
d_TimeStr = CDate(Left(Right(Left(timeStr, 10), 2) & “-” & Mid(Left(timeStr, 10), 6, 2) & “-” & Left(Left(timeStr, 10), 4) & ” ” & Right(Trim(timeStr), 8), Len(Right(Left(timeStr, 10), 2) & “-” & Mid(Left(timeStr, 10), 6, 2) & “-” & Left(Left(timeStr, 10), 4) & ” ” & Right(Trim(timeStr), 8))))

lvX.ListItems.Add i, , dwEnrollNumber
With lvX.ListItems(i)
.SubItems(1) = IIf(IsNull(timeStr), “”, timeStr)
.SubItems(2) = IIf(IsNull(v1), “”, v1)
.SubItems(3) = IIf(IsNull(dwVerifyMode), “”, IIf(dwVerifyMode = 1, “Fingerprint”, “Password”))
DoEvents
End With

End If
End With

lvX.Refresh
Wend
End If
.MoveNext
Wend
End With
If chkDownload.Value = 0 Then
cmdDownload01.Enabled = True
MousePointer = vbDefault
End If
adoMesinConnect.Close
End If

End Sub