Мазмұндама Техника қауіпсіздігі ережелерімен танысу. Еңбекті қорғау және өндіріс гигиена ережелерін сақтау
Тәуелді және тәуелсіз ауыстырғыштар
жүктеу/скачать 299,81 Kb.
|
1пк
| Тәуелді және тәуелсіз ауыстырғыштар
Жалаушалардың ауыстырып қосқыштан айырмашылығы, жалаушаларды бір мезгілде әр түрлі комбинацияларда қоюға болады. (Осындай жағдайларда барлық жалаушаларды орнатуға немесе алып тастауға болады.) Жалауша орнатылған және алынып тасталған күйде болуы мүмкін. Жеке жалауша көбінесе жағдайда , мысалға қандайда бір режимді қосуға өшіруге қолданылады. Жалауша мәтіндік тақырыпша мен тікбұрыш болып көрінеді. Егер тікбұрышта қанат белгісі болатын болса, онда ол жалаушамен көрсетілген опциясы қосылған ( осындай жағдайда жалауша белгіленген деп атайды). Егер тікбұрыш болса, онда жалауша алынып тасталған. Бір жалаушамен жасалған іс- әрекеттер басқа жалаушалардың күйіне әсер етпейді, Checked жалаушының күйін анықтауға болады. Үнсіз жағдайда ол False мәнін қабылдайды, жалауша алынып тасталған. Тышқанды шерту арқылы жалаушаның күйін ауыстыруға болады. Егер жлауша алынып тасталған болса (қосылмаған), онда шерткеннен кейін ол орнатылады (қосылған), және керісінше. Содан кейін Checked мәні өзгертіледі. Жалаушаны өзгертуге болмайтындай қалдыру үшін Enabled мәнін False қылдырып орнату керек(қорғаныс қою). Қорғанысқа қойғаннан кейін оның мәні қорғанысқа дейінгі күйін сақтайды, яғни осы жалауша орнатылған немесе алып тасталған күйде болуы мүмкін. Орнатылған немесе алып тасталған екі күйден басқа, жалауша үшінші күйдеде болуы мүмкін жалаушаның күйін өзгертуге болмайды. Бұл күйдің болуы немесе болмауы Boolean типті AllowGrayed қасиеті басқарады. Егер оның мәні True болса, онда тышқанның батырмасын шерткен кезде жалаушаның үш күйдің арасындағы Циклдық ауысу өтеді: орнатылған, алынып тасталған және өзгертуге болмайтын. Өзгертуге болмайтын жағдайда жалаушаның түсі сұр болады, ал тік бұрышта қанат белгісі болады. TcheckBoxState типі State жалаушаның анализбен орнатудың үш күйінің бір мәнін атқарады. Ол келесі мәндерді қолданады: cbChecked (жалауша қосылмаған) cbGrayed (жалауша қосылған) cbUnchecked (жалаушаға қатынас алмаймыз). CheckBox3 жалаушасы ауыстырып қосқанда өзінің күйін бейнелейді. So, students in order to understand the meaning and reading of the words lets call the teacher of English Nesibeli Togiskizi 1.Warm-up. Teacher: - Now Let’s continue our lesson. As you know Informatics is very connected with each other because all the Computer programs is given in English. That’s why you must know English.You know we have learned all the termin words of computer at English lesson.Now Let’s remember. -What is it? Monitor – монитор Mouse – тышқан Mousepad – кілемше Floppy disk drive- дисковод Keyboard – клавиатура Projecter – прожектор New words. T: Look at the blackboard and listen to me! Radio button [ reidio bΛtn] тәуелді тіркелімді түйме Check box [tʃek bɔks] түйме жалау Alingnment [ǽlainment] орналасу Caption [ kǽpʃn] мәтін жолы Color [ kΛlә] түсі True [ tru:] ақиқат False [ fɔls] жалған Font [fɔnt] қаріп Enable [ eneibl] қорғаныс қою Visible [vizbl] көрініс Checked [tʃeket] тексерілген, тандалған Unchecked [Λn tʃekt] тексерілмеген, таңдалмаған Items [ aitms] элемент Cancel [ kǽnsl] жою Help [ help] көмек -Repeat after me! T—Cl work. T—P-1, P-2…... Тәуелді және тәуелсіз ауыстырғыштарды қолдана отырып, тест программасын құру. Тест программаcын құру. Компонент Қасиеті Мәні Оқиға Form1 Caption Алгоритмдеу және бағдарламалау пәні бойынша тест сұрақтары OnCreate GroupBox1 Caption №1 Label1 Caption сұрақ adioGroup1 Items Нұсқалар Button1 Caption Тексеру OnClick Label6 Caption бос GroupBox2 Caption №2 Label2 Caption Екінші сұрақ RadioGroup2 Items Нұсқалар Button2 Caption Тексеру OnClick Label7 Caption бос GroupBox3 Caption №3 Label3 Caption Үшінші сұрақ RadioGroup3 Items Нұсқалар Button3 Caption Тексеру OnClick Label8 Caption бос GroupBox4 Caption №4 Label4 Caption Төртінші сұрақ CheckBox1 Caption Нұсқалар CheckBox2 Caption CheckBox3 Caption CheckBox4 Caption Button4 Caption Тексеру OnClick Label9 Caption бос GroupBox5 Caption №5 Label5 Caption Бесінші сұрақ CheckBox5 Caption Нұсқалар CheckBox6 Caption CheckBox7 Caption CheckBox8 Caption Button5 Caption Тексеру OnClick Label10 Caption бос Memo1 Lines бос Button6 Caption Шыгу OnClick Var Form1: Tform1; K:integer; Implementation {$R *.dfm} Procedure Tform1.FormCreate(Sender: Tobject); Begin Memo1.Visible:=false; Memo1.Text:=' '; Label6.visible:=false; Label7.visible:=false; Label8.visible:=false; Label9.visible:=false; Label10.visible:=false; K:=0; End; Procedure Tform1.Button1Click(Sender: Tobject); Begin Button1.Enabled:=false; If radiogroup1.ItemIndex=2 then Begin k:=k+1; Label6.font.Color:=rgb(0,150,0); Label6.visible:=true; Label6.caption:='дұрыс'; End else begin Label6.font.Color:=rgb(0,150,0); Label6.visible:=true; Label6.caption:='дұрыс емес'; End; end; Procedure Tform1.Button2Click(Sender: Tobject); Begin Button2.Enabled:=false; If radiogroup2.ItemIndex=2 then Begin k:=k+1; Label7.font.Color:=rgb(0,150,0); Label7.visible:=true; Label7.caption:= 'дұрыс'; End else begin Label7.font.Color:=rgb(0,150,0); Label7.visible:=true; Label7.caption:= 'дұрыс емес'; End; end; Procedure Tform1.Button3Click(Sender: Tobject); Begin Button3.Enabled:=false; If radiogroup3.ItemIndex=2 then Begin k:=k+1; Label8.font.Color:=rgb(0,150,0); Label8.visible:=true; Label8.caption:= 'дұрыс'; End else begin Label8.font.Color:=rgb(0,150,0); Label8.visible:=true; Label8.caption:= 'дұрыс емес'; End; end; Procedure Tform1.Button4Click(Sender: Tobject); Begin Button4.Enabled:=false; If (checkbox1.Checked=true) and (checkbox4.Checked=true) And (checkbox2.Checked=false) and (checkbox1.Checked=false) Then begin Label9.Font.Color:=rgb(0,150,0); Label9.Visible:=true; Label9.Caption:= 'дұрыс'; End else begin Label9.Font.Color:=rgb(150,0,0); Label9.Visible:=true; Label9.Caption:= 'дұрыс емес'; End; end; Procedure Tform1.Button5Click(Sender: Tobject); Begin Button5.Enabled:=false; If (checkbox5.Checked=true) and (checkbox6.Checked=true) And (checkbox7.Checked=false) and (checkbox8.Checked=false) Then begin Label10.Font.Color:=rgb(0,150,0); Label10.Visible:=true; Label10.Caption:= 'дұрыс'; End else begin Label10.Font.Color:=rgb(150,0,0); Label10.Visible:=true; Label10.Caption:= 'дұрыс емес';end; Memo1.Visible:=true; Memo1.Text:='барлык сурак саны – 5'+#13+#10+'дурус жауап '+inttostr(k)+#13+#10+'пайызбен=' +floattostr(k/5*100)+'%'; end; Procedure Tform1.Button6Click(Sender: Tobject); Begin Close; End; end. жүктеу/скачать 299,81 Kb. Достарыңызбен бөлісу:
|