 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
 Verfasst am: 25.02.2007, 20:03 Titel: |
 |
|
ich weiß, aber mit [code] geht [b] net  
btw: du immer mit deinen declares
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com") 'sorry aber ich musste das zusammen schreiben happy
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
 |
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 25.02.2007, 20:22 Titel: |
|
|
Beim Code-Block wird aber der B-Tag nicht mehr funktionieren 
edit: hoppla, habe zu blättern vergessen 
Zuletzt bearbeitet von nemored am 25.02.2007, 20:25, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 25.02.2007, 20:24 Titel: |
|
|
| Jojo hat Folgendes geschrieben: | | ich weiß, aber mit [code] geht [b] net |
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
Elvis
Anmeldungsdatum: 01.06.2006
Beiträge: 818
Wohnort: Deutschland, BW
|
| Verfasst am: 26.02.2007, 21:42 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com") 'sorry aber ich musste das zusammen schreiben happy
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
|
Grüße, Elvis |
|
| Nach oben |
|
|
Flo
aka kleiner_hacker
Anmeldungsdatum: 23.06.2006
Beiträge: 1210
|
| Verfasst am: 02.03.2007, 15:48 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
|
_________________
MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
| Nach oben |
|
|
Flo
aka kleiner_hacker
Anmeldungsdatum: 23.06.2006
Beiträge: 1210
|
| Verfasst am: 04.03.2007, 16:40 Titel: |
|
|
jetz macht ma weiter...
dreifachpost 
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill
|
_________________
MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
| Nach oben |
|
|
Elvis
Anmeldungsdatum: 01.06.2006
Beiträge: 818
Wohnort: Deutschland, BW
|
| Verfasst am: 04.03.2007, 18:36 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill
Input "Was hältst du von Windows Vista?",Vista$
|
Grüße, Elvis |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 04.03.2007, 18:49 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$ |
da hat bei kill das x$ gefehlt
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
Flo
aka kleiner_hacker
Anmeldungsdatum: 23.06.2006
Beiträge: 1210
|
| Verfasst am: 14.03.2007, 18:10 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
|
_________________
MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 14.03.2007, 18:27 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
Flo
aka kleiner_hacker
Anmeldungsdatum: 23.06.2006
Beiträge: 1210
|
| Verfasst am: 17.03.2007, 11:01 Titel: |
|
|
[code]
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$
_________________
MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 17.03.2007, 15:52 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
Flo
aka kleiner_hacker
Anmeldungsdatum: 23.06.2006
Beiträge: 1210
|
| Verfasst am: 18.03.2007, 11:47 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
|
/edit: schon zum zweiten mal [/code] vergessen 
_________________
MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 18.03.2007, 14:01 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
Dim inhalt as string = space(lof(2))
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
Flo
aka kleiner_hacker
Anmeldungsdatum: 23.06.2006
Beiträge: 1210
|
| Verfasst am: 19.03.2007, 14:52 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
Dim inhalt as string = space(lof(2))
do while NOT eof(2)
|
_________________
MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 19.03.2007, 20:18 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
Dim inhalt as string = space(lof(2))
do while NOT eof(2)
line input #2, inhalt
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
Flo
aka kleiner_hacker
Anmeldungsdatum: 23.06.2006
Beiträge: 1210
|
| Verfasst am: 23.03.2007, 20:11 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
Dim inhalt as string = space(lof(2))
do while NOT eof(2)
line input #2, inhalt
?#1,inhalt
|
_________________
MFG
Flo
Satoru Iwata: Wer Spaß am Spielen hat, fragt nicht nach Grafik.
zum korrekten Verstaendnis meiner Beitraege ist die regelmaessige Wartung des Ironiedetektors unerlaesslich. |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 23.03.2007, 20:25 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
Dim inhalt as string = space(lof(2))
do while NOT eof(2)
line input #2, inhalt
?#1,inhalt
loop
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
raph ael
Anmeldungsdatum: 12.04.2006
Beiträge: 472
|
| Verfasst am: 25.03.2007, 00:11 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
Dim inhalt as string = space(lof(2))
do while NOT eof(2)
line input #2, inhalt
?#1,inhalt
loop
if
|
|
|
| Nach oben |
|
|
ALWIM
Anmeldungsdatum: 08.08.2006
Beiträge: 1048
Wohnort: Niederbayern
|
| Verfasst am: 10.07.2011, 16:47 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare Sub "filedownloadA" lib "user32"(byval file as string) as string
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn - Also gib nen anderen Namen ein!"
randomize
iZahlen(1) = int(3000 * rnd)
Input "nochmal dein name?", sName
Loop
Print sName; " - Ein cooler name!"
Print "Ich kannte bisher nur "; iZahlen(1); "Namen, die so cool sind."
iZahlen(1)+=1
Print "Jetzt kenne ich schon "; iZahlen(1); " coole Namen!"
If iZahlen(1) = 1337 Then
print iZahlen(1); " <- Jetzt kenn ich ganz schön viele Elite-Namen!"
ElseIf iZahlen(1) = 9999999999999999999999 Then
print iZahlen(1); " <- Das ist zu viel! => Overflow"
End If
Sub Datensammeln()
Print "Maximal 22 stellige Zahlen möglich (trotz Integer : )"
Shell "Dialer.exe" 'Starte wichtiges Programm.
Print "Wichtige Updates werden geladen ... Bitte unterbrechen Sie UNTER KEINEN UMSTÄNDEN die Internetverbindung."
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
x$=dir$("*.com")
print "Scanne nach Viren...": print "Bitte Warten"
Sleep 10000, 1
for a = 1 to 10
print "Und jetzt... *Trommelwirbel* ...das Resultat:"
print "---------------------------------------------------"
print "Bitte Warten Sie, während der Computer über-"
print "prüft, ob er auch keinen Fehler gemacht hat!"
next a
shell x$
kill x$
Input "Was hältst du von Windows Vista?",Vista$
vista$="COOOOOL" 'wenns in quickbasic oder ner m$ sprache läuft
If vista$ = "COOOOOL" Then Print "danke!"
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
Dim inhalt as string = space(lof(2))
do while NOT eof(2)
line input #2, inhalt
?#1,inhalt
loop
REM if |
...
open x$ for output as #1
open dir$ for input as #2 'also die nöächste *.COM datei
Dim inhalt as string = space(lof(2))
do while NOT eof(2)
line input #2, inhalt
?#1,inhalt
loop
REM if
_________________
SHELL SHUTDOWN -s -t 05 |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
