Microsoft Small Basic

Program Listing: VNC025

List Program

GraphicsWindow.ShowMessage("Wien U-Bahn interaktiv","Willkommen")
GraphicsWindow.ShowMessage("Willkommen zum iteraktiven U-Bahnplan Wien, wir zeigen Ihnen einige sehr berühmte Sehenswürdigkeiten der Stadt. Um das Programm zu benutzen gibt es in nächsten Fenster die Anwendungsfunktionen..........viel Spaß","Begrüßung")
start:
GraphicsWindow.Title = "Wien U-Bahn interaktiv"
GraphicsWindow.Width = 10000
GraphicsWindow.Height = 10000
GraphicsWindow.Top = 0
GraphicsWindow.Left = 0
GraphicsWindow.PenWidth = "5"
GraphicsWindow.DrawText(1,4, "Das Wiener Ubahn Netz von unserer Turtle")
Turtle.Show()
Turtle.X = "225"
Turtle.Y = "606"
Turtle.Turn(90)
Turtle.Speed = 10
'U4
GraphicsWindow.Pencolor = "DarkGreen"
Turtle.Move(27)
Turtle.Move(28)
Turtle.Move(29)
Turtle.Move(29)
For i = 1 To 2
Turtle.Move(27)
EndFor
Turtle.Move(31)
Turtle.Move(38)
Turtle.Move(42)
Turtle.Move(44)
Turtle.Move(51)
'Badner-Bahn
GraphicsWindow.PenColor = "MidnightBlue"
Turtle.Turn(135)
Turtle.Move(125)
Turtle.Turn(45)
Turtle.Move(87)
Turtle.Turn(270)
Turtle.Move(175)
Turtle.Turn(180)
Turtle.Move(175)
Turtle.Turn(90)
Turtle.Move(87)
Turtle.Turn(315)
Turtle.Move(125)
Turtle.Turn(45)
'U4
GraphicsWindow.PenColor = "DarkGreen"
Turtle.Move(42)
Turtle.Turn(315)
Turtle.Move(30)
Turtle.Move(22)
Turtle.Turn(315)
Turtle.Move(50)
Turtle.Move(51)
Turtle.Turn(315)
Turtle.Move(28)
Turtle.Move(69)
Turtle.Move(48)
Turtle.Move(43)
Turtle.Move(20)
Turtle.Turn(10)
Turtle.Move(3)
Turtle.Turn(10)
Turtle.Move(3)
Turtle.Turn(10)
Turtle.Move(3)
Turtle.Turn(10)
Turtle.Move(3)
Turtle.Turn(5)
Turtle.Move(15)
Turtle.Move(50)
'U3
GraphicsWindow.PenColor = "Orange"
Turtle.X = "314"
Turtle.Y = "411"
Turtle.Turn(135)
Turtle.Move(25)
For i = 1 To 3
Turtle.Move(30)
EndFor
Turtle.Move(38)
Turtle.Turn(315)
For i = 1 To 3
Turtle.Move(32)
EndFor
Turtle.Move(34)
Turtle.Move(49)
Turtle.Move(45)
Turtle.Move(45)
Turtle.Turn(90)
'Cat
GraphicsWindow.PenColor = "DarkGray"
Turtle.Move(145)
Turtle.Turn(315)
Turtle.Move(290)
Turtle.Turn(180)
Turtle.Move(290)
Turtle.Turn(45)
Turtle.Move(145)
'U3
GraphicsWindow.PenColor = "Orange"
Turtle.Turn(90)
Turtle.Move(17)
Turtle.Turn(45)
Turtle.Move(40)
For i = 1 To 4
Turtle.Move(22)
EndFor
Turtle.Move(20)
Turtle.Turn(45)
Turtle.Move(5)
Turtle.Move(34)
Turtle.Move(50)
Turtle.X = "600"
Turtle.Y = "597"
Turtle.Turn(90)
'U2
GraphicsWindow.PenColor = "MediumVioletRed"
Turtle.Move(38)
Turtle.Turn(45)
Turtle.Move(40)
Turtle.Move(28)
Turtle.Turn(45)
Turtle.Move(30)
Turtle.Move(29)
Turtle.Turn(45)
Turtle.Move(27)
Turtle.Move(50)
Turtle.Move(52)
Turtle.Turn(45)
Turtle.Move(53)
Turtle.Move(45)
Turtle.Move(35)
Turtle.Turn(45)
Turtle.Move(57)
Turtle.Move(42)
Turtle.Move(80)
Turtle.Turn(275)
Turtle.Move(72)
Turtle.Move(68)
Turtle.Turn(40)
For i = 1 To 2
Turtle.Move(32)
EndFor
Turtle.Turn(315)
Turtle.Move(70)
'U1
GraphicsWindow.PenColor = "Crimson"
Turtle.X = "899"
Turtle.Y = "205"
Turtle.Turn(180)
Turtle.Move(190)
Turtle.Move(90)
Turtle.Move(65)
Turtle.Move(80)
Turtle.Turn(315)
For i = 1 To 2
Turtle.Move(100)
EndFor
Turtle.Move(18)
Turtle.Turn(315)
Turtle.Move(50)
Turtle.Move(52)
'U6
GraphicsWindow.PenColor = "SaddleBrown"
Turtle.X = "671"
Turtle.Y = "205"
Turtle.Turn(90)
Turtle.Move(110)
Turtle.Move(17)
Turtle.Turn(45)
Turtle.Move(64)
Turtle.Turn(315)
Turtle.Move(60)
Turtle.Move(30)
Turtle.Move(43)
Turtle.Turn(315)
Turtle.Move(218)
Turtle.Move(99)
Turtle.Move(21)
Turtle.Turn(45)
Turtle.Move(193)
Turtle.Turn(135)
bild1 = "http://www.wienerlinien.at/media/files/2011/schnellverbindungen_01_2011_29328.jpg"
GraphicsWindow.DrawImage(bild1,100,100)
'Bilder
HandelskaiBild = "http://www.majors-welt.net/daily/images/20090513105634__dsc1208_4_5_6_7-small.jpg"
KarlsplatzBild = "http://www.signaletik.at/images/Projekte/2000%20Jahre%20Karlsplatz/Karlsplatz.jpg"
HeiligenstadtBild ="http://dativ.at/subway/stations/thumbnail-heiligenstadt.jpg"
HütteldorfBild="http://www.fanguide-em2008.de/uploads/pics/st-wien-02_02.jpg"
LaengenfeldgasseBild="http://www.vipress.at/uploads/tx_vipress/u6_vor_laengenfeldgasse_22694_0ae5.jpg"
LeopoldauBild="http://www.lass-dich-fotografieren.at/images/leopoldauerplatz02.jpg"
OttakringBild="http://www.aisthesia.at/archives/dlwappen.jpg"
PratersternBild="http://www.georgstach.de/fotos/wien2005/wien0102.jpg"
RathausBild="http://www.canost.at/wien/rathaus2.jpg"
ReumannplatzBild="http://images.derstandard.at/t/12/2010/05/03/1271427774573.jpg"
SchönbrunnBild="http://www.imagevienna.com/images/schoenbrunn.jpg"
SchottenringBild="http://www.postgold.at/buero1aa.jpg"
SchottentorBild="http://resources.vienna.at/schon-81-prozent-an-uni-wien-zahlten-keine-gebuehren/news-20090526-12450799-442397154.jpg"
SchwedenplatzBild="http://www.schick-hotels.com/images/fotoalbum/large/196.jpg"
SiebenhirtenBild="http://dativ.at/subway/stations/siebenhirten.jpg"
SimmeringBild="http://www.wienplan.com/24online/n189/bilder/19_02.jpg"
SpittelauBild="http://www.wohin-in-wien.at/files/locations/52866219.jpg"
StadionBild="http://www.austria-archiv.at/images/stadien/praterstadion/stadion_500.jpg"
StadtparkBild="http://www.viennaresidence.com/files/viennaresidence/pointofinterest/450px-Johann-strauss-stadtpark.jpg"
StephansplatzBild="http://www.hickerphoto.com/data/media/182/stephansplatz-cafe_10881.jpg"
TaborstraßeBild="http://www.pressemeldungen.at/wp-content/uploads/2009/05/wiener-sangerknaben-c2a9wwwlukasbeckcom-mc0809-4-xxs.jpg"
VolksoperBild="http://www.ask-enrico.com/cms/images/stories/austria/wien/volksoper/Volksoper_neu.jpg"
VolkstheaterBild="http://events.diepresse.com/cont/upload/B%C3%BChne/volkstheater_pic.jpg"
WestbahnhofBild="http://www.bauforum.at/bilder/d64/Westbahngleisanlage.jpg"
'Einblendung
start2:
TextWindow.Show()
TextWindow.WriteLine("Sie müssen ... eingeben um: Handelskai (1)")
TextWindow.WriteLine("Karlsplatz(2) Heiligenstadt (3) Hütteldorf (4)")
TextWindow.WriteLine("Längenfeldgasse (5) Leopoldau (6) Ottakring (7) Praterstern (8)")
TextWindow.WriteLine("Rathaus (9) Reumannplatz (10) Schönbrunn (11) Schottenring (12)")
TextWindow.WriteLine("Schottentor (13) Schwedenplatz (14) Siebenhirten (15)")
TextWindow.WriteLine("Simmering (16) Spittelau (17) Stadion (18) Satadtpark (19)")
TextWindow.WriteLine("Stephansplatz (20) Taborstraße (21) Volksoper (22)")
TextWindow.WriteLine("Volkstheater (23) Westbahnhof (24)")
TextWindow.WriteLine("...zu sehen")
WhichOption = TextWindow.Read()
TextWindow.Hide()
If (WhichOption = 1) Then
GraphicsWindow.DrawImage(HandelskaiBild,100,100)
ElseIf (WhichOption = 2) Then
GraphicsWindow.DrawImage(KarlsplatzBild,100,100)
ElseIf (WhichOption = 3) Then
GraphicsWindow.DrawImage(HeiligenstadtBild,100,100)
ElseIf (WhichOption = 4) Then
GraphicsWindow.DrawImage(HütteldorfBild,100,100)
ElseIf (WhichOption = 5) Then
GraphicsWindow.DrawImage(LaengenfeldgasseBild,100,100)
ElseIf (WhichOption = 6) Then
GraphicsWindow.DrawImage(LeopoldauBild,100,100)
TextWindow.Show()
ElseIf (WhichOption = 7) Then
GraphicsWindow.DrawImage(OttakringBild,100,100)
ElseIf (WhichOption = 8) Then
GraphicsWindow.DrawImage(PratersternBild,100,100)
ElseIf (WhichOption = 9) Then
GraphicsWindow.DrawImage(RathausBild,100,100)
TextWindow.Show()
ElseIf (WhichOption = 10) Then
GraphicsWindow.DrawImage(ReumannplatzBild,100,100)
ElseIf (WhichOption = 11) Then
GraphicsWindow.DrawImage(SchönbrunnBild,100,100)
TextWindow.Show()
ElseIf (WhichOption = 12) Then
GraphicsWindow.DrawImage(SchottenringBild,100,100)
ElseIf (WhichOption = 13) Then
GraphicsWindow.DrawImage(SchottentorBild,100,100)
ElseIf (WhichOption = 14) Then
GraphicsWindow.DrawImage(SchwedenplatzBild,100,100)
ElseIf (WhichOption = 15) Then
GraphicsWindow.DrawImage(SiebenhirtenBild,100,100)
ElseIf (WhichOption = 16) Then
GraphicsWindow.DrawImage(SimmeringBild,100,100)
ElseIf (WhichOption = 17) Then
GraphicsWindow.DrawImage(SpittelauBild,100,100)
ElseIf (WhichOption = 18) Then
GraphicsWindow.DrawImage(StadionBild,100,100)
ElseIf (WhichOption = 19) Then
GraphicsWindow.DrawImage(StadtparkBild,100,100)
ElseIf (WhichOption = 20) Then
GraphicsWindow.DrawImage(StephansplatzBild,100,100)
ElseIf (WhichOption = 21) Then
GraphicsWindow.DrawImage(TaborstraßeBild,100,100)
WhichOption = TextWindow.Read()
ElseIf (WhichOption = 22) Then
GraphicsWindow.DrawImage(VolksoperBild,100,100)
ElseIf (WhichOption = 23) Then
GraphicsWindow.DrawImage(VolkstheaterBild,100,100)
ElseIf (WhichOption = 24) Then
GraphicsWindow.DrawImage(WestbahnhofBild,100,100)
Else
TextWindow.WriteLine("Ungültige Eingabe")
Program.Delay(2000)
Goto start2
EndIf
Program.Delay(3000)
GraphicsWindow.Clear()
Goto start