สูตรเกี่ยวกับบุคลิกของตัวเองที่ควรไปจะคู่ กับสูตรสุขภาพมีอย่างนี้

สูตรเกี่ยวกับบุคลิกของตัวเองที่ควรไปจะคู่ กับสูตรสุขภาพมีอย่างนี้

๑. อย่าเปรียบเทียบ ชีวิตของตัว เองกับคนอื่น คุณไม่รู้หรอกว่าคนที่คุณอิจฉานั้นเขา มีความทุกข์ยิ่งกว่าคุณอย่างไรบ้าง
๒. อย่าคิดทางลบ เกี่ยวกับ เรื่องที่คุณควบคุมหรือกำหนดไม่ได้ แทนที่จะมองโลก ในแง่ร้าย , ก็ทุ่มเทกำลังและพลังงานให้กับความคิด ทางบวก ณ ปัจจุบันเสีย
๓. อย่าทำอะไร เกินกว่าที่ตัวเองทำได้ ...รู้ว่าขีดจำกัดของตัวเองอยู่ที่ไหน
๔.. อย่าเอา จริงเอาจังกับตัวเองนัก เพราะคนอื่นเขา ไม่ได้ซีเรียสกับคุณเท่าไหร่หรอก
๕. อย่า เสียเวลา และพลังงานอันมีค่าของคุณ กับ เรื่องหยุมหยิม หรือเรื่องซุบซิบ....นอกเสียจากว่ามันจะทำให้คุณ ผ่อนคลายได้อย่างจริงจัง
๖. จงฝันตอนตื่น มากกว่าตอน หลับ
๗. ความ รู้สึกอิจฉาริษยาเป็นเรื่องเสียเวลาเปล่า ๆ ปลี้ ๆ...คิดให้ดีก็จะรู้ว่าคุณมีทุกอย่างที่คุณจำเป็นต้องมีแล้ว
๘. ลืมเรื่อง ขัดแย้งในอดีตเสีย และอย่าได้เตือนสามี หรือภรรยาคุณเกี่ยวกับความผิดพลาดในอดีตของอีกฝ่ายหนึ่งเลย เพราะมันจะทำลายความสุขปัจจุบันของคุณ
๙. ชีวิตนี้สั้นเกินกว่าที่เราจะไปโกรธเกลียดใคร... จงอย่าเกลียดคนอื่น
๑๐.ประกาศ สงบศึกกับอดีตให้สิ้น , จะได้ไม่ทำลายปัจจุบันของคุณ
๑๑.ไม่มีใครกำหนดความสุขของคุณได้นอกจากคุณเอง
๑๒.จง เข้าใจเสียว่า ชีวิตก็คือโรงเรียน คุณมาเพื่อเรียน รู้ และ ปัญหาเป็น เพียง ส่วนหนึ่งของหลักสูตร ซึ่งมาแล้วก็หาย ไป...เหมือนโจทย์วิชาพีชคณิต...แต่สิ่งที่คุณเรีย?รู้นั้นอยู่กับคุณตลอด ชีวิต
๑๓. จง ยิ้มและหัวเราะมากขึ้น
๑๔. คุณ ไม่จำเป็นต้องชนะทุกครั้งที่ถก เถียงกับคนอื่น หรอก...บางครั้งก็ยอมรับว่าเราเห็นแตกต่างกัน ได้...

เห็นพ้องที่จะเห็นต่างก็ไม่เห็นเสียหายแต่อย่างไร
แล้ว เราควรจะมีทัศนคติอย่างไรต่อชุมชนและคนรอบข้าง เราล่ะ ?

๑. อย่าลืมโทรฯหาครอบครัวบ่อย ๆ
๒. จงหาอะไรดี ๆ ให้คนอื่นทุกวัน
๓. จงให้อภัยทุกคนสำหรับทุกอย่าง
๔. จงหาเวลาอยู่กับคนอายุเกิน 70 และต่ำกว่า 6 ขวบ
๕. พยายามทำให้อย่างน้อย 3 คนยิ้มได้ทุกวัน
๖. คนอื่นเขาคิดอย่างไรกับคุณไม่ใช่ เรื่องของคุณสัก หน่อย
๗. งานของคุณไม่ดูแลคุณตอนคุณป่วยหรอก แต่ครอบครัวและเพื่อนคุณต่างหากเล่าที่จะดูแลคุณในยามคุณมีปัญหา สุขภาพ

