Даалгавар: Цельсий, фаренгейта температурын системүүдийн хооронд хөрвүүлэх програмыг зохио. Програмын интерфейс дараах байдалтай харагдана:
Энэхүү интерфейсд дөрвөн хэсгээс тогтоно. Үүнд:
- Оролтын текст талбар;
- Хөрвүүлэлтийн чиглэлийг заах радио товч контрол;
- Хөрвүүлэлтийг гүйцэтгэх товч контрол;
- Үр дүнг харуулах Label контрол;
Хэрэглэгч радио товч контролуудын нэг дээр даран хөрвүүлэлтийн чиглэлээ сонгоно. Та аль радио товч сонгогдсон эсэхийг илэрхийлэх глобаль хувьсагч ашиглаж болно. Гэхдээ хэрэггүй байж болно. Хөрвүүлэлтийн товч контролын евент функц дээр хөрвүүлэлтийн чиглэлийг агуулах глобаль хувьсагчаас хамааран Ц – Ф, Ф – Ц хөрвүүлэлтийг гүйцэтгэнэ. Глобаль хувьсагч ашиглаагүй тохиолдолд радио контрол сонгогдсон эсэхийг Checked() гишүүн функцыг ашиглаж тодорхойлоно.
Франгейтаас Цельсийн температурлуу хөрвүүлэх томъёо нь дараах байдалтай байдаг.
tempCelsius = (tempFahr - 32)*5/9
Нэмэлт сайжруулалтууд:
Энэхүү програмыг дээр өгөгдсөн интерфейсээс илүү эвтэйхэн байдлаар зохион байгуулж болно.
Дүгнэх журам: Лабораторын ажлыг үзүүлсэн оюутан тайлан бичнэ. Тайлан бичих удирдамжийн 1, 10, 11 заалтуудыг тайландаа тусгана. Нийтдээ 2 оноо авна.
1. Үндсэн мэдээлэл (таны нэр, лабораторийн ажлын дугаар, огноо). (0.2 оноо)
10. Програмын кодын жагсаалт. Тайлбарыг хийсэн байдал. (0.8 оноо)
11. Хамгийн чухал хэсэг. Лабораторын багшид өөрийн бичсэн програмаа зөв ажиллаж буйг шалгуулах. (1 оноо)
Хугацаа: Үзүүлэх болон тайлан хамгаалах эцсийн хугацаа нь: III долоо хоног
Bagshaa ta blog deeree xeden sample programiig source code toi ni oruulbal zugeer gej bodoj bna
ReplyDeleteTiim shuu. bas bagshaa ta visual studio 2005 -iin install iig ni csms.edu.mn deeree hostlchihvol tataj avahad iluu amar baih bolovuu. Bas Lab-n hugatsaa ungursnii daraa tuhain lab iig herhen zuv hiih baisan tuhai bodoltiin hariug ni tavij baival. Buruu zuv hiisen, hiigeegui humuustch bas heregtei baih. Bas lab, assignment duussanii daraa buh labiin groupeedees hamgiin zuv bodoltiig ni student codetoi ni tsug tavij baival sonirholtoi bolno gej bodoj baina.
ReplyDeleteBest regards
Rj
jishee:
ReplyDeletePrivate Sub Command1_Click()
Dim c, f As Double
c= Val(Text1)
If Option1.Value = True Then
f = c - 32) * 5 / 9
End If
If Option2.Value = True Then
f = (9 * x + 160) / 5
End If
Label1.Caption = f
End Sub
Багшаа та туршиж үзэх source code тавьж болох уу
ReplyDeletehttp://erdenebat-chuluun.blogspot.com/2008/02/sw210-1_12.html enen der jishee bga shte
ReplyDeleteНөхдөө, лекцнүүдийг older posts дотроос олсон нь хаягийг нь тавьчих өө.
ReplyDeletewahhahha OnzFeat hicheelee hiigeed baigaamuuu =))
ReplyDelete@Anonymous
ReplyDeleteЛабын хугацаа дууссан үед жишээ кодыг байршуулж байх тал дээр ажиллаж байна.