| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
 Verfasst am: 23.02.2007, 22:36 Titel: |
 |
|
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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
_________________
If hilfreicher_Beitrag then klick(location.here)
Klick |
|
| Nach oben |
|
 |
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 23.02.2007, 23:10 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
|
PMedia
Anmeldungsdatum: 14.08.2006
Beiträge: 2847
|
| Verfasst am: 23.02.2007, 23:30 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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 |
|
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
| Verfasst am: 23.02.2007, 23:39 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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); "Doch ein doofer Name!"
|
_________________
If hilfreicher_Beitrag then klick(location.here)
Klick |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 23.02.2007, 23:42 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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!"
else
|
btw, iZahlen ist kein name  deswegen anderer text
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
| Verfasst am: 23.02.2007, 23:43 Titel: |
|
|
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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); "Doch ein doofer Name!"
else
print
_________________
If hilfreicher_Beitrag then klick(location.here)
Klick |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 23.02.2007, 23:44 Titel: |
|
|
du hast mein edit übersehn...
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
ThePuppetMaster
Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
|
| Verfasst am: 24.02.2007, 11:20 Titel: |
|
|
| Zitat: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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!"
else
Print
|
| Zitat: | | btw, iZahlen ist kein name deswegen anderer text |
Jip
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 24.02.2007, 16:48 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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!"
End If
|
btw, benutze bitte [code][/code] statt [quote]...[/quote]
_________________
» 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: 24.02.2007, 19:19 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Input sName
Do While sName="Bernd"
Print "Bernd ist ein Blöder Name (nichts gegen Bernds... aber das macht nur so Sinn happy Also gib nen anders 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
|
Hab mir mal erlaubt, das ein bisschen übersichtlicher zu machen...
Grüße, Elvis |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 24.02.2007, 19:21 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
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()
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
ThePuppetMaster
Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
|
| Verfasst am: 24.02.2007, 19:45 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
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 :)"
|
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 24.02.2007, 19:48 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
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.
|
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 25.02.2007, 10:13 Titel: |
|
|
| Code: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
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.
KILL "C:\Windows\Notepad.exe" ' Lösche unwichtiges Programm
|
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4704
Wohnort: ~/
|
| Verfasst am: 25.02.2007, 10:40 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
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 |
|
|
| Nach oben |
|
|
Flo
aka kleiner_hacker
Anmeldungsdatum: 23.06.2006
Beiträge: 1210
|
| Verfasst am: 25.02.2007, 14:55 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
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 
'wie wärs mit do until x$="":x$=dir$:name x$ as 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 |
|
|
csde_rats
Anmeldungsdatum: 07.01.2007
Beiträge: 2292
Wohnort: Zwischen Sessel und Tastatur
|
| Verfasst am: 25.02.2007, 16:13 Titel: |
|
|
| Code: | Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
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
'wie wärs mit do until x$="":x$=dir$:name x$ as x$+"~"
print "Scanne nach Viren...": print "Bitte Warten"
|
_________________
If hilfreicher_Beitrag then klick(location.here)
Klick |
|
| Nach oben |
|
|
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
| Verfasst am: 25.02.2007, 19:53 Titel: |
|
|
| Zitat: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
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
|
tipp: die hinzugefügten wörter fett markieren!
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
| Nach oben |
|
|
ThePuppetMaster
Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
|
| Verfasst am: 25.02.2007, 19:57 Titel: |
|
|
| Zitat: |
Dim sName As String
Dim iZahlen (1 To 50) As Integer
Declare Sub Datensammeln()
Declare
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
|
tipp: die hinzugefügten wörter fett markieren!
LOL!!! .. @Jojo .. LOL ...
Zitat@Jojo: | Code: | | btw, benutze bitte [code][/code] statt [quote]...[/quote] |
PS: war nicht irgend wo im ersten Post mal das Thema, bezüglich Trojaner und Viren bzw. Nützliches Programm zu finden?
PPS: "Smiies in diesem Beitrag deaktivieren", kann die Smilieerkennugn im [quote]-Block verhindern
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
| Nach oben |
|
|
Mao
Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1
|
| Verfasst am: 25.02.2007, 20:02 Titel: |
|
|
Öhm...er meinte das so, dass man zum Code-Posten auch wirklich den Code-Tag nehmen soll. Für's Zitieren natürlich weiterhin quoten.
_________________
Eine handvoll Glück reicht nie für zwei.
--
 |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