ดังนั้น , อย่าได้ห่างเหินกับคนใกล้ชิดเป็น อันขาด

และ ถ้าหากสามารถดำรงชีวิตให้มีความหมายได้ , ก็ควรจะทำ ดังต่อไปนี้

๑. ทำสิ่งที่ควรทำ
๒. อะไรที่ไม่เป็นประโยชน์ , ไม่สวย , ไม่น่ารื่นรมย์ , จงทิ้ง ไปเสีย...เก็บไว้ทำไม ?
๓. เวลาและพระเจ้าย่อมรักษาแผล ทุกอย่างได้
๔. ไม่ว่าสถานการณ์จะดีหรือเลวปานใด , เดี๋ยว มันก็เปลี่ยน
๕. ไม่ว่าคุณจะรู้สึกอย่างไรในตอนเช้าของทุกวัน , จงลุก จากเตียง , แต่ง ตัวและปรากฎตัวต่อหน้าคนที่เราร่วมงาน ด้วย... get up, dress up and show up.
๖. สิ่งที่ดีที่สุดยังมาไม่ถึง
๗. ถ้าคุณยังลุกขึ้นตอนเช้าได้ , อย่าลืมขอบคุณพระเจ้า หรือสิ่ง ศักดิ์สิทธิ์ที่คุณนับถือเสียด้วย
๘. เชื่อเถอะว่าส่วนลึก ๆ ในใจของคุณนั้นมีความสุข เสมอ...ดังนั้น , ส่วนนอกของคุณทุกข์โศกไปทำไมเล่า

ที่มา:ได้รับจากemailครับ
ไดอารี่ออนไลน์ : www.iamnidnoi.com

VB.net การ Read & Write XML file (แบบset Config)

ในการพัฒนาโปรแกรม ด้วย windows Application ต้องมีการทำ config เกี่ยวกับ Database,username,password,key ที่ผ่านมาเราอาจจะเคยเห็น โปรแกรมที่เป็น Application ใช้ file .ini, .txt และ .xml ซึ่งการ Read & Write xml มีหลากหลายแบบ ผมมีตัวอย่างการ set xml อย่างง่ายมาฝากดังตัวอย่าง

<?xml version="1.0" encoding="utf-8" ?>
- <configuration>
<ServerName>xxx.xxx.xxx.xxx</ServerName>
<UserName>findvb</UserName>
<Password>1234</Password>
</configuration>


ขั้นตอนคือ เราจะต้องมี pathfile ของ xmlของเราก่อนโดยใน fuctionผมกำหนดไว้ที่
Private filename As String = Application.StartupPath & "\" & "dataconfig.xml"

View Code

-------------------------------------------------
Imports System.Xml
Imports System.Text
Private filename As String = Application.StartupPath & "\" & "config.xml"
Public str_Servername As String = "ServerName"
Public str_UserName As String = "UserName"
Public str_Password As String = "Password"

Public Sub SetWriteXML(ByVal servername As String, ByVal username As String, ByVal pwd As String)
If Not IO.File.Exists(filename) Then
Dim xmlText = "<?xml version='1.0' encoding='utf-8'?>" & _
"<configuration>" & _
"</configuration>"
Dim xmlDoc As New XmlDocument()
xmlDoc.LoadXml(xmlText)
xmlDoc.Save(filename)
End If
Try
'Create file, overwrite if exists
'enc is encoding object required by constructor
'It is null, so default encoding is used
Dim objXMLTW As New XmlTextWriter(filename, Encoding.UTF8)
With objXMLTW
.IndentChar = vbTab
.Indentation = 1
.Formatting = Formatting.Indented

.WriteStartDocument()
'Top level (Parent element)
.WriteStartElement("configuration")

'Child elements, from request form
.WriteElementString(str_Servername, servername)
.WriteElementString(str_UserName, username)
.WriteElementString(str_Password, pwd)

.WriteEndElement() 'End top level element
.WriteEndDocument() 'End Document
.Flush() 'Write to file
.Close()
End With
Catch Ex As Exception

End Try
End Sub

Public Function GetReadXML(ByVal keyName As String) As String
Dim getvalue As String = ""
Dim XmlDoc As XmlDocument = New XmlDocument()
Try
With XmlDoc
XmlDoc.Load(filename)
getvalue = .SelectSingleNode("configuration/" & keyName).InnerText()
XmlDoc = Nothing
End With
Catch ex As Exception
End Try
Return getvalue
End Function

------------------------------------------------