What Alpha command if I have the sample VB

[peterth]

Hi All Experts,

I try to write the function the amount in word for my langquage.
I try to search and adap from this board but not work perfectly for my local langquage. it can say the amount in word only 9,999.99 and it can say not correctly if the amount more than 10,000.00

I have the sample VB code that can use well for my local langquage. Anybody can help me to see if the VB code and what is the Alpha V10 code is. the full structure of VB is following:

Private Sub Command1_Click()
Call saynum (Text1.Text)
End Sub

In A5V10, I have to writh the function

Function saynum as c (text1 as N)
-----
-----
End function

or not ?
and

Dim digitext As String ---> Dim digitext as C ?
Dim digit As integer ---> Dim digi as N ?


Thanks
Peter-th

[Keith Hubert]

Re: What Alpha command if I have the sample VB

Peter,

What is your local language?

Are you wanting to convert a number into text the same as writing out a Cheque?

[goldberg2727]

Re: What Alpha command if I have the sample VB

Private Sub Command1_Click()
Call saynum (Text1.Text)
End Sub


Function saynum as c (text1 as N)
-----
-----
End function

or not ?
and

Dim digitext As String ---> Dim digitext as C ?
Dim digit As integer ---> Dim digi as N ?


Thanks
Peter-th

In the Code editor you can create create a function, or you can create a function in your script (more similar to VB). The structure is a little more open than VB, however, xBasic code can be structured fairly similar to VB without too much difference....

If i understand you correctly...your code in xbasic would look something like the following...

Goto the "code" tab on the control panel. Create a new "xBasic Script" and copy and paste this code to see how it works.

DIM vNum as n
DIM vResults as c

vNum = ui_get_number("Enter Number","Please enter a value to check if correct or not")

ui_msg_box("Before Function is called","The value you are checking is:   " + str(vNum))

vResults = fCalculate(vNum)


	
FUNCTION fCalculate as c (fNum as n)
	
	if fNum > 10000 then
	    fCalculate = "Not Correct"
	else 
		fcalculate = "Correct"
	end if
	
	ui_msg_box("Value Checked","The results are this value is...   "+ fcalculate )
	
End function

[peterth]

Re: What Alpha command if I have the sample VB

Hi Keith,

It's thai. The structure is not same as the english.
yes, I want it to convert a number in to text same as writing out a cheque.

total 1,456,045.99 and say the amount in word in my langquage
I search the sample from this board and modify itbut it can say only 9,999.99
I have the sample code here but from VB, PHP but I don't know how to convert it into A5V10

Thanks
Peter-th

[goldberg2727]

Re: What Alpha command if I have the sample VB

I was thinking about this and I think I might have miss understood you .... is this what you are looking for?

DIM vStr as c

vStr = str(9999999999.22,255,2,"XF")

ui_msg_box("",vStr)

[goldberg2727]

Re: What Alpha command if I have the sample VB

Go ahead and post the VB code and I will convert it for you.

[peterth]

Re: What Alpha command if I have the sample VB

Hi Lee,

Thank you for your sample. May be we misscommunication due to my english
My point is I want to create the function for amount in word for my langquage with Alpha Five and I have the VB code that can run in the same for amount in word but I'm not familiar with VB or PHP so I ask here for anyone can suggest if VB command and what should be in A5V10.
The VB command in blue is VB and I need to know if what command should be in A5V10

Thank you for more suggestion
Peter-th

[peterth]

Re: What Alpha command if I have the sample VB

Hi Lee,

The following is the VB code that I want to use in A5V10 for a amount in word
Thank you in advance if you can see what it should be code in A5V10.
Don't worry if some word is in local langquage and is that it can say in local langquage.
----------------------------

Function Convert_Num(Xvar)
Dim Thai_number As String

ReDim n(1 To 9) As String
ReDim l(1 To 6) As String

Dim ed As String
Dim yee As String
Dim Baht As String
Dim Stang As String
Dim Nodecimal As String
Dim ntostr As String
Dim ndec As String

n(1) = "หนึ่ง"
n(2) = "สอง"
n(3) = "สาม"
n(4) = "สี"
n(5) = "ห้า"
n(6) = "หก"
n(7) = "เจ็ด"
n(8) = "แปด"
n(9) = "เก้า"

l(1) = "สิบ"
l(2) = "ร้อย"
l(3) = "พัน"
l(4) = "หมื่น"
l(5) = "แสน"
l(6) = "ล้าน"

ed = "เอ็ด"
yee = "ยี่"
Baht = "บาท"
Stang = "สตางค์"
Nodecimal = "ถ้วน"
Zero = "ศูนย์"



Dim Stt As Integer
Dim LSTR As Integer
Dim Decp As String
Dim nstr As String
Dim dcstr As String
Dim chknum As Integer
If Xvar <> 0 Then

ntostr = Xvar
nstr = Trim$(ntostr)

LSTR = Len(nstr)


Rem Decp = Mid$(ntostr, Lstr - 2, 1)
Rem ndec = Mid$(ntostr, Lstr - 1, 2)
Decp = " "
For I = 1 To Len(nstr)
If Mid$(nstr, I, 1) = "." Then
Decp = "."
Exit For
End If
Next I

If Decp = "." Then
If Len(nstr) < I + 2 Then
ndec = Mid$(nstr, I + 1, 1) + "0"
Else
ndec = Mid$(nstr, I + 1, 2)
End If
If Decp = "." Then
nstr = Mid$(nstr, 1, I - 1)
End If
End If

Dim schar As String

LSTR = I - 1

For b = 0 To LSTR - 1

schar = Mid$(nstr, LSTR - b, 1)

Select Case b

Case 0
If nstr = "1" Then
Thai_number = n(1)
Else
If schar = "1" Then
Thai_number = ed
Else
chknum = Val(schar)
If chknum > 0 Then
Thai_number = n(chknum)
End If
End If
End If
Case 1
If schar <> "0" Then
If schar = "1" Then
Thai_number = l(1) + Thai_number
Else
If schar = "2" Then
Thai_number = yee + l(1) + Thai_number
Else
chknum = Val(schar)
Thai_number = n(chknum) + l(1) + Thai_number
End If
End If
End If
Case Else
If schar <> "0" And schar <> "." Then
chknum = Val(schar)
Thai_number = n(chknum) + l(b) + Thai_number
End If
End Select

Next b

If Decp <> "." Or Val(ndec) = 0 Then
Thai_number = Thai_number + Baht + Nodecimal
Else
Thai_number = Thai_number + Baht

Select Case Val(ndec)
Case 0
Rem Thai_number = Thai_number + Baht
Case Is < 10
If Val(ndec) = 1 Then
Thai_number = Thai_number + ed
Else
Thai_number = Thai_number + n(Val(ndec))
End If
Case 10
Thai_number = Thai_number + l(1)
Case 11
Thai_number = Thai_number + l(1) + ed
Case 12 To 19
Thai_number = Thai_number + l(1) + n(Val(ndec) - 10)
Case 20
Thai_number = Thai_number + yee + l(1)
Case 21 To 29
If Val(ndec) = 21 Then
Thai_number = Thai_number + yee + l(1) + ed
Else
Thai_number = Thai_number + yee + l(1) + n(Val(ndec) - 20)
End If
Case Else
If Mid$(ndec, 2, 1) <> "0" Then
Thai_number = Thai_number + n(Val(Mid$(ndec, 1, 1))) + l(1) + n(Val(Mid$(ndec, 2, 1)))
Else
Thai_number = Thai_number + n(Val(Mid$(ndec, 1, 1))) + l(1)
End If
End Select
Thai_number = Thai_number + Stang
End If
Convert_Num = Thai_number
ElseIf Xvar = 0 Then
Convert_Num = Zero & Baht & Nodecimal
End If

End Function

[Stan Mathews]

Re: What Alpha command if I have the sample VB

In A5V10, I have to writh the function

Function saynum as c (text1 as N)
-----
-----
End function

or not ?

Correct.

Dim digitext As String ---> Dim digitext as C ?
Dim digit As integer ---> Dim digi as N ?

Correct but in Alpha as N will allow any number.


To use the function you have created you just write

saynum(12345)

anywhere you want the conversion.

[Bill Parker]

Re: What Alpha command if I have the sample VB

Did you check the routines in the code archive? Search that forum with the key works "convert number" and you will find at least 2 routines for converting numbers to words. The one for Spanish is more complex because there are a number of idioms that must be handled.

Bill.

[peterth]

Re: What Alpha command if I have the sample VB

Stan,

Thank you for your cofirmation.

[Stan Mathews]

Re: What Alpha command if I have the sample VB

I think this a translation of the vb function. I can't test it and you will need to substitute the actual translations of the arrays and language conversions. I only see them as question marks (?).

[COLOR="red"]n[1] = "?????"
	n[2] = "???"
	n[3] = "???"
	n[4] = "??"
	n[5] = "???"
	n[6] = "??"
	n[7] = "????"
	n[8] = "???"
	n[9] = "????"
	
	l[1] = "???"
	l[2] = "????"
	l[3] = "???"
	l[4] = "?????"
	l[5] = "???"
	l[6] = "????"
	
	ed = "????"
	yee = "???"
	Baht = "???"
	Stang = "??????"
	Nodecimal = "????"
	Zero = "?????"[/COLOR]

