| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
micdah
Anmeldungsdatum: 02.12.2011
Beiträge: 71
|
 Verfasst am: 22.03.2013, 21:14 Titel: paint |
 |
|
sooooo ich habe heute mal ein kleines paintprogramm programmiert .
viel gibts dazu jetzt eigentlich nicht zu sagen 
hier ist mal der quellcode :
| Code: |
CLS
SCREEN 12
anfang:
PRINT "Mein erstes paint programm . verwende zum malen wasd. beenden mit x und zum reinigen des bildschirmes c "
y% = 250
x% = 300
DO
PSET (300, 250)
DO: ausw$ = INKEY$: LOOP WHILE ausw$ = ""
SELECT CASE ausw$
CASE "w": y% = y% - 1
CASE "s": y% = y% + 1
CASE "a": x% = x% - 1
CASE "d": x% = x% + 1
CASE "x": END
CASE "c": GOTO reinigen
END SELECT
PSET (x%, y%)
LOOP
reinigen:
CLS
GOTO anfang
|
wenn ihr verbesserungen habt , dann schreibt sie mir
_________________
----------------------------------------------------------- |
|
| Nach oben |
|
 |
Westbeam
Anmeldungsdatum: 22.12.2009
Beiträge: 760
|
| Verfasst am: 22.03.2013, 21:48 Titel: |
|
|
Wieso keine Mausbedienung?  |
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4712
Wohnort: ~/
|
| Verfasst am: 22.03.2013, 22:55 Titel: |
|
|
Scheint mir QBasic zu sein - da läuft Mausbedienung nur über eine extra Bibliothek.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
micdah
Anmeldungsdatum: 02.12.2011
Beiträge: 71
|
| Verfasst am: 23.03.2013, 12:28 Titel: überarbeitet |
|
|
sorry für diesen zweiten post 
_________________
-----------------------------------------------------------
Zuletzt bearbeitet von micdah am 23.03.2013, 12:31, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
micdah
Anmeldungsdatum: 02.12.2011
Beiträge: 71
|
| Verfasst am: 23.03.2013, 12:30 Titel: überarbeitet |
|
|
ich habe jetzt mal das paintprogramm "Verbessert" man kann nun farben auswählen. | Code: |
DECLARE SUB schwarz ()
DECLARE SUB gruen ()
DECLARE SUB rot ()
DECLARE SUB blau ()
CLS
SCREEN 12
anfang:
COLOR 15
PRINT "Mein erstes paint programm . verwende zum malen wasd. beenden mit x und zum reinigen des bildschirmes c "
PRINT "1=blau 2=rot 3= grn schwarz (bzw. loeschen)=4"
y% = 250
x% = 300
DO
PSET (300, 250)
DO: ausw$ = INKEY$: LOOP WHILE ausw$ = ""
SELECT CASE ausw$
CASE "w": y% = y% - 1
CASE "s": y% = y% + 1
CASE "a": x% = x% - 1
CASE "d": x% = x% + 1
CASE "x": END
CASE "c": GOTO reinigen
CASE "1": CALL blau
CASE "2": CALL rot
CASE "3": CALL gruen
CASE "4": CALL schwarz
END SELECT
PSET (x%, y%)
LOOP
reinigen:
CLS
GOTO anfang
SUB blau
COLOR 9
END SUB
SUB gruen
COLOR 10
END SUB
SUB rot
COLOR 12
END SUB
SUB schwarz
COLOR 0
END SUB
|
| Westbeam hat Folgendes geschrieben: | | Wieso keine Mausbedienung? |
Ich habe schon öfter versucht eine maus mit einzubauen ... aber das ist für mich noch zu schwierig
_________________
----------------------------------------------------------- |
|
| Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
| Verfasst am: 23.03.2013, 13:37 Titel: |
|
|
| Code: | #Lang "qb"
Screen 12
anfang:
Color 15,7
Cls
Print "Mein erstes paint programm."
Print "verwende zum malen wasd. beenden mit x oder ESC
Print "und zum reinigen des bildschirmes c "
Print "1=blau 2=rot 3= grn grau (bzw. loeschen)=4"
y% = 250
x% = 300
Do
PSet (x%, y%)
Do
ausw$ = InKey$
Loop While ausw$ = ""
Select Case ausw$
Case "w": If y% > 0 Then y% = y% - 1
Case "s": If y% < 480 Then y% = y% + 1
Case "a": If x% > 0 Then x% = x% - 1
Case "d": If x% < 640 Then x% = x% + 1
Case "x", Chr$(27): End
Case "c": GoTo anfang
Case "1": Color 9
Case "2": Color 12
Case "3": Color 10
Case "4": Color 7
End Select
Loop |
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
| Nach oben |
|
|
micdah
Anmeldungsdatum: 02.12.2011
Beiträge: 71
|
| Verfasst am: 23.03.2013, 17:29 Titel: |
|
|
stimmt THX daran hab ich garnet gedacht
_________________
----------------------------------------------------------- |
|
| Nach oben |
|
|
micdah
Anmeldungsdatum: 02.12.2011
Beiträge: 71
|
| Verfasst am: 23.03.2013, 17:34 Titel: |
|
|
| volta hat Folgendes geschrieben: | |
der sagt nur ,dass dieses pset (x,y) ein unzulässiger funktionsablauf ist
_________________
----------------------------------------------------------- |
|
| Nach oben |
|
|
dreael
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 2531
Wohnort: Hofen SH (Schweiz)
|
| Verfasst am: 23.03.2013, 19:55 Titel: |
|
|
Zwei alte Beispiele in diese Richtung von mir:
http://beilagen.dreael.ch/QB/MALPROG.BAS
http://beilagen.dreael.ch/QB/MALPROG2.ZIP
Beide Beispiele benötigten den QB 4.5-Compiler wegen den CALL INTERRUPTs für die Mausunterstützung + weitere Funktionen wie Farbpalette via VGA-BIOS auslesen und unter Windows die CPU schonen.
@micdah: In FreeBasic hast Du bereits eine integrierte Mausunterstützung zur Verfügung sowie auch für Bitmap-Dateiformate.
_________________
Teste die PC-Sicherheit mit www.sec-check.net |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
