/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Tælle ned fra 128 og vise dette i textfelt
Fra : Mox


Dato : 07-05-05 14:51

Hej !

Jeg forsøger at tælle antallet af anslag i 3 textfelter, men Len(),
og bruge det samlede resultat til at vise hvor mange karakterer man har
tilbage ( i et seperat textfelt, skal bruges i en SMS løsning), men
det virker sq ikke.
Jeg er ikke sikker på hvor jeg skal placere beregningen, men mener den
skal aktiveres v. "Keypress", eller hvad??

Er der nogen der ved hvordan man gør det hvis vi nu bare benævner de
4 textfelter text1, text2, text3 og resultat

Anyone?

M.


 
 
Reidar Kind (07-05-2005)
Kommentar
Fra : Reidar Kind


Dato : 07-05-05 15:38


"Mox" <mholck@tele2adsl.dk> wrote in message
news:1115473867.612928.64130@o13g2000cwo.googlegroups.com...
Hej !

Jeg forsøger at tælle antallet af anslag i 3 textfelter, men Len(),
og bruge det samlede resultat til at vise hvor mange karakterer man har
tilbage ( i et seperat textfelt, skal bruges i en SMS løsning), men
det virker sq ikke.
Jeg er ikke sikker på hvor jeg skal placere beregningen, men mener den
skal aktiveres v. "Keypress", eller hvad??

Legg den i KeyUp;

1) Legg inn fire tekstbokser og kall dem Text1, Text2, Text3 og Resultat.

2) Legg inn denne koden:
Dim maksantall As Integer
Private Sub Form_Load()
maksantall = 128
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Resultat = maksantall - Len(Text1.Text) - Len(Text2.Text) - Len(Text3.Text)
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
Resultat = maksantall - Len(Text1.Text) - Len(Text2.Text) - Len(Text3.Text)
End Sub
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
Resultat = maksantall - Len(Text1.Text) - Len(Text2.Text) - Len(Text3.Text)
End Sub

Var det dette du ville?

-Reidar



Reidar Kind (07-05-2005)
Kommentar
Fra : Reidar Kind


Dato : 07-05-05 18:55


"Reidar Kind" <reidar@kind.no> wrote in message
news:np4fe.202$9J.32777@juliett.dax.net...
>
> "Mox" <mholck@tele2adsl.dk> wrote in message
> news:1115473867.612928.64130@o13g2000cwo.googlegroups.com...
> Hej !
>
> Jeg forsøger at tælle antallet af anslag i 3 textfelter, men Len(),
> og bruge det samlede resultat til at vise hvor mange karakterer man har
> tilbage ( i et seperat textfelt, skal bruges i en SMS løsning), men
> det virker sq ikke.
> Jeg er ikke sikker på hvor jeg skal placere beregningen, men mener den
> skal aktiveres v. "Keypress", eller hvad??
>
> Legg den i KeyUp;
>
Bruk Change-eventen du, så fanger du opp endringer i textboksen som også
blir gjort av annet enn tastaturet. Ellers kan du bruke samme kode som jeg
sendte..

-reidar



Jens Vestergaard (07-05-2005)
Kommentar
Fra : Jens Vestergaard


Dato : 07-05-05 15:41

I news:1115473867.612928.64130@o13g2000cwo.googlegroups.com,
skrev Mox <mholck@tele2adsl.dk>:
> Hej !
>
> Jeg forsøger at tælle antallet af anslag i 3 textfelter, men Len(),
> og bruge det samlede resultat til at vise hvor mange karakterer man
> har tilbage ( i et seperat textfelt, skal bruges i en SMS løsning),
> men det virker sq ikke.

Det kan gøres mere elegant (="rigtigt"), men dette eksempel er nok mest
illustrativt:

Dim iTegnTilbage As Integer
Sub Text1_Change()
iTegnTilbage = 160 - Len(Text1)
Text2 = iTegnTilbage
End Sub

hvilket svarer til:
Text2 = 160 - Len(Text1)

Jeg forstår ikke helt, hvad du vil med *3* textboxe, men hvis du fanger
princippet i ovenstående, så finder du nok selv ud af det...

--
mvh
Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
Døgnets jernbanenyheder: www.railsoft.dk/medier.asp





15kw (07-05-2005)
Kommentar
Fra : 15kw


Dato : 07-05-05 15:39

>"Mox" <mholck@tele2adsl.dk> skrev i
>news:1115473867.612928.64130@o13g2000cwo.googlegroups.com
>Hej !
>
>Jeg forsøger at tælle antallet af anslag i 3 textfelter, men Len(),
>og bruge det samlede resultat til at vise hvor mange karakterer man har
>tilbage ( i et seperat textfelt, skal bruges i en SMS løsning), men
>det virker sq ikke.
>Jeg er ikke sikker på hvor jeg skal placere beregningen, men mener den
>skal aktiveres v. "Keypress", eller hvad??


Brug change

