| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
 Verfasst am: 12.06.2006, 17:43 Titel: |
 |
|
das ganze ließe sich durch eine aussage der administration zumindest meinerseits sehr einfach beenden nur offenbar wahrt man da stillschweigen, warum auch immer :/
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra |
|
| Nach oben |
|
 |
Skilltronic
Anmeldungsdatum: 10.09.2004
Beiträge: 1148
Wohnort: Köln
|
| Verfasst am: 12.06.2006, 22:15 Titel: |
|
|
Hallo
Ich kenne zwar die ganzen Hintergründe nicht und will sie auch nicht kennen, muss jetzt aber doch mal ganz allgemein meinen Senf dazugeben.
Könntet ihr euch bei eurer Ausdrucksweise vielleicht alle mal etwas zurücknehmen? Penner, Volldepp, Idiot, Schisser, Scheisse etc. gehörten bis jetzt nicht unbedingt zum Wortschatz dieses Forums und meiner Meinung nach sollte das auch so bleiben.
Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de ! |
|
| Nach oben |
|
|
alfonsospringer
Anmeldungsdatum: 27.04.2006
Beiträge: 445
|
| Verfasst am: 12.06.2006, 22:29 Titel: |
|
|
1. Da hat er ja irgendwo auch recht, oder?
2. Ich bin zwar noch nicht lang dabei, aber infection hat doch durchaus auch viel sinnvolles + hilfreiches gepostet, ich bin dagegen, dass sein account gesperrt wird
3. wie waers wenn wir dises debatte langsam mal aufwickeln
4.
CLS
Print "Frieden fuer die Welt"
Line input "Dagegen? ", a$
if a$="ja" then
print "Pech gehabt"
elseif a$="Nein" then
print "Wunderbar"
sleep 'ja, ich weiss das ist unschoen
cls
do
print "Frieden fuer die Welt"
loop
endif
end
'moegliche Syntaxfehler bitte nicht beachten
_________________
Die Antworten zu fast allen Fragen des Lebens findest du entweder im MonsterFAQ oder der Befehlsreferenz - Und wenn du gar nicht mehr weiter weisst ? -> Wikipedia
ALLE RECHTSCHREIBFEHLER DIE ICH MACHE SIND BEABSICHTIGT, DAMIT DIE LEUTE, DIE SPAß DARAN HABEN SOLCHE ZU FINDEN, ETWAS ZU TUN HABEN |
|
| Nach oben |
|
|
Dominik
Anmeldungsdatum: 22.12.2004
Beiträge: 172
|
| Verfasst am: 13.06.2006, 18:19 Titel: |
|
|
Mir gefällt dieser Code ganz gut. 
| Code: |
If InfectionIsPolite() = TRUE And InfectionPostsUsefulThings() = TRUE Then
Print "Everything is okay."
Else
Call DeleteAccount("Infection")
End If
|
|
|
| Nach oben |
|
|
Infection 93
gesperrt
Anmeldungsdatum: 11.03.2006
Beiträge: 377
Wohnort: Egal, dort wo ein PC ist.
|
| Verfasst am: 13.06.2006, 18:43 Titel: |
|
|
| Dominik hat Folgendes geschrieben: |
| Code: |
If InfectionIsPolite() = TRUE And InfectionPostsUsefulThings() = TRUE Then
Print "Everything is okay."
Else
Call DeleteAccount("Infection 93")
End If
|
|
Findest du nicht, dass die Else-Befehle etwas zu hart sind? Nett sein geht klar, aber jeder im Forum hat seine Meinung über irgendwas, da könnte es Meinungsverschiedenheiten geben. Ein klassisches Beispiel:
King01 und MisterD. Die haben meistens die verschiedensten Meinungen.
Oder Marky und Sebastian. Der eine ist gegen, der andere ist für die Zensur.
_________________
Meine Homepage:
www.infection93.org
Und das Forum von mir und King01:
www.infection93.bboard.de |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 13.06.2006, 18:56 Titel: |
|
|
| Infection 93 hat Folgendes geschrieben: | | Dominik hat Folgendes geschrieben: |
| Code: |
If InfectionIsPolite() = TRUE And InfectionPostsUsefulThings() = TRUE Then
Print "Everything is okay."
Else
Call DeleteAccount("Infection 93")
End If
|
|
Findest du nicht, dass die Else-Befehle etwas zu hart sind? |
Dann zeig ich dir mal ne "Milderung"
| Code: |
Type usertyp
name As String*20
userid As Integer
zugedrueckte_augen As Integer
End Type
ReDim user(1 to 2) As usertyp
Dim As Integer user_anz, i
user(1).name="Infection"
user(1).userid=686
user_anz+=1
Sub pruefeUser(user as usertyp)
With user
If IsPolite(.userid) = True And IsPostingUsefulThings(.userid) = True Then
Print "Alles in Ordnung."
Else
. zugedrueckte_augen+=1
End If
If .zugedrueckte_augen>4 Then
Print "Jetzt ist genug, ";.name;"."
DeleteAccount(.userid)
End If
End With
End Sub
Do
If NewUser=True Then
AddUser(user(),user_anz)
End If
For i = 1 to user_anz
pruefeUser(user(i))
Next i
Do While SomethingNew=False
Sleep 1
Loop
Loop
End
|
Jaja...Ich hab mal wieder langeweile^^ |
|
| Nach oben |
|
|
Infection 93
gesperrt
Anmeldungsdatum: 11.03.2006
Beiträge: 377
Wohnort: Egal, dort wo ein PC ist.
|
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
| Verfasst am: 13.06.2006, 20:31 Titel: |
|
|
| Code: | | Dim As Byte zugedrueckte_augen |
..man muß es ja nicht übertreiben 
Wobei Variante | Code: | | Dim As BOOL zugedrueckte_augen |
natürlich auch nicht ohne Reiz ist 
_________________
| v1ctor hat Folgendes geschrieben: | | Yeah, i like INPUT$(n) as much as PRINT USING.. |
..also ungefähr so, wie ich GOTO.. |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
