actionbrowser.com
Das Forum Erweiterte Themenforen Technik Hallo zusammen, ich muss bis nächste Woche eine Ampelschaltung mit Visual Basic programmieren. Das Problem ist, dass ich von programmieren einfach mal gar keine Ahnung habe und sowas auch noch nie gemacht habe. Ich habe mir schon etliche Videos bei youtube angeschaut, allerdings kann ich die nicht wirklich umsetzen. Visual basic ampelschaltung - Sonstige Problemstellungen - VB-Paradise 2.0 – Die große Visual-Basic- und .NET-Community. Ich muss eine komplette Ampelschaltung an einer Kreuzung programmieren und die Ampelphasen müssen variabel sein und deren Fortschritt in Progressbars dargestellt werden. Hat irgendjemand evtl eine gute Webseite, wo es gute Erklärungen gibt?? Bin für jede Hilfe sehr dankbar, da ich langsam Angst bekomme, dass ich das gar nicht hinbekomme. Vielen Dank für eure Hilfe. Gruß Kuzi 5 Antworten erstmal solltest du dir darüber klar werden ob du vb6 oder meinst, denn dies ist ein riesen unterschied und dann findet man eigentlich immer etwas wenn man "[name der programmiersprache] tutorial" googled außerdem bin ich mir sehr sicher das du dies nicht alleine bis nächste woche hinbekommen wirst Original von elbarto132 Ich meine die ganz normale Visual Basic 2008 Version.
Meine Frage: Nach dem Google keine richtigen Erfolge gebracht hat versuche ich's einfach mal hier. Ich geh noch zur Schule dort haben wir mit Visual Basic angefangen, jedoch komme ich nun nicht mehr recht mit. Ich soll eine ganz einfache Ampelschaltung machen. Jedoch ist das Problem das ich nicht so recht weiter komme. Visual basic ampelschaltung free. Es sollen mit 3 commandbuttons die ampelphasen rot rot und gelb und dann grün programmiert werden. Durch klick auf den ersten rot, der 2 rot gelb und der 3 grün und die anderen beiden Ampel Lampen gehen "aus sollen wieder schwarz werden. So nun meine ich das, dass ganze noch mit if then Else kombiniert wurde jedoch, da dass Thema noch neu ist, habe ich keine so Rechte Idee wie ich das mache. Die "roh" Version habe ich, jedoch ohne if Then else Vlt kann mir wer helfen Was ich hab bisher Privat sub Command1_click() ckcolor=farbcode rot End sub Privat sub Command2_click() ckcolor=farbcode gelb Privat sub Command3_click() ckcolor=farbcode schwarz ckcolor=farbcode grün End sub
Ampelsteuerung etwas verbessert ''Eine Kleine Ampel Simulation die den Port ''888, 1-888, 2-888, 3-888, 4 öffnet ''Ich bin totaler Anfänger ''Der Code kann und darf beliebig weitergegeben werden ''oda verändert werden Screen 15 out 888, 0 cls DIM rot AS SINGLE DIM gruen AS SINGLE DIM gelb AS SINGLE ''Überschrift locate 6, 13 Print "" locate 7, 13 Print "ß ß" locate 8, 13 Print "ß Ampelsystem fuer -Kira- ß" locate 9, 13 locate 10, 13 Print "ß Programmed by Flittchen ß" locate 11, 13 locate 12, 13 locate 16, 1 color 4 PRINT "Wie lange soll die rote Lampe leuchten? " INPUT "in sec. : ";rot color 6 Print "Wie lange soll die Gelbe Lampe leuchten? " INPUT "in sec. : ";gelb color 2 Print "Wie lange soll die Grüne Lampe leuchten? " INPUT "in sec. : ";gruen sleep 15 color 1 Print "rot = ";rot, "sec. Visual basic ampelschaltung solutions. " Print "gelb = ";gelb, "sec. " Print "gruen = ";gruen, "sec. " Print "5 sec. warten. " sleep 5000 ''DO-LOOP DO SCREEN 13 ''Ampel - Rot locate 25, 1 PRINT "Druecken Sie b zum beenden. "
Pl. ): "Handbewegungen" | imminere + Dat. : "über etwas sitzen" - intervallum, i, n. : "Pause" - remitti: "sich erholen"
Tenes utique memoria quantum senseris gaudium cum praetexta posita sumpsisti virilem togam et in forum deductus es: maius expecta cum puerilem animum deposueris et te in viros philosophia transscripserit. Jedenfalls hälst du in Erinnerung, welch große Freunde du gespürt hast, als du die Toga des Jungen durch die des Mannes ersetzt hast und auf das Forum geführt wurdest: erwarte Größeres, wenn du das Herz eines Jungen abgelegt hast und die Philosophie dich unter Männer hinüber versetzt. Seneca epistulae morales 54 übersetzung e. Adhuc enim non pueritia sed, quod est gravius, puerilitas remanet; et hoc quidem peior est, quod auctoritatem habemus senum, vitia puerorum, nec puerorum tantum sed infantum: illi levia, hi falsa formidant, nos utraque. Denn bis jetzt verbleibt nicht das Kindalter, sondern, was doch schwerer ist, das kindische Wesen; Und das ist freilich schlimmer, weil wir das Ansehen der Greise haben, und Fehler von Jungen, und nicht nur die von Jungen, sondern von Kleinkindern: jene haben Angst vor Bagatellen, diese vor Verfälschtem, wir haben Angst vor beidem.
Nulli potest secura vita contingere qui de producenda nimis cogitat, qui inter magna bona multos consules numerat. Ein sorgenfreies Leben kann keinem zu Teil werden, der allzusehr über dessen Verlängerung nachdenkt, der viele Konsuln unter die großen Güter zählt. Hoc cotidie meditare, ut possis aequo animo vitam relinquere, quam multi sic complectuntur et tenent quomodo qui aqua torrente rapiuntur spinas et aspera. Das bedenke täglich, dass du das Leben mit Gelassenheit zurücklassen kannst, das viele so umklammern und halten, wie Leute, die von reißendem Wasser weggetrieben werden, an Dornen und Gestrüpp. Plerique inter mortis metum et vitae tormenta miseri fluctuantur et vivere nolunt, mori nesciunt. Die meisten wogen zwischen Todesfurcht und Lebensqualen armselig hin und her und wollen nicht leben, können aber auch nicht sterben. Fac itaque tibi iucundam vitam omnem pro illa sollicitudinem deponendo. Die Weisheit des Stoizismus. Wege zu Gleichmut und Gelassenheit - Google Books. Mach dir deshalb ein angenehmes Leben indem du jene Beunruhigung ablegst. Nullum bonum adiuvat habentem nisi ad cuius amissionem praeparatus est animus; nullius autem rei facilior amissio est quam quae desiderari amissa non potest.
Interrogabis fortasse quid ego faciam qui tibi ista praecipio. Du wirst vielleicht fragen, was ich tue, der ich dir das vorschreibe. Fatebor ingenue: quod apud luxuriosum sed diligentem evenit, ratio mihi constat impensae. Ich werde es dir aufrichtig gestehen: was bei einem Wohlhabenden, jedoch Sorgfältigen üblich ist, die Buchführung über meinen Aufwand stimmt. Non possum dicere nihil perdere, sed quid perdam et quare et quemadmodum dicam; causas paupertatis meae reddam. Ich kann nicht sagen, nichts zu verlieren, aber was ich verliere und weshalb und wie, werde ich dir sagen; über die Ursachen meiner Armut werde ich Rechenschaft ablegen. Seneca epistel morales 53- übersetzung?????????????????. Sed evenit mihi quod plerisque non suo vitio ad inopiam redactis: omnes ignoscunt, nemo succurrit. Aber mir geht es wie den meisten, die nicht durch ihr eigenes Verschulden in Not gebracht wurden: alle verzeihen, niemand kommt aber zu Hilfe.