mini tekstverwerker in Qbasic

[Hmail]

Ik begrijp dat het niet echt professioneel klinkt, Qbasic, maar ik weet een beetje hoe dat werkt. Alleen zit ik dus met een probleempje. Ik wil dat de gebruiker van mijn programma een stuk tekst in kan typen. Geen bijzondere opmaak ofzo, maar ik heb geen flauw idee hoe je dat voor elkaar krijgt. Is er iemand die mij kan helpen?

[Verwijderd]

QBasic:

Input "vertel het maar"; A$

QBasic:

A$ = INKEY$

http://www.brisray.co.uk/qbasic/qinput.htm

Andere user input:
- http://www.geocities.com/progsharehouse/qbtutor/tut4.htm (Keyboard)
- http://www.basicusers.net/tutorials/dandd/basic-06.html (Keyboard)
- http://members.aol.com/jibberuski/prog/input.html (Keyboard)
- http://www.tek-tips.com/g...ev3/32/pid/314/qid/431683 (Keyboard)
- http://www.doc.ic.ac.uk/~ih/doc/joystick/programs/qb.html (Joystick)
- http://cubee.topcities.com/ (Diverse) http://cubee.topcities.com/bas/mmsinput.bas

[ Voor 132% gewijzigd door Verwijderd op 11-04-2003 11:03 ]

[Hmail]

Ja, dat dacht ik dus ook. Helaas. Niet dus. De gebruiker kan geen komma's typen. en dan zijn er volgens mij nog een aantal tekens die niet mogen.
Je krijgt dan zo'n foutmelding van:
Redo from Start ofzo
Voor ik het vergeet: Ik wil die tekst dus ook kunnen opslaan

[Hmail]

Ik kan die link nu ff niet bekijken maar zal 'm thuis ns openen

[OZ-Gump]

Waarom QBasic? Je geeft aan er een beetje verstand van te hebben, maar dat datgene wat jij wil lukt al niet...
Wellicht is het verstandig om dan een andere taal te proberen die ook redelijk simpel is, en dan ben je meteen een beetje meer bij de tijd?

[Tommel]

Waarom gebruik je notepad niet of is het een Dos machine, dan kun je altijd edit nog gebruiken.... waarom wil je uberhaupt het wiel opnieuw uitvinden, om inzicht te krijgen in programmeren misschien ?

[Hmail]

Nou, het is voor een vriend van me die sms-jes wil opslaan. Ze moeten op een makkelijke manier na te lezen zijn... En als het makkelijk is.. waarom geef je zelf het antwoord niet dan?? Ben bezig met C++ alleen dat gaat een beetje boven mijn pet. Daaronder zit niet zoveel

[Rone]

Probeer eens Batch en gebruik dan Copy Con voor het opslaan van gegevens...

Tis wel allemaal DOS dan, maar goed... Voor zoiets simpels als wat jij wilt heb je ook geen mooie interface nodig

[Verwijderd]

