비베 6.0을하는데 석차쪽질문좀 드릴게요 ㅠ
딸기맛사탕
질문 제목 : 비베 6.0 석차구하기10명의 데이터를 배열로 받아 추가하여서 나중에 석차구하기 버튼을 누르면 1~10위순으로 누를때마다 1,2,3,4...10등이 뜨는 프로그램을만드는데요 잘안되네요 ...질문 내용 : 일단 제가짠소스는 아래와같은데요
dim i, k, j, h, temp as integer
dim korscore(10), engscore(10), mathscore(10), vibascore(10), total(10) as integer
dim korcredit(10), engcredit(10), mathcredit(10), vibacredit(10), appcredit(10), getcredit(10) as integer
dim aver(10), average(10) as double
dim hak(10) as double
dim kavaverage(10), mavaverage(10), eavaverage(10), vavaverage(10), avaverage(10), ava(10) as double
dim naming(10) as string
private sub label8_click()end subprivate sub cmdadd_click()
txthak.text =
txtname.text =
txtkorscore.text =
txtengscore.text =
txtmathscore.text =
txtvibascore.text =
txtkorcredit.text =
txtengcredit.text =
txtmathcredit.text =
txtvibacredit.text =
txtkorgrade.text =
txtenggrade.text =
txtmathgrade.text =
txtvibagrade.text =
txttotal.text =
txtaverage.text =
txtavaverage.text =
txtappcredit.text =
txtgetcredit.text =
i = i + 1
if i = 10 then
msgbox 10명을 초과하였습니다
end if
end subprivate sub cmderase_click()
txtkorscore.enabled = false
txtengscore.enabled = false
txtmathscore.enabled = false
txtvibascore.enabled = false
txtkorcredit.enabled = false
txtengcredit.enabled = false
txtmathcredit.enabled = false
txtvibacredit.enabled = false
txtkorgrade.enabled = false
txtenggrade.enabled = false
txtmathgrade.enabled = false
txtvibagrade.enabled = false
txttotal.enabled = false
txtaverage.enabled = false
txtavaverage.enabled = false
txtappcredit.enabled = false
txtgetcredit.enabled = false
end subprivate sub cmdexit_click()
end
end subprivate sub cmdrank_click()
for i = 0 to 9
for k = i to 9
if avaverage(k) avaverage(k + 1) then
temp = avaverage(k)
avaverage(k) = avaverage(k + 1)
avaverage(k + 1) = temp
end if
next k
next i
txtname.text = naming(j)
txthak.text = hak(j)
txtkorscore.text = korscore(j)
txtengscore.text = engscore(j)
txtmathscore.text = mathscore(j)
txtvibascore.text = vibascore(j)
txtkorcredit.text = korcredit(j)
txtengcredit.text = engcredit(j)
txtmathcredit.text = mathcredit(j)
txtvibacredit.text = vibacredit(j)
txtkorgrade.text = korgrade(j)
txtenggrade.text = enggrade(j)
txtmathgrade.text = mathgrade(j)
txtvbgrade.text = vibagrade(j)
txttotal.text = total(j)
txtaverage.text = average(j)
txtappcredit.text = appcredit(j)
txtavaverage.text = avaverage(j)
txtgetcredit.text = getcredit(j)
if korscore(h) = 95 then
txtkorgrade.text = a+
elseif korscore(h) = 90 then
txtkorgrade.text = a0
elseif korscore(h) = 85 then
txtkorgrade.text = b+
elseif korscore(h) = 80 then
txtkorgrade.text = b0
&nb
elseif korscore(h) = 75 then
txtkorgrade.text = c+
elseif korscore(h) = 70 then
txtkorgrade.text = c0
elseif korscore(h) = 65 then
txtkorgrade.text = d+
elseif korscore(h) = 60 then
txtkorgrade.text = d0
else
txtkorgrade.text = f
end if
if engscore(h) = 95 then
txtenggrade.text = a+
elseif engscore(h) = 90 then
txtenggrade.text = a0
elseif engscore(h) = 85 then
txtenggrade.text = b+
elseif engscore(h) = 80 then
txtenggrade.text = b0
elseif engscore(h) = 75 then
txtenggrade.text = c+
elseif engscore(h) = 70 then
txtenggrade.text = c0
elseif engscore(h) = 65 then
txtenggrade.text = d+
elseif engscore(h) = 60 then
txtenggrade.text = d0
else
txtenggrade.text = f
end if
if mathscore(h) = 95 then
txtmathgrade.text = a+
elseif mathscore(h) = 90 then
txtmathgrade.text = a0
elseif mathscore(h) = 85 then
txtmathgrade.text = b+
elseif mathscore(h) = 80 then
txtmathgrade.text = b0
elseif mathscore(h) = 75 then
txtmathgrade.text = c+
elseif mathscore(h) = 70 then
txtmathgrade.text = c0
elseif mathscore(h) = 65 then
txtmathgrade.text = d+
elseif mathscore(h) = 60 then
txtmathgrade.text = d0
else
txtmathgrade.text = f
end subprivate sub cmdstart_click()
naming(i) = txtname.text
hak(i) = val(txthak.text)
korscore(i) = val(txtkorscore.text)
engscore(i) = val(txtengscore.text)
mathscore(i) = val(txtmathscore.text)
vibascore(i) = val(txtvibascore.text)
korcredit(i) = val(txtkorcredit.text)
engcredit(i) = val(txtengcredit.text)
mathcredit(i) = val(txtmathcredit.text)
vibacredit(i) = val(txtvibacredit.text)
total(i) = korscore(i) + engscore(i) + mathscore(i) + vibascore(i)
aver(i) = total(i) / 4
average(i) = round(aver(i), 2)
appcredit(i) = korcredit(i) + engcredit(i) + mathcredit(i) + vibacredit(i)
txttotal.text = str(total(i))
txtaverage.text = str(average(i))
txtappcredit.text = str(appcredit(i))
if korscore(i) = 95 then
txtkorgrade.text = a+
elseif korscore(i) = 90 then
txtkorgrade.text = a0
elseif korscore(i) = 85 then
txtkorgrade.text = b+
elseif korscore(i) = 80 then
txtkorgrade.text = b0
elseif korscore(i) = 75 then
txtkorgrade.text = c+
elseif korscore(i) = 70 then
txtkorgrade.text = c0
elseif korscore(i) = 65 then
txtkorgrade.text = d+
elseif korscore(i) = 60 then
txtkorgrade.text = d0
else
txtkorgrade.text = f
end if
if engscore(i) = 95 then
txtenggrade.text = a+
elseif engscore(i) = 90 then
txtenggrade.text = a0
elseif engscore(i) = 85 then
txtenggrade.text = b+
elseif engscore(i) = 80 then
txtkorgrade.text = b0
elseif engscore(i) = 75 then
txtenggrade.text = c+
elseif engscore(i) = 70 then
txtenggrade.text = c0
elseif engscore(i) = 65 then
txtenggrade.text = d+
elseif engscore(i) = 60 then
txtenggrade.text = d0
else
txtenggrade.text = f
end if
if mathscore(i) = 95 then
txtmathgrade.text = a+
elseif mathscore(i) = 90 then
txtmathgrade.text = a0
elseif mathscore(i) = 85 then
txtmathgrade.text = b+
&;
elseif mathscore(i) = 80 then
txtmathgrade.text = b0
elseif mathscore(i) = 75 then
txtmathgrade.text = c+
elseif mathscore(i) = 70 then
txtmathgrade.text = c0
elseif mathscore(i) = 65 then
txtmathgrade.text = d+
elseif mathscore(i) = 60 then
txtmathgrade.text = d0
else
txtmathgrade.text = f
end if
if vibascore(i) = 95 then
txtvibagrade.text = a+
elseif vibascore(i) = 90 then
txtvibagrade.text = a0
elseif vibascore(i) = 85 then
txtvibagrade.text = b+
elseif vibascore(i) = 80 then
txtvibagrade.text = b0
elseif vibascore(i) = 75 then
txtvibagrade.text = c+
elseif vibascore(i) = 70 then
txtvibagrade.text = c0
elseif vibascore(i) = 65 then
txtvibagrade.text = d+
elseif vibascore(i) = 60 then
txtvibagrade.text = d0
else
txtvibagrade.text = f
end if
if korscore(i) 70 then
korcredit(i) = 0
end if
if engscore(i) 70 then
engcredit(i) = 0
end if
if mathscore(i) 70 then
mathcredit(i) = 0
end if
if vibascore(i) 70 then
vibacredit(i) = 0
end if
getcredit(i) = korcredit(i) + engcredit(i) + mathcredit(i) + vibacredit(i)
txtgetcredit.text = str(getcredit(i))
ava(i) = ((korscore(i) * korcredit(i)) + (engscore(i) * engcredit(i)) + (mathscore(i) + mathcredit(i)) + (vibascore(i) * vibacredit(i))) / 5
avaverage(i) = round(ava(i), 2)
txtavaverage.text = str(avaverage(i))
end subprivate sub text1_change()end subprivate sub text10_change()end subprivate sub form_activate()
txtname.setfocus
end subprivate sub txtappcredit_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtgetcredit.setfocus
end if
end subprivate sub txtavaverage_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtappcredit.setfocus
end if
end subprivate sub txtaverage_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtavaverage.setfocus
end if
end subprivate sub txtengcredit_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtmathscore.setfocus
end if
end subprivate sub txtengscore_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtengcredit.setfocus
end if
end sub
private sub txtgetcredit_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtrank.setfocus
end if
end sub
private sub txthak_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtkorscore.setfocus
end if
end sub
private sub txtkorcredit_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtengscore.setfocus
end if
end sub
private sub txtkorscore_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtkorcredit.setfocus
end if
end sub
private sub txtmathcredit_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtvibascore.setfocus
end if
end sub
private sub txtmathscore_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtmathcredit.setfocus
end if
end sub
private sub txtname_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txthak.setfocus
end if
end sub
private sub txtrank_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtname.setfocus
end if
end sub
private sub txttotal_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtaverage.setfocus
end if
end sub
private sub txtvibascore_keypress(keyascii as integer)
if keyascii = vbkeyreturn then
txtvibacredit.setfocus
 sp; end if
