jeg holder på med et lite prosjekt, som har i oppgave å hente data fra en xml fil som blir generert av nowplaying-pluginen til winamp.
programmet mitt skal hente ut artist og sangnavn fra xml-fila, lage en checksum, og bygge en string, som så sendes ut via seriaporten, og inn i et LED-skilt fra ClasOhlson.
http://www.f-secure.com/linux-weblog...he-linux-team/
problemet mitt er at jeg ikke får checksumen helt til.
http://www.diskusjon.no/index.php?showtopic=999446
dette er koden jeg har kommet frem til så langt:
edit: bare spør og grav hvis det er noe informasjon som mangler
programmet mitt skal hente ut artist og sangnavn fra xml-fila, lage en checksum, og bygge en string, som så sendes ut via seriaporten, og inn i et LED-skilt fra ClasOhlson.
http://www.f-secure.com/linux-weblog...he-linux-team/
problemet mitt er at jeg ikke får checksumen helt til.
Sitat av trtrtr@diskusjon.no
det loopes over hvert tegn i inputstring og gjøres en xor på ascii verdi til hver av disse mot "checksum", en tallverderdi som endres underveis.
Vis hele sitatet...
dette er koden jeg har kommet frem til så langt:
Kode
Public Class Form1 Dim page As Long Dim str As String Dim checksum As Long Dim chk As String Dim ledcode As String Dim counter As Long Dim character As String Dim lengde As Long Private Sub calculate_checksum() Handles Button2.Click str = TextBox1.Text checksum = 74 counter = 0 lengde = str.Length For Me.counter = 0 To lengde Step 1 character = str.Substring(counter) chk = Asc(character) checksum = checksum Xor chk Next Label1.Text = checksum counter = 0 End Sub
edit: bare spør og grav hvis det er noe informasjon som mangler
Sist endret av VivaLatrina; 14. september 2008 kl. 20:07.