daltatarak

pass$=LOW(pass$)
** sifre dogru mu diye kontrol, et
If (pass$='yarrak') Then
  ** kutuda goster
  Caption$ = 'Sifre dogru'
  Params$ = 'Bir sonraki sayfaya gecilsin mi?'
  ** Evet/Hayir butonlari + soru isareti
  Flag= 4 + 32
  Params$ = Params$+','+CHAR(Flag)
  MessageEx("Caption$","Params$")
  If (CBK_MsgEx=6) Then
    Show("Master Page::TextBTN")
    NextPage()
  Else
    Show("Master Page::TextBTN")
  End
Else
  ** kutuda goster
  Caption$ = 'Hatali sifre'
  Params$ = 'CapsLockun acik olup olmadigini kontrol edip tekrar deneyin'
  ** OK butonu + unlem isareti
  Flag= 48
  Params$ = Params$+','+CHAR(Flag)
  MessageEx("Caption$","Params$")
  pass$=''
  LoadText("EditBox","pass$")
  Hide("Master Page::TextBTN")
End