end sub
너무길어서 ..봐주실분이 혹시나 있어서 올려봅니다 ㅠㅠ 잘못된것 지적후 수정해주시면 감사하겠습니다
교수님이 배열,석차를 알려주시질 않고 내주셔서 독학으로 짜긴짰는데 한계네요 ㅠㅠ
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2654881 | PID 모듈 검색 부분 질문합니다 . | 이름없음 | 2024-05-14 |
2654850 | 조건에 만족하는 다음 수를 찾고 싶습니다. | 초엘 | 2024-05-14 |
2654790 | 두파일간 byte단위 txt파일 복사 中 | 슬찬 | 2024-05-14 |
2654768 | 사전만들기 입니다. | 여우By | 2024-05-13 |
2654716 | c언어 고수님들 답좀적어주세요 급합니다 ㅠㅠ | 한말글 | 2024-05-13 |
2654688 | c언어 ㅠㅠ 너 무 어려 워요 ㅠ 도와주세요!! | 별빛 | 2024-05-13 |
2654659 | 구구단 소스 궁금한 점 도움 부탁드립니다! (2) | 미련곰팅이 | 2024-05-12 |
2654633 | 오류가 무었인가요..? (2) | 단순랩퍼 | 2024-05-12 |
2654603 | 어디가 잘못된지를 모르겠습니다. 한 번 봐주세요...ㅠ (2) | 글고운 | 2024-05-12 |
2654574 | 소스 추가좀 부탁드립니다. (등수 출력) | 크리미걸 | 2024-05-12 |
2654550 | 피보나치수열. (3) | 중독적 | 2024-05-11 |
2654521 | c초보 빙고관련게임... | 달콤이 | 2024-05-11 |
2654491 | 10진수를 2진수로 바꾸는법 (8) | 아잉 | 2024-05-11 |
2654412 | 빅오를 구하고 싶어요~ | 애기 | 2024-05-10 |
2654381 | 혼자 연구하는 c/c++ 질문 | 아잉 | 2024-05-10 |
2654352 | 행렬크기를 scanf로 입력받을수도 있나요..? | VanilLa | 2024-05-10 |
2654293 | 첫시작값과 끝값의 사이에 존재하는 정수들의 합을 구하는 것 (5) | 해긴 | 2024-05-09 |
2654185 | 64bit 환경에서 자료형의 크기가 좀궁그해요(완료) 더궁금한게 생겻어요(추가) (2) | 빈길 | 2024-05-08 |
2654152 | 확장자 exe로 변경 (1) | 한 | 2024-05-08 |
2654128 | c언어 간단하게 자판기만들려는데 ㅜㅜ | 유1혹 | 2024-05-08 |