Kyseessä oli siis seuraavanlainen tehtävä (osana projektityötä):
"Asiakastunnus muodostuu 6 numerosta + tarkistusmerkistä. Tarkistusmerkki määräytyy siten, että varsinainen asiakasnumero muunnetaan heksadesimaaliluvuksi, ja tarkistusmerkki on saadun heksaluvun viimeinen merkki (numero tai kirjain)."
Olen tyhmänä yrittänyt ratkaista tätä jo jonkin aikaa, ja saanut aikaiseksi seuraavanlaista viritystä:
Imports System.Math
Public Class Kirjautuminen
Dim Luku As Integer
Dim Tunnus As String
Dim Heksa As String
Dim Tunniste As String
Private Sub btnLopetus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLopetus.Click
End
End Sub
Private Sub btnUusi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUusi.Click
Luku = InputBox("Hei! Tervetuloa asiakkaaksemme. Ole hyvä ja anna 6-numeroinen tunnusluku")
Heksa = Hex(Luku)
Tunniste = Right(Heksa, 1)
Tunnus = Luku & Tunniste
txtTunnus.Text = Tunnus
MsgBox("Uusi tunnus on luotu! Nyt voit kirjautua uudella tunnuksellasi")
End Sub
End ClassHerja tulee kuitenkin kohdassa Right(Heksa, 1)...mikähän tässä nyt mättää..
Auttakaa viisaat poloista..Kiitos!
Kokeile kirjoittaa Strings.Right(Heksa, 1) eikä Right(Heksa, 1).
pelittää. Kiitos kaunis!
Aihe on jo aika vanha, joten et voi enää vastata siihen.