"fortschritt" <- function(x) {
#-----------------------------------------------
# Funktion zur Darstellung eines Fortschrittsbalken
# 
# Siehe: http://www.r-statistik.de/R_erweitern/Tipps_Tricks/tipps_tricks.html
#
# Entwickelt durch: G. Faes
# E-Mail: guenter@faes.de
# Datum: 10.12.2011 16:36:04	Version: 1.0
# R-Version: 2.12.2
#-----------------------------------------------

# Paket laden:
library(utils)

# Variablenindizierung:

	Zahl <- NULL				# Nimmt die zu erzeugende Zufallszahl auf
	I <- NULL						# Index
	Ausgabe <- NULL			# Ausgabe des "Fortschritts" innerhalb des Forstchrittsbalkens
	
# Ausführungsteil:

	#Fortschrittsbalken initalisieren:
	pb <- winProgressBar("Demo Fortschrittsanzeige!", "Verlauf in %", 0, 100)
	
	# Zufallszahlen zwischen 0 und 100 erzeugen und der Größe nach sortieren, 
	# 0 (kleinste) und 100 (größte) Zahl zufügen:
	Zahl <- c(0, sort(runif(20, 0 ,100)), 100)
	
	# Schleife basteln, um etwas darzustellen:
	for(I in Zahl) {
	
		 Sys.sleep(0.1)		# System ein wenig bremsen,damit es nicht so schnell geht!
		 Ausgabe <- sprintf("%d%% erledigt!", round(I)) 	#Formatierte Ausgabe
		 # Den Fortschrittsbalken aktualisieren:
		 setWinProgressBar(pb, I, sprintf("Demo Fortschrittsanzeige!"), Ausgabe)
		 
	} # Schleifen-Ende
	
	Sys.sleep(5)	# Zeit zum Wahrnehmen geben!
	
	close(pb)			# Fortschrittsbalken schließen


} # Funktions-Ende