Avatar billede henrik13 Nybegynder
13. oktober 2003 - 20:22 Der er 13 kommentarer og
1 løsning

Beregn tekstbox til tekstbox i vba

Beregn tekstbox til tekstbox i vba.
Helst danske svar. Min tekstbox10 med et navn i, evt. med punktum i. Skal jeg havde beregnet til et 6 cifret tal. Resten skal smides væk. Er der ikke 6 cifre til rådighed, så en msgbox med teksten, Ikke sifre nok. Resultated skal stå i tekstbox18. Der må ikke være forskel på store og små bogstaver En db kan sendes. Jeg ser helst de bliver beregnet, efter metoden:
1 = CQ eller punktum
åØå2 = ABD
3 = EFG
4 = HIK
5 = LMN
6 = OPR
7 = STU
8 = VXY
9 = JWZ
0 = ÆØÅ
På forhånd tak
Henrik13
Avatar billede kabbak Professor
14. oktober 2003 - 00:01 #1
Private Sub BT_Oversæt_Click()
TextBox18 = ""
A = Len(TextBox10)
If A < 6 Then
MsgBox " ikke nok bogstaver"
End If
For i = 1 To A
b = Mid(TextBox10, i, 1)
  C = UCase(b)
Select Case C
Case "C", "Q", "."
TextBox18 = TextBox18 & 1
Case "A", "B", "D"
TextBox18 = TextBox18 & 2
Case "E", "F", "G"
TextBox18 = TextBox18 & 3
Case "H", "I", "K"
TextBox18 = TextBox18 & 4
Case "L", "M", "N"
TextBox18 = TextBox18 & 5
Case "O", "P", "R"
TextBox18 = TextBox18 & 6
Case "S", "T", "U"
TextBox18 = TextBox18 & 7
Case "V", "X", "Y"
TextBox18 = TextBox18 & 8
Case "J", "W", "Z"
TextBox18 = TextBox18 & 9
Case "Æ", "Ø", "Å"
TextBox18 = TextBox18 & 0
End Select
If Len(TextBox18) = 6 Then Exit Sub

Next
If Len(TextBox18) < 6 Then
TextBox18 = " ikke tegn nok"
end if
End Sub

Hvis der er mellemrum eller andre tegn læser den det næste tegn
Avatar billede henrik13 Nybegynder
14. oktober 2003 - 00:04 #2
Jeg prøver det med det samme. Tak for svar. ;o))
Avatar billede kabbak Professor
14. oktober 2003 - 00:08 #3
lige en tilføjelse til toppen

Private Sub BT_Oversæt_Click()
TextBox18 = ""
A = Len(TextBox10)
If A < 6 Then
MsgBox " ikke nok bogstaver"
exit sub ' ny linie
End If
Avatar billede henrik13 Nybegynder
14. oktober 2003 - 01:48 #4
Hej kabbak.
Jeg får fejl i linje 6. men ingen fejlkode. Den hopper ikke til næste linje, og udløser MsgBox  nr 7

MsgBox " Fortsætter nr 6"
For i = 1 To A
MsgBox " Fortsætter nr 7"

Mvh Henrik13
Avatar billede kabbak Professor
14. oktober 2003 - 08:39 #5
Det er vel ikke en fejl, nederst står der =
If Len(TextBox18) = 6 Then Exit Sub
det betyder at når der er 6 cifre i tallet, slutter den.
Avatar billede henrik13 Nybegynder
14. oktober 2003 - 08:42 #6
Ja. men der kommer ikke et eneste tal frem i min tekstbox.
Avatar billede kabbak Professor
14. oktober 2003 - 08:43 #7
er du sikker på at din tekstbox hedder TextBox18
Avatar billede henrik13 Nybegynder
14. oktober 2003 - 08:45 #8
Ja, Min TextBox hedder TextBox18.
Avatar billede kabbak Professor
14. oktober 2003 - 08:45 #9
sover du aldrig ?
Avatar billede kabbak Professor
14. oktober 2003 - 08:49 #10
prøv at sætte denne linie ind

MsgBox " (TextBox18) = " & TextBox18 
lige over
If Len(TextBox18) = 6 Then Exit Sub

for at se om der ikke kommer noget
Avatar billede henrik13 Nybegynder
14. oktober 2003 - 08:50 #11
Jo da, men når noget drikker kan jeg sidde op hele natten. Jeg arbejder mig videre gennem koden, for denne sætning hjalp mig med < den måtte jeg udskifte med >. vender tilbage senere.
Avatar billede henrik13 Nybegynder
14. oktober 2003 - 16:42 #12
Rettelse:
drikker = driller
Jeg har nu fået den til at kører i løkken. men til 8:49:30 får jeg meddelsen:
(TextBox18) =
D.v.s. jeg har ingen data.
Avatar billede kabbak Professor
14. oktober 2003 - 16:52 #13
prøv lige at skrive koden herind, og eller send arket til mig.

kabbak@tiscali.dk
Avatar billede henrik13 Nybegynder
14. oktober 2003 - 18:35 #14
Tak for koden, den kører perfekt.  ;o))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester