Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Binär Umwandlung
Autor: Marcel Steiner
Datum: 22.01.10 01:16
Dim sText As String Private Sub Command1_Click() sText = Text1.Text sText = Replace(sText, "A", "01000001|") sText = Replace(sText, "a", "01100001|") sText = Replace(sText, "B", "01000010|") sText = Replace(sText, "b", "01100010|") sText = Replace(sText, "C", "01000011|") sText = Replace(sText, "c", "01100011|") sText = Replace(sText, "D", "01000100|") sText = Replace(sText, "d", "01100100|") sText = Replace(sText, "E", "01000101|") sText = Replace(sText, "e", "01100101|") sText = Replace(sText, "F", "01000110|") sText = Replace(sText, "f", "01100110|") sText = Replace(sText, "G", "01000111|") sText = Replace(sText, "g", "01100111|") sText = Replace(sText, "H", "01001000|") sText = Replace(sText, "h", "01101000|") sText = Replace(sText, "I", "01001001|") sText = Replace(sText, "i", "01101001|") sText = Replace(sText, "J", "01001010|") sText = Replace(sText, "j", "01101010|") sText = Replace(sText, "K", "01001011|") sText = Replace(sText, "k", "01101011|") sText = Replace(sText, "L", "01001100|") sText = Replace(sText, "l", "01101100|") sText = Replace(sText, "M", "01001101|") sText = Replace(sText, "m", "01101101|") sText = Replace(sText, "N", "01001110|") sText = Replace(sText, "n", "01101110|") sText = Replace(sText, "O", "01001111|") sText = Replace(sText, "o", "01101111|") sText = Replace(sText, "P", "01010000|") sText = Replace(sText, "p", "01110000|") sText = Replace(sText, "Q", "01010001|") sText = Replace(sText, "q", "01110001|") sText = Replace(sText, "R", "01010010|") sText = Replace(sText, "r", "01110010|") sText = Replace(sText, "S", "01010011|") sText = Replace(sText, "s", "01110011|") sText = Replace(sText, "T", "01010100|") sText = Replace(sText, "t", "01110100|") sText = Replace(sText, "U", "01010101|") sText = Replace(sText, "u", "01110101|") sText = Replace(sText, "V", "01010110|") sText = Replace(sText, "v", "01110110|") sText = Replace(sText, "W", "01010111|") sText = Replace(sText, "w", "01110111|") sText = Replace(sText, "X", "01011000|") sText = Replace(sText, "x", "01111000|") sText = Replace(sText, "Y", "01011001|") sText = Replace(sText, "y", "01111001|") sText = Replace(sText, "Z", "01011010|") sText = Replace(sText, "z", "01111010|") sText = Replace(sText, " ", "00100000|") Text1.Text = sText End Sub   Diese Methode ist zwar etwas länger aber dafür sehr übersichtlich und anpassbar. Trotzdem Danke

Binär Umwandlung	3.421	Marcel Steiner	21.01.10 21:49
Re: Binär Umwandlung	2.522	Zardoz	21.01.10 22:28
Re: Binär Umwandlung	2.576	Marcel Steiner	21.01.10 22:53
Re: Binär Umwandlung	2.561	Zardoz	21.01.10 23:07
Re: Binär Umwandlung	2.494	Marcel Steiner	21.01.10 23:16
Re: Binär Umwandlung	2.736	Marcel Steiner	21.01.10 23:20
Re: Binär Umwandlung	2.491	Zardoz	21.01.10 23:31
Re: Binär Umwandlung	2.491	Marcel Steiner	21.01.10 23:43
Re: Binär Umwandlung	2.509	Zardoz	22.01.10 00:00
Re: Binär Umwandlung	2.539	Marcel Steiner	22.01.10 01:16
Re: Binär Umwandlung	2.476	Danzi	22.01.10 10:19
Re: Binär Umwandlung	2.834	OGGI	22.01.10 11:13
Re: Binär Umwandlung	2.508	Marcel Steiner	22.01.10 13:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen