Seite 2 von 3
Verfasst: 10.06.2005 22:49
von 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?
Verfasst: 10.06.2005 23:07
von Kiffi
> alena meinte doch visual basic (sieht zumindest so aus-)
ich glaube, dass Alena selber nicht weiss, was sie/er will.
Alena hat geschrieben:
Vielleicht eine ziemlich blöde Frage, aber welches Programm brauch ich dazu
um das Programm "abzuspielen" und woher bekomm ich das?
Grüße ... Kiffi
Verfasst: 11.06.2005 11:14
von 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
Verfasst: 11.06.2005 12:46
von 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.
Verfasst: 11.06.2005 13:16
von Kiffi
> stellt euch nicht so doof an.
Sehr nett!
Verfasst: 11.06.2005 14:14
von 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!
Verfasst: 11.06.2005 20:55
von Kaeru Gaman
Kiffi hat geschrieben:> 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?
Verfasst: 11.06.2005 21:51
von 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
Verfasst: 11.06.2005 22:20
von 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
Verfasst: 29.06.2005 19:44
von 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
