joel3214
Software-Overclocker(in)
Hi
Ich frage mich gerade was man unter Nachprüfende Schleifen und Numerische Schleifen verstehen soll und wie Beispiele dazu aussehen könnten.
Finde darüber nichts im Internet liegt wohl daran das es nicht die passenden Begriffe für sind?
Außerdem komme ich nicht dahinter welche Funktionen und Auswirkungen Prozeduren haben.
Wer nett wenn mir da wer weiterhelfen könnte
Mfg
p.s: ja es ist eine Aufgabe für de uni und ja ich habe schon fast alles selber gemacht aber hier komme ich nicht weiter
Zu Prozeduren habe ich doch was finden können
zum Code das ist die Aufgabe dazu was haltet ihr davon ?
Erstellen Sie in der Programmiersprache VBA eine Funktion zur Umwandlung einer
Zeichenkette, bestehend aus Binärziffern, in eine Zeichenkette, bestehend aus
hexadezimalen Ziffern. Diese Funktion erhält die Zeichenkette mit den Binärziffern als
Argument, wobei diese eine maximale Länge von 64 Zeichen besitzt. Das Ergebnis soll in
Form einer „MessageBox“ angezeigt werden.Benutzen Sie ausschließlich die in Aufgabe 2
genannten Begriffe und Kontrollstrukturen.
Ich frage mich gerade was man unter Nachprüfende Schleifen und Numerische Schleifen verstehen soll und wie Beispiele dazu aussehen könnten.
Finde darüber nichts im Internet liegt wohl daran das es nicht die passenden Begriffe für sind?
Außerdem komme ich nicht dahinter welche Funktionen und Auswirkungen Prozeduren haben.
Wer nett wenn mir da wer weiterhelfen könnte
Mfg
p.s: ja es ist eine Aufgabe für de uni und ja ich habe schon fast alles selber gemacht aber hier komme ich nicht weiter
Zu Prozeduren habe ich doch was finden können
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Funktion wird jedesmal aufgerufen,wenn'
Dim strBinary, strTmp, strHex As String
Dim iIndex As Integer
strBinary = Target.Value
For iIndex = 1 To 61 Step 4
strTmp = Mid(strBinary, iIndex, 4)
If strTmp = "0000" Then
strHex = strHex + "0"
ElseIf strTmp = "0001" Then
strHex = strHex + "1"
ElseIf strTmp = "0010" Then
strHex = strHex + "2"
ElseIf strTmp = "0011" Then
strHex = strHex + "3"
ElseIf strTmp = "0100" Then
strHex = strHex + "4"
ElseIf strTmp = "0101" Then
strHex = strHex + "5"
ElseIf strTmp = "0110" Then
strHex = strHex + "6"
ElseIf strTmp = "0111" Then
strHex = strHex + "7"
ElseIf strTmp = "1000" Then
strHex = strHex + "8"
ElseIf strTmp = "1001" Then
strHex = strHex + "9"
ElseIf strTmp = "1010" Then
strHex = strHex + "A"
ElseIf strTmp = "1011" Then
strHex = strHex + "B"
ElseIf strTmp = "1100" Then
strHex = strHex + "C"
ElseIf strTmp = "1101" Then
strHex = strHex + "D"
ElseIf strTmp = "1110" Then
strHex = strHex + "E"
ElseIf strTmp = "1111" Then
strHex = strHex + "F"
End If
Next iIndex
MsgBox (strHex)
End Sub
Erstellen Sie in der Programmiersprache VBA eine Funktion zur Umwandlung einer
Zeichenkette, bestehend aus Binärziffern, in eine Zeichenkette, bestehend aus
hexadezimalen Ziffern. Diese Funktion erhält die Zeichenkette mit den Binärziffern als
Argument, wobei diese eine maximale Länge von 64 Zeichen besitzt. Das Ergebnis soll in
Form einer „MessageBox“ angezeigt werden.Benutzen Sie ausschließlich die in Aufgabe 2
genannten Begriffe und Kontrollstrukturen.
Zuletzt bearbeitet: