Point til mansoor

Jeg vil da også gerne have den! LåL!

ehm .. nå !

Kan du bruge dette?


Private Sub cmdKryptering_Click()
  Dim l As Integer
  Dim i As Integer
  Dim BogstavVaerdi As Integer
  Dim TempStr As String
  Dim KrypteringStr As String
  l = Len(txtOrginal.Text)
  For i = 1 To l
    TempStr = Mid(txtOrginal, i, 1)
    BogstavVaerdi = Asc(TempStr)
    BogstavVaerdi = BogstavVaerdi + Val(txtFaktor.Text)
    KrypteringStr = Chr(BogstavVaerdi)
    txtKryptering.Text = txtKryptering.Text + KrypteringStr
  Next i
End Sub

TD, jeg har ikke noget imod og synge, men min kone tager altid ørepropper på når jeg begynder :-)

mansoor:> du skal bare lave et svar (bare skriv \"svar\") ... du skulle jo have haft pointene i det andet spm.

Svar

mansoor:> husk nu det var imens du stod på tungen ! :-)

ehm .. mansoor .. tryk på \"Svar\" ude til venstre for skrivefeltet .. og skrive et svar

OK

*dygtig dreng*

Private Sub cmdKryptering_Click()
  Dim l As Integer
  Dim i As Integer
  Dim BogstavVaerdi As Integer
  Dim TempStr As String
  Dim KrypteringStr As String
  l = Len(txtOrginal.Text)
  For i = 1 To l
    TempStr = Mid(txtOrginal, i, 1)
    BogstavVaerdi = Asc(TempStr)
    BogstavVaerdi = BogstavVaerdi + Val(txtFaktor.Text)
    KrypteringStr = Chr(BogstavVaerdi)
    txtKryptering.Text = txtKryptering.Text + KrypteringStr
  Next i
End Sub

Tak TD - godnat - tales ved en anden dag :-)