Санҷиши коршоями модулҳои барномавии лоиҳа
Автор: dfurkat • Май 7, 2022 • Реферат • 1,813 Слов (8 Страниц) • 189 Просмотры
БОБИ 3.ИСТИФОДАИ АМАЛИИ ЛОИҲА
3.1.Санҷиши коршоями модулҳои барномавии лоиҳа
Ворид шудан ба барнома қадами аввал бақайдигири кардан лозим аст. Масалан ному насаб Дӯсматов Фурқат соли таввалуд 11 октябри 2000 ҷинс мард ва логину парол dfurkat бақайд гирифта шуд қисми код дар листинги 1 навишта шудааст.
Листинги 1. Коди саҳифаи Бақайдигирӣ
nameUser = Guna2TextBox4.Text
loginUser = Guna2TextBox5.Text
PasswordUser = Guna2TextBox3.Text
genderUser = Guna2ComboBox1.Text
If genderUser = "Мард" Then
genderUser = 1
Else
genderUser = 2
End If
birthdayUser = Guna2DateTimePicker1.Value
If nameUser <> "" And loginUser <> "" And PasswordUser <> "" And genderUser <> "" And birthdayUser <> Now.Date Then
insertUser(nameUser, loginUser, PasswordUser, genderUser, birthdayUser)
End If
Намуди зоҳирии саҳифаи Бақайдгирӣ ва иҷрои қисми коди листинги 1 дар расми 1 нишон дода шудааст.
[pic 1]
Расми 1. Истифодаи оинаи “Бақайдгирӣ”
Бақайдгирифта тугмаи Воридшави-ро пахш карда ба сатри логину рамз
маълумоти худро логину рамзи бақайдигирифта шударо ворид карда ба саҳифаи дигар мегузарад қисми код дар листинги 2 навишта шудааст.
Листинги 2. Коди саҳифаи Воридот
loginUser = Guna2TextBox2.Text
PasswordUser = Guna2TextBox1.Text
If loginUser <> "" And PasswordUser <> "" Then
userLogin(loginUser, PasswordUser)
End If
Намуди зоҳирии саҳифаи Воридот ва қисми иҷрои қисми листинги 2 дар расми 2 нишон дода шудааст.
[pic 2]
Расми 2. Бо логину рамзи бақайдгирифта вори шудан
Ҳангоми логину рамзро дуруст ворид кардан ва пахши тугмаи Воридшавӣ саҳифаи меню кушода мешавад.
Листинги 3. Коди воридшави ба саҳифаи Меню
Private Sub Guna2Button1_Click(sender As Object, e As EventArgs) Handles Guna2Button1.Click
Panel1.Visible = True
End Sub
Намуди зоҳири Меню ва иҷрои қисми код дар листинги 3 дар расми 3
нишон дода шудааст.
[pic 3]
Расми 3. Оинаи “Меню”
Саҳифаи Меню ворид шудан дар саҳифаи нишонаи истифодабаранда (иконка) иваз мешавад назар ба ҷинси истифодабаранда.
Тугмаи якум Ташхис ин саҳифаи ҳолати вазн кушода мешавад ки дар он ном ва насаби истифодабаранда ва ҷинси истифодабаранда навишта шудааст қисми код дар листинги 4 нишон дода шудааст.
Листинги 4. Коди нишондоди Ҳолати вазн
If ves.Text.Length <> 0 And rost.Text.Length <> 0 Then
growth = growth / 100
result = weight / (growth * growth)
If result < 15 Then
L1.Text = "(Норасоии вазн)"
L1.ForeColor = Color.Blue
ElseIf result >= 15 And result <= 20 Then
L1.Text = " (Камвазнӣ)"
L1.ForeColor = Color.Blue
ElseIf result >= 20 And result <= 25 Then
L1.Text = "(мувофиқи меъёр)"
L1.ForeColor = Color.Green
ElseIf result >= 25 And result <= 30 Then
L1.Text = " (вазни зиёдатӣ)"
L1.ForeColor = Color.Blue
ElseIf result >= 30 And result <= 35 Then
L1.Text = " (фарбеҳӣ дараҷаи 1)"
L1.ForeColor = Color.Red
ElseIf result >= 35 And result <= 40 Then
L1.Text = " (фарбеҳӣ дараҷаи 2)"
L1.ForeColor = Color.Red
ElseIf result >= 40 Then
L1.Text = " (фарбеҳӣ дараҷаи 3)"
L1.ForeColor = Color.Red
Else
MsgBox("Қиматҳоро дуруст ворид намоед!")
End If
End If
Намуди зоҳирии саҳифа ва иҷроиши код Ҳолати вазн дар расми 4 нишон дода шудааст.
[pic 4]
Расми 4. Истифодабарии оина “Ҳолати вазн”
Ворид карда мешвад ба сатрҳои қад (175) ва вазн (57) натиҷаи камвазниро баровард. Ин хабаррасон мекунад аз ҳолати вазни истифодабаранда.
Пахши тугмаи Ба пеш саҳифаи интихоби интерактивӣ ворид мешавад. Сатри вазн ва қад холи ягон қиммат надошта бошад ягон қимат ворид кунед чоп мешавад қисми код дар листинги 5 навишта шудааст.
...