Module
Contents
Index 🔎︎

# While...Wend Statement

នៅ​ពេល​កម្មវិធី​ជួប​ប្រទះ​សេចក្តី​ថ្លែង​ការណ៍ While វាសាកល្បង​​លក្ខខណ្ឌ ។ ប្រសិន​បើ​លក្ខខណ្ឌ​មិន​ពិត កម្មវិធី​បន្ត​ដោយ​ផ្ទាល់​បន្ទាប់​ពី​សេចក្តី​ថ្លែង​ការណ៍ Wend ។ បើ​លក្ខខណ្ឌ​ពិត រង្វិល​ជុំ​ត្រូវ​បាន​ប្រតិបត្តិ​ទាល់​តែ​កម្មវិធី​ជួប​ Wend ហើយ​បន្ទាប់​មក​លោត​ត្រឡប់​ទៅ​សេចក្តី​ថ្លែង​ការណ៍ While ។ បើ​លក្ខខណ្ឌ​នៅ​តែ​ពិត នោះ​រង្វិល​ជុំ​ត្រូវ​បាន​ប្រតិបត្តិ​ម្តង​ទៀត ។

ខុស​ពី​សេចក្តី​ថ្លែង​ការណ៍ Do...Loop អ្នក​មិន​អាច​បោះបង់​រង្វិល​ជុំ While...Wend ដោយ​ប្រើ Exit ។ កុំ​ចេញ​ពី​រង្វិល​ជុំ While...Wend ដោយ​ប្រើ GoTo ដោយ​សារ​តែ​នេះ​អាច​បណ្តាល​ឲ្យ​មាន​កំហុស​ពេល​រត់ ។​

Do...Loop មាន​លក្ខណៈ​រស់​រវើក​ជាង While...Wend ។

## វាក្យ​សម្ពន្ធ ៖

    While Condition [Statement] Wend

## ឧទាហរណ៍ ៖

      Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
          sText ="This is a short text"
          iRun = 1
          while iRun < Len(sText)
              if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
              iRun = iRun + 1
          Wend
          MsgBox sText,0,"Text encoded"
      End Sub