FUNCTION Convert_Num AS c (Xvar AS n)
	Dim Thai_number As C
	
	Dim n[1..9] As C
	Dim l[1..6] As C
	
	Dim ed As C
	Dim yee As C
	Dim Baht As C
	Dim Stang As C
	Dim Nodecimal As C
	Dim ntostr As C
	Dim ndec As C
	
	n[1] = "?????"
	n[2] = "???"
	n[3] = "???"
	n[4] = "??"
	n[5] = "???"
	n[6] = "??"
	n[7] = "????"
	n[8] = "???"
	n[9] = "????"
	
	l[1] = "???"
	l[2] = "????"
	l[3] = "???"
	l[4] = "?????"
	l[5] = "???"
	l[6] = "????"
	
	ed = "????"
	yee = "???"
	Baht = "???"
	Stang = "??????"
	Nodecimal = "????"
	Zero = "?????"
		
	Dim Stt As N
	Dim LSTR As N
	Dim Decp As C
	Dim nstr As C
	Dim dcstr As C
	Dim chknum As N
	IF Xvar <> 0 THEN
		
		ntostr = Xvar
		nstr = Trim(ntostr)
		
		LSTR = Len(nstr)
		
		
		'Rem Decp = Substr(ntostr, Lstr - 2, 1)
		'Rem ndec = Substr(ntostr, Lstr - 1, 2)
		Decp = " "
		FOR I = 1 TO Len(nstr)
			IF Substr(nstr, I, 1) = "." THEN
				Decp = "."
				Exit For
			END IF
		NEXT I
		
		IF Decp = "." THEN
			IF Len(nstr) < I + 2 THEN
				ndec = Substr(nstr, I + 1, 1) + "0"
			ELSE
				ndec = Substr(nstr, I + 1, 2)
			END IF
			IF Decp = "." THEN
				nstr = Substr(nstr, 1, I - 1)
			END IF
		END IF
		
		Dim schar As C
		
		LSTR = I - 1
		
		FOR b = 0 TO LSTR - 1
			
			schar = Substr(nstr, LSTR - b, 1)
			
			Select 
			
			CASE b = 0
				IF nstr = "1" THEN
					Thai_number = n[1]
				ELSE
					IF schar = "1" THEN
						Thai_number = ed
					ELSE
						chknum = Val(schar)
						IF chknum > 0 THEN
							Thai_number = n[chknum]
						END IF
					END IF
				END IF
			CASE b = 1
				IF schar <> "0" THEN
					IF schar = "1" THEN
						Thai_number = l[1] + Thai_number
					ELSE
						IF schar = "2" THEN
							Thai_number = yee + l[1] + Thai_number
						ELSE
							chknum = Val(schar)
							Thai_number = n[chknum] + l[1] + Thai_number
						END IF
					END IF
				END IF
			CASE Else
				IF schar <> "0" .And. schar <> "." THEN
					chknum = Val(schar)
					Thai_number = n[chknum] + l[b] + Thai_number
				END IF
		END SELECT
		
	NEXT b
	
	IF Decp <> "." .Or. Val(ndec) = 0 THEN
		Thai_number = Thai_number + Baht + Nodecimal
	ELSE
		Thai_number = Thai_number + Baht
		
		Select 
		CASE Val(ndec) = 0
			 Thai_number = Thai_number + Baht
		CASE Val(ndec) < 10
			IF Val(ndec) = 1 THEN
				Thai_number = Thai_number + ed
			ELSE
				Thai_number = Thai_number + n[Val(ndec)]
			END IF
		CASE Val(ndec) = 10
			Thai_number = Thai_number + l[1]
		CASE Val(ndec) = 11
			Thai_number = Thai_number + l[1] + ed
		CASE between(Val(ndec),12,19)
			Thai_number = Thai_number + l[1] + n[Val(ndec) - 10]
		CASE Val(ndec) = 20
			Thai_number = Thai_number + yee + l[1]
		CASE between(Val(ndec),21,29)
			IF Val(ndec) = 21 THEN
				Thai_number = Thai_number + yee + l[1] + ed
			ELSE
				Thai_number = Thai_number + yee + l[1] + n[Val(ndec) - 20]
			END IF
		CASE Else
			IF Substr(ndec, 2, 1) <> "0" THEN
				Thai_number = Thai_number + n[Val(Substr(ndec, 1, 1))] + l(1) + n[Val(Substr(ndec, 2, 1))]
			ELSE
				Thai_number = Thai_number + n[Val(Substr(ndec, 1, 1))] + l(1)
			END IF
	END SELECT
	Thai_number = Thai_number + Stang
END IF
Convert_Num = Thai_number
ELSEIf Xvar = 0 THEN
Convert_Num = Zero + Baht + Nodecimal
END IF

END FUNCTION

[peterth]

Re: What Alpha command if I have the sample VB

Hi Stan,

Thank you for your quick response
You see ???? due to it's my local langquage font
I will try your code

Thank you very much.
Peter-th

[goldberg2727]

Re: What Alpha command if I have the sample VB

Peter what is your local language?

[Stan Mathews]

Re: What Alpha command if I have the sample VB

Thai.

Dim [COLOR="Red"]Thai[/COLOR]_number As C