vfp icase function, visual foxpro ICASE() function, 3

ICASE(), what is ICASE

Code:

mname1 = "Shyam"

mtotpercent1 = 45

mClass1 = GetClass(mname1,mtotpercent1)

MESSAGEBOX(mClass1,0+654,"Class Type")

mname2 = "Ram"

mtotpercent2 = 59

mClass2 = GetClass(mname2,mtotpercent2)

MESSAGEBOX(mClass2,0+654,"Class Type")

mname3 = "Hussain"

mtotpercent3 = 78

mClass3 = GetClass(mname3,mtotpercent3)

MESSAGEBOX(mClass3,0+654,"Class Type")

mname4 = "John"

mtotpercent4 = 100

mClass4 = GetClass(mname4,mtotpercent4)

MESSAGEBOX(mClass4,0+654,"Class Type")

PROCEDURE GetClass

LPARAMETERS StudentName,TotPercent

RETURN ICASE(TotPercent <= 45 , "Pass Class", TotPercent <= 59.99,"Second Class", TotPercent <=99.99 ,"First Class","Merit")

vfp indbc function | visual foxpro INDBC() function | how to check objec...

INDBC function to check or find the object in database (database container).

vfp keymatch function | KeyMatch() | Search Index key in Visual Foxpro |...

Visual Foxpro KeyMatch()  function 

chkKey.Prg

CLOSE ALL

USE friends

SET ORDER TO FRND   && FRIENDNAME

IsKey = .f.

Iskey = KEYMATCH(FriendName)

IF IsKey = .T.

WAIT WINDOW "Found"

ELSE

WAIT WINDOW "Not Found"

ENDIF 

reactjs project setup | how to create reactjs project using npx | create...

Project Creation

Syntax :  

npx create-react-app <ProjectName>

Example :  

npx create-react-app RJLearn

Lowercase Project Name 

Project Created

Run Project 

Syntax :  

npm start

Example :  

npm start

Reactjs ES Ecmascript WebPack Babel NPM | what is WebPack | What is Bab...

ES - ECMA Scrpt
WebPack
Babel
NPM

What is ES (ECMA Script)?

ECMA is short form of European Computer Manufacturers Association.

use strict

Variable declaration - var , let, const

Enhancement of ARRAY.

Class, Constructor, 

Various types of loops.

For More information visit following links:

https://en.wikipedia.org/wiki/ECMAScript

https://www.w3schools.com/js/js_versions.asp

What is WebPack ?

Webpack is a popular module bundling system built on top of Node. js.

Webpack is a module bundler for modern Java script applications.

Webpack can also load non-js files, such as static assets, JSON files, CSS and more.

What is Babel ?

Babel compiles newer JavaScript into older JavaScript. 

Technically it is a transpiler.

Babel will compile your code into JavaScript that will run without issues on all browsers.

What is NPM ?

NPM - Node Package Manager.

NPM get installed by installing Node.JS . 

NPM is largest package collection library. 

PACKAGE.JSON file where NPM store all package and dependencies version details.

reactjs intorudction overview | what is reactjs in hindi | reactjs hindi...

What is ReactJS

ReactJS is a declarative, efficient, and flexible JavaScript library

Famous for building reusable UI components base development.

An open-source, component-based front end library which is responsible only for the view layer of the application. 

It was initially developed and maintained by Facebook  now become META.

ReactJS was first created by Jordan Walke, a software engineer working for Facebook. 

ReactJS first deployed on Facebook’s newsfeed in 2011 and on Instagram.com in 2012.

Features of ReactJS

• JSX
• Virtual DOM Manipulations
• Components
• One Way Data Binding
• Performance

Why use ReactJS?

Allows you to divide your entire application into various components.

Easy to learn.

We can use ReactJS on the client and server side as well as with other frameworks.

vfp encryption decryption | vfp encry decry | foxpro encryption decrypti...

LIB.PRG  CODE

***Start of LIB.prg file

function enfunc(cToencrypt)

content=""

FOR e=1 to LEN(cToencrypt)

    m.ch = SUBSTR(cToencrypt,e,1)

    IF ASC(m.ch) < 123

         Content = Content + CHR(ASC(m.ch)+100)

      ELSE

        Content = Content + m.ch

      ENDIF

NEXT

return content

function defunc(cTodecrypt)

content=""

FOR e=1 to LEN(cTodecrypt)

    m.ch = SUBSTR(cTodecrypt,e,1)

    IF ASC(m.ch) > 123

         Content = Content + CHR(ASC(m.ch)-100)

      ELSE

        Content = Content + m.ch

      ENDIF

NEXT

return content

***End of LIB.prg file

LST.PRG  CODE

*Start of LST.prg file

CLOSE TABLES ALL

SET LIBRARY TO LIB

USE USERDET

CLEAR 

GO TOP 

DO WHILE !EOF()

SELECT USERDET

?USERDET.USERID +"----"+DEFUNC(USERDET.USERPASS) FONT "ARIAL",18

SELECT USERDET 

SKIP

enddo

*End of LST.prg file