Delphi-Quellcode:
gksumme := gk1+gk2+gk3+gk4+gk5+gk6+gk7+gk8+gk9+gk10+gk11+gk12+gk13+gk14+gk15+gk16+gk17+gk18+gk19+gk20+gk21+gk22;
Label78.Caption := IntToStr (gksumme);
if not(CheckBox2.Checked) then NoteFA:=0;
if not(CheckBox1.Checked) then NoteBLL:=0;
Label22.Caption := IntToStr((SummeLK1+SummeLK2+NoteFA)*2);
Label30.Caption := IntToStr((SummeLK1+SummeLK2+NoteFA)*2);
Label64.Caption := IntToStr(QualiLK1+QualiLK2+QualiLK3+QualiLK4+NoteBLL);
Label32.Caption := IntToStr(QualiLK1+QualiLK2+QualiLK3+QualiLK4+NoteBLL);
Label31.Caption := IntToStr (gksumme);
Label34.Caption := IntToStr ((QualiLK1+QualiLK2+QualiLK3+QualiLK4+NoteBLL)+((SummeLK1+SummeLK2+NoteFA)*2)+(gksumme));
abi := ((QualiLK1+QualiLK2+QualiLK3+QualiLK4+NoteBLL)+((SummeLK1+SummeLK2+NoteFA)*2)+(gksumme));
if ((abi > 281) and (abi < 296)) then abinote := 3.9;
das is mein erstes delphiprogramm!!
und zwar soll das zur berechnung zur abinote dienen soll!!
mein problem ist, dass man wenn man jetzt z.b. 281-296 punkte gesamt hat und dann ne durschnittsnote 3.9 hat wie geht das??
ich habs probiert indem was da als letztes steht!! if ((abi > 281) and (abi < 296)) then abinote := 3.9;
[edit=Luckie]Code auf das nötigste reduziert. Delphi-Tags gesetzt und Titel angapasst. Mfg, Luckie[/edit]