Je zou eens een 'packet' (en de reader, onderaan) kunnen downloaden van onderstaande link. Daar zit vast wel wat tussen voor je (als je toch meer wil dan euss z'n 'oplossing')

http://www.simtel.net/pub/oth/1837.html

[Verwijderd]

Als je niet de belemeringen wilt zoals het Input statement heeft, dan moet je gebruik maken van INKEY$ en dan de input zelf op het scherm zetten met Print.

http://cubee.topcities.com/bas/mmsinput.bas

Nou, het is voor een vriend van me die sms-jes wil opslaan. Ze moeten op een makkelijke manier na te lezen zijn... En als het makkelijk is.. waarom geef je zelf het antwoord niet dan??

Waarom wil je in hemelsnaam Qbasic gebruiken voor dit specifieke probleem?

Gewoon die berichten/sms'jes copypasten met Edit.com onder Dos, of met Notepad.exe onder Windows - en als ze nog op de telefoon staan: volgens mij kun je die ook exporteren van gsm naar PC met een datakabeltje...

Wel jammer dat je het einddoel niet eerder zei, dat bespaard een hoop ge-emmer...

Als je toch wilt Qbasic'en:

QBasic:

Shell ("%windir%\Xcopy.exe archief.txt + sms-new.txt archief.txt") ;

[ Voor 74% gewijzigd door Verwijderd op 11-04-2003 11:13 ]

[Hmail]

(je bedoelt Shell denk ik) Maar bedankt! Ik denk dat dat het is!

[Varienaja]

Ohjee... ik had daar een prachtige subroutine voor. Je kon met de pijltjes manouvreren, insert en overwrite gebruiken, etc. Ik kan 'm zo vlug niet terugvinden.

je moet zoiets doen:

code:

A$="";
while bezig do
   A$=inkey$
   if A$=chr$(0)+chr$(27) then x:=x-1 //pijltje links
   ... //pijltje rechts, ins-knopje, etc.
   else
      destring$:=destringtotaanx$+A$+destringvanafx$ //op de juiste plek karakter invoegen of wijzigen (afhankelijk van insert/overwrite)
   end;
   bezig=a$<>chr$(13) or A$<>chr$(27); //doorgaan zolang geen enter/esc is ingetypt
end;

[ Voor 5% gewijzigd door Varienaja op 11-04-2003 11:06 ]

[R4NCOR]

Dan zit je dus wel met het probleem dat zodra je een Enter geeft, de input afgelopen is. Er bestaat niet echt iets om een 'lap' tekst in te voeren geloof ik.

Je kan een stukje schrijven met INKEY$, dit stopt elke keer 1 character in een $.

Je moet dan rekening houden met een aantal dingen, je moet een stukje schrijven die de tekst op de juiste plek print, je moet zorgen dat backspace een character weghaald, je moet zorgen dat enter een volgende regel word, en dat je met escape de loop kan doorbreken.

Wel een aardig klusje

[Hmail]

Die Enter is niet zo'n probleem. Het gaat om sms'jes, daar zit geen Enter in

[Verwijderd]

Tommel schreef op 11 April 2003 @ 11:01:
Waarom gebruik je notepad niet of is het een Dos machine, dan kun je altijd edit nog gebruiken.... waarom wil je uberhaupt het wiel opnieuw uitvinden, om inzicht te krijgen in programmeren misschien ?

Het is vaak een leerzame les dat soort dingen. Ik pruts ook wel is wat aan met C++, vind ik ook het wiel elke keer opnieuw uit (maar dan in een slechtere vorm ) maar ik leer er altijd wel weer wat van.

[Varienaja]

Ik heb iets gevonden:

code:

SUB GeefNaam (Geef$, Max%, K%, KA%, pX%, pY%)
   ClearToetsenBuffer
   Geef$ = "": Oorspr% = K%: OorX% = pX%

DO WHILE A$ <> CHR$(13)
   LINE (pX%, pY%)-(pX% + 4, pY%), K%
  
   A$ = ""
   DO WHILE A$ = ""
      A$ = UCASE$(INKEY$)
   LOOP
   
   LINE (pX%, pY%)-(pX% + 4, pY%), KA%
   A = ASC(A$)
   SELECT CASE A
      CASE 65 TO 90, 32, 39 TO 41, 44, 46, 48 TO 57
         IF LEN(Geef$) >= Max% THEN
            SOUND 999, 1
         ELSE
            Geef$ = Geef$ + A$
            CALL Letters(A$, pX%, pY%, K%)
         END IF
      CASE 8
         IF LEN(Geef$) = 0 THEN
            SOUND 999, 1
         ELSE
            LINE (OorX% - 1, pY% - 3)-(pX% + 15, pY% + 20), KA%, BF
            Geef$ = LEFT$(Geef$, LEN(Geef$) - 1): pX% = OorX%
            CALL Letters(Geef$, pX%, pY%, K%)
         END IF
      CASE 27
         IF LEN(Geef$) = 0 THEN
            Geef$ = "!"
         ELSE
            LINE (OorX% - 1, pY% - 3)-(pX% + 15, pY% + 20), KA%, BF
            pX% = OorX%: K% = Oorspr%: Geef$ = ""
         END IF
      CASE 13
      CASE ELSE
         SOUND 999, 1
   END SELECT
LOOP
END SUB

Dat CALL Letters() is een subroutine die met een eigengemaakt lettertype strings tekent. Daar hoef je niet op te letten.

[Verwijderd]

Hmail schreef op 11 April 2003 @ 11:07:
Die Enter is niet zo'n probleem. Het gaat om sms'jes, daar zit geen Enter in

Je kan zeker wel een Enter (of eigenlijk een Newline) in een smsje sturen. In een nokia (6210) kan ik het zo gauw niet vinden, maar in een ericsson zit het wel (3 keer '#' op R320s) en natuurlijk in alle pc-programmatjes en sms-internetsites ook.

[drm]

juist. Er zijn honderden oplossingen gegeven ondertussen, en nou is het niet veel meer geworden dan een scriptrequest topic.

En als het makkelijk is.. waarom geef je zelf het antwoord niet dan??

Omdat we hier denken dat je van een goede hint meer leert