Verfügbare Informationen zu "Programme"
Qualität des Beitrags: Beteiligte Poster: Diabolus - MGISC© Corporation Forum: Funclass-Forum Forenbeschreibung: Forum der 8E aus dem Unterforum: Computerbereich Antworten: 5 Forum gestartet am: Samstag 24.06.2006 Sprache: deutsch Link zum Originaltopic: Programme Letzte Antwort: vor 17 Jahren, 3 Monaten, 6 Tagen, 3 Stunden, 56 Minuten
Alle Beiträge und Antworten zu "Programme"
Re: Programme
Diabolus - 05.09.2006, 15:29Programme
also hier könnt ihr eure selbstgeschriebene Programme reinschreiben
(im Quellcode)
Ich fang mit einem kleinen Scribt an:
Code: create by GSoft
msgbox "Hallo edler Anwender!",64,"Eine Schmeichelei"
name = inputbox ("Wie heißt du ?")
alter = inputbox ("Wie alt bist du ?")
ort = inputbox ("Wo wohnst du ?")
hobby = inputbox ("Was ist dein Hobby ?")
hass = inputbox ("Was findest du total beschissen ?")
msgbox "Zusammenfassung :" & vbCr & "Du heißt " & name & vbCr & "Du bist " & alter & " Jahre alt" & vbCr & "Du wohnst in " & ort & vbCr & "Deine Hobbys sind " & hobby & vbCr & "Du findest " & hass & " doof.",64,"Info:"
wunsch = msgbox ("Stimmt das ?", 36,"Frage :")
if wunsch = vbYes then
msgbox "Das find ich prima!",64,"VBS Talk"
end if
if wunsch = vbNo then
msgbox "Naja auch egal!",48,"Fakt"
end if
wunsch = msgbox ("Willst du das Programm benden ?",36,"Frag:")
if wunsch = vbYes then
msgbox "Tschüss, bis bald !",64,"Bye bye"
WScript.Quit
end if
if wunsch = vbNo then
msgbox "O.k dann geht es jetzt weiter !",64,"VBSTalk"
end if
msgbox "Ein Virus wird installiert!",64,"Danke:"
J=15
For K=1 to 15
MsgBox "Noch " & J & " Sekunden bis der Virus installiert ist!", 48 , "Countdown"
J= J-1
Next
msgbox "Virus komplett installiert",16,"VBS Talk"
msgbox "Jetzt kann ich dich quälen, hahahaha",16,"Virus"
J=1
For K=1 to 10
MsgBox "Hahahahahaha",16,"VBS Qual" & J & "von 10"
J= J+1
Next
msgbox "War nur ein Joke",16,"VIRUS"
J=1
For K=1 to 20
MsgBox "Hahahahahaha",16,"VBS Qual" & J & "von 20"
J= J+1
Next
msgbox "Entschuldige aber das musst jetzt sein!",16,"VIRUS"
msgbox "Virus wird gelöscht ",16,"VIRUS"
J=15
For K=1 to 15
MsgBox "Noch " & J & " Sekunden bis der Virus deinstalliert ist!", 48 , "Countdown"
J= J-1
Next
msgbox "Fertig",16,"VIRUS"
msgbox "Uppps, ich meine fertig",64,"VBS Talk"
msgbox "Tschüss",16,"Hahahaha,Scherz"
Re: Programme
MGISC© Corporation - 06.09.2006, 19:32
Das ist echt cool und nach meinem ersten Blick auch richtig. :wink:
Re: Programme
MGISC© Corporation - 07.09.2006, 18:58
Mit diesem Skript kannst du den Namen von dem Tag eines Datums ermitteln:
Code:
Do
Do
datum = InputBox("Gib ein Datum ein!")
If IsEmpty(datum) Then Exit Do
If IsDate(datum) Then Exit Do
MsgBox "Du Warmduscher! Du hast nicht das richtige oder ьberhaupt kein Datum eingegeben!", 16,"Warning"
Loop
If IsEmpty(datum) Then Exit Do
wochentag = WeekdayName(Weekday(datum))
antwort = MsgBox(datum & " plumpst auf irgendeinen " & wochentag & ". Willst du noch mehr?", 36,"Frage")
Loop While antwort = vbYes
MsgBox "Auf Nimmerwiedersehen, und ein frohes, erbittertes, kaltes, grausames, neues Jahr!" , 64," VBS Talk"
Das hat mir in vielen Situationen weitergeholfen.
Re: Programme
MGISC© Corporation - 07.09.2006, 19:11
Da das folgende Skript vom Text her wesentlich größer ist kannst du es downloaden und es mal ausprobieren:
http://www.MyLoads.de/upload/6666.vbs -> Made by Maksim.
Viel Spaß! :wink:
Re: Programme
MGISC© Corporation - 19.01.2007, 20:49
Das ist der Quelltext einer Beta2-Version meines Kopfrechenprogrammes:
Code:
//---------------------------------------------------------------------------
#include <iostream>
#include <conio>
#include <math>
//---------------------------------------------------------------------------
int zahl1, zahl2, ergebnis, tipp, wahl;
//---------------------------------------------------------------------------
int main()
{
// Einführung
cout << "POWERED BY MGISC© CORPORATION\n";
cout << "Created by Maksim O. Olischewski\n";
cout << "\n";
cout << "\n";
// Zufallsgenerator aufrufen
randomize ();
zahl1 = random (100) + 1; // Zahl ausdenkten zwischen 1 und 100
zahl2 = random (100) + 1; // " " " " " "
Sleep (1500);
cout << "\n";
cout << "\n";
cout << "Waehle eine Option deiner Wahl: (Bitte die entsprechende Zahl druecken)\n";
// Menü
cout << " Addieren: '1'\n";
cout << " Subtrahieren: '2'\n";
cout << "Multiplizieren: '3'\n";
cout << " Dividieren: '4'\n";
// Option 1
if (wahl == 1)
{
do
{
cout << "Wie viel ist " << zahl1 << " + " << zahl2 << " = ?\n";
ergebnis = zahl1+zahl2;
cin >> tipp;
if (tipp == ergebnis)
{
cout << "Dein IQ ist sehr zu beneiden ;-)!" << endl;
}
if (tipp != ergebnis)
{
cout << "Du bist doof. Versuchs weiter... ;-)\n";
Sleep (1500);
cout << zahl1 << " + " << zahl2 << " = ??? " << endl;
}
getch ();
} while (tipp != ergebnis);
}
if (wahl == 2)
{
do
{
cout << "Wie viel ist " << zahl1 << " - " << zahl2 << " = ?\n";
ergebnis = zahl1-zahl2;
cin >> tipp;
if (tipp == ergebnis)
{
cout << "Dein IQ ist sehr zu beneiden ;-)!" << endl;
}
if (tipp != ergebnis)
{
cout << "Du bist doof. Versuchs weiter... ;-)\n";
Sleep (1500);
cout << zahl1 << " - " << zahl2 << " = ??? " << endl;
}
getch ();
} while (tipp != ergebnis);
}
if (wahl == 3)
{
do
{
cout << "Wie viel ist " << zahl1 << " * " << zahl2 << " = ?\n";
ergebnis = zahl1*zahl2;
cin >> tipp;
if (tipp == ergebnis)
{
cout << "Dein IQ ist sehr zu beneiden ;-)!" << endl;
}
if (tipp != ergebnis)
{
cout << "Du bist doof. Versuchs weiter... ;-)\n";
Sleep (1500);
cout << zahl1 << " * " << zahl2 << " = ??? " << endl;
}
getch ();
} while (tipp != ergebnis);
}
if (wahl == 4)
{
do
{
cout << "Wie viel ist " << zahl1 << " : " << zahl2 << " = ?\n";
ergebnis = zahl1/zahl2;
cin >> tipp;
if (tipp == ergebnis)
{
cout << "Dein IQ ist sehr zu beneiden ;-)!" << endl;
}
if (tipp != ergebnis)
{
cout << "Du bist doof. Versuchs weiter... ;-)\n";
Sleep (1500);
cout << zahl1 << " : " << zahl2 << " = ??? " << endl;
}
getch ();
} while (tipp != ergebnis);
}
getch ();
return 0;
}
//---------------------------------------------------------------------------
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Funclass-Forum
Melly - gepostet von Dark_Dragon am Dienstag 15.05.2007
Wisst ihr warum...? - gepostet von Der Lehrer am Freitag 11.08.2006
Benotung: Was das fair? - gepostet von Nessie am Dienstag 09.01.2007
2000 / 1000 Meter-Lauf - gepostet von Nessie am Mittwoch 04.10.2006
[Blechkekse]Blütenzarte Mandel-Plätzchen - gepostet von Dark_Dragon am Montag 11.12.2006
la notabilité - gepostet von Nessie am Samstag 04.11.2006
Ähnliche Beiträge wie "Programme"
Yahoo und Microsoft starten Marketing-Programme - Verwaltungs Administrator (Samstag 13.08.2005)
--> Nützliche Programme für Guild Wars - [SD]Gregor/Tutmanichtun I (Montag 11.06.2007)
musik-programme - stephi (Montag 27.02.2006)
Regel für "Andere Graphik-Programme" - Forum - maggie (Montag 25.06.2007)
Lustige Programme für dich und deinen Alltag - Haruka (Sonntag 08.04.2007)
Programme mit Pascal - bato (Montag 01.05.2006)
Programme - inachor (Sonntag 19.11.2006)
Go-Programme - Shinobi No 5 (Samstag 06.01.2007)
Lizenzschlüssel für viele Programme! - Anonymous (Sonntag 03.09.2006)
Sagt mir eure Programme an!! - Anonymous (Sonntag 03.07.2005)