আপনার ওয়ার্ডে সেলসিয়াস, ফারেনহাইট, কেলভিনের মতো বিভিন্ন তাপমাত্রা ইউনিটগুলির মধ্যে কীভাবে সহজে রূপান্তর করা যায়

এই নিবন্ধে, আমরা আপনাকে দেখাব কিভাবে সহজেই তাপমাত্রার একক যেমন সেলসিয়াস, ফারেনহাইট, কেলভিন, আপনার শব্দের মধ্যে রূপান্তর করা যায়।

Word VBA এর ভাল ব্যবহার করুন, আপনি অনেক ছোট কিন্তু দরকারী টুল তৈরি করতে পারেন। উদাহরণস্বরূপ, আপনার জন্য ক্লান্তিকর রূপান্তর করার জন্য আপনি Word-এ একটি তাপমাত্রা রূপান্তরকারী তৈরি করতে একেবারে ঠিক আছেন। অতএব, আরও বিস্তারিত অনুসরণ করতে পড়ুন।

একটি ব্যবহারকারী ফর্ম Inোকান

কনভার্টার তৈরি করতে, আপনাকে প্রথমে একটি ব্যবহারকারী ফর্ম তৈরি করতে হবে।

1. সবার আগে, ভিবিএ সম্পাদক খোলার জন্য "Alt + F11" টিপুন।
2. পরবর্তী বাম কলামে "সাধারণ" ক্লিক করুন।
3. তারপরে "sertোকান" ক্লিক করুন এবং "ইউজারফর্ম" নির্বাচন করুন।
4. এর আকার সামঞ্জস্য করতে ফর্মের চারপাশে হ্যান্ডলগুলিতে ক্লিক করুন।
5. পরবর্তীতে "প্রপার্টি উইন্ডো" ট্রিগার করতে "F4" টিপুন।
6. জানালায়, ব্যবহারকারীর ফর্মটিকে "frmTemperatureConverter" হিসাবে নাম দিন এবং "তাপমাত্রা রূপান্তরকারী" হিসাবে এর ক্যাপশন সেট করুন.
7. উপরন্তু, ফর্মের "ShowModal" বৈশিষ্ট্যটিকে "False" হিসাবে সেট করুন।
8. তারপরে মেনু বারে, এটি বের করতে "টুলবক্স" এ ক্লিক করুন।
9. একটি লেবেল, দুটি পাঠ বাক্স, দুটি কমান্ড বোতাম এবং দুটি কম্বো বাক্স তৈরি করতে টুলবক্সে নিয়ন্ত্রণ ব্যবহার করুন। নিম্নলিখিত ক্রমে ফর্মে এই নিয়ন্ত্রণগুলি রাখুন:
10. তৈরি করা নিয়ন্ত্রণের জন্য পরবর্তী সেট নির্দিষ্ট বৈশিষ্ট্য:

• প্রথমে টেক্সট বক্স 1 এ ক্লিক করুন। এটির নাম দিন "txtTempValue1"।
• তারপর টেক্সট বক্স 2 এ ক্লিক করুন এবং এটিকে "txtTempValue2" হিসাবে নাম দিন।
• এরপর লেবেলে ক্লিক করুন এবং এর ক্যাপশন “=” হিসেবে সেট করুন।
• কম্বো বক্স 1 এ ক্লিক করুন এবং এটিকে "cmbTempUnit1" হিসাবে নাম দিন।
• এবং কম্বো বক্স 2-এ ক্লিক করুন এবং "cmbTempUnit2" নাম দিন।
• এরপর কমান্ড বোতাম 1 এ ক্লিক করুন এবং এটিকে "btnConvert" নাম দিন। "রূপান্তর" হিসাবে ক্যাপশন সেট করুন।
• কমান্ড বোতাম 2 এ ক্লিক করুন এবং এটিকে "btnClose" নাম দিন। "বন্ধ" হিসাবে এটির ক্যাপশন সেট করুন।

এছাড়াও, প্রয়োজনে অন্যান্য বৈশিষ্ট্য সেট করুন।

নিয়ন্ত্রণগুলির জন্য ইনপুট কোডগুলি

1. কোড এলাকায় প্রবেশ করতে "রূপান্তর" বোতামে ডাবল ক্লিক করুন। সেখানে নিম্নলিখিত কোড পেস্ট করুন:

