passward app create

ဒီတစ္ခါေတာ့ဒီဇိုင္းလန္းလန္းေလးေရးက်ိမယ္။

SetActivityTitle("R P K")
SetActivityColor(0,cwhite)

AddPanel("pnl1",0,88,40,1046,"")
SetColor("pnl1", 0, cred)

AddPanel("pnl2",36,89,684,40,"")
SetColor("pnl2", 0, cred)

AddPanel("pnl3",680,125,40,1009,"")
SetColor("pnl3", 0, cred)

AddPanel("pnl4",39,1094,677,40,"")
SetColor("pnl4", 0, cred)

AddLabel("lbl1",156,127,410,227,"")
SetText("lbl1", " R P K ")
SetTextSize("lbl1", 63)
SetTextColor("lbl1",cblue)

AddLabel("lbl2",36,357,647,49,"")
SetText("lbl2", " လူလိမ္လူညာျကီးေပါ့ကြာအာရႊီးတဲ႔အာအာ")
SetTextColor("lbl2","210#158#0")

AddEditText("edt1",40,423,658,80,"")
SetColor("edt1", 0, cred)
Sethint("edt1"," Phone or Email")
SethintColor("edt1", cWhite)

AddButton("btn1",171,519,388,123,"")
SetColor("btn1", 0, cred)
SetText("btn1", "login ")

AddButton("btn2",150,1021,424,74,"")
SetText("btn2", "Get passward ")
SetColor("btn2", 0, cwhite)
Bitmapinit(DirAssets,"bb.jpg")
setBackgroundimage("btn2")

passward app create
###############
Main Code Selection
###############

AddEditText("edt1",20%x,25%y,60%x,8%y,"")
SetColor("edt1",0,cpink)
Sethint("edt1","User Name")
Setgravity("edt1",17)

AddEditText("edt2",20%x,35%y,60%x,8%y,"")
SetColor("edt2",0,cpink)
Sethint("edt2","Enter the Password")
Setgravity("edt2",17)
Setpasswordmode("edt2",true)

AddButton("btn1",30%x,50%y,40%x,10%y,"")
SetText("btn1","Login")
###############
Event Code Selection
###############
Sub Button_Click(Who)
Select Who
case"btn1"
b=getText("edt2")
if b="rpk" Then
msMsgBox("Password မွန္ကန္ပါသည္ !","ဂုဏ္ယူပါတယ္ !")
Else
msMsgBox("Password မွားယြင္းေနသည္ !","သတိေပးခ်က္ !")
End if

a=getText("edt1")
If a="အာဖ်ံကြီး" Then
msMsgBox("User Name မွန္ကန္ပါသည္ !","ဂုဏ္ယူပါတယ္ !")
Else
msMsgBox("User Name မွားယြင္းေနသည္ !","သတိေပးခ်က္ !")
End if

End Select
End Sub