• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

question-closed Zamiana na kod ASCII

VPS Starter Arubacloud
0 głosów
653 wizyt
pytanie zadane 22 listopada 2018 w Visual Basic przez Szonek69 Nowicjusz (170 p.)
zamknięte 23 listopada 2018 przez Szonek69

Napisz program wyświetlający na ekranie tablice kodów ASCII

Mam cos takiego ale nie działa

Private Sub CommandButton1_Click()

licznik = 20
For licznik = 20 To 127 Step 1
TextBox1.Text = TextBox1.Text + Str(licznik) + vbNewLine
Next licznik

TextBox2.Text = Asc(TextBox1.Value) + vbNewLine




End Sub

 

komentarz zamknięcia: Rozwiązane

1 odpowiedź

+1 głos
odpowiedź 22 listopada 2018 przez Chess Szeryf (76,710 p.)
wybrane 23 listopada 2018 przez Szonek69
 
Najlepsza
Sub vq()

    For counter = 0 To Application.Selection.Count Step 1
    
        If Not IsEmpty(Application.Selection(counter)) Then
            Application.Selection(counter) = Asc(Application.Selection(counter))
        End If
        
    Next counter
    
End Sub

Jeśli coś byłoby nie tak, to zmień counter = 0 na counter = 1. Żeby zobaczyć rezultat, to musisz wpisać parę znaków w odpowiednie pola w Excel'u, obojętnie w jakie pola, zaznaczyć i uruchomić macro. Odtąd zostaną zamienione wszystkie zaznaczone znaki z zapisu standardowego na zapis w kodowaniu ASCII.

Sub vq2()
    
    For counter = 0 To 127 Step 1
    
        Application.Range("A" & counter + 1) = Chr(counter)
    
    Next counter
    
End Sub

Podobne pytania

0 głosów
0 odpowiedzi 704 wizyt
pytanie zadane 16 listopada 2019 w C i C++ przez Hubertius Bywalec (2,970 p.)
0 głosów
2 odpowiedzi 3,709 wizyt
pytanie zadane 29 października 2018 w C i C++ przez donekdzwonek Początkujący (420 p.)
+2 głosów
0 odpowiedzi 609 wizyt
pytanie zadane 27 lutego 2019 w Nasze projekty przez Eminiox Obywatel (1,500 p.)

92,453 zapytań

141,262 odpowiedzi

319,088 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...