Das deutsche QBasic- und FreeBASIC-Forum

[qbay]

Hallo
ich habe dieses Thema vorallem für die neulinge erstellt,
zu denen ich auch gehöre.
Hier können allgemeine Fragen zu QBASIC gestellt werden
für die es sich nicht lohnt einzeln ein neues Thema aufzumachen.

mit freundlichem gruss

[qbay]

Anfangen tu ich auch mal gleich
kann jemand ein beispiel für einen portscanner (In QBASIC)
hier einfügen.
Bei google kommt die ganze zeit nur etwas über HP und Lexware

[Sebastian]

Hallo,

für jedes Thema möge bitte auch ein eigener Thread angefangen werden.

Zur eigentlichen Frage: Meinst du einen Scanner zum Einlesen von Bildern/Texten etc., der sich über TWAIN ansteuern ließe (Stichwörter HP und Lexmark) oder meinst du eine Software, die offene Ports (z.B. 80 (HTTP) etc.) findet (Portscanner)?

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[qbay]

ja ich meine portscanner

[Sebastian]

Hallo,

Sebastian Mate hat mal etwas in die Richtung in QB programmiert:

http://home.arcor.de/sebmate/more.htm

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[qbay]

erstmal danke ich habe mir den link angeschaut
aber eigentlich wollte ich das jemand
einen quelltext einfügt
damit man sich tips und anleitungen abgucken kann
also wie so ein portscanner ungefähr auszusehen hat

[Sebastian]

Hallo,

in dem Downloadpaket, das du über den von mir geposteten Link beziehen kannst, ist ein Quelltext inkl. weiterer benötigter Dateien enthalten. Da QBasic ein Interpreter bzw. QuickBasic ein Compiler für DOS ist, ist ein Portscanner damit im Gegensatz zu FreeBASIC für Windows sehr schwierig zu realisieren. Sebastian Mate hat es trotzdem hinbekommen und das ganze Projekt online zur Verfügung gestellt. Es wäre mir nicht bekannt, dass schon mal jemand anderes einen Portscanner mit QB geschrieben hätte.

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[qbay]

ok danke

und jetzt was anderes ich hab mein erstes programm fertig geschrieben

ein zahlen ratespiel

CLS
INPUT "Geben Sie eine beliebige Zahl von 1 bis 50 ein"; Zahl%
RANDOMIZE TIMER
zz% = INT(50 * RND)
20
IF Zahl% < zz% THEN PRINT "zu niedrig"
IF Zahl% < zz% THEN GOTO 10

IF Zahl% > zz% THEN PRINT "zu hoch"
IF Zahl% > zz% THEN GOTO 10

IF Zahl% = zz% THEN PRINT "Das ist Richtig"
IF Zahl% = zz% THEN GOTO 1

10 INPUT "versuchen Sie es nochmal"; Zahl%
GOTO 20

1 END

was meint ihr ?
wer will kann auch so ein zahlenspiel reinstellen

[St_W]

Das Programm ist für Programmierbeginner schon recht gut.
Ich würde jedoch anstatt der unübersichtlichen GOTO's (die man - wenn möglich - vermeiden sollte) besser Schleifen verwenden. z.B.:

[qbay]

vielen dank

ich sehe schon dein programm ist schmaler
aber könntest du noch commies dazu schreiben weil ich verstehe die schleife nicht ganz

gruss

[Sebastian]

Hier mal ein "Commie" dazu:

[dreael]

Das Ganze hier gezeigte Beispiel könnte man noch stärker optimieren und gleichzeitig etwas ausbauen:

http://beilagen.dreael.ch/QB/ZAHL_RAT.BAS

Hinweis: Das innere DO-LOOP ist für die Input Validation, d.h. Eingabeüberprüfung verwendet. In der äussere DO-LOOP-Schleife bleibt man solange drin, bis (UNTIL!) man die richtige Zahl erraten hat.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[Mao]

@Sebastian:
Was hat dein Beitrag mit Kommunisten zutun? oO
_________________
Eine handvoll Glück reicht nie für zwei.
--

[Sebastian]

@Mao: Er hat nach Commies gefragt und das ist m.E. die umgangssprachliche Kurzform für "Kommunisten". Kommentare habe ich zumindest noch nie mit "Commies" abgekürzt.
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[Mao]

Dass "Commie" die Kurzform für "Kommunist" ist war mir klar, wusste bloß nicht, warum du das auf einmal in den Satz gebaut hast. Hatte seinen Satz mit den "commies" übersehen.
_________________
Eine handvoll Glück reicht nie für zwei.
--

[qbay]

alles klar
danke leute

[qbay]

ok hier wieder eine neue frage

habt ihr einpaar beispiele für animationen in qbasic
z.B. wie animiere ich eine pac-man figur oder etwas ähnliches

[DosCoder]

Hi,
wie wäre es, wenn du erst mal in der QBMonFon nachschauen würdest. Dort ist ein riesen großer Eintrag über Grafikprogrammierung gepostet.
MonFaq

Ciao
DosCoder

[dreael]

[qbay]

nochmals danke
und wer lust hat kann gerne noch seine animationen einstellen