Dezimal in Hexadizimal umrechnen für I2C UHR DS1307

[Mistery386]

Ich möchte in Bascom die daten der TWI UHR DS1307 von Dezimal in Hexadezimal umrechnen.
Es existiert auch bereits ein programm, nur das ist sicherlich auch einfacher zu lösen mit zb nem "sub" oder so.
Momentan werden alle daten einzeln umgewandelt.
Habe auch bereits mehrere versuche gemacht aber außer der aktuellen version läuft einfach nix.


$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600

Declare Sub I2cfach()
Dim Uhrsec As Byte
Dim Uhrmin As Byte
Dim Uhrstu As Byte
Dim Wotag As Byte
Dim Tag As Byte
Dim Monat As Byte
Dim Jahr As Byte

Dim Erg1 As Byte ' Stunden zuweißen
Dim Erg1a As Byte
Dim Erg2 As Byte
Dim Erg2a As Byte
Dim Rst1 As Byte
Dim Rst2 As Byte

Dim Erg3 As Byte ' Minuten zuweißen
Dim Erg3a As Byte
Dim Erg4 As Byte
Dim Erg4a As Byte
Dim Rst3 As Byte
Dim Rst4 As Byte

Dim Erg5 As Byte ' Secunden zuweißen
Dim Erg5a As Byte
Dim Erg6 As Byte
Dim Erg6a As Byte
Dim Rst5 As Byte
Dim Rst6 As Byte

Dim Erg7 As Byte ' Wochentag zuweißen
Dim Erg7a As Byte
Dim Erg8 As Byte
Dim Erg8a As Byte
Dim Rst7 As Byte
Dim Rst8 As Byte

Dim Erg9 As Byte ' Tag zuweißen
Dim Erg9a As Byte
Dim Erg10 As Byte
Dim Erg10a As Byte
Dim Rst9 As Byte
Dim Rst10 As Byte

Dim Erg11 As Byte ' Monat zuweißen
Dim Erg11a As Byte
Dim Erg12 As Byte
Dim Erg12a As Byte
Dim Rst11 As Byte
Dim Rst12 As Byte

Dim Erg13 As Byte ' Jahr zuweißen
Dim Erg13a As Byte
Dim Erg14 As Byte
Dim Erg14a As Byte
Dim Rst13 As Byte
Dim Rst14 As Byte

Config Sda = Portc.4
Config Scl = Portc.5
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Deflcdchar 0 , 28 , 20 , 28 , 32 , 32 , 32 , 32 , 32

Cls
Cursor Off
I2cinit
Do
I2cfach

Locate 1 , 1
Lcd Rst2 ; Rst1 ; ":"
Locate 1 , 4
Lcd Rst4 ; Rst3 ; ":"
Locate 1 , 7
Lcd Rst6 ; Rst5 ; " "
Locate 2 , 1
If Rst7 = 1 Then
Lcd "Mo"
End If
If Rst7 = 2 Then
Lcd "Di"
End If
If Rst7 = 3 Then
Lcd "Mi"
End If
If Rst7 = 4 Then
Lcd "Do"
End If
If Rst7 = 5 Then
Lcd "Fr"
End If
If Rst7 = 6 Then
Lcd "Sa"
End If
If Rst7 = 7 Then
Lcd "So"
End If
Lcd " "
Locate 2 , 3
Lcd "," ; Rst10 ; Rst9 ; "."
Locate 2 , 7
Lcd Rst12 ; Rst11 ; "."
Locate 2 , 10
Lcd "20" ; Rst14 ; Rst13 ; " "

Waitms 150
Loop

Sub I2cfach()

I2cstart
I2cwbyte &B11010000 ' <-- Schreibe Adresse des DS1307 (UHR)
I2cwbyte &B00000000 ' <-- Ab Anfang lesen
I2cstart
I2cwbyte &B11010001 ' <-- Lese Adresse des DS1307 (UHR)
I2crbyte Uhrsec , Ack
I2crbyte Uhrmin , Ack
I2crbyte Uhrstu , Ack
I2crbyte Wotag , Ack
I2crbyte Tag , Ack
I2crbyte Monat , Ack
I2crbyte Jahr , Nack
I2cstop

Erg1 = Uhrstu / 16 ' Stunden umwnadeln
Erg1a = Erg1 * 16
Rst1 = Uhrstu - Erg1a
Erg2 = Erg1 / 16
Erg2a = Erg2 * 16
Rst2 = Erg1 - Erg2a

Erg3 = Uhrmin / 16 ' Minuten umwnadeln
Erg3a = Erg3 * 16
Rst3 = Uhrmin - Erg3a
Erg4 = Erg3 / 16
Erg4a = Erg4 * 16
Rst4 = Erg3 - Erg4a

Erg5 = Uhrsec / 16 ' Secunden umwnadeln
Erg5a = Erg5 * 16
Rst5 = Uhrsec - Erg5a
Erg6 = Erg5 / 16
Erg6a = Erg6 * 16
Rst6 = Erg5 - Erg6a

Erg7 = Wotag / 16 ' Wochentag umwnadeln
Erg7a = Erg7 * 16
Rst7 = Wotag - Erg7a
Erg8 = Erg7 / 16
Erg8a = Erg8 * 16
Rst8 = Erg7 - Erg8a

Erg9 = Tag / 16 ' Tag umwnadeln
Erg9a = Erg8 * 16
Rst9 = Tag - Erg9a
Erg10 = Erg8 / 16
Erg10a = Erg10 * 16
Rst10 = Erg9 - Erg10a

Erg11 = Monat / 16 ' Monat umwnadeln
Erg11a = Erg11 * 16
Rst11 = Monat - Erg11a
Erg12 = Erg11 / 16
Erg12a = Erg12 * 16
Rst12 = Erg11 - Erg12a

Erg13 = Jahr / 16 ' Jahr umwnadeln
Erg13a = Erg13 * 16
Rst13 = Jahr - Erg13a
Erg14 = Erg13 / 16
Erg14a = Erg14 * 16
Rst14 = Erg13 - Erg14a

End Sub


Schonmal danke im vorraus

[darwin.nuernberg]

Soooooo einfach ? :


Dim X As Byte
X = &B10101010

Print "Dezimal : ";
Print X
Print "Hexadezimal : ";
Print Hex(x)
Print "Binaer : ";
Print Bin(x)
end

Dezimal : 170
Hexadezimal : AA
Binaer : 10101010

Natürlich gehen auch andere Variablen (int, long usw)

Klar daß Bin und Hex als String zu behandeln sind.

[Vitis]

also du möchtest die dezimalzahlen als hexzahlen auf das
Display schreiben? dann nimm doch einfach die Funktion
hex(). Das geht dann so:

String=hex(dezimalzahl)

[Mistery386]

Wow, vielen dank für die flotten antworten.
Das es so extrem einfach zu machen ist hätte ich jetzt nicht gedacht.
Dafür ist mir mal wieder aufgefallen das ich noch viel zu lernen habe ;)
Danke!

[darwin.nuernberg]

Ja es gibt auch viel in der Hilfe und in den Beispiel-CodeSamples.
Außerdem hat MCSELEC auch noch ein gutes Forum (leider nur engl.)

Da findet man auch viel, wenn man richtig sucht.