WAWKOM

Flasha bym zaktualizował. Sam w Operze miewam problemy z YT, ale tu rozwiązanie jest prostsze, choć upierdliwe: wszystko elegancko śmiga w trybie prywatnym.

Moje pytanie dotyczy Visual Basic. Jak przypisać wartość zmiennej poza procedurą/funkcją?
Po deklaracji zmiennych, a przed jakimikolwiek funkcjami, procedurami wpisałem przykładowo A=5, ale uruchamiając program, VBA wywala błąd "Invalid outside procedure". Głowię się już nad tym kilka godzin i nie mogę nic wymyślić.

Z tego, co widzę w sieci, tosienieda. A po co Ci tak akurat? Weź albo stałą, albo wrzuć do modułu... http://stackoverflow.com/questions/6714 ... -procedure

Łukasz pisze:Z tego, co widzę w sieci, tosienieda. A po co Ci tak akurat? Weź albo stałą, albo wrzuć do modułu... http://stackoverflow.com/questions/6714 ... -procedure

To niedobrze, że się nie da. Ogólnie potrzebuję mieć początkową wartość zmiennej n ustawioną jako 1 do poniższego programu:

Kod: Zaznacz cały

Private n As Integer
Private i As Integer
Private Tablica() As Integer
Private liczba As Integer

n = 1

Private Sub CommandButton1_Click()
liczba = 0
Tablica(n) = 1
For i = n To 1 Step -1
liczba = (10 ^ (i - 1)) * Tablica(i) + liczba
Next i
Label1.Caption = liczba
n = n + 1
End Sub

Niestety n=1 nie mogę wsadzić w procedurę kliknięcia guzika, ponieważ za każdym wywołaniem procedury na początku miałbym n=1, a ja chcę za każdym kliknięciem mieć n większe o 1 poczynając od 1 za pierwszym kliknięciem.
Ogólnie powyższy program ma za zadanie wyświetlać w okienku label: 1, 11, 111, 1111 itp. w zależności od ilości kliknięć w guzik. Potrzebuję mieć zmienną n na zewnątrz procedury, ponieważ zamierzam jeszcze zamieścić 9 pozostałych procedur kliknięcia w guzik żeby mieć coś w postaci kalkulatora czyli klikam w guzik 1 oraz guzik 9 i wyświetla mi 19. Klikam dwa razy w guzik 1 i raz w guzik 8 i mi wyświetla 118.

bepe,

wyczysc foldery Cache i Temp, mozliwe że ci sie przytakł bufor plików tymczasowych.

Udało się!

Wystarczyło n wrzucić w procedurę UserForm_Initialize().

Program działa tak jak chciałem. Kod poniżej.

Kod: Zaznacz cały

Private n As Integer
Private i As Integer
Private Tablica() As Integer
Private liczba As Integer



Private Sub UserForm_Initialize()
n = 1
End Sub

Private Sub CommandButton1_Click()
liczba = 0
ReDim Preserve Tablica(n)
Tablica(n) = 1
For i = n To 1 Step -1
liczba = (10 ^ (i - 1)) * Tablica(n-i+1) + liczba
Next i
Label1.Caption = liczba
n = n + 1
End Sub

Maciek pisze:Potrzebuję mieć zmienną n na zewnątrz procedury, ponieważ zamierzam jeszcze zamieścić 9 pozostałych procedur kliknięcia w guzik żeby mieć coś w postaci kalkulatora czyli klikam w guzik 1 oraz guzik 9 i wyświetla mi 19. Klikam dwa razy w guzik 1 i raz w guzik 8 i mi wyświetla 118.

Ło Panie, nie tędy droga... ZAWSZE powinna Ci się zapalić lampka awaryjna w momencie kiedy zaczynasz mówić, że potrzebujesz ileś procedur na zrobienie tego samego... Ja bym na Twoim miejscu postarał się zrobić tak (zaznaczam, że ostatnio siedzę raczej w C++, ale z VBA miałem trochę do czynienia... W Accessie zwłaszcza):

Kod: Zaznacz cały

sub DopiszCyfre (intCyfra As Integer)
    Dim intLiczba As Integer
    ''''''Tutaj trzeba wklepać pobranie już wpisanej liczby. Jeśli wciśnięto 1, 1, 8 to pobrane zostanie 118
    intLiczba = intLiczba * 10 + intCyfra
    '''''''Tutaj trzeba wklepać wysłanie nowej liczby do wyświetlenia
End Sub

Taką procedurę trzeba teraz podpiąć pod każdy przycisk z odpowiednim argumentem. Gdyby nie dało się pod przycisk podpiąć procedury z argumentem, to powyższa procedurę zapisujesz w module, a pod każdy przycisk podpinasz taka procedurę:

Kod: Zaznacz cały

sub Przycisk0 () 'Procedura dla przycisku 0
    DopiszCyfre(0)
End Sub

Złota zasada programowania: jeśli jakiś kod można powtórzyć, to należy tego nie robić

czy da się uruchomić internet w dwukartowym smartfonie z drugiej karty Aero2

Za wszelkie informacje z góry dziękuję.

Zależy od smartfona i jego wewnętrznych ograniczeń.

Od jakiegoś czasu korystam z forum na Nokii 2710 przy użyciu Opery Mini. Problem mam taki, że jak kliknę w temat z nieprzeczytanymi postami, to otwiera mi się właściwa strona, ale nie zrzuca mi widoku do pierwszego nieprzeczytanego postu, tylko zostawia na górze. It's a bug or it's a feature? Na mariginesie dodam, że kliknięcie w tytuł tematu na stronie głównej bez problemów otwiera właściwą stronę z widokiem na właściwy post.

Mam sobie tabelę aka bazę danych. Mam na jej podstawie stworzyć tekst z informacjami z tej bazy. Dla każdego rekordu ma być ten sam tekst, to samo formatowanie, tylko liczby się zmieniają (lub ich wręcz nie ma). Jak się to robiło, bo coś mi się kołacze w głowie, że coś takiego robiłem w gimnazjum, dwa office'y temu?

W czym jest ta tabela? Access? Excel? Generalnie zacząłbym pracę od Worda i polecenia korespondencji seryjnej w nim... Powinien Ci wypluć w jakim formacie ma być tabela z danymi.

hafilip84 pisze:W czym jest ta tabela? Access? Excel? Generalnie zacząłbym pracę od Worda i polecenia korespondencji seryjnej w nim... Powinien Ci wypluć w jakim formacie ma być tabela z danymi.

Dzięki. O to chodziło. Excela łyka, choć, nie powiem, obsługa wyboru zakresu danych jest tragiczna. Najprościej wydzielić taką tabelę do osobnego arkusza.

kulikowski pisze:czy da się uruchomić internet w dwukartowym smartfonie z drugiej karty Aero2 Za wszelkie informacje z góry dziękuję.

Powinno się udać, jeśli jest obsługa HSDPA.

Zagadka matematyczno-komputerowa - komputerowa, bo z pewnością da się rozwiązać za pomocą komputera:

Mam zbiór kilkunastu liczb oraz dwie liczby (X i Y), które po dodaniu do siebie będą stanowić sumę tych kilkunastu. Chcę ustalić, które z tych kilkunastu składają się na X, a które na Y. Da się coś z tym zrobić?

WAWKOM

Kącik porad komputerowych