Altersberechnung

[Green Snake]

hallo

alena meinte doch visual basic (sieht zumindest so aus-)
habe die frage im vb-forum gefunden

genau die gleiche.

Guckst Du Hier

@Alena: was meinst du jetzt? Pure- oder Visual Basic?

[Kiffi]

> alena meinte doch visual basic (sieht zumindest so aus-)

ich glaube, dass Alena selber nicht weiss, was sie/er will.

Vielleicht eine ziemlich blöde Frage, aber welches Programm brauch ich dazu
um das Programm "abzuspielen" und woher bekomm ich das?

Grüße ... Kiffi

[Green Snake]

ok, das könnte auch sein.

@Alena

bitte sag uns, von welcher programmiersprache du redest.
oder brauchst du ein fertiges programm, und willst es gar nicht selber programmieren?

gruss snake

[DarkDragon]

Menschenskinder, stellt euch nicht so doof an. Ihr wart auch mal solche Anfänger. Alena will einfach wissen wie man Compilliert. Von Visual Basic war hier überhaupt nicht die rede. Außerdem hat Alena, wenn ihr ein paar Antworten zurückblickt geschrieben, dass er/sie das "program" PureBasic hat.

Alena: Um dein Program zu testen verwende bitte den Menüpunkt "Compiler">"Compile & Run" oder so ähnlich. Wenn du das Program fertig hast, dann drück auf "Compiler">"Create Executable" und wähle einen Dateinamen. Dann erhällst du eine Anwendung.

[Kiffi]

> stellt euch nicht so doof an.

Sehr nett!

[Alena]

Danke für die Antworten die ernst gemeint waren.
Ich muss in der Schule ein Referat darüber halten und kann eben nicht von heute auf morgen 3 verschiedene Programmiersprachen können.
Das Programm funktioniert, vielen Dank bobobo!

[Kaeru Gaman]

> stellt euch nicht so doof an.

Sehr nett!

man könnte es auch anders ausdrücken.

hier kommt ein mädel an, das eben kaum weiß, wie man irgendwas macht,
und es kommen erstmal dumme sprüche..

...schaut mal auf die überschrift, da steht 'anfänger'. als dieser bereich aufgemacht wurde, gabs hier mal regeln.

der preis für die sinnvollste und höflichste antwort geht an bobobo.

die antwort von DD war auch sehr einfühlsam, ein paar andere auch.

die, die hier gespamt haben, stellen sich mal in die ecke.

und unser schlängelchen: war ja echt geflame von dir, entschuldige dich am besten bei der jungen kollegin.
is noch nicht so lange her, da warst du hier frisch und hast streckenweise echt blöde fragen gestellt.
...hat dich damals einer so blöde angemacht, wie du hier Alena?

[Rubiko]

eigentlich ist dieses board immer ein platz wo man nett fragen kann und auch nette antworten bekommen kann

ich versteh genau wie man sich da fühlt... wenn jemand nur dumme antworten auf lager hat, es gibt eben leute die kennen sich nicht so gut aus am anfang, wie andere am anfang...

ich war schon oft in andren forum, und habe auch sehr nett gefragt:
antworten habe ich wie folgt bekommen:
"Boah, was bist'n du für'n schei* noob?!"

das war mir dann schon oft genug und ich sagte denen meine meinung...

aber langsam wirds offtopic, denke ich

@Alena: halt dich nicht davon ab nochmal zu fragen, es gibt leute die deine fragen ernstnehmen

[AndyX]

@Alena:

Hier ist noch ein Beispiel:

Code: Alles auswählen

MeinAlter = 12

eingabe$ = InputRequester("Alter","Gib dein Alter ein:","") ;Alter eingeben

DeinAlter = Val(eingabe$) ;In eine Zahl umwandeln

If DeinAlter < MeinAlter ;Jünger als ich? Dann...
  MessageRequester("Aha!","Du bist jünger als ich!")
ElseIf DeinAlter = MeinAlter ;Gleich alt? Dann...
  MessageRequester("Aha!","Du bist gleich alt wie ich!")
ElseIf DeinAlter > MeinAlter ;Älter als ich? Dann...
  MessageRequester("Aha!","Du bist älter als ich!")
EndIf

N zweites:

Code: Alles auswählen

MeinAlter = 12

eingabe$ = InputRequester("Alter","Gib dein Alter ein:","") ;Alter eingeben

DeinAlter = Val(eingabe$) ;In eine Zahl umwandeln

If DeinAlter < MeinAlter ;Jünger als ich? Dann...
  MessageRequester("Aha!","Du bist "+Str(MeinAlter - DeinAlter)+" Jahre jünger als ich!")
ElseIf DeinAlter = MeinAlter ;Gleich alt? Dann...
  MessageRequester("Aha!","Du bist gleich alt wie ich!")
ElseIf DeinAlter > MeinAlter ;Älter als ich? Dann...
  MessageRequester("Aha!","Du bist "+Str(DeinAlter - MeinAlter)+" Jahre älter als ich!")
EndIf

Lass dich nicht entmutigen

Greetz,
AndyX

[PMTheQuick]

Hallo,

hier eine Variante im Vollbildmodus:

Code: Alles auswählen

MeinAlter=9
DeinAlter=Val("")
If InitSprite() And InitKeyboard() And OpenScreen(800,600,32,"Altersberechnung")
text$=""
Repeat
ClearScreen(0,0,0)
ExamineKeyboard()
If KeyboardReleased(#PB_Key_1)
d$="1"
ElseIf KeyboardReleased(#PB_Key_2)
d$="2"
ElseIf KeyboardReleased(#PB_Key_3)
d$="3"
ElseIf KeyboardReleased(#PB_Key_4)
d$="4"
ElseIf KeyboardReleased(#PB_Key_5)
d$="5"
ElseIf KeyboardReleased(#PB_Key_6)
d$="6"
ElseIf KeyboardReleased(#PB_Key_7)
d$="7"
ElseIf KeyboardReleased(#PB_Key_8)
d$="8"
ElseIf KeyboardReleased(#PB_Key_9)
d$="9"
ElseIf KeyboardReleased(#PB_Key_0)
d$="0"
ElseIf KeyboardReleased(#PB_Key_Back)
d$="C"
EndIf
If d$="C"
text$=LSet(Str(DeinAlter), Len(Str(DeinAlter))-1)
d$=""
Else
text$=text$+d$
d$=""
EndIf
DeinAlter=Val(text$)
StartDrawing(ScreenOutput())
Locate(20,20)
DrawingMode(1)
FrontColor(255,255,255)
DrawText("Gebe dein Alter ein:")
FrontColor(128,128,128)
Box(20,40,100, 20)
FrontColor(0,0,0)
Locate(22,42)
DrawText(Str(DeinAlter))
Locate(20,100)
FrontColor(255,255,255)
If DeinAlter > MeinAlter
DrawText("Du bist "+Str(DeinAlter-MeinAlter)+" Jahre älter als ich.")
ElseIf DeinAlter = MeinAlter
DrawText("Du bist gleich alt wie ich.")
ElseIf DeinAlter < MeinAlter
DrawText("Du bist "+Str(MeinAlter-DeinAlter)+" Jahre jünger als ich.")
EndIf
Locate(20,150)
DrawText("0-9 = Zahlen eingeben")
Locate(20,170)
DrawText("Esc = Beenden")
Locate(20, 190)
DrawText("<--- = Letze Zahl löschen")
StopDrawing()
ExamineKeyboard()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
EndIf

Es öffnet einen Bildschirm, du kannst dein Alter eingeben und es berechnet sofort das Ergebnis.

Tschüss
PM