小弟非PB程式員，求那位好心的大哥幫個忙。把下邊的兩個函式做成有一個按鈕，兩個EDIT的程式，通過按鈕可以將Edit1的內容裝換到Edit2中。最后謝謝了。最好能把程式和原始碼傳給我。[email protected]
按鈕的事件
//clicked (none) returns long [pbm_bnclicked]
decimal usercount
string ls_cpu_bz
string ls_py
string ls_jqm_bz
string ls_hotel_name
string ls_py2
integer loginok
//Has been Shielded.
IF (((((((upper(PARENT.sle_2.text) = "DVCHEN" OR upper(PARENT.sle_2.text) = "DVCHEN[OCN]") OR upper(PARENT.sle_2.text) = "DVCHEN[D4S]") OR upper(PARENT.sle_2.text) = "CHINADFORCE") OR upper(PARENT.sle_2.text) = "CHINAOCN") OR PARENT.sle_2.text = "5CCLUB") OR PARENT.sle_2.text = "櫻園閣酒店") OR upper(PARENT.sle_2.text) = "5CCLUB") THEN //1
messagebox("提示","注冊成功!!!")
RETURN
END IF //1
ls_hotel_name = PARENT.sle_2.text
IF PARENT.sle_1.text = convert10to16(f_get_py(ls_hotel_name)) THEN //6
messagebox("資訊","注冊成功，感謝您購買頂尖軟體")
ELSE //6
messagebox("資訊","你輸入的注冊號碼不正確")
END IF //6
RETURN
函式一
//Public function convert10to16 (string mstring) returns string
//string mstring
string ls_first
string ls_second
string ls_16
string ls_return
string ls_dec_9
string ls_dec_0="0"
string ls_dec_a="A"
long ll_start=1
integer li_char
integer li_hex=16
integer li_int
integer li_hexlen=2
integer li_dec=10
integer li_char_spacebar
//Has been Shielded.
ls_return = ""
ll_start = 1
LABEL_KENSHU_2:
IF len(mstring) >= ll_start THEN //3
li_char = asc(mid(mstring,ll_start,1))
li_char_spacebar = li_char
ls_16 = ""
ELSE //3
RETURN ls_return
END IF //3
DO UNTIL li_char <= 0
li_int = mod(li_char,li_hex)
li_char = int(li_char / li_hex)
IF li_int >= li_dec THEN //14
ls_16 = char(li_int - 10 + asc(ls_dec_a)) + ls_16
ELSE //14
ls_16 = string(li_int) + ls_16
END IF //14
LOOP
li_char = len(ls_16)
IF li_char < li_hexlen THEN //21
ls_16 = ls_dec_0 + ls_16
END IF //21
ls_return = ls_return + ls_16
ll_start ++
GOTO LABEL_KENSHU_2
函式二
//Public function f_get_py (string hz) returns string
//string hz
string qsss
string retstr
integer qlen
integer hb
integer lb
integer i
integer h
integer l
integer KenShuChooseCase_1
//Has been Shielded.
qsss = trim(hz)
qlen = len(qsss)
hb = 176
lb = 160
retstr = ""
i = 1
DO WHILE i <= qlen
h = asc(mid(qsss,i,1))
IF h < 160 THEN //10
retstr = retstr + char(h)
i = i + 1
ELSE //10
l = asc(mid(qsss,i + 1,1))
KenShuChooseCase_1 = h
IF hb = KenShuChooseCase_1 THEN //17
IF l <= lb + 36 THEN //19
retstr = retstr + "A"
GOTO LABEL_KENSHU_237
END IF //19
retstr = retstr + "B"
ELSEIF hb + 1 = KenShuChooseCase_1 THEN //17
retstr = retstr + "B"
ELSEIF hb + 2 = KenShuChooseCase_1 THEN //17
IF l <= lb + 32 THEN //31
retstr = retstr + "B"
GOTO LABEL_KENSHU_237
END IF //31
retstr = retstr + "C"
ELSEIF hb + 3 = KenShuChooseCase_1 THEN //17
retstr = retstr + "C"
ELSEIF hb + 4 = KenShuChooseCase_1 THEN //17
IF l <= lb + 77 THEN //43
retstr = retstr + "C"
GOTO LABEL_KENSHU_237
END IF //43
retstr = retstr + "D"
ELSEIF hb + 5 = KenShuChooseCase_1 THEN //17
retstr = retstr + "D"
ELSEIF hb + 6 = KenShuChooseCase_1 THEN //17
IF l <= lb + 73 THEN //55
retstr = retstr + "D"
GOTO LABEL_KENSHU_237
END IF //55
retstr = retstr + "E"
ELSEIF hb + 7 = KenShuChooseCase_1 THEN //17
IF l <= lb + 1 THEN //63
retstr = retstr + "E"
GOTO LABEL_KENSHU_237
//SHU_ERROR:DEMO_SCRIPT_LIMIT.
uj5u.com熱心網友回復：
你拿到的已經是源代碼，還讓別人做什么？人懶也不能懶到這個地步啊
uj5u.com熱心網友回復：
嚴重同意！uj5u.com熱心網友回復：
眼都看花， 這個自己動手不難吧？uj5u.com熱心網友回復：
同意一樓的說法，再說，這么多，看蒙了都！uj5u.com熱心網友回復：
嚴重同意一樓，差點被蒙了，還以為是別的什么語言呢。轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/107744.html
標籤：控件與界面
上一篇：PB三層c/s開發 求助