Private Sub btnConvert_Click()
  Dim dTempValue1 As Double, dTempValue1InF As Double, dTempValue2 As Double
  Dim strTempUnit1 As String, strTempUnit2 As String
 
  strTempUnit1 = frmTemperatureConverter.cmbTempUnit1.Text
  strTempUnit2 = frmTemperatureConverter.cmbTempUnit2.Text
 
  dTempValue1 = CDbl(frmTemperatureConverter.txtTempValue1.Value)
 
  Select Case strTempUnit1
    Case "Celsius"
      dTempValue1InF = dTempValue1 * 33.8
    Case "Fahrenheit"
      dTempValue1InF = dTempValue1
    Case "Kelvin"
      dTempValue1InF = dTempValue1 * -457.87
    Case "Rankine"
      dTempValue1InF = dTempValue1 * -458.67
    Case "Delisle"
      dTempValue1InF = dTempValue1 * 1.2
    Case "Newton"
      dTempValue1InF = dTempValue1 * 102.414
    Case "Réaumur"
      dTempValue1InF = dTempValue1 * 34.25
    Case "Rømer"
      dTempValue1InF = dTempValue1 * 3.42857143
  End Select
 
  Select Case strTempUnit2
    Case "Celsius"
      dTempValue2 = dTempValue1InF / 33.8
    Case "Fahrenheit"
      dTempValue2 = dTempValue1InF
    Case "Kelvin"
      dTempValue2 = dTempValue1InF / -457.87
    Case "Rankine"
      dTempValue2 = dTempValue1InF / -458.67
    Case "Delisle"
      dTempValue2 = dTempValue1InF / 1.2
    Case "Newton"
      dTempValue2 = dTempValue1InF / 102.414
    Case "Réaumur"
      dTempValue2 = dTempValue1InF / 34.25
    Case "Rømer"
      dTempValue2 = dTempValue1InF / 3.42857143
  End Select
 
  ' Convert dTempValue2 to string
  If Abs(dTempValue2 - Int(dTempValue2)) > 0.00000001 Then
    frmTemperatureConverter.txtTempValue2.Value = Format(dTempValue2, "###0.00000000")
  Else
    frmTemperatureConverter.txtTempValue2.Value = Format(dTempValue2, "General Number")
  End If
End Sub

2. এরপর ফর্মে যান এবং "ক্লোজ" বোতামে ডাবল ক্লিক করুন। কোড লিখুন:

Private Sub btnClose_Click()
  Unload Me
End Sub

3. তারপর ফর্মটি প্রবেশ করতে ডাবল ক্লিক করুন। আপনি উপরে 2টি কম্বো বক্স দেখতে পারেন। নিশ্চিত করুন যে আপনি বাম দিকে "ইউজারফর্ম" এবং ডানদিকে "শুরু করুন" নির্বাচন করেছেন৷
4. এবং সেখানে কোড পেস্ট করুন, খুব.

Private Sub UserForm_Initialize()
    cmbTempUnit1.List = Array("Celsius", "Fahrenheit", "Kelvin", "Rankine", "Delisle", _
                        "Newton", "Réaumur", "Rømer")
    cmbTempUnit2.List = Array("Celsius", "Fahrenheit", "Kelvin", "Rankine", "Delisle", _
                        "Newton", "Réaumur", "Rømer")
End Sub

5. অবশেষে, সমস্ত কোড সংরক্ষণ করুন।

একটি মডিউল sertোকান

1. এখনও VBA সম্পাদকে, "সাধারণ" প্রকল্পের অধীনে "সন্নিবেশ" ক্লিক করুন।
2. কিন্তু এই সময় "মডিউল" নির্বাচন করুন।
3. কোডগুলি খুলতে এবং পেস্ট করতে এটিতে ডাবল ক্লিক করুন:

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

এখন ম্যাক্রো "TriggerTemperatureConverter" চালান এবং আপনি কনভার্টারটি ট্রিগার করতে পারেন। আপনি এই ম্যাক্রোর জন্য একটি বোতাম বরাদ্দ করতে পারেন। বিস্তারিত পদক্ষেপের জন্য, এই নিবন্ধটি পড়ুন: আপনার শব্দে ম্যাক্রো এবং ভিবিএর সাথে আটকানো টেক্সটগুলির বিন্যাস কীভাবে সরানো যায়

আপনি নীচের ভিডিও চেক করতে পারেন:

শব্দ সঙ্কুচিত জন্য প্রস্তুত

আপনি ডেটা ক্ষতির সম্মুখীন হন বা না হন না কেন, ডেটা বিপর্যয় ঘটলে আপনাকে সর্বদা প্রস্তুতি নিতে হবে। উপলব্ধ সমস্ত দরকারী টিপস মধ্যে, আমরা দৃঢ়ভাবে একটি ধরে রাখা সুপারিশ ডকক্স পুনরুদ্ধার অগ্রিম সরঞ্জাম

লেখকের ভূমিকা:

ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল পুনরুদ্ধার এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com