Sjovt lille program..

Lille fejl, undskyld, når man trykker på command1 skriver programmet dit navn, med et mellemrum mellem fornavn og efternavn. Det er der programmet skal skrive "næsestørrelsen"..

du har for meget fritid!

<ole>

- måske ... men han bruger den nu alligevel mere konstruktivt end visse andre  ;D
    http://www.eksperten.dk/spm/707357

/mvh
</bole>

HAHA!!

Ikke nogen ide'er til et svar?

tjahhh ... det kunne jo veære noget à la:

Option Explicit

Private Const STR_ALPHA = "abcdefghijklmnopqrstuvwxyzæøå"

Private Sub Command1_Click()
    Dim str As String
    Dim txt As String
    Dim lengthA As Integer
    Dim lengthB As Integer
    Dim tmp As Integer
    Dim total As Integer
    Dim I As Integer
   
    txt = LCase(Text1.Text)
    lengthA = Len(txt)
    For I = 1 To lengthA
        tmp = tmp + InStr(STR_ALPHA, Mid(txt, I, 1))
    Next I
   
    txt = LCase(Text2.Text)
    lengthB = Len(txt)
    For I = 1 To lengthB
        tmp = tmp + InStr(STR_ALPHA, Mid(txt, I, 1))
    Next I
    If (tmp <= 0) Then
        total = total + 0
    Else
        total = tmp / (lengthA + lengthB)
    End If
    If (total > 25) Then total = 25
    Text3.Text = Round(total)
End Sub

Okay, mange tak.

Kikker lige på det!

Når man skriver sit navn kommer denne fejl op:

Compile error:

Sub or function not defined

Når man så trykker OK, kommer man ned til e´t sted i formlen som hedder:

Text3.Text = Round(total)

Kan du rette det??

Har fundet ud af det, man sletter bare "round"..

Mange tak..!

Lav lige et "svar"

Du skal ikke slette 'Round'. Den giver ikke fejl.
Hvad du har gjort for at få koden til at give fejl, ved jeg ikke - men den, jeg har skrevet, fejler ikke  :)

Jeg kan ikke snuppe jer! I skulle skamme jer! HELE BANDEN!

Jo det virker uden ROUND..
Hehe..

Ligemeget..

Det vigtigste er at det virker.. Men kan vi lave lidt om på det.. Hvis man for eks skriver ØØØØØØØØØØØØØØØØØØØØØØØ i fornavn, og ÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅÅ i efternavn, er det 25 cm..

Det tager altså efter noget med alfabetet..

??

Hvis du med min kode kan generere en fejl ved linjen 'Text3.Text = Round(total)', laver du andre fejl. Den _kan_ ikke fejle  :)

Ja, det er bogstaverne, der bestemmer tallet ... der er vel ikke så meget andet end alfabetet at tage udgangspunkt i  ;o)

Nej måske ikke.. Hehe..

Den laver altså en fejl ved det der round!

Underligt...!

Aahhhh .... 'Round' kom vist først med i VB6 - og mon så ikke du bruger VB5?  ;o)

Ja jeg skulle mene jeg bruger VB5,hvad kan man så gøre istedet for?