bug telnumber collection1

This commit is contained in:
miggaze 2021-08-16 15:33:38 +07:00
parent f3bd2f5e10
commit a2adb01fe1

View file

@ -8,7 +8,7 @@
<EventOpen>
; On open
Var Tel_Confirm_State = "Disable"
Var Tel_Confirm_State = "Invisible"
Var ShowTextNumber = "Enable"
Var Timeout = 0
Var TelephoneNumber = ""
@ -105,6 +105,9 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber 10
TimerReset
@ -130,6 +133,8 @@
Var number10 = "1"
EndIf
EndIf
</EventClick>
</Button>
@ -142,6 +147,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber 10
TimerReset
@ -166,6 +173,7 @@
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
</EventClick>
</Button>
@ -178,6 +186,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber 10
TimerReset
@ -202,6 +212,7 @@
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
</EventClick>
</Button>
@ -214,6 +225,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber 10
TimerReset
@ -238,6 +251,7 @@
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
</EventClick>
</Button>
@ -250,6 +264,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber 10
TimerReset
@ -274,6 +290,7 @@
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
</EventClick>
</Button>
@ -286,6 +303,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber 10
TimerReset
@ -310,6 +329,7 @@
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
</EventClick>
</Button>
@ -322,6 +342,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber 10
TimerReset
@ -346,6 +368,7 @@
If TelNumLen = 10 Then
Var number10 = "7"
EndIf
EndIf
</EventClick>
</Button>
@ -358,6 +381,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber 10
TimerReset
@ -382,6 +407,7 @@
If TelNumLen = 10 Then
Var number10 = "8"
EndIf
EndIf
</EventClick>
</Button>
@ -394,6 +420,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber 10
TimerReset
@ -418,6 +446,8 @@
If TelNumLen = 10 Then
Var number10 = "9"
EndIf
EndIf
</EventClick>
</Button>
@ -430,6 +460,8 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
@ -456,6 +488,7 @@
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
EndIf
</EventClick>
</Button>
@ -469,7 +502,7 @@
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Disable"
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen