Lade sie mal runter bei der FH, öffne die Datei, drücke Alt + F11, mach einen Doppelklick auf Modul1 und dann kannst Du Dir mal den seitenlangen Code anschauen. Ich wünsche viel Spaß bei der Adaption
13. 2006, 12:28
# 7
Registrierung: 24. 08. 2002
Hi,
ich habe hier eine Lösung für eine Ampel die ich selber benutzte. Ist mit bedingter Formatierung über drei Spalten. Darüber habe ich eine Grafik mit "Löchern" gelegt, so dass die Farben durchscheinen. Ich habe eine Beispieldatei angehängt. Viele Grüße,
Hauke
13. 2006, 14:19
# 8
danke erstmal an alle, für die schnelle Hilfe. Noch mal zu VBA bei dem ich ein bischen weiter gekommen bin. Ich habs bald! Hab da nur noch ein kleines Problem. Ampelschaltung — CHIP-Forum. Private Sub worksheet_change(ByVal Target As Range)
If ersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target < 100 Then
Shapes("Bild1"). Visible = True
Shapes("Bild2"). Visible = False
Shapes("Bild3"). Visible = False
Else
Shapes("Bild1"). Visible = False
Shapes("Bild2"). Visible = True
End If
End Sub
ich bräuchte jetzt nur noch eine dritte Abfrage und da komme ich nicht weiter.
Visual Basic Ampelschaltung 1
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. " Print "gelb = ";gelb, "sec. Ampelschaltung Interface | tutorials.de. " 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. "
Visual Basic Ampelschaltung Java
Blau
Erforderlich; Variant ( Integer). Zahl im Bereich 0255– (einschließlich), die die blaue Komponente der Farbe darstellt. Hinweise
Von den Methoden und Eigenschaften einer Anwendung, die eine Farbspezifikation akzeptieren, wird erwartet, dass es sich bei der Spezifikation um eine Zahl handelt, die einen RGB-Farbwert darstellt. Visual basic ampelschaltung class. Ein RGB-Farbwert gibt die relative Intensität der Farben rot, grün und blau an, durch die eine bestimmte Farbe angezeigt wird. Es wird davon ausgegangen, dass der Wert für jedes Argument für RGB, das 255 überschreitet, 255 ist. In der folgenden Tabelle sind einige Standardfarben und die darin enthaltenen Rot-, Grün- und Blauwerte aufgeführt:
Farbe
Rotwert
Grünwert
Blauwert
Black
0
255
Cyan
Magenta
Gelb
Weiß
Hinweis
Die von dieser Funktion zurückgegebenen RGB-Farbwerte sind mit denen des Macintosh-Betriebssystems nicht kompatibel. Sie können im Kontext von Microsoft-Anwendungen für Macintosh verwendet werden, sollten jedoch nicht verwendet werden, wenn Farbänderungen direkt an das Macintosh-Betriebssystem kommuniziert werden.
Visual Basic Ampelschaltung Class
VB-Paradise 2. 0 – Die große Visual-Basic- und »
Forum »
Programmieren »
Sonstige Problemstellungen »
Hallo Zusammen,
erstmal meine Situation: Tatsächlich bin ich Studentin und muss eine Ampelschaltung in VB2008 realisieren. Das meiste hab ich auch schon hin bekommen, zwar nicht sonderlich elegant, aber es funzt. Jetzt hab ich aber ein Problem. Ich hab eine Reihe von PB's, insg. 28, die sich halt während des Vorgangs wie 'Lampen' ein oder aus schalten. In meiner Grundeinstellung hab ich ein paar visible und nen paar eben nicht. Visual basic ampelschaltung 1. So weit so gut, jetzt schalten die ja hin und her, ich möchte aber, dass wenn ich nen Button 'Abbrechen' drücke sich nicht einfach nur die Sub beendet sondern auch meine Ursprungseigenschaften zurück setzten. Ich glaube dass es dafür irgendwas einfaches gibt, nur da ich keine Ahnung von der Programmier-Sprache habe und eher alles logisch löse, fehlt mir der Ausdruck. Ich glaube auch, dass ich das mit Google irgendwie finden könnte, nur weiß ich nicht wie man das nennt.
Hey,
ich baue in meinem Technik kurs zur zeit eine Ampelschaltung die via des Druckerports mit einem Programm in GW Basic gesteuert werden soll. Das problem ist, dass die anleitung zum programmieren veraltet ist, und daher der Code zum ansteuern des Druckerausgangs fehlerhaft ist...
Ansonsten hätten sie sicher eher den ParallelPort genommen um bloß eine LED anzusteuern. Aber das ist auch erstmal irrelevant, denn sie haben bereits eine LED an und aus schalten können. Demnach haben sie die Grundroutine, ob nun verstanden oder nicht ist dann erstmal eigenes Problem, da wir die Schaltugn dahinter nicht kennen, um welches Board es sich handelt und über welche Library die Befehle gesendet werden. Was erstmal generell wichtig ist, ist die Struktur für so eine Ampelschaltung. Für eine Fusgängerampel und nur eine einzige ist ja relativ einfach. Du nimmst einen Timer, stellst den auf Interval z. Ampelschaltung | Seite 7 | tutorials.de. b. 5000 (5sek. ) und im Code dann etwa dieses hier. Dim i as Integer = 0
Sub Timer1_Ticks()
If i = 0 Then
' Hier der Code der die rote LED an und die grüne aus schaltet
i = 1
Else
' Hier der Code der die grüne LED an und die rote aus schaltet
i = 0
End If
End Sub
soll ich des jetz einfach in mein vb kopieren? und der grüne spruch is au ein bissle fies
Voltaire94 schrieb:
Passt nicht zur Aufgabenstellung...