Orodha ya maudhui:

Kikokotoo cha BMI: Hatua 6
Kikokotoo cha BMI: Hatua 6

Video: Kikokotoo cha BMI: Hatua 6

Video: Kikokotoo cha BMI: Hatua 6
Video: Ваш врач ошибается насчет потери веса 2024, Julai
Anonim
Kikokotoo cha BMI
Kikokotoo cha BMI

Jina langu ni Umair Bin Asim. Mimi ni mwanafunzi wa Mtazamo wa Ulimwenguni, nikifanya viwango vyangu vya O. Mradi huu ni sehemu ya kampeni ya uhamasishaji ambayo mimi na wanafunzi wenzangu tunafanya sasa. Tunatambua fetma kama shida inayoongezeka ulimwenguni kote na tunahimiza watu kupambana na fetma kabla ya kusababisha janga kubwa la kijamii. Mradi huu ni moja ya kampeni zetu nyingi za uhamasishaji.

Kikokotoo cha BMI, ni kuwaruhusu watu urahisi zaidi katika kuhesabu index ya molekuli ya mwili na kuamua ikiwa wanene au la. Kikokotoo ambacho tumetengeneza kimewekwa katika viwango vya chama cha afya cha Amerika. Kusudi la kuchapisha hii ni kuruhusu watu sio tu kutengeneza kikokotoo lakini pia kuruhusu watu kurekebisha mahesabu yao kwa kiwango chochote cha kitaifa.

Hatua ya 1: Kuunda Mradi Mpya wa Studio ya Visual

Kuunda Mradi Mpya wa Studio ya Visual
Kuunda Mradi Mpya wa Studio ya Visual
Kuunda Mradi Mpya wa Studio ya Visual
Kuunda Mradi Mpya wa Studio ya Visual
  1. studio ya wazi ya kuona
  2. bonyeza mradi mpya
  3. chagua maombi ya fomu ya wajane
  4. Badilisha jina la mradi kuwa "Kikokotoo cha BMI"
  5. Hifadhi mradi na ukumbuke mahali (nimeihifadhi katika gari tofauti)

Hatua ya 2: Sehemu mbili

Sehemu mbili
Sehemu mbili

kuna sehemu mbili katika programu ya kuona ya windows windows application

1) Fomu1.vb [Ubunifu]

hapa unaunda GUI

2) Fomu1.vb

humu unaandika programu yako

unaweza kuchagua tabo kwa kuchagua juu yao

Hatua ya 3: Tengeneza Kiolesura (lebo na sanduku za maandishi)

Tengeneza Kiolesura (lebo na sanduku za maandishi)
Tengeneza Kiolesura (lebo na sanduku za maandishi)
Tengeneza Kiolesura (lebo na sanduku za maandishi)
Tengeneza Kiolesura (lebo na sanduku za maandishi)

katika hatua hii unahitaji kubuni kiolesura cha mtumiaji wa picha.

  1. chagua lebo kutoka kwenye kisanduku cha zana kinachopatikana (ikiwa huwezi kupata sanduku la zana bonyeza Ctrl + Alt + x)
  2. buruta lebo kwenye fomu na uipange upande wa kulia. tunahitaji maandiko matatu
  3. panga maandiko upande wa kushoto
  4. bonyeza lebo na katika mali badilisha Autosize kuwa UONGO, hii itakuruhusu kubadilisha ukubwa wa lebo.
  5. bonyeza maandiko na katika mali badilisha maandishi kuwa "urefu", "uzito", "BMI yako", mtawaliwa.

  6. unaweza pia kubadilisha mpangilio mwingine katika mali kama vile rangi na athari ya 3D.
  7. buruta visanduku vitatu vya maandishi kutoka kwenye kisanduku cha zana na uzipangilie kando ya kushoto sambamba na lebo
  8. bonyeza sanduku la maandishi na katika mali badilisha mipangilio ya jina kuwa "txtheight", "txtweight", "txtresult"
  9. unaweza pia kubadilisha mpangilio mwingine katika mali kama vile rangi na athari ya 3D.
  10. tengeneza kisanduku cha maandishi cha mwisho na upangilie chini, taja sanduku hili la maandishi "txtcomment", hii itatoa matokeo kwa msingi wa watu wa BMI kwani uelewa kutoka kwa nambari pekee inaweza kuwa ngumu.
  11. kubadilisha jina ni muhimu kwani tutalazimika kuyaita masanduku haya juu katika programu yetu, ikiwa unapendelea kuweka jina lingine lolote lazima ubadilishe jina la kitufe kilichotajwa katika programu pia. (majina ni kulingana na mpango wangu)

Hatua ya 4: Tengeneza Kiolesura (vifungo)

Tengeneza Kiolesura (vifungo)
Tengeneza Kiolesura (vifungo)

weka vifungo kwa kuviburuta kutoka kwenye kisanduku cha zana na kuziweka sawa kama onyesho kwenye picha

wakati kitufe kimechaguliwa badilisha jina kwenye kitufe katika mali, na unaweza kubadilisha mpangilio wa maandishi pia.

  • unda jina la kitufe "btncalc", na maandishi "hesabu BMI"
  • unda jina la kitufe "btnclear", na maandishi "wazi"
  • unda jina la kitufe "btnexit", na maandishi "toka"
  • unda jina la kitufe "btnabout", na maandishi "jifunze kuhusu sisi"
  • unda jina la kitufe "btnhlp", na maandishi "unahitaji msaada?" (sijatumia hii na imeachwa bure ikiwa unataka kuongeza kitufe cha usaidizi)

pangilia vifungo katika fomu ya GUI kwa kadri unavyoona inafaa

kubadilisha jina ni muhimu kwani tutalazimika kuziita vifungo hivi kwenye programu yetu, ikiwa unapendelea kuweka jina lingine lolote lazima ubadilishe jina la kitufe kinachojulikana kwenye programu pia. (majina ni kulingana na mpango wangu)

Hatua ya 5: Kupanga Kikokotozi chako

Kupanga Kikokotozi chako
Kupanga Kikokotozi chako

Fomu ya Darasa la Umma1

Binafsi Sub btncalc_Click (mtumaji kama System. Object, na kama System. EventArgs) Hushughulikia btncalc. Click

Urefu wa urefu kama mara mbili = 0 'hutengeneza urefu uliopewa jina Uzito wa kijivu Kama mara mbili = 0' hutengeneza uzito uliobadilishwa uliopunguzwa Punguza BMI Kama Double = 0 'huunda jina tofauti la BMI

txtresults. Text = ""

urefu = Double. Sehemu (txtheight. Text) 'inasoma nambari kutoka kwa kisanduku cha maandishi txtheight na kuzihifadhi katika uzani wa kutofautisha = Double. Parse (txtweight. Text)' inasoma nambari kutoka kwa kisanduku cha maandishi txtweight na inaihifadhi kwa urefu tofauti tofauti = urefu * 0.0254 'hubadilisha urefu kuwa mita uzito = uzani * 0.4535924' hubadilisha uzito kuwa kilogramu urefu = urefu * urefu 'mraba mraba na kuiokoa kuwa urefu tofauti

Ikiwa ((urefu <= 0) Au (uzani <= 0)) Kisha 'kuangalia uhalali ili kuhakikisha data isiyo ya kawaida haijaingizwa kusafisha () MsgBox ("tafadhali ingiza maadili halisi") Toka Mwisho Mdogo Ikiwa

BMI = uzito / urefu 'hesabu ya BMI

BMI = Fomati (BMI, "0.00") 'inaandika BMI kwa alama mbili za mahali za juu za desimali. Text = BMI' inaandika BMI kwenye kisanduku cha maandishi txtresult txtcomment. Text = "" 'inatoa maoni ya kisanduku cha maandishi kuruhusu kuingia kwa data

huhesabu hali kulingana na BMI

Ikiwa BMI <18.5 Basi hali inaweza kutofautiana katika nchi yako

txtcomment. Text = "uko chini ya uzito"

ElseIf ((BMI> = 18.5) Na (BMI 24.9) Na (BMI 29.9 Kisha txtcomment. Text = "wewe ni mnene, tafadhali chukua tahadhari" Mwisho Kama

Maliza Sub

Sub Sub btnexit_Click (mtumaji kama System. Object, na kama System. EventArgs) Hushughulikia btnexit. Click

Funga () 'kazi kwa Sub EndBinafsi Sub btnclear_Click (mtumaji kama System. Object, na kama System. EventArgs) Hushughulikia btnclear. Click cleanup () 'inaita ndogo ya kawaida ya kusafisha End Sub Sub kusafisha ()' inafuta kila txtcomment. Text = "" txtheight. Clear () txtweight Futa () txtresults. Text = "" txtheight. Focus () Mwisho wa Sub

Sub Sub btnabout_Click (mtumaji kama System. Object, na kama System. EventArgs) Hushughulikia btnabout. Click

huu ni ujumbe ulioonyeshwa katika meseji tofauti

'unaweza kuongeza kitu chochote unachotaka baada ya ishara "=" hapa chini lakini lazima iwe kati ya koma mara mbili ("")

Ujumbe mdogo Kama Kamba = "Programu hii Ilifanywa na Umair Bin Asim Kwa Ajili ya Uhamasishaji Wa Jamii Juu ya Afya." & vbNewLine & "Ongezeko Ulimwenguni Kwa Idadi Ya Watu Wenye Kunenepa Limesababisha Hofu ya Kiafya Wakati Idadi Ya Kesi Za Magonjwa Ya Moyo Na Kisukari Inazidi Kuongezeka." & vbNewLine & "Pamoja na haya yote Idadi kubwa ya watu hawajui ikiwa ni wanene au la. Jinsi ya Kukabiliana nayo." & vbNewLine & "Kwa kujibu Kwamba Tumefanya Kikokotoo Cha Kuamua BMI Yako Na Iwe Wewe Ni Mnene Au La." & vbNewLine & "Viwango hivi ni Kulingana na Chama cha Moyo cha Amerika."

MsgBox (ujumbe)

End Sub Sub Sub Sub btnhlp_Click (sender As System. Object, e As System. EventArgs) Hushughulikia btnhlp. Click 'ongeza ujumbe wowote unaotaka kuandika kati ya "" "hauna kitu kwa sasa Dim urgent_message As String =""

MsgBox (ujumbe_wa haraka)

Maliza SubDarasa La Kumaliza

Hatua ya 6: Hongera Progamming yako imefanywa

sasa unaweza kuhesabu BMI yako na unajua jinsi ya kuhariri programu yako kwa kupenda kwako

kucheza programu bonyeza kitufe cha kijani kwenye upau wa juu au bonyeza tu F5 furahiya!

kwa urahisi wako tumechapisha kikokotoo chetu (kilichotengenezwa tayari) na pia programu (katika faili ya.txt)

Ilipendekeza: