Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Skontrolujte , či TextBox obsahuje číslo :
Ak IsNumeric ( Text1.Text ) Potom
IsNumeric funkcia určuje , či reťazec obsahuje číselnú hodnotu . To je dôležité preto , že sa snažia previesť non - číselný reťazec na celé číslo by mohlo spôsobiť chybu
2
Prevod textového poľa je vlastnosť Text na celé číslo : .
PIN = CDbl ( Text1 . Text )
funkcie CDbl prevádza číselnú hodnotu na desatinné číslo
3
Nastavte premennú na predvolenú hodnotu, ak je vlastnosť text nie je číselná : .
Else
PIN = 0
End If
Môžete tiež upozorniť užívateľa na tomto mieste , že neplatná hodnota bol zadaný .