thaiall logomy background
coding : intro. numtochar.asp.
my town
Source : Perl | PHP | ASP | JSP | HTML | HTML5 | JavaScript | Java | COBOL | C++ | MS Access | VBNet | VB | Python | โค้ดดี
File : numtochar.asp. ID : 2109
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Full
<body><form action=numtochar.asp method=post>
<input name=num value="1234567.25">
<input type=submit></form>
<%
dim n1(10), n10(10), n100(7), num, pointaddr, cnum, ln, l
num = request.form("num")
n1(0)="": n1(1)="หนึ่ง": n1(2)="สอง": n1(3)="สาม": n1(4)="สี่": n1(5)="ห้า"
n1(6)="หก": n1(7)="เจ็ด": n1(8)="แปด": n1(9)="เก้า": n10(1)="สิบ"
n10(2)="ยี่สิบ": n10(3)="สามสิบ": n10(4)="สี่สิบ": n10(5)="ห้าสิบ": n10(6)="หกสิบ"
n10(7)="เจ็ดสิบ": n10(8)="แปดสิบ": n10(9)="เก้าสิบ": n100(7)="ล้าน"
n100(6)="แสน": n100(5)="หมื่น": n100(4)="พัน": n100(3)="ร้อย": n100(2)="สิบ"
pointaddr = instr(1,num,".")
if pointaddr > 0 then
  usenum = left(num,pointaddr - 1)
  restnum = left(right(num,len(num) - pointaddr),2)
else
  usenum = num
end if
cnum = ""
ln = len(usenum)
for i = 1 to ln
  n = cint(mid(usenum,i,1))
  if i > ln - 2 then
    if i = ln - 1  then       
      cnum = cnum + n10(n) ' หลักสิบ
    else 
      cnum = cnum + n1(n)  ' หลักหน่วย
    end if
  else
    if n > 0 then
      cnum = cnum + n1(n)
      cnum = cnum + n100(ln - i + 1)
    end if  
  end if
next
response.write(cnum)
if pointaddr = 0 or cdbl(num) = 0 then
  if cdbl(num) = 0 then
    response.write("ศูนย์บาท")
  else
    response.write("บาทถ้วน")  
  end if
else
  cnum = "บาท"
  ln = len(restnum)
  for i = 1 to ln  
    n = cint(mid(restnum,i,1))
    if ln > 1 and i = 1 then
      cnum = cnum + n10(n)
    else
      if n = 1 and i <> 1 then
        cnum = cnum + "เอ็ด"
      else
        cnum = cnum + n1(n)
      end if
	end if
  next
  response.write(cnum & "สตางค์")
end if
%>
</body>
จำนวน : 61 บรรทัด
าษาเฮชทีเอ็มแอล (HTML = HyperText Markup Language) คือ ภาษาคอมพิวเตอร์ที่ออกแบบมาเพื่อใช้ในการสร้างเว็บเพจที่เรียกดูผ่านทางเว็บเบราว์เซอร์ (Web Browser) เริ่มพัฒนาโดย ทิม เบอร์เนอรส์ ลี (Tim Berners Lee) ในปัจจุบัน HTML ล่าสุดคือ รุ่น 5 เป็นมาตรฐานหนึ่งของ ISO ซึ่งจัดการโดย World Wide Web Consortium (W3C) ในปัจจุบัน ทาง W3C ผลักดัน รูปแบบของ HTML แบบใหม่ ที่เรียกว่า XHTML รุ่นแรกคือ 1.0 (ม.ค.2543) ซึ่งมีโครงสร้างเป็นแบบ XML (eXtensible Markup Language)
าษาพีเอชพี (PHP Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้กับ ตัวแปลภาษา ทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปเอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้
าษาไพทอน (Python Language) คือ ภาษาคอมพิวเตอร์ประเภทโอเพนท์ซอร์ท (Open Source Computer Language) สำหรับพัฒนาแอพพลิเคชั่นโดยไม่ยึดติดกับแพลตฟอร์ม (Platform) และใช้ในงานได้หลายประเภท ทั้งใช้ในการประมวลผลผ่านคอมมานด์ไลน์ หรือเป็นเว็บเพจแบบไดนามิก เมื่อเครื่องบริการได้รับคำร้องจากผู้ใช้ก็จะส่งให้โค้ดให้กับตัวแปลภาษา เพื่อทำหน้าที่ประมวลผลและส่งข้อมูลกลับไปยังเครื่องของผู้ใช้ที่ร้องขอ ในรูปข้อความ เอชทีเอ็มแอล ภาพ หรือแฟ้มดิจิทอลอื่นใด ลักษณะของภาษามีรากฐานคำสั่งมาจากภาษาซี เป็นภาษาที่สามารถพัฒนาให้ใช้งานแบบโต้ตอบกับผู้ใช้ได้ จุดที่แตกต่างกับภาษาอื่น คือ การรวบรวมจุดเด่นของแต่ละภาษามารวมเข้าด้วยกัน
ตัวอย่าง Hello World
ปรับปรุงโปรแกรม source.pl : 2565-07-24
Thaiall.com