[VB6] Typen als op telefoon: hoe? *

[Verwijderd]

ik wil in visualbasic het zenden van sms berichtjes nabootsen
maar daarvoor moet je soms traag of snel op 1 knop drukken om een bepaalde letter eruit te krijgen. dat kan ik niet coden dus dacht ik aan een "next letter" knop
je moet dus eerst bv op "1" klikken en dan een aantal keren op next letter om te switchen tussen de letters "spatie, 1, €, £, $" die zogenaamd "achter" de 1 zitten. kun je me wat helpen met de code daarvoor pls.

[THIJZEL]

maak een verisble die telt en een array, zet die chareacters in die array en hoog dan steeds die var op.. en lees dus met die var de array steeds uit.

* THIJZEL kan nie echt vb, met delp[hi is het iig easy

[Verwijderd]

hmmm
ik ben wel wat beschaamd om het te vragen
maar ik heb me al rot gezocht en kheb dit stukje code echt dringend nodig

wil iemand dit stukje code voor me schrijven aub
i beg u all

[Netman768]

FF wachten, ben bezig.

[Verwijderd]

nou voorruit dan maar om je op weg te helpen, want je moet het uiteindelijk zelf doen!

code:

Dim sA(4) As String
Dim nA as Integer

sA(0) = "A"
sA(1) = "b"
sA(i) = etc.

private sub Command1_Click()
  nA = nA + 1 
  if nA > UBound(sA) Then nA = 0

  Text1.Text = sA(nA)
end sub

Dit is zeer ranzige code, en niet getest, maar mischien kan je er iets mee

[edit]
Netman867: ik was je lekker voor

ArDvArK: Kijk eens op www.pscode.com (zie sig.) daar kan je veel informatie vinden! Verder zou een boek ook geen kwaad kunnen

[Gerco]

Men neme 1 timer met een timeout van 3 seconden, indien er op een knop gedrukt wordt, reset je de timer en hoog je een teller op naar het volgende character.

Wanneer de timer afgaat, maak je het huidige character "definitief" idem voor een andere knop als de "huidige"

En klaar.

[Verwijderd]

kun je die code es tonen aub gerko

[Netman768]

Wat dacht je van:

code:

Option Explicit
dim LetterCijfer as String

Privat sub cmdKnop1_click
LetterCijfer = "A"
End Sub

Privat sub cmdVolgende_Click

if LetterCijfer = "A" then
     LetterCijfer = " "
else
     if lettercijfer = " " then
        LetterCijfer = "&"
     else
        if LetterCijfer = "&" then
           LetterCijfer = "A"
        end if
     end if
end if

End Sub

Als je nog ff wat langer hebt zal ik zelf een voorbeeldje schrijven.

[Gerco]

Op donderdag 07 februari 2002 19:13 schreef ArDvArK het volgende:
kun je die code es tonen aub gerko

Nee, want dat verzin ik net ter plekke. En Gerco is met een C.

[Verwijderd]

dank je netman
ik zal de code es proberen

[Netman768]

ok dit werkt, uit de code kan je wel halen wat je moet plaatsen, ofniet? Timer juiste interval geven (wat jij fijn vind) en klaar is kees.

code:

Option Explicit
Dim LetterTeken As String

Private Sub Command1_Click()

Timer1.Enabled = False
Timer1.Enabled = True ' reset de timer

If LetterTeken = "" Then
    LetterTeken = "A" 'als er niets in letterteken staat
Else
    If LetterTeken = "A" Then ' als letterteken A is
      LetterTeken = "B"
    Else
      If LetterTeken = "B" Then ' als letterteken B is
        LetterTeken = "C"
      Else
        If LetterTeken = "C" Then
            LetterTeken = "A" ' opnieuw beginnen na 3x geklikt
        Else
            LetterTeken = "A" ' als letterteken niet van die knop is
        End If
      End If
    End If
End If



End Sub

Private Sub Form_Load()

LetterTeken = ""

End Sub

Private Sub Timer1_Timer()

txtDisplay.Text = txtDisplay.Text + LetterTeken
LetterTeken = ""

End Sub

Dit is dus alleen met de eerste knop. Is verder makkelijk uit te breiden. ICQ maar als je meer wil en trek je niks aan van een grijs icoontje op GoT, die werkt niet.

[Gerco]

Dat ziet er leuk uit, maar lijkt me niet zo heel handig als je veel characters "achter" 1 button wilt zetten. Dan krijg je wel HEEEEL VEEEEEEL ElseIf'jes.

Bovendien is het niet erg uitbreidbaar. Gebruik een array ofzo om alles op te slaan, zoiets:

code:

Dim asLetters(0 to 25) as String
asLetters(0)=" .,!?"
asLetters(1)="abc"
... and so on.

[Netman768]

Op donderdag 07 februari 2002 19:40 schreef Gerco het volgende:
Dat ziet er leuk uit, maar lijkt me niet zo heel handig als je veel characters "achter" 1 button wilt zetten. Dan krijg je wel HEEEEL VEEEEEEL ElseIf'jes.

Jah, maar dat is voor een newbie nogal onbegrijpelijk. Dit kandie zelf ook nog namaken. Maar je hebt gelijk. De code is niet echt overzichtelijk. Wel makkelijk.

[mbravenboer]

Even wat topic titel duidelijker gemaakt. Newbie vragen zijn hier niet zeldzaam, dus dat is niet zo interessant als topic titel .

[Verwijderd]

dank jullie allemaal
in case you ar interested
achter iedere knop zitten er 7 tekens

zeg een van die tekens meot een spatie zijn. hoe schrijf je dat dan keyascii32 ofzo?

[Verwijderd]

Oke.... misschien wel aardig om dit te programmeren, maar natuurlijk totaal niet gebruiksvriendelijk voor de gebruiker.

[Verwijderd]

Op vrijdag 08 februari 2002 00:20 schreef ArDvArK het volgende:
zeg een van die tekens meot een spatie zijn. hoe schrijf je dat dan keyascii32 ofzo?

wat dacht je van " ":? Anders moet je Asc(32) gebruiken, maar da's geen spatie!

[Korben]

Op vrijdag 08 februari 2002 08:57 schreef KoenM het volgende:

[..]

wat dacht je van " ":? Anders moet je Asc(32) gebruiken, maar da's geen spatie!

Asc(32) = "51". Wat je bedoelt is Chr(32), en da's wél een spatie. Maar goed, gewoon " " is idd makkelijker.

[Verwijderd]

Op donderdag 07 februari 2002 19:45 schreef Netman867 het volgende:

[..]

Jah, maar dat is voor een newbie nogal onbegrijpelijk. Dit kandie zelf ook nog namaken. Maar je hebt gelijk. De code is niet echt overzichtelijk. Wel makkelijk.

Tsja, maar als een newbie moeilijke (nou ja...) code wil gaan schrijven zal hij zich wat meer moeten gaan verdiepen. En als dat het leren van array's inhoudt, dan moet dat maar. Het is sowieso handig om daar mee te kunnen werken.

[ACM]

Ergens in de FAQ wordt gesteld dat we wel wat inspanning van de topicstarter zelf verwachten.

Dat houdt dus oa in dat je niet vragen stelt als "Kan je dat voor mij maken?" etc.

Volgende keer dus zelf wat meer eraan doen.