Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Spongebob Schwamm
Anmeldungsdatum: 31.10.2004 Beiträge: 40
|
Verfasst am: 14.11.2004, 11:38 Titel: Drucken |
|
|
Hi erstmal!
Also mit diesem Prog. kann man "zeichnen" nur frage ich mich jetzt wie man den Inhalt des Kastens druckt wenn man d tippt. und wenn man s tippt soll der Inhalt des Kastens als Gemalt000111.bmp gespeichert werden (kann auch .jpg sein)
Geht das?
Und wenn wie!
schon mal danke Code: | CLS
SCREEN 12
PRINT "Gleich kommt ein Fenster mit einem Viereck"
PRINT ""
PRINT "In dem Viereck ist ein Punkt "
PRINT ""
PRINT "Tasten auf dem Nummernblock 8 = nach oben 4 = links 6 = rechts 2 = unten "
PRINT ""
PRINT "ESC = beenden"
PRINT ""
PRINT "Wen man eine Ziffer davon dr?ckt zeichnet man"
PRINT ""
PRINT "Dr?cke eine beliebige Taste"
PRINT ""
PRINT "Kleiner Tip: Schreib dir die zahlen auf wenn du ein schlechtes Ged„chnis hast"
SLEEP
CLS
SCREEN 12
ON KEY(11) GOSUB oben 'Taste 8 auf dem Nummernblock
ON KEY(12) GOSUB links 'Taste 4 auf dem Nummernblock
ON KEY(13) GOSUB rechts 'Taste 6 auf dem Nummernblock
ON KEY(14) GOSUB unten 'Taste 2 auf dem Nummernblock
KEY(11) ON 'Tasten aktivieren
KEY(12) ON
KEY(13) ON
KEY(14) ON
LINE (1, 1)-(200, 200), 15, B
x = 2
y = 2
DO
LINE (x, y)-(x + 10, y + 10), 1, BF
LOOP UNTIL INKEY$ = CHR$(27) 'Die Schleife wird ausgeführt bis "ESC" gedrückt wird.
END
PRINT "Tasten auf dem Nummernblock 8 = nach oben 4 = links 6 = rechts 2 = unten "
oben:
y = y - 1
IF y < 2 THEN y = 2 'Damit die Box im Kasten bleibt.
RETURN
links:
x = x - 1
IF x < 2 THEN x = 2 'Damit die Box im Kasten bleibt.
RETURN
rechts:
x = x + 1
IF x > 189 THEN x = 189 'Damit die Box im Kasten bleibt.
RETURN
unten:
y = y + 1
IF y > 189 THEN y = 189 'Damit die Box im Kasten bleibt.
RETURN
|
|
|
Nach oben |
|
|
dreael Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 2507 Wohnort: Hofen SH (Schweiz)
|
|
Nach oben |
|
|
dreael Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 2507 Wohnort: Hofen SH (Schweiz)
|
Verfasst am: 14.11.2004, 18:53 Titel: Kleiner Entwurf für ein Malprogramm mit Mausunterstützung |
|
|
Habe vorhin einmal selber etwas ganz Einfaches einmal angesetzt, siehe
http://beilagen.dreael.ch/QB/MALPROG.BAS
Bis jetzt kann man im Zeichenfeld malen, Farbe auswählen sowie die RGB-Werte der Farben verändern. Übrigens wird hier noch gezeigt, wie man in der Multitasking-Umgebung Windows einen unnötigen Rechenzeitverbrauch verhindert (INT 2Fh, AX=1680h). _________________ Teste die PC-Sicherheit mit www.sec-check.net |
|
Nach oben |
|
|
Spongebob Schwamm
Anmeldungsdatum: 31.10.2004 Beiträge: 40
|
Verfasst am: 28.11.2004, 15:20 Titel: MMH |
|
|
Also die Seiten bringen mich nicht weiter und das Progi. das geht bei mir irgendwie nicht.
Also könntet ihr mir das speichern und drucken mal einbauen und erklären?
Schon mal Danke
Mfg
Spongebob Schwamm |
|
Nach oben |
|
|
dreael Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 2507 Wohnort: Hofen SH (Schweiz)
|
Verfasst am: 28.11.2004, 15:48 Titel: Re: MMH |
|
|
Spongebob Schwamm hat Folgendes geschrieben: | Also die Seiten bringen mich nicht weiter und das Progi. das geht bei mir irgendwie nicht. |
Du musst mit rechter Maustaste "Ziel speichern unter..." beim Download-Link machen und das Ganze mit
starten.
Spongebob Schwamm hat Folgendes geschrieben: | Also könntet ihr mir das speichern und drucken mal einbauen und erklären? |
Ein MALPROG2.BAS wird folgen... :-) _________________ Teste die PC-Sicherheit mit www.sec-check.net |
|
Nach oben |
|
|
dreael Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 2507 Wohnort: Hofen SH (Schweiz)
|
Verfasst am: 28.11.2004, 20:58 Titel: MALPROG2.BAS ist da :-) |
|
|
Die neue Version ist da:
http://beilagen.dreael.ch/QB/MALPROG2.ZIP
Dort kannst Du nun Deine Bilder laden und speichern. Hat jetzt neu noch etwas ganz einfache GUI drin: Einfaches Fenster, wo man einen String, Dateinamen in diesem Fall, eingeben kann und mit der Maus bestätigen und abbrechen kann (Knopftexte können der SUB frei übergeben werden) inkl. Cursor im Texteingabefeld wie in Windows mit der Maus positionieren. Das Bilder laden und speichern beruht auf der Windows-Bitmap-Bibliothek.
Nachdem Du das File entpackt hast, einfach mit
starten. :-)
Zum Thema Drucker verweise ich auf
http://www.dreael.ch/Deutsch/BASIC-Knowhow-Ecke/BildschirmHardcopy.html _________________ Teste die PC-Sicherheit mit www.sec-check.net |
|
Nach oben |
|
|
|