#include <stdio.h>
int main(void)
{
int i, j;
long dec; /* ให้รับค่าอินพุทแบบ Long Integer - เลขจำนวนเต็มแบบยาว */
int bit[32]; /* จองพื้นที่ในการเก็บข้อมูลเลขฐาน 2 ลงใน Array */
clrscr(); /* เคลียร์หน้าจอ */
printf("Decimal Number : "); /* แจ้งผู้ใช้เพื่อเตรียมป้อนค่าเลขฐาน 10 */ scanf("%ld", &dec); /* ต้องใช้ ld เพราะ Input มันเป็นแบบ Long Integer */
i = 0; /* กำหนดค่าเริ่มต้นของ Array */
/* ทำตามที่ได้ออกแบบโปรแกรมเอาไว้ ... ยังไงยังงั้นเลย 55555+ */
do {
bit[i++] = dec % 2; /* การหารเอาเศษ เพื่อให้เป็นคำตอบ */
/* การหารทั่วไป แต่ตัวแปร dec ของภาษา C มันเป็น Integer หรือ เลขจำนวนเต็ม */
/* ดังนั้นมันจึงตัดเศษ (หรือทศนิยม) ทิ้งไปโดยอัตโนมัติ */
dec = dec / 2;
} while (dec > 0); /* เงื่อนไขที่ทำจนกระทั่ง dec = 0 ก็ออกจากวังวนเงื่อนไข */
/* การแสดงผลของการแปลงเลขฐาน 10 เป็นเลขฐาน 2*/
/* j = i - 1 และให้ j ลดค่าลงทีละ 1 ... ก็คืออ่านข้อมูลถอยหลังกลับเท่านั้นเองครับ */
/* เพราะตัวแปรแบบ Array ในภาษา C มันเก็บข้อมูลจากซ้ายไปขวา */
/* ทำให้ LSB มันไปอยู่ทางซ้าย ส่วน MSB มันไปอยู่ทางขวา */
for(j = i - 1; j >= 0; j--)
return 0;
}
I2luY2x1ZGUgPHN0ZGlvLmg+CgppbnQgbWFpbih2b2lkKQp7CmludCBpLCBqOwpsb25nIGRlYzsgIC8qIOC5g+C4q+C5ieC4o+C4seC4muC4hOC5iOC4suC4reC4tOC4meC4nuC4uOC4l+C5geC4muC4miBMb25nIEludGVnZXIgLSDguYDguKXguILguIjguLPguJnguKfguJnguYDguJXguYfguKHguYHguJrguJrguKLguLLguKcgKi8KaW50IGJpdFszMl07ICAvKiDguIjguK3guIfguJ7guLfguYnguJnguJfguLXguYjguYPguJnguIHguLLguKPguYDguIHguYfguJrguILguYnguK3guKHguLnguKXguYDguKXguILguJDguLLguJkgMiDguKXguIfguYPguJkgQXJyYXkgKi8KCiAgICBjbHJzY3IoKTsgIC8qIOC5gOC4hOC4peC4teC4ouC4o+C5jOC4q+C4meC5ieC4suC4iOC4rSAqLwogICAgcHJpbnRmKCJEZWNpbWFsIE51bWJlciA6ICIpOyAgLyog4LmB4LiI4LmJ4LiH4Lic4Li54LmJ4LmD4LiK4LmJ4LmA4Lie4Li34LmI4Lit4LmA4LiV4Lij4Li14Lii4Lih4Lib4LmJ4Lit4LiZ4LiE4LmI4Liy4LmA4Lil4LiC4LiQ4Liy4LiZIDEwICovCiAgICBzY2FuZigiJWxkIiwgJmRlYyk7ICAvKiDguJXguYnguK3guIfguYPguIrguYkgbGQg4LmA4Lie4Lij4Liy4LiwIElucHV0IOC4oeC4seC4meC5gOC4m+C5h+C4meC5geC4muC4miBMb25nIEludGVnZXIgKi8KICAgIGkgPSAwOyAgLyog4LiB4Liz4Lir4LiZ4LiU4LiE4LmI4Liy4LmA4Lij4Li04LmI4Lih4LiV4LmJ4LiZ4LiC4Lit4LiHIEFycmF5ICovCiAgICAvKiDguJfguLPguJXguLLguKHguJfguLXguYjguYTguJTguYnguK3guK3guIHguYHguJrguJrguYLguJvguKPguYHguIHguKPguKHguYDguK3guLLguYTguKfguYkgLi4uIOC4ouC4seC4h+C5hOC4h+C4ouC4seC4h+C4h+C4seC5ieC4meC5gOC4peC4oiA1NTU1NSsgKi8KICAgIGRvIHsKICAgICAgICBiaXRbaSsrXSA9IGRlYyAlIDI7ICAvKiDguIHguLLguKPguKvguLLguKPguYDguK3guLLguYDguKjguKkg4LmA4Lie4Li34LmI4Lit4LmD4Lir4LmJ4LmA4Lib4LmH4LiZ4LiE4Liz4LiV4Lit4LiaICovCgogICAgICAgIC8qIOC4geC4suC4o+C4q+C4suC4o+C4l+C4seC5iOC4p+C5hOC4myDguYHguJXguYjguJXguLHguKfguYHguJvguKMgZGVjIOC4guC4reC4h+C4oOC4suC4qeC4siBDIOC4oeC4seC4meC5gOC4m+C5h+C4mSBJbnRlZ2VyIOC4q+C4o+C4t+C4rSDguYDguKXguILguIjguLPguJnguKfguJnguYDguJXguYfguKEgKi8KICAgICAgICAvKiDguJTguLHguIfguJnguLHguYnguJnguKHguLHguJnguIjguLbguIfguJXguLHguJTguYDguKjguKkgKOC4q+C4o+C4t+C4reC4l+C4qOC4meC4tOC4ouC4oSkg4LiX4Li04LmJ4LiH4LmE4Lib4LmC4LiU4Lii4Lit4Lix4LiV4LmC4LiZ4Lih4Lix4LiV4Li0ICovCiAgICAgICAgZGVjID0gZGVjIC8gMjsKCiAgICB9IHdoaWxlIChkZWMgPiAwKTsgIC8qIOC5gOC4h+C4t+C5iOC4reC4meC5hOC4guC4l+C4teC5iOC4l+C4s+C4iOC4meC4geC4o+C4sOC4l+C4seC5iOC4hyBkZWMgPSAwIOC4geC5h+C4reC4reC4geC4iOC4suC4geC4p+C4seC4h+C4p+C4meC5gOC4h+C4t+C5iOC4reC4meC5hOC4giAqLwoKICAgIC8qIOC4geC4suC4o+C5geC4quC4lOC4h+C4nOC4peC4guC4reC4h+C4geC4suC4o+C5geC4m+C4peC4h+C5gOC4peC4guC4kOC4suC4mSAxMCDguYDguJvguYfguJnguYDguKXguILguJDguLLguJkgMiovCiAgICAvKiBqID0gaSAtIDEg4LmB4Lil4Liw4LmD4Lir4LmJIGog4Lil4LiU4LiE4LmI4Liy4Lil4LiH4LiX4Li14Lil4LiwIDEgLi4uIOC4geC5h+C4hOC4t+C4reC4reC5iOC4suC4meC4guC5ieC4reC4oeC4ueC4peC4luC4reC4ouC4q+C4peC4seC4h+C4geC4peC4seC4muC5gOC4l+C5iOC4suC4meC4seC5ieC4meC5gOC4reC4h+C4hOC4o+C4seC4miAqLwogICAgLyog4LmA4Lie4Lij4Liy4Liw4LiV4Lix4Lin4LmB4Lib4Lij4LmB4Lia4LiaIEFycmF5IOC5g+C4meC4oOC4suC4qeC4siBDIOC4oeC4seC4meC5gOC4geC5h+C4muC4guC5ieC4reC4oeC4ueC4peC4iOC4suC4geC4i+C5ieC4suC4ouC5hOC4m+C4guC4p+C4siAqLwogICAgLyog4LiX4Liz4LmD4Lir4LmJIExTQiDguKHguLHguJnguYTguJvguK3guKLguLnguYjguJfguLLguIfguIvguYnguLLguKIg4Liq4LmI4Lin4LiZIE1TQiDguKHguLHguJnguYTguJvguK3guKLguLnguYjguJfguLLguIfguILguKfguLIgKi8KICAgIGZvcihqID0gaSAtIDE7IGogPj0gMDsgai0tKQogICAgICAgIHByaW50ZigiJWQiLCBiaXRbal0pOwoKcHJpbnRmKCJcbiIpOwpyZXR1cm4gMDsKCn0=
aW1wb3J0IGhsNyAgIyDguYTguKXguJrguKPguLLguKPguLXguKrguLPguKvguKPguLHguJrguIjguLHguJTguIHguLLguKMgSEw3IE1lc3NhZ2VzCgojIOC4leC4seC4p+C4reC4ouC5iOC4suC4h+C4guC5ieC4reC4hOC4p+C4suC4oSBITDcg4LiX4Li14LmI4Lit4Liy4LiI4Lih4Liy4LiI4Liy4LiBIFhOLTU1MApobDdfbWVzc2FnZSA9ICZxdW90OyZxdW90OyZxdW90OwpNU0h8Xn5cJmFtcDt8WE4tNTUwfExhYnxISVN8SG9zcGl0YWx8MjAyNTAzMDd8fE9SVV5SMDF8MTIzNDV8UHwyLjMKUElEfDF8fDEyMzQ1Nl5eXkhvc3BpdGFsfHxEb2VeSm9obnx8MTk4MDAxMDF8TQpPQlJ8MXx8Nzg5MTB8Q0JDXkNvbXBsZXRlIEJsb29kIENvdW50Ck9CWHwxfE5NfFdCQ15XaGl0ZSBCbG9vZCBDZWxsIENvdW50fHw3NTAwfC91THw0MDAwLTEwMDAwfE4KT0JYfDJ8Tk18UkJDXlJlZCBCbG9vZCBDZWxsIENvdW50fHw1LjJ8MTBeNi91THw0LjItNi4xfE4KT0JYfDN8Tk18SEdCXkhlbW9nbG9iaW58fDE1LjB8Zy9kTHwxMi4wLTE3LjB8TgomcXVvdDsmcXVvdDsmcXVvdDsKCiMg4LmB4Lib4Lil4LiHIEhMNyBtZXNzYWdlIOC5gOC4m+C5h+C4meC5guC4hOC4o+C4h+C4quC4o+C5ieC4suC4h+C4guC5ieC4reC4oeC4ueC4peC4l+C4teC5iOC4reC5iOC4suC4meC4h+C5iOC4suC4ogpwYXJzZWRfaGw3ID0gaGw3LnBhcnNlKGhsN19tZXNzYWdlKQoKIyDguYHguKrguJTguIfguJzguKXguITguYjguLIgV0JDLCBSQkMg4LmB4Lil4LiwIEhHQgpmb3Igc2VnbWVudCBpbiBwYXJzZWRfaGw3OgogICAgaWYgc2VnbWVudFswXSA9PSAnT0JYJzoKICAgICAgICBwcmludChmJnF1b3Q7e3NlZ21lbnRbM119OiB7c2VnbWVudFs1XX0ge3NlZ21lbnRbNl19ICjguITguYjguLLguJvguIHguJXguLQ6IHtzZWdtZW50WzddfSkmcXVvdDsp
import hl7 # ไลบรารีสำหรับจัดการ HL7 Messages
# ตัวอย่างข้อความ HL7 ที่อาจมาจาก XN-550
hl7_message = """
MSH|^~\&|XN-550|Lab|HIS|Hospital|20250307||ORU^R01|12345|P|2.3
PID|1||123456^^^Hospital||Doe^John||19800101|M
OBR|1||78910|CBC^Complete Blood Count
OBX|1|NM|WBC^White Blood Cell Count||7500|/uL|4000-10000|N
OBX|2|NM|RBC^Red Blood Cell Count||5.2|10^6/uL|4.2-6.1|N
OBX|3|NM|HGB^Hemoglobin||15.0|g/dL|12.0-17.0|N
"""
# แปลง HL7 message เป็นโครงสร้างข้อมูลที่อ่านง่าย
parsed_hl7 = hl7.parse(hl7_message)
# แสดงผลค่า WBC, RBC และ HGB
for segment in parsed_hl7:
if segment[0] == 'OBX':
print(f"{segment[3]}: {segment[5]} {segment[6]} (ค่าปกติ: {segment[7]})")