integer string

Znaleziono około 2516 wyników dla: integer string
  • Jak zamienić liczbę integer na string w PHP? Szukam funkcji lub metody

    PHP automatycznie dokonuje konwersji integer na string, jeśli tego wymaga operacja. Ostatecznie zawsze można zrobić konatencję z pustym ciągiem lub rzutować na string. Pierwsza strona na googlach przy zapytaniu "php rzutowanie": [url=http://wortal.php.pl/wortal/artykul... i rzutowanie...

    Programowanie Początkujący   30 Gru 2008 21:33 Odpowiedzi: 3    Wyświetleń: 17616
  • Delphi – jak sprawdzić i zmienić atrybut tylko do odczytu pliku?

    function FileGetAttr(const FileName: string): Integer; function FileSetAttr(const FileName: string; Attr: Integer): Integer;

    Programowanie   09 Maj 2005 09:43 Odpowiedzi: 1    Wyświetleń: 735
  • REKLAMA
  • Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

    Czekaj (1min)...
  • Konwersja string na integer w Bascom dla DS18B20 - jak zaokrąglić?

    Hej! Zobaczcie jak ja to robię, może komuś sie to przyda: 'Powiedzmy ze zmienna Liczba(single) wynosi 22.62555426 Temp = Int(liczba) ' dzieki temu poleceniu odcinam czesc setna czyli ' zmiennej Temp(byte) przypisuje liczbę 22 Liczba = Frac(liczba) ' dzieki temu poleceniu odcinam czesc ' dziesiętną czyli zmiennej Liczba(single) przypisuje ' liczbe 0.62555426...

    Mikrokontrolery   04 Sty 2007 13:45 Odpowiedzi: 16    Wyświetleń: 8231
  • Jak stworzyć tabelę z boolean, integer, string w LabVIEW?

    Witam, mam problem ze stworzeniem tabeli, w której zawarte byłby różne typy danych(konkretnie boolean, integer, string). Byłbym wdzięczny, gdyby ktoś wyjaśnił, podpowiedział jak stworzyć tabele z różnymi typami danych Z góry dziękuje za pomoc

    Początkujący Naprawy   07 Mar 2019 22:06 Odpowiedzi: 1    Wyświetleń: 624
  • REKLAMA
  • VBA Excel, funkcja wstaw tekst jeżeli spełnia się warunek

    [syntax=vbscript]Function WlasnafunkcjaWstawBranze(D As Integer, E As Integer) As String If D = 1 And E = 1 Then WlasnafunkcjaWstawBranze = D & "," & E End Function[/syntax]

    Programowanie Początkujący   25 Sty 2023 12:26 Odpowiedzi: 14    Wyświetleń: 822
  • REKLAMA
  • [Delphi] - Podliczanie danych ze StringGrida do Edita

    Pokazuje się błąd, że: Incompatible types 'string' and 'integer' Edit1.Text:=Inttostr(Edit1.Text+1) można tak Edit1.Text:=Edit1.Text+'1'; albo tak Edit1.Text:=Edit1.Text+Inttostr(1);

    Programowanie Początkujący   12 Sie 2012 18:27 Odpowiedzi: 3    Wyświetleń: 1149
  • Jak znaleźć wspólne sekwencje znaków w Excelu między komórkami?

    [syntax=vbscript]Function CzescWspolna(Pierwszy As String, Drugi As String, Dlugosc As Integer) As String For x = 1 To Len(Pierwszy) a = Mid(Pierwszy, x, Dlugosc) If Len(a) = Dlugosc And InStr(1, Drugi, a) > 0 Then CzescWspolna = a Exit For End If Next End Function [/syntax]

    Obsługa oprogramowania   19 Maj 2020 08:23 Odpowiedzi: 6    Wyświetleń: 765
  • [bascom AVR] Jak zamienić string 922 na integer w Bascom AVR?

    Użyj funkcji VAL. var = VAL( s). s to string, a var to liczba.

    Mikrokontrolery AVR   03 Mar 2012 12:45 Odpowiedzi: 3    Wyświetleń: 3631
  • Excel - Stworzenie złożonej funkcji, która przyjmie jeden z 4 argumentów

    O wiele prościej i elastyczniej masz tu: [syntax=vb]Function Zlozonosc(Wartosc As Integer) As String Wartosc = Int(Wartosc) Select Case Wartosc Case 0 Zlozonosc = "niemożliwe" Case 1 To 2 Zlozonosc = "niska" Case 3 To 4 Zlozonosc = "średnia" Case 5 To 6 Zlozonosc = "wysoka" Case Else Zlozonosc = "brak" End Select End Function Function Zakres(Wartosc...

    Programowanie   11 Kwi 2013 07:12 Odpowiedzi: 11    Wyświetleń: 2559
  • Jak policzyć ilość liczb w komórce Excel?

    Ile cyfr, czy ile liczb? W temacie podajesz cyfry, w treści liczby. Jeżeli liczby, to: [syntax=vbscript]Function IleLiczb(Komorka As String) As Integer IleLiczb = UBound(Split(Komorka, ",")) + 1 End Function [/syntax] Jeżeli cyfry, to: [syntax=vbscript]Function IleCyfr(Komorka As String) As Integer i = Len(Komorka) For x = 1 To i a = Asc(Mid(Komorka,...

    Software serwis   09 Paź 2018 14:36 Odpowiedzi: 1    Wyświetleń: 2127
  • REKLAMA
  • Delphi - pokrycie procedury Add w obrębie obiektu TCheckListBox

    No właśnie helper służy do takich rzeczy, jak m.in. nadpisywanie (override) metod. Przykładowo umieszczasz w swoim unicie: [syntax=Delphi]type THStrings = class helper for TStrings function Add(s: String): Integer; end; ... fucntion THStrings.Add(S: String): Integer; begin lblMoj.Caption := 'A teraz dodałem: ' + S; Result := inherited Add(S); // tu...

    Programowanie Początkujący   09 Lis 2018 20:12 Odpowiedzi: 6    Wyświetleń: 582
  • EXCEL - Wyszukiwanie w dniach zakresów ... zbyt duzo argumentów "wybierz&qu

    Zaproponuję taką funkcję: [syntax=vb]Function SzukajPracownika(Dzien As Integer, Zmiana As String) As Integer Sheets("Dane").Select ostw = Cells(Rows.Count, "A").End(xlUp).Row For x = 4 To ostw If Cells(x, Dzien + 2) = Zmiana Then SzukajPracownika = x Exit Function End If x = x + 1 Next End Function[/syntax] Zastosowanie: =SzukajPracownika(17;"108b")...

    Software serwis   26 Maj 2013 18:37 Odpowiedzi: 7    Wyświetleń: 1464
  • Java - konwersja int na String do wyświetlenia metodą drawString

    toString public String toString()Returns a String object representing this Integer's value. The value is converted to signed decimal representation and returned as a string, exactly as if the integer value were given as an argument to the toString(int) method. Overrides: toString in class Object Returns: a string representation of the value of this...

    Programowanie   27 Maj 2006 16:14 Odpowiedzi: 2    Wyświetleń: 13935
  • Delphi/Programik - Pomysł na kod, cokolwiek co mnie naprowadzi

    Proszę bardzo : [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type zapytanie = packed record pytanie : string; odpowiedz : string; end; const Ile_pytan = 3; tablica_pytan : array[1..Ile_pytan] of zapytanie = ( (pytanie : 'ile to jest 2 * 2? '; Odpowiedz :'4'), (pytanie : 'ile zostanie, jeeli odejmiesz 5 od 7? '; Odpowiedz :'2'),...

    Programowanie   17 Gru 2012 15:11 Odpowiedzi: 18    Wyświetleń: 1641
  • Jak przekonwertować binarną wartość na szesnastkową w Delphi 6?

    Witam, myślę że te funkcje Ci się przydadzą: function BinStrToInt(BinStr : string) : integer; var counter : integer; begin if length(BinStr)>16 then raise ERangeError.Create(#13+BinStr+#13+ 'nie mieści się w zakresie 16 bit.'+#13); Result:=0; for counter:=1 to length(BinStr) do if BinStr[Counter]='1'...

    Programowanie   05 Sty 2008 20:25 Odpowiedzi: 3    Wyświetleń: 2236
  • Excel VBA - jak ustawić uniwersalny format daty dla różnych lokalizacji?

    [syntax=vbnet]Function WiekSlownie(Wiek As Integer) As String Select Case Wiek Case 1 w = "rok" Case 2 To 4 w = "lata" Case 5 To 21 w = "lat" Case Is > 21 j = Right(Wiek, 1) If j = 2 Or j = 3 Or j = 4 Then w = "lata" Else w = "lat" End If End Select WiekSlownie = w End Function [/syntax] P.S. To ma być po czesku?;)

    Software serwis   07 Wrz 2015 15:42 Odpowiedzi: 42    Wyświetleń: 2862
  • Jak tworzyć funkcje w Bascomie i zwracać wartości?

    ' Funkcja musi być zadeklarowana przed jej pierwszym użyciem ' ponieważ kompilator musi wiedzieć jaki jest rozmiar danych ' przesyłanych do funkcji i jaki jest jej typ wyniku ' Funkcja musi mieć zdefiniowany typ wyniku, tu Integer Declare Function Test(byval Liczba As Integer , Tekst As String) As Integer ' określenie byval przed nazwą oznacza,...

    Początkujący Elektronicy   03 Mar 2009 20:27 Odpowiedzi: 2    Wyświetleń: 807
  • Arduino - Jak zamienić String TP i CWU na int dla alarmu temperatury?

    Musisz od początku opisać problem. 1. Pokaż schemat. 2. O jakim nadajniku Waść prawisz? 3. Co to za czujnik? 4. W jaki sposób czytasz dane z tego nadajnika? (Chaciałeś zmienić string na integer, a się okazuje, że masz zupełnie inny problem). Ale po kolei, najpierw odpowiedz na pytania.

    Arduino   14 Mar 2016 21:13 Odpowiedzi: 14    Wyświetleń: 4830
  • Delphi - funkcja Pos: wyświetlanie 9 znaków po znalezionym stringu

    Tak na szybko : [syntax=delphi] function te9znakow(s1,s2 : string):string; var Polozenie : integer; begin Polozenie:=Pos(s1,s2); if polozenie>=0 then result:=copy(s2,Polozenie+length(s1),9); end;[/syntax]

    Programowanie   21 Lip 2016 15:28 Odpowiedzi: 2    Wyświetleń: 1386
  • [Delphi] Usuwanie pionowych kresek z danych odbieranych przez Comport

    A nacisnąć F1 i zerknąć do pomocy to nie łaska? procedure Delete(var S: String; Index: Integer; Count: Integer); Description Removes a substring from a string. In Delphi code, Delete removes a substring of Count characters from string S starting with S

    Programowanie   14 Paź 2012 15:18 Odpowiedzi: 6    Wyświetleń: 1302
  • Atmega8 - Jak zamienić String na integer?

    Przepraszam. Bascom avr

    Mikrokontrolery   29 Lut 2016 21:24 Odpowiedzi: 7    Wyświetleń: 846
  • EXCEL 2007 - Jak sprawdzić obecność słowa w komórce z wieloma słowami?

    Wklej tę funkcję do modułu VBA. [syntax=vb] Function PozycjaSlowa(Slowo As String, Tekst As String) As Integer PozycjaSlowa = InStr(1, Tekst, Slowo) End Function [/syntax] Użyj jej w ten sposób: =PozycjaSlowa("AAA";A1)

    Software serwis   22 Lut 2013 10:48 Odpowiedzi: 15    Wyświetleń: 5181
  • Ekstrakcja dat z tekstu w VBA - jak użyć znaków zapytania?

    Np wykorzystując wyrażenie regularne: [syntax=vbscript]Sub DataKropki() Dim objRegEx As Object, objWynik As Object, tekst As String, i As Integer, strWynik As String Set objRegEx = CreateObject("VBScript.RegExp") tekst = "asd.010.324.XX/FV; tar BBB EEE WW/WY - KZ 11.11.1111; (12.12.1212) " objRegEx.Global = True objRegEx.IgnoreCase = True objRegEx.Pattern...

    Programowanie Początkujący   08 Lis 2018 10:51 Odpowiedzi: 2    Wyświetleń: 369
  • Excel – wielopoziomowe numerowanie np. 1, 1.1, 1.2; 2, 2.1, 2.2

    Prostym makrem można tak (wklej w kod arkusza i uruchom; zapisze w kol.A) [syntax=vbscript]Sub numerowanie() Dim w As Integer, test As String Dim licznik1 As Integer, licznik2 As Integer, licznik3 As Integer w = 3 Do While Cells(w, 5) <> "" If Cells(w, 4) = "__Element" Then licznik1 = licznik1 + 1 licznik2 = 0 licznik3 = 0 ElseIf Cells(w, 4) =...

    Programowanie Początkujący   04 Paź 2018 19:56 Odpowiedzi: 9    Wyświetleń: 10377
  • [Delphi] Procedura zmieniania właściwości komponentów

    Może coś w ten deseń? Aczkolwiek odradzam. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9:...

    Programowanie   12 Maj 2010 20:30 Odpowiedzi: 8    Wyświetleń: 1648
  • Konwersja liczb hex na dziesiętne i odwrotnie w Delphi

    Unit SysUtils function IntToHex(Value: Integer; Digits: Integer): string; W drugą stronę nie ma gotowej, ale można pokombinować np. z StrToInt.

    Programowanie   27 Kwi 2005 16:52 Odpowiedzi: 5    Wyświetleń: 1662
  • Jak usunąć wiele kolumn po nazwach nagłówków w VBA?

    do nowo utworzonego pliku

    Programowanie   02 Mar 2024 19:19 Odpowiedzi: 18    Wyświetleń: 633
  • Visual Basic - Program na dodawanie liczb w text boxach.

    Problem jest banalny: [syntax=vbnet]Public Class Form1 Dim liczba As Integer Dim aStr As String = String.Empty Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click liczba = Convert.ToInt32(TextBox1.Text) + Convert.ToInt32(TextBox2.Text) aStr = System.Convert.ToString(liczba) TextBox3.Text = aStr...

    Programowanie Początkujący   07 Kwi 2013 14:55 Odpowiedzi: 3    Wyświetleń: 4566
  • Jak przekonwertować Integer i Boolean na String w Delphi?

    Jak zmienić Integer, boolean na String ??????? Delphi

    Programowanie   23 Mar 2005 14:08 Odpowiedzi: 4    Wyświetleń: 2786
  • Delphi 2010 - Wyjaśnienie pewnych linijek w programie

    "wynik:= prostokat.tworz(StrToInt(Edit1.Text),Str... Ta linia tworzy klasę 'prostokat' pobierając dane z pól edycyjnych Edit1 i Edit2, zamieniając je z string na integer i zapisuje wskaźnik do utworzonej klasy w zmiennej 'wynik'.

    Programowanie Początkujący   20 Sty 2016 19:36 Odpowiedzi: 20    Wyświetleń: 987
  • Pascal+zamiana licz dziesietnych na liczby o podstawie 3

    Zamiana integer na łańcuch trójkowy: function ITo3(i : integer) : string; var St : string; begin St:=''; repeat St:=char((i mod 3)+$30)+St; i:=i div 3; until (i=0); ITo3:=St; end; i do dowolnej podstawy np. szesnastkowej: Const XDigits : string = '0123456789ABCDEF'; //itd.......... function...

    Programowanie   14 Maj 2007 15:31 Odpowiedzi: 2    Wyświetleń: 1674
  • [RS232] Jak napisać program do przechwytywania danych przez RS232?

    W buforze wszystkie dane z RSa są z enterem i końcem linii. może nie być początku informacji ale zakończenie zawsze jest Tę kwestię możesz pominąć jest marginalna i nie powinna mieć kluczowego znaczenia dla poprawności odczytu danych jeśli 13 nie wystąpi to po 4096 zerowanie: Dim znak As Integer Dim ciąg As String Dim licznik As Integer licznik = 0...

    Programowanie   24 Sty 2019 14:07 Odpowiedzi: 10    Wyświetleń: 1971
  • program pisany w Turbo Pasca - jak odpalić w Delphi ??

    Zmodyfikowałem odrobinę twój program, dział na 100% z Delphi 2009/2010. Zmieniłem procedurę odczytu plików, w formacie czytelnym dla człowieka :) Kolejne liczby zapisujesz po przecinkach. Twój plik źródłowy może teraz wyglądać np. tak : 1,2,3,4,5 7,8,9,10,234 65,58,29,352,45 -6,78,0,34,53 365,22,8,-3,2 program Project6; {$APPTYPE CONSOLE}...

    Programowanie   21 Sty 2010 14:31 Odpowiedzi: 6    Wyświetleń: 3072
  • Excel - Jak ukryć wiersze 60-70, gdy pierwsza komórka ma wartość 0?

    Może coś takiego: [syntax=vb] Sub ukryjWiersze() Dim i As Integer Dim selRange As String For i = 60 To 70 selRange = "A" & i If range(selRange).Value = 0 Then range(selRange).Select Selection.EntireRow.Hidden = True End If Next i End Sub [/syntax]

    Software serwis   23 Kwi 2015 10:54 Odpowiedzi: 2    Wyświetleń: 1308
  • Turbo Pascal. Program szyfrujący. Wykorzystanie szyfru Cezara.

    litery inne niż małe: możesz zrobić tak: program test; uses crt; procedure test_znak; var ch : char; begin repeat writeln('Podaj znak do zakodowania: '); ch := readkey; until (ord(ch) >= ord('a')) and (ord(ch) <= ord('z')); writeln('Podales: ',ch); end; procedure test_liczba;...

    Programowanie   06 Cze 2006 15:08 Odpowiedzi: 22    Wyświetleń: 10337
  • DS18B20 - kalibracja i wyświetlanie temperatury z dokładnością do 0,1°C

    A może tak: Dim Temp As Integer Dim Disp As String * 5 Temp = 366 'odczytana wartość temperatury Disp = Str(Temp) Disp = Format(Disp , " 0.0") Locate 1 , 1 Lcd Disp Pozdrawiam...

    Mikrokontrolery   02 Wrz 2005 10:32 Odpowiedzi: 14    Wyświetleń: 3491
  • DELPHI 7 - Czy idzie przesuwać rekordy w Strumieniach?

    Można i tak. Z tym, że operujesz na rekordzie, więc tracisz wszystkie właściwości klasy TObject. Równocześnie, nikt nie operuje na obiektach, używając do tego TCheckBoxList, bo wspomniany komponent nie ma po prostu do tego narzędzi. Dodając obiekt do TCheckBoxList, możesz się do niego odwołać tylko przez jego kolejny indeks, a to trochę za mało :)....

    Programowanie   08 Gru 2010 15:58 Odpowiedzi: 28    Wyświetleń: 2527
  • Delphi - błąd kompilacji przy dzieleniu wartości w Edit4.Text

    Jako jeden z tych dwóch pozostałych na świecie programistów Delphi, dorzucę swoje dwa grosze. Błąd jaki otrzymałeś mówi dość wyraźnie: ta funkcja 'tu wstaw nazwę funkcji' nie może być wywołana z tymi parametrami. [syntax=delphi]wynik:=inttostr( (strtoint(edit1.text) - strtoint(edit3.text)) / strtoint(edit2.text) );[/syntax] W tym przypadku, próbujesz...

    Programowanie Początkujący   30 Lis 2013 13:50 Odpowiedzi: 9    Wyświetleń: 1299
  • [delphi] Jak automatycznie zapamiętać dane z editów na formie?

    To do proste: [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var I : integer; s : string; begin for i:=0 to self.ComponentCount-1 do if (self.Components[i] is TEdit) then begin s:=TEdit(self.Components[i]).name+'='+TE... //store s bla, bla bla end; end;[/syntax] Oczywiście zamiast 'self' można wstawić np. nazwę...

    Programowanie Początkujący   21 Lut 2018 10:52 Odpowiedzi: 3    Wyświetleń: 603
  • (VBA) Zaznaczenie określonej komórki wg. liczby pojedyńczej

    Proszę: [syntax=vbscript] Sub Przycisk2_Click() Dim f As Integer Dim g As String f = InputBox("Wprowadź numer (Lp):", "Wprowadź numer zlecenia:") g = InputBox("Wprowadź UWAGI:", "Wprowadź UWAGI:") Range("E" & WorksheetFunction.Match(f, Range("A:A"), 0)).Value = g End Sub [/syntax]

    Programowanie Początkujący   08 Lis 2019 18:29 Odpowiedzi: 3    Wyświetleń: 462
  • Visual BasiC for Access - import/kopiowanie określonych plików xml

    idę dobrym tropem? Jak najbardziej :idea: :) Wystarczy odchudzić ten kod, bo w nim robisz w sumie 2 operacje, wczytujesz kod do DOMObject-a w postaci tekstu który zaciągasz poprzez Line Input #intFile, strXML . Możesz od razu zrobić sprawdzanie danej gałęzi, a plik ładować do obiektu poprzez objectdom.Load(_plik_) np: [syntax=vb]Function sprawdz_xml(sciezka...

    Programowanie   14 Wrz 2015 01:04 Odpowiedzi: 37    Wyświetleń: 3624
  • [C++] Automatyczne wykrywanie i otwieranie portów COM dla RS-232 w Borland 6.0

    A pamiętałem ;) Jednak robię przez otwarcie portu - nawet nie jest bardzo wolno procedure EnumPorts( PortList: TStrings ); var MaxPorts : integer; hPort : THandle; PortNumber : integer; PortName : string; begin if PortList = nil then EXIT; case Win32PlatForm of VER_PLATFORM_WIN32_NT: MaxPorts := 256; VER_PLATFORM_WIN32_WINDOWS:...

    Programowanie   21 Wrz 2010 10:38 Odpowiedzi: 3    Wyświetleń: 2235
  • WinAPI C++: Zwiększenie interlinii w funkcji DrawText podczas drukowania

    skopiuję z Delphi funkcję opakowującą: GetTextExtentPoint32 Handle to oczywiście w WinAPI DC (bodajże ;) )

    Programowanie   05 Cze 2011 13:02 Odpowiedzi: 8    Wyświetleń: 1546
  • [Excel 2007] - makro do pobierania danych z innych plików *.xlsx

    Poprawiłem błąd... [syntax=vb]Sub ImportujPlikizWieluLokalizacji() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, x As Integer, y As Integer, NowyWiersz As Long Dim NazwaPliku As String, Zeszyt As String, i As Integer Dim ArkuszWejsciowy As String, ObszarWejsciowy As String, KolumnaGdzieWkleic As String ArkuszWejsciowy = Sheets("Parametry").Range("B1")...

    Software serwis   29 Lis 2014 17:48 Odpowiedzi: 7    Wyświetleń: 1368
  • Delphi - Jak obliczyć średnią z wartości z milisekundami w Edit?

    A jaka to jest liczba "123milisekund" ? Delphi wyrzuci wyjątek o niemożności przekonwertowania. Jeśli już chcesz tak zrobić aby w edit'cie mieć liczbę i stringa to z powrotem musisz sobie tą liczbę odzyskać. Możesz zrobić tak: 1. szukasz na którym miejscu w stringu pobranym z edita jest ' ' <-spacja, czyli np: function LastDelimiter ( const Delimiters,...

    Programowanie Początkujący   27 Sty 2011 18:12 Odpowiedzi: 7    Wyświetleń: 2327
  • Jak odczytać adres zaznaczonej komórki w Delphi StringGrid?

    Może to trochę pomoże: procedure TForm1.FillGrid; var i,j: Integer; begin StringGrid1.DefaultDrawing := False; for i := 0 to StringGrid1.RowCount -1 do for j := 0 to StringGrid1.ColCount -1 do StringGrid1.Cells[ j, i ] := Format('Współ. kom.: K: %d, W: %d', [j, i]); StringGrid1.Repaint; end; procedure...

    Programowanie   13 Maj 2008 13:29 Odpowiedzi: 11    Wyświetleń: 3285
  • Countif licz jeżeli - Kryterium tekstowe nie zliczane w funkcji countif

    Spróbuj podstawić "kryteria" jako String w cudzysłowach [syntax=vbscript]Sub ZliczNazwiska() Dim OstA As String Dim OstB As String Dim i As Integer Dim Zakres As Range Dim Kryteria As String OstA = Cells(Rows.Count, "A").End(xlUp).Row OstK = Cells(Rows.Count, "K").End(xlUp).Row For i = 2 To OstK Set Zakres = Range("K2:K" & i) Kryteria = """" & Range("K"...

    Programowanie Początkujący   14 Sty 2016 22:56 Odpowiedzi: 2    Wyświetleń: 1059
  • [atmega] Jak przekonwertować string xyyy na dwie zmienne w C?

    znam atoi() i czasem używa, ale ta funkcja działa niestety w drugą stronę (z liczby robi stringa). Tym razem potrzebuję string --> integer

    Mikrokontrolery AVR   30 Kwi 2011 19:53 Odpowiedzi: 4    Wyświetleń: 1265
  • Jak obciąć cyfry do 0.1 w Bascomie bez błędów zmiennoprzecinkowych?

    ... Może ktoś wie jak to zrobić bez sztucznego sprawdzania i dopisywania końcówek. PL Ja chyba wiem ;) 'dla Frm = 0 , kompiluje Fusing() 'dla Frm = 1 , kompiluje Format() 'teraz mozna porównać "pamięciożerność" Const Frm = 0 Dim A As Single , B As Integer , C As String * 10 A = 1.1625 B = A * 10 #if Frm C = Str(b)...

    Mikrokontrolery   15 Lut 2006 23:03 Odpowiedzi: 9    Wyświetleń: 1348
  • Wyświetlanie ilości plików w folderze w Total Commander lub Eksploratorze Windows?

    Dodano po 9 Może tak będzie wygodniej.

    Obsługa oprogramowania   12 Lut 2025 08:38 Odpowiedzi: 7    Wyświetleń: 114
  • Tworzenie pliku TXT z określoną strukturą znaków z Excela: 3 kolumny (10, 11, 12 znaków)

    Ale żeby kod był szybszy, to: Jeszcze szybszy :) [syntax=vbscript]Function Staly(Tekst As String, Dlugosc As Integer) Staly = Left(Tekst & String(Dlugosc, " "), Dlugosc) End Function[/syntax]

    Software serwis   10 Sty 2023 19:20 Odpowiedzi: 9    Wyświetleń: 285
  • Delphi 5 - Jak napisać procedurę losującą unikalne liczby jak w lotto?

    Na szybko i na kolenie to może być tak: [syntax=delphi]function Lottery(ARange, ACount : Integer) : String; var lCount : Integer; lST : TStringList; lValue : Integer; lStrValue : string; begin if ACount > ARange then raise Exception.Create('Wymagana liczba wylosowanych liczb jest większa od dopuszczonego zakresu!'); Randomize; lST := TStringList.Create;...

    Programowanie Początkujący   06 Cze 2014 15:19 Odpowiedzi: 4    Wyświetleń: 1170
  • Zadanko w Delphi. Zwracanie łańcucha znaków wspak.

    procedure TForm1.Button1Click(Sender: TObject); var ciag: string; I: integer; begin ciag := Edit1.Text; //Pobranie tekstu z pola edycyjnego Label1.caption := ''; //Czyszczenie labela For I := length(ciag) downto 1 do //Od długości tekstu w dół do 1 znaku Label1.Caption := Label1.Caption + ciag[I];...

    Programowanie   31 Mar 2006 21:11 Odpowiedzi: 3    Wyświetleń: 1011
  • Excel - sumowanie cyfr. Jak obliczyć sumę cyfr w komórce?

    To ja też się tu dotknę. Jeżeli chodzi o sumowanie cyfr w liczbie to zostaje tylko makro Myślę, że funkcja użytkownika jest wygodniejsza. Może wyglądać tak: Function CyfrySuma(Dana As String) As Integer CyfrySuma = 0 For i = 1 To Len(Dana) CyfrySuma = CyfrySuma + Val(Mid(Dana, i, 1)) Next End Function

    Software serwis   13 Gru 2010 13:56 Odpowiedzi: 10    Wyświetleń: 21631
  • ds1820+bascom+ujemna. Co należy dopisać w kodzie?

    Error 10:Wrong type(bit,byte,integer,word,or string) Linia przy której Bascom protestuje , ma za zadanie zmienić znak zmiennej T2 , na przeciwny.To co przechodzi w BascomAVR , nie działa na Bascom8051-fakt.Każdy , kto chce pisać jakiekolwiek programy na uP czy uC , nie może być z algebrą na bakier :D 2 przykłady: If T2 < 0 Then T2 = T2 * -1 lub...

    Mikrokontrolery   18 Lip 2018 21:20 Odpowiedzi: 17    Wyświetleń: 2376
  • ObjectPascal/Delphi/Lazarus - Utrata danych przy transmisji przy użyciu TComPort

    Dokładnie jak kolega wspomniał powyżej. Poza tym, dodam tylko od siebie, że trochę kolega autor tematu namieszał z różnymi typami danych. W zdarzeniu nadejścia znaku ASCII ( OnRxChar ) czyta kolega dane do bufora zbudowanego z tablicy byte? To "niewielka" niekonsekwencja :) Sugeruję zdecydować się na konkretny typ danych (znaki albo bufor danych) i...

    Programowanie   06 Gru 2016 17:34 Odpowiedzi: 34    Wyświetleń: 1983
  • Delphi - Jak wyciągnąć liczby o różnej długości z ciągu znaków?

    O ile znasz długości to: ahhh, bo mu chyba chodziło o co innego niż zrozumiałem. Jeśli tak, to (at)psiak ma racje, masz funkcje Copy [syntax=delphi] function Copy(S: string; Index: Integer; Count: Integer): string; Index is the first char of the substring, Count is the number of chars you want [/syntax]

    Programowanie Początkujący   16 Paź 2015 17:34 Odpowiedzi: 5    Wyświetleń: 879
  • Excel - Jak wyciągnąć dwa pierwsze wyrazy z komórki?

    Aldrin, oczywiście, że masz rację.:) No to może tak: [syntax=vb] Function PRLKtoryWyraz(Tekst As String, Ktory As Integer) As String Dim IloscWyrazow As Integer wyrazy = Split(Tekst, " ") IloscWyrazow = UBound(wyrazy) + 1 If IloscWyrazow = 0 Then PRLKtoryWyraz = "W podanym tekście brak wyrazów." Exit Function End If If Ktory > IloscWyrazow Then PRLKtoryWyraz...

    Software serwis   27 Paź 2014 12:21 Odpowiedzi: 17    Wyświetleń: 8703
  • Excel: Automatyczne numerowanie listy pracowników w kolumnie 'A' po dodaniu

    Fajne te Twoje pytania. ;) Ile sam sie przy nich uczę. ;) Znalazłem rozwiązanie na Twoje pytanie, daj mi 10 min to poskładam to czytanie i wrzucę tu. ;) [syntax=vb] Private Sub txtNazwisko_Change() Call AktualizujListe(txtNazwisko.Text, 0) End Sub Private Sub txtZnaczek_Change() Call AktualizujListe(txtZnaczek.Text, 2) End Sub Private Sub AktualizujListe(ByRef...

    Software serwis   10 Gru 2012 21:28 Odpowiedzi: 9    Wyświetleń: 2562
  • VBA Excel - Kopiowanie arkusza z kolejnym numerem w nazwie

    Witaj [syntax=vb] Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") strNazwa = "projekt" ' tutaj ustawiamy jak ma wyglądać początek nazwy arkusza intName = 0 For Each Sh In ActiveWorkbook.Worksheets shName = Sh.Name If Left(shName, Len(strNazwa))...

    Programowanie   21 Wrz 2018 13:48 Odpowiedzi: 4    Wyświetleń: 4785
  • [EXCEL][VBA] złączenie dwóch komórek (&) formułą ujęte w kodzie

    Cbrman, działa jak złoto! Lecz chciałbym się dowiedzieć (laiiiik) co to jest za rodzaj deklarowania zmiennych z %? Na czym to polega? Dziękuję za pomoc!+ EDIT: Doszedłem do tego. Integer i string :)

    Programowanie Początkujący   27 Lis 2018 12:42 Odpowiedzi: 3    Wyświetleń: 468
  • [Pascal] Jak napisać generator losowego ciągu znaków w Pascalu?

    Proponuję sprawdzić taki kod : [syntax=pascal]program generator; uses crt; function LosowaZZAkresu:char; var result : char; begin repeat result:=Chr(random(255)); until result in ['0'..'9','A'..'Z']; LosowaZZAkresu:=result; end; var s : string; i : integer; begin randomize; s:='XXXXX-XXXXX-XXXXX-XXXXX-XXXXX'; for i:=1 to Length(s) do begin if s[i]='X'...

    Programowanie   24 Mar 2011 20:26 Odpowiedzi: 24    Wyświetleń: 4819
  • DHT22 - Jak dodać obsługę ujemnych temperatur w programie? BASCOM

    Lepiej zmień deklarację T As Word na T As Integer - zmieniono zobacz czy bit całkiem po lewej to jedynka. - Jest 1 Zmieniłem na bit 16 i error w tej linijce. Dim Tempw1 As Integer Dim Tempstr As String * 20

    Mikrokontrolery   09 Paź 2024 18:33 Odpowiedzi: 14    Wyświetleń: 318
  • Optymalizacja kodu BASCOM dla DS18B20 na 90s2313 w 2 kB z wyświetlaniem LCD

    WItajcie Czy jest szansa, by w 2 kB 90s2313 zmieścić obsługę DS18B20 wraz z obliczeniami by uzyskać na LCD temperaturę z wartościami po przecinku. $regfile = "2313def.dat" $crystal = 16000000 Config 1wire = Portb.0 Dim T As Integer , Stt As String * 6 Cls Do 1wreset 1wwrite &HCC 1wwrite &H44 Waitms 800 1wreset 1wwrite &HCC 1wwrite...

    Mikrokontrolery   03 Wrz 2006 22:31 Odpowiedzi: 6    Wyświetleń: 1980
  • Jak połączyć tekst w komórkach w Excelu, by utworzyć zdanie w jednej kolumnie?

    Wczytuje dane ze wszystkich plików tekstowych znajdujących się w tym samym katalogu, co plik Excela: [syntax=vb] Sub ddd() Dim wiersz As Integer Dim wielkosc As Integer Dim lInputFile As Variant Dim linia As String Dim i As Integer Dim tekst As Variant Dim opis As String wiersz = 1 Dim plik_txt As String plik_txt = Dir(ActiveWorkbook.Path & "\*.txt")...

    Programowanie Początkujący   27 Cze 2013 16:26 Odpowiedzi: 3    Wyświetleń: 1524
  • [Excel] Jak poprawnie zliczyć wystąpienia sekwencji liczb w komórce?

    Ja bym to zrobił prostym makro: [syntax=vbnet]Function LX(co As String, gdzie As String) As Integer Dim x, c As Integer c = 0 If Len(co) > Len(gdzie) Then LX = 0 Exit Function End If For x = 1 To (Len(gdzie) - Len(co) + 1) If (Mid(gdzie, x, Len(co)) = co) Then c = c + 1 Next x LX = c End Function [/syntax] W arkuszu udostępniona jest nowa funkcja LX,...

    Obsługa oprogramowania   21 Mar 2018 23:13 Odpowiedzi: 4    Wyświetleń: 1212
  • [VBA] Excel - Makro do podziału raportu na pliki według kolumny B

    Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...

    Programowanie Początkujący   30 Lip 2014 21:25 Odpowiedzi: 2    Wyświetleń: 2337
  • Blokowanie usuwania komentarzy excel VBA

    Blokowanie uzyskasz poprzez założenie hasła. Numerowanie komentarzy poniżej. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim a As String If Not Application.Intersect(Range("A1:C10"), Range(Target.Address)) Is Nothing Then i = Environ("USERNAME") & " <" & Now & ">" & vbNewLine & Target & vbNewLine...

    Obsługa oprogramowania   05 Cze 2020 18:52 Odpowiedzi: 2    Wyświetleń: 879
  • Jak zaadaptować program z 89c2051 na Atmega8 w Bascom?

    Można zwiększyć bufor dla danych wejściowych i funkcjami Charpos , Mid pobierać dane dla silników. Charpos wyszukuje określony znak w łańcuchu i zwraca jego pozycje. Do wyszukiwania słów "silnik" można użyć funkcję InStr . Mały przykład wykorzystujący Charpos, format wprowadzanych danych p100,l99,p43;l999,l1,p4; średnik też musi być na końcu danych....

    Mikrokontrolery AVR   06 Mar 2013 22:45 Odpowiedzi: 14    Wyświetleń: 2514
  • Makro (pętla for) kopiowanie wybranych wierszy do nowego arkusza

    Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...

    Programowanie Początkujący   17 Gru 2014 09:17 Odpowiedzi: 4    Wyświetleń: 2772
  • VBA Pętla - Kopiowanie wybranych arkuszy i tworzenie z nich nowego skoroszytu

    No skoro zostałem "zobowiązany" "Pomocnym ...", to ode mnie coś takiego: [syntax=vbscript]Option Explicit Sub rozdziel_arkusze() Const gdzie As String = "C:\Users\mirek\Desktop\R3.2_05.2018\" 'Tutaj należy podać własną ścieżkę Dim i As Integer, j As Integer, ileark As Integer, nazwa As String If Dir(gdzie, vbDirectory) = "" Then MkDir gdzie Application.ScreenUpdating...

    Programowanie   14 Sty 2019 00:32 Odpowiedzi: 8    Wyświetleń: 1179
  • Jak w Delphi przekonwertować hex string na binarny string?

    nieco bardziej optymalna wersja (bez jakiegos Power()...) function Hex2Bin(const h : string) : string; const Hex : string = '0123456789ABCDEF'; var i, j, p : Integer; begin Result := ''; for i := 1 to length(h) do begin p := pos(h[i], Hex) - 1; for j := 0 to 3 do begin Result := Result + Chr(Ord('0') + ((p and 8) shr 3)); p := p shl 1; end; end; end;

    Programowanie   14 Sie 2005 23:39 Odpowiedzi: 8    Wyświetleń: 3042
  • Excel - Jak skopiować tekst z komentarza do innych komórek?

    można zrobić i funkcie któras będzie działała jak inne funkcje excela (np suma() z tym że za każdym razem przy wejściu do takiego pliku excela będzie monit o makro. Przyznam że nie jestem za dobry w makrach ale poprzez logiczne myślenie :) coś takiego stworzyłem Function KOMENTARZ(a As Integer, b As Integer) As String KOMENTARZ = Cells(a, b).Comment.Text...

    Software serwis   19 Paź 2005 21:03 Odpowiedzi: 11    Wyświetleń: 1812
  • [Visual Basic] Jak skonwertować string do integer w Visual Basic? Odpowiedniki StrToInt, IntToStr

    Jaką funkcją skonwertować zmienną typu znakowego do typu całkowitego? W C++ robi się to przez StrToInt . Jakie są w ogóle odpowiedniki funkcji: StrToInt i IntToStr FloatToStr itd. Zamykam. - arnoldziq

    Programowanie   19 Lis 2004 22:04 Odpowiedzi: 1    Wyświetleń: 2551
  • Jak rozdzielić tekst gwiazdkami w Excelu?

    Może i da się to zrobić formułą, ale ja bym to zrobił takim makro: Const Acc = "abcdefghijklmnopqrstuvwxyzABCDEFGH... W tej linijce są zdefiniowane wszystkie znaki, które są dopuszczalne. Możesz sobie dopisać jakiekolwiek inne. Jeśli znaku nie ma na tej liście, to będzie on ignorowany, czyli w tym przypadku jedynie...

    Obsługa oprogramowania   12 Wrz 2018 22:29 Odpowiedzi: 6    Wyświetleń: 738
  • [Java Script] Jak porównać liczby w JavaScript, by uwzględniać całe wartości?

    Chyba zmienne pole1 i pole2 przyjęły wartość typu string, spróbuj wcześnej skonstruować zmienne int w oparciu o wartośc string, typ Integer ma konstruktor w oparciu o zmienną typu string ale nie pamiętam czy JavaScript na pewno ma typ Integer (int ma na 100%).

    Programowanie   21 Lip 2004 13:39 Odpowiedzi: 7    Wyświetleń: 5652
  • [Visual Basic] Zamiana tekstu na liczbę i na odwrót

    Liczba na tekst: Możesz użyć funkcji Val() Tekst na liczbę Możesz użyć funkcji ToString() w ten sposób: [syntax=vb] Dim num As Integer Dim str As String num = 123456789 str = Convert.ToString(num) [/syntax] lub w ten sposób: [syntax=vb] Dim num As Integer Dim str As String num = 123456789 str = num.ToString() [/syntax]

    Programowanie   04 Lip 2011 09:29 Odpowiedzi: 3    Wyświetleń: 12585
  • Delphi - Sprawdzenie wpisanej wartości do komórki StringGrid

    no jezeli wpisujesz recznie to mozesz zareagowac w zdazeniu SetEditText. zalozmy,ze string ma 10 znakow (12°45'78'' <- na koncu 2 apostrofy) w skladni zdarzenia SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String) wartosc value to jest aktualnie wpisywany string. robisz warunek: if length(value)=10 then..... i tu reagujesz w sposob...

    Programowanie   15 Mar 2008 20:42 Odpowiedzi: 11    Wyświetleń: 4782
  • EXCEL - Jak oddzielić numer telefonu od nazwy miasta w komórce?

    I na koniec jeszcze wersja w Visual Basicu. Funkcja PLit jest wywoływana z argumentem będącym tekstem źródłowym, albo odwołaniem do komórki z tym tekstem, zwraca położenie pierwszej litery. Reszta jak poprzednio. Kod funkcji: [syntax=vb]Function PLit(s As String) As Integer Dim i As Integer For i = 1 To Len(s) If Mid(s, i, 1) >= "A" Then Exit For Next...

    Software serwis   29 Wrz 2013 00:07 Odpowiedzi: 6    Wyświetleń: 16044
  • pętla scalająca komórki i pozostawiająca wartość

    W kodzie masz 79, zaś w treści 77 - to poczynając, od której właściwie ma to się dziać ? Przydałby się jakiś przykład, bo nie wiadomo czy to "co 93" ma być łącznie czy rozłącznie z "komórką startową" Sprawdź, zweryfikuj, popraw, skoryguj: [syntax=vbscript]Option Explicit Sub wstaw() Dim licznik As Long 'Integer Dim ostWrs As Long 'Integer 'Dim Nazwisko...

    Programowanie Początkujący   13 Lut 2021 10:14 Odpowiedzi: 4    Wyświetleń: 231
  • [EXCEL,VBA] Jak sprawdzić status internetu w Excel VBA? Szukam konkretnego rozwiązania

    [syntax=vbscript] Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long ' Public Function IsInternetConnected() As Boolean Dim strConnType As String Dim lngReturnStatus As Long IsInternetConnected = False lngReturnStatus...

    Programowanie Początkujący   15 Lip 2015 08:03 Odpowiedzi: 6    Wyświetleń: 663
  • vba-exel przeróbka kodu-zliczanie liter w komórce

    Wstaw do modułu [syntax=vbscript]Public Function Literki(r As Range) As Integer Dim z As Range, strStr As String, i As Integer Dim licz As Integer For Each z In r strStr = strStr & z.Text Next For i = 1 To Len(strStr) If Asc(Mid(strStr, i, 1)) >= 65 And Asc(Mid(strStr, i, 1)) <= 90 Then licz = licz + 1 'jeśli również małe litery, odptaszkuj...

    Programowanie   26 Lip 2017 08:45 Odpowiedzi: 2    Wyświetleń: 1065
  • Jak dokonać zmiany danych wg drzewka?

    Zdaje się, że o coś takiego (kod wkleić do modułu) - przetestować, dostosować do własnych potrzeb. [syntax=vb]Sub bla() Dim psc As String, adr1 As String, adr2 As String Dim kom As Range, ile As Integer, msg As String psc = "100239b" 'psc = "100238b" 'psc = "elektroda" 'to w pętli po kolumnie A z Arkusz2 With Sheets("baza danych") On Error Resume Next...

    Programowanie Początkujący   26 Lut 2015 22:41 Odpowiedzi: 12    Wyświetleń: 930
  • PIC16F628A, LCD NOKIA 5110, MikroC - wyświetlanie zmiennych

    cnt to integer. Kompilator traktuje go jako adres i wyświetla w ASCII, to, co tam w pamięci jest... powinieneś najpierw zamienić ten integer na string (na np. char txt[16], funkcja Int2Str lub IntToStr lub sprintf), a potem wyświetlić te txt.

    Mikrokontrolery PIC   23 Maj 2017 09:19 Odpowiedzi: 5    Wyświetleń: 3033
  • Jak poprawnie wyświetlić liczbę float na STM32?

    Dzięki za odpowiedź. A jak to samo zrobić bez printf? Można właśnie kombinować z itoa, lecz funkcja ta nie należy do standardowej i lepiej użyć sprintf albo bezpośrednio printf. Ponadto itoa konwertuje wartośc integer do stringa umieszczając znak końca danego łacucha (NULL). Może dlatego właśnie masz tam złą wartość po przeliczeniu swoim sposobem....

    Programowanie Początkujący   13 Lut 2019 20:37 Odpowiedzi: 6    Wyświetleń: 1893
  • Tworzenie nowego wiersza przy funkcji wyszukaj pionowo

    Witam, stworzyłem prostą funkcję która znajduję wszystkie warianty w tabeli: [syntax=vbscript]Function Wyszukiwanie(wartosc As String, Zakres As Range, Kolumna As Integer) As String Dim i As Integer For i = 1 To Zakres.Rows.Count If Zakres.Cells(i, 1) = wartosc Then WyszukajWszystkie = WyszukajWszystkie & Zakres.Cells(i, NrKolumny) & ", " End If Next...

    Programowanie Początkujący   08 Sie 2019 15:22 Odpowiedzi: 6    Wyświetleń: 501
  • VBA Excel - Import plików txt do kolejnych kolumn w jednym arkuszu

    vcarter - w pierwszym poście przedstawiłeś kod, w którym wystarczy tylko zmienić wklejanie całej zawartości pliku na odczyt wiersz po wierszu i umieścić wszystko w pętli. VBA posiada wbudowane funkcje. które radzą sobie z własnymi oraz niektórymi obiektami systemowymi, w przeciwieństwie do Np Basica w Open Office, gdzie niemal wszystkie obiekty wymagają...

    Programowanie Początkujący   23 Lis 2017 09:19 Odpowiedzi: 13    Wyświetleń: 7824
  • VBA - Jak sumować wartości z różnych komórek w Excelu?

    Twoja funkcja: w kodzie dodać funkcję sumującą wartości, które zostały wyliczone na podstawie tego kodu Coś bliżej i odrobinę jaśniej ... jakby można było ...

    Obsługa oprogramowania   12 Lut 2018 11:10 Odpowiedzi: 4    Wyświetleń: 840
  • Import pliku csv do Excela - Niepoprawne numery kart bankowych

    czy da się prawidłowe numery kart wyciągnąć w excelu bez PQ? Podobny problem :cry: , ba chyba nawet gorszy bo z 26 cyfrowymi numerami kont :D rozwiązuje sobie przy imporcie do excela poprzez proste makro :spoko: [syntax=vbscript]Dim intResult As Integer Dim strPathFile As String Application.FileDialog(msoFileDialogOpen... = False intResult...

    Obsługa oprogramowania   08 Wrz 2021 18:27 Odpowiedzi: 15    Wyświetleń: 1089
  • C# - Jak sprawdzić, czy dane z TextBox są liczbą przed wysłaniem przez USB?

    Convert string to Integer

    Programowanie   14 Wrz 2013 10:27 Odpowiedzi: 3    Wyświetleń: 1740
  • Java - jak wyświetlić pełny skrót MD5 z zerami na początku?

    Zamieniasz jakaś cyfrę z integer na string, to w jaki sposób chiałes to zamienić z "0" na przodzie? MD5 ma podajże 32 znaki długości, prawda? Wypełniaj zerami z przodu ten ciąg, do osiągnięcia odpowiedniej długości.

    Programowanie   23 Sty 2014 14:49 Odpowiedzi: 1    Wyświetleń: 1044
  • [Visual Basic] Błąd 400 przy kliknięciu Anuluj w input box

    [syntax=vbscript] Function nazwaMiesiac(i as integer) as string Dim w as string ="" If i=1 then w ="Styczeń" 'i tak do grudnia Return w End function Function nazwaMiesiac(nazwa as string) as integer Dim w as integer =0 If nazwa.Tolower= "styczeń" then w =1 'i tak do grudnia Return w End function Dim ok as boolean = false For i = 1 to 12 If nazwaMiesiac(Msc)...

    Programowanie   06 Sie 2018 18:03 Odpowiedzi: 10    Wyświetleń: 669
  • Tworzenie i sortowanie folderów z pliku Excel oraz przypisywanie plików PDF

    To spróbuj takie makro - wynik wpisywany jest do kolumny D [syntax=vbscript]Public Sub SprawdzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Sciezka = "C:\StaryFolder\" ' tu wpisz adres starego folderu OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder...

    Programowanie Początkujący   16 Kwi 2021 06:36 Odpowiedzi: 9    Wyświetleń: 2718
  • [Pascal->Delphi] Permutacje w Pascalu chcę przełożyć na Delphi

    1. Zrób nową formę. 2. Wstaw na formę 3 Edit-y. (Edit1, Edit2, Edit3) 3. Wstaw na formę 1 Memo. (Memo1) 4. Wstawiasz jeden przycisk. (Button1) 5. Zmodyfikuj swoją procedurę liczącą w ten sposób : [syntax=delphi]procedure P(var A: string; B: string; R : integer); //zmiana var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then...

    Programowanie   16 Lis 2011 15:24 Odpowiedzi: 8    Wyświetleń: 1837
  • Konwersja BYTE na wartość HEX w Bascom AVR - jak to zrobić?

    Moja mowa będzie krótka ... Dim Zm As String * 10 , X As Integer X = 2000 'dec X=2000 , hex X=7D0 Zm = Str(x) ' Zm="2000" X = Hexval(zm) 'dec X=8192 hex X=2000 Czy o to Ci chodzi :?: Piotrek PS Ale uważaj , bo dla dec X>7999 wyjdą cuda :D

    Mikrokontrolery   13 Cze 2006 17:51 Odpowiedzi: 4    Wyświetleń: 2460
  • Jak modyfikować kod VBA do wczytywania wielu plików Excel naraz?

    Wydaje mi się, że bardziej chodzi o wybieranie wielu w oknie 'GetOpen'. Nie wnikając w "panel" i "remonty" powinno być coś takiego: [syntax=vbscript]Sub Wczytywaniedancyh() Dim otwieranie As String Dim tb() As Variant, test As Boolean, i As Integer Dim plik As String Dim kopiowanie As String Workbooks("Panel").Activate otwieranie = MsgBox("Wybierz plik",...

    Programowanie Początkujący   20 Lis 2018 09:21 Odpowiedzi: 4    Wyświetleń: 729
  • [Delphi] Jak automatycznie inkrementować wersję w Delphi i wyświetlić ją w TLabel?

    Version info jest umieszczane w pliku podczas kompilacji i w efekcie masz - prawym klawiszem na pliku (exe oczywiście) - właściwości - zakładka wersja pliku. Jak w opcjach włączysz automatyczną inkrementację wersji to przy każdej kompilacji "build" zwiększy się. W kodzie już nie jest tak łatwo gdyż musisz odwołać się do całej struktury TFileVersionInfo...

    Programowanie   22 Lis 2004 09:49 Odpowiedzi: 1    Wyświetleń: 1998
  • VBA Excel - Jak stworzyć makro do mnożenia wartości z kodami kolorów?

    Niestety nie zobaczę twojego pliku (pobieranie zabronione), ale mam dla ciebie materiał do przemyśleń: [syntax=vbscript] Private Sub testEl() Dim y As Long, i As Integer, V As Integer, v1 As Integer Dim Tb() As String y = 2 Do While (Cells(y, 1) <> "") Tb = Split(Cells(y, 1), " ") V = 0 For i = LBound(Tb) To UBound(Tb) Step 2 Select Case Tb(i...

    Programowanie   15 Wrz 2018 14:50 Odpowiedzi: 20    Wyświetleń: 918
  • VBA exel kopowanie arkusza - kopowanie akrusza x razy

    U mnia działa p.s. x wpisywal "na sztywno"(np. x=5) bez InputBox Dodano po 2 Wynik InputBox jest tekst(String) Dim x As Integer byc moze tu powód

    Obsługa oprogramowania   13 Gru 2017 13:42 Odpowiedzi: 4    Wyświetleń: 333
  • Schemat układu do sterowania 8 urządzeniami i transmisji 8 bitów przez RS232

    Czyli jednym słowem po zrobieniu fusing musze spowrotem zmienic je na zmienna typu integer (bo fusing można tylko jako string zrobić) wynik(ineteger) FUSING Temp1(string)>>tempi1(integer)

    Mikrokontrolery   23 Maj 2006 07:20 Odpowiedzi: 34    Wyświetleń: 6518