Private Sub Text1_Change() 'INDEHOLDER SMS TEXT.
Text2 = Len(Text1) 'INDEHOLDER ANTAL BRUGE KAREKTERE.
Text3 = 128 - Len(Text1) 'INDEHOLDER ENTAL UBRUGTE KAREKTERE.
End Sub


--
Hilsen
Peter N Petersen
http://peteropfinder.dk Privat
http://www.peteropfinder.dk Firma




Harald Staff (07-05-2005)
Kommentar
Fra : Harald Staff


Dato : 07-05-05 19:30

Så er vi en masse mennesker som forsøker å gjette hva du egentlig forsøker å
oppnå, hva et anslag er og hva godt det skulle kunne gjøre for verden. Min
teori er å telle antall tastetrykk, uavhengig av resultat:

Private Sub Text1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
Static Anslag As Long
Anslag = Anslag + 1
Text2.Text = Anslag
End Sub

.... men det ville vært ennu bedre om du gad å forklare.

HTH. Beste hilsen Harald

"Mox" <mholck@tele2adsl.dk> skrev i melding
news:1115473867.612928.64130@o13g2000cwo.googlegroups.com...
Hej !

Jeg forsøger at tælle antallet af anslag i 3 textfelter, men Len(),
og bruge det samlede resultat til at vise hvor mange karakterer man har
tilbage ( i et seperat textfelt, skal bruges i en SMS løsning), men
det virker sq ikke.
Jeg er ikke sikker på hvor jeg skal placere beregningen, men mener den
skal aktiveres v. "Keypress", eller hvad??

Er der nogen der ved hvordan man gør det hvis vi nu bare benævner de
4 textfelter text1, text2, text3 og resultat

Anyone?

M.



Mox (07-05-2005)
Kommentar
Fra : Mox


Dato : 07-05-05 21:55

Hej Reidar !

Jeg ville bare lige igen sige tak for det kanon flotte, præcise svar,
GULD...det var PRÆCIST hvad jeg var ude efter!


M.


Mox (07-05-2005)
Kommentar
Fra : Mox


Dato : 07-05-05 21:46

Hej Drenge !

1000 TAK for de meget fine og meget brugbare indlæg, det skal helt
sikkert vise sig meget brugbart, når jeg ser på det imorgen...!!!
Jeg skal holde jer orienteret om projektet

Reidar jeg tror bestemt det du sendte kan bruges, tak for det.

He he...hallo Harald !

Jo, jeg skal forklare !

Jeg er ved at lave et SMS system der skal bruges i kombination med en
director baseret storskærmsløsning.

Jeg samler de forskellige textfelters indhold i EN textstreng der så
SMSés til modtagen, problemet er at den textstreng der skal SMSés er
begrænset til 128 karakterer og når brugeren taster ind i de
forskellige textfelter vil jeg gerne have at de kan se hvor mange
anslag de har tilbage, uanset at de taster i forskellige textbokse.
Altså en funktion der opsamler det antal anslag der samlet er gjort og
trækker dem fra 128 og dette resultat vises så separat....det er da
ret enkelt ikk´??

M.


Harald Staff (08-05-2005)
Kommentar
Fra : Harald Staff


Dato : 08-05-05 12:57

Strålende. Da er nok Reidars løsning utmerket.
Jeg trodde også at SMS'ser var begrenset til 160 tegn, men jeg har ikke
programmert denslags siden SMS var gratis via internett. Så gammel kan man
altså bli dersom man legger vekk sigarettene

Beste hilsen Harald

"Mox" <mholck@tele2adsl.dk> skrev i melding
news:1115498755.376361.29570@f14g2000cwb.googlegroups.com...

Jeg samler de forskellige textfelters indhold i EN textstreng der så
SMSés til modtagen, problemet er at den textstreng der skal SMSés er
begrænset til 128 karakterer



Mox (07-05-2005)
Kommentar
Fra : Mox


Dato : 07-05-05 22:22

Hej Reidar !

FYI !
Jeg kunne ikke rigtigt få din def og anvendelse af "maksantall"
variablen til at virke, i min app, men jeg løste det simpelthen ved
at indsætte tallet 128..det virkede.

M.


Mox (08-05-2005)
Kommentar
Fra : Mox


Dato : 08-05-05 19:58

Ja, jeg lagde cigaretterne i ´89, det er nok derfor jeg stadig er her


Reidars løsning fungerer perfekt ( dog ikke hans anvendelse af
"maxantall" men det var nemt at komme omkring.
Du har ret mht. de 160 tegn, men der er også variablenavne og "&" tegn
der skal sendes, så vi havner på 128 tegn til indhold.

1000 tak til jer alle for hjælpen, nu kan jeg opdatere tips i 9
kiosker via SMS, cool ikke ?

M.


Søg
Reklame
Statistik
Spørgsmål : 177549
Tips : 31968
Nyheder : 719565
Indlæg : 6408818
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste