New Software
Medical Dictionary Lihat Detail





Active@ Boot Disk
Lihat Detail













New Software

Pengikut

facebook

menghitung jumlah karakter di edittext

aku mohon maaf jika yang kutulis ini tak berguna bagi kalian, tapi disini aku hanya ingin berbagi sama mereka yang belum paham/tahu karna aku juga hanyalah seorang pemula didunia visual foxpro... sebelumnya aku ucapkan banyak terima kasih kepada komunitas visual foxpro indonesia khususnya om taz, om tejo, mztolo, Sinyonamakoe, mas Firgiawansyah dan sahabatku mas ewin ( Batman Kasarung). langsung saja tak perlu basa-basi
membuat form
1. klik tab Documents pada project manager - prjlatihan
2. klik Forms dan klik New
3. klik New Form
4. buat rancangan form sebagai berikut :
komponen-komponen yang dingunakan sebagai berikut :


Object

Properti

Nilai

1 Form1

AutoCenter
Name
.T.
frmhitungcharacter
2 Label1
Caption Hit Counter
3 Label2 Caption Max Character
4 Label3 Caption 1300
5 Container1 BackStyle 0 - Transparent
6 Container2 BackStyle 0 - Transparent
7 Edit1 Name
MaxLength
edttext
1300
8 Text1 BackStyle
BorderStyle
Name
0 - None
0 - Transparent
txtCharacter
9 Command1 Caption
Name
close
cmdclose

buat metode buatan dengan nama count
langkah-langkah membuat metode buatan:
1. pada jendela microsoft visual foxpro klik form
2. Klik New Method, akan tampil jendela New Method
3. pada bagian Name di isi dengan nama count selanjutnya tekan add

menulis script program

Object : Form1 Procedure : count

LPARAMETERS cString
#DEFINE MSG_LOC "Menghasilkan statistik untuk file. Tekan Enter untuk berhenti."
WAIT WINDOW MSG_LOC NOWAIT NOCLEAR
LOCAL lnChars
#DEFINE ALPHA_LOC "ABCDEFGHIJKLMNOPQRSTUVWXYZ."
#DEFINE CR CHR(13)
#DEFINE TAB CHR(9)

lnChars = LEN(cString)
SYS(2002) && mengubah kursor menjadi off
FOR i = 1 TO lnChars
IF INKEY() = 13
WAIT CLEAR
THIS.txtCharacters.Value = ""
SYS(2002,1)
RETURN
ENDIF

ENDFOR

THISFORM.txtCharacters.Value = lnChars

WAIT CLEAR
SYS(2002,1)

Object : Form1 Procedure : InteractiveChange

IF !EMPTY(THISFORM.edttext.Value)
THISFORM.Count(THISFORM.edttext.Value)
ELSE
THIS.Parent.txtCharacters.Value = 0
ENDIF

Hasil Run


menghitung jumlah karakter di edittextSocialTwist Tell-a-Friend

1 komentar:

Rina Ariyani mengatakan...

program di atas kan untuk mengetahui jumlah karakter yg diketikkan, tp kalau untuk menghitung jumlah huruf vokal nya saja listing nya gimana ya?
help me plisss
ryena.a@gmail.com

Computers Web Directory
Blog Directory Dr.5z5 Open Feed Directory Computers (Linux) - TOP.ORG blog search directory Blog Search: The Source for Blogs free web site traffic and promotion
MyFreeCopyright.com Registered & Protectedintellectual property