Guten abend
also ich soll in der schule in delphi ein Programm machen mit Checkboxen. In dem Falle sind es 7 Stück nebeneinander. Und das ist dieses komische Zahlensystem, nur mit 1 und 0. Und diese Boxen liegen nebeneinander. Ich habe eine Variable namens Dezimalzahl eingefügt. Und wenn der Benutzer des Programmes ein Kreuz in der linken Box macht, soll dieser Zahl 128 dazu gerechnet werden. WEnn die zweite Box dann angekreuzt wird, wird +64 dann +32,+16,+8,+4,+2 und der ganz rechten +1.
Und dann soll halt wenn er alles, was er wollte angekreuzt hat und auf rechnen drückt, sollte dann diese ,,Fertige'' Zahl in ein editFeld springen. Und ich weiß nicht, wie ich das machen soll.
Und auch gut wäre, wenn sich der Wert danach wieder auf 0 stellt, damit man nochmal ausrechnen kann. Ich hoffe ihr versteht, was ich meine.
liebe grüße =)
Delphi-Quellcode:
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
var dezimalzahl: integer;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
CB64: TCheckBox;
CB32: TCheckBox;
CB16: TCheckBox;
CB8: TCheckBox;
CB128: TCheckBox;
CB4: TCheckBox;
CB2: TCheckBox;
CB1: TCheckBox;
Edit1: TEdit;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if cb128.checked=true
then begin dezimalzahl;=dezimalzahl+128;
if cb64.checked=true
then begin dezimalzahl;=dezimalzahl+64 ;
if cb32.checked=true
then begin dezimalzahl;=dezimalzahl+32;
if cb16.checked=true
then begin dezimalzahl;=dezimalzahl+16;
if cb8.checked=true
then begin dezimalzahl;=dezimalzahl+8;
if cb4.checked=true
then begin dezimalzahl;=dezimalzahl+4 ;
if cb2.checked=true
then begin dezimalzahl;=dezimalzahl+2;
if cb1.checked=true
then begin dezimalzahl;=dezimalzahl+1;
end;
end.