Tworsz po prawej Value np 2k, a w okienku drugim od gory po lewej stronie wpisujesz =Value i visible zaznaczasz, a visible przy value po prawej stronie odznaczasz i po sprawie. mam nadzieje, ze pomoglem.
W czasie drukowania Otwórz arkusz, a następnie ukryć Sheets(.List(.Value)).Visible = True
zawsze było Belinea 1764 (103010). - Call service menu by - selection of OSD-Menu item "i" - push and hold button [ENTER] until service menu is visible - Save by direct exit : Select menu item "EXIT" and push button [ENTER]. -wstaw nowy eprom zapisany wstępnie jako FF -włacz -wejdz w menu serwisowy ii wyreguluj
Znalazłem "błąd". Ponieważ przykład z funduszem robiłem na liczbie całkowitej (555) zapomniałem/nie zwróciłem uwagi że liczba z przecinkiem dla VB jest z kropką. Później kod próbuje to dalej konwertować i występuje różnica typu. Wystarczy pobrać z funduszu remontowego tekst wartości Text .TextBox5.Visible = True .TextBox5.Enabled = False .Label6.Caption...
U mnie ten kod działa, przycisk znika. Porównaj ze swoim. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace WindowsFormsApplication1 { public partial class Form1 : Form { public Form1()...
Jeśli odnosisz się do wartości komórki, to nie potrzeba cudzysłowów: [syntax=vbscript]Sheets(Cells(i, 9).Value).Visible = True ' albo xlSheetVisible[/syntax] PS. Widzę, że się spóźniłem.
Jak to zrobić ? Dodajesz trzeci przycisk tyle że "Visible=false" i tworzysz takie eventy: [syntax=vbnet] Private Sub Button_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress, Button2.KeyPress Button3.Select() End Sub Private Sub Button_KeyUpDown(ByVal sender As System.Object, ByVal e...
1. do pętli przyjmującej zdarzenia w oknie programu będzie zgłaszane zdarzenie WM_COMMAND z parametrem ID_BUTTON1 2. ShowWindow służy do pokazywania okien, być może da sie nią pokazywać przyciski, ale można do tego wykorzystać styl przyciski WS_VISIBLE.
Dane z bazy nadpisują nazwy kolumn "swoimi". Ja sobie radzę z tym tak: (po załadnowaniu danych) [syntax=csharp] // visible dgv1.Columns["Id"].Visible = false; // headertext dgv1.Columns["DataProdukcji"].HeaderText = "Data produkcji"; [/syntax]
Znajomy znalazł rozwiązanie problemu. Wystarczyło otworzyć przez Altium plik .dblib w celu edycji i na liście pól bazy danych zaznaczyć "Visible On Add" przy parametrze "Value". Dzięki za próbę pomocy i zamykam.
Hi again, thank you for your help so far. I followed your instructions and flashed the USB with the firmware file (upgrade_mb110.bin), then connected it to the TV and powered it on. However, the TV just booted normally — it didn’t enter the update mode. I also opened the back of the TV to look for a button labeled “SW2” or any reset/update button on...
Witaj jestem początkujący w Delphi co jest z tym kodem ,że nie działa mi to proszę o pomoc. Chodzi o warunek : unit suma1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Label2: TLabel; Label3: TLabel; Button1: TButton;...
Moim zdaniem nie może być kilku form Form2. Przy tworzeniu form musisz im dawać nowe nazwy. [syntax=delphi] var i:integer; procedure TForm1.Button2Click(Sender: TObject); begin i:=i+1; with TForm.Create(self) do begin Width:=200; Height:=100; Left:=10; Top:=10+i*(Height+10); Caption:='Forma '+IntToStr(i); Parent:=self; Visible:=True; Name:='forma'+IntToStr(i);...
Witam. Ściągnij sobie komponent comport. Na forme wstaw 2 x memo, 1 x edit, 3 x buton i comport. 'button1 do łączenia i rozłączenia 'button2 do wysyłania 'button3 do ustawienia portu 'edit1 do wpisania tekstu jaki chcesz wysłać 'memo1 do odebrania tekstu 'memo2 do "pomocy" ustawione jako niewidoczne 'zdarzenie do ustawienia portu procedure TForm1.Button3Click(Sender:...
Aaa, to przyciski w ramce. Oprogramuj osobno.[syntax=vb]Private Sub OptionButton1_Click() If OptionButton1.Value = True Then ComboBox24.Visible = True TextBox7.Visible = True Frame4.Visible = True OptionButton3.Visible = True OptionButton4.Visible = True End If End Sub Private Sub OptionButton2_Click() If OptionButton2.Value = True Then ComboBox24.Visible...
Tam zapewne brakuje Else (nie testowałem): [syntax=vbnet]Sub Printing() Target = Sheets("Centrum").Range("G7").Value If Target = "All" Then For Each s In Sheets(Array("GREEN", "BLUE", "YELLOW", "GREY", "BLACK")) s.Visible = True s.PageSetup.PrintGridlines = True s.PrintOut Copies:=1, Collate:=True s.Visible = False Next Else With Sheets(Target) .Visible...
Rozumiem aluzję ;) Najprościej byłoby wstawić .formula="=sum..., ale skoro mielisz w pętli. Zlicz w niej sumę i dopisz na końcu: [syntax=vb]Private Sub cmdDrukuj_Click() If cmbPrinters = Empty Then MsgBox "nie wybrano drukarki" Else With Sheets("druk") .Range("A2:J65536").ClearContents Application.ScreenUpdating = False For wrs = 0 To lstSala.ListCount...
Devices/Device Setup/MIDI Port Setup,i tu w moim przypadku nie miałem zaznaczonego visible,dlatego była cisza.
Podobny sposób, ale bardziej 'uniwersalny'; możesz ukrywać i odkrywać DIV-a : [syntax=html4strict]<html> <head> <script language="javascript"> <!-- var state = 'hidden'; function showhide(ref){ if (document.getElementById(ref)!=null) { document.getElementById(ref).style.visib... = state; } if (state == 'visible') {state = 'hidden';}...
Opcja pierwsza. Wrzucasz guzik na ek1, dodajesz w evencie On_PRESS -> screen change (czy jakos tak) i ustawiasz ek2. W ek2 to samo tylko do guzika przypisujesz ekran pierwszy W przypadku drugim mozesz sobie utworzyć tag (typu interna_tag) bool, o nazwie np. wciśnieto F1 i przypisujesz go do przycisku SofkF1. W przycisku ON_PRESS dajesz SET ten tag....
Raczej w ten deseń: [syntax=csharp]public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { Piłka ball = new Piłka(sender, e, this); ball.pokaz(sender, e); } } class Piłka { Form1 form1; object s; EventArgs ev; public Piłka(object sender, EventArgs e, Form1 form1) { s = sender;...
... Szerokość tabulacji można zmniejszyć w edytorze i wtedy samo się ładnie formatuje. Wszelkie narzędzia w różnych edytorach (m.in. Eclipse) stosują tabulacje przy autoformatowaniu. ... Owszem zgadzam sie z Tobą, że można sobie ustawić rozmiar tabulacji ale: - po pierwsze nie zawsze to pomaga w formatowaniu kodu: tabsize=2: GtkDialog *display_add_plot_dialog...
[syntax=vb] Public Class Form1 Dim tablica_pomiarów() As Integer Dim wynik_pomiaru As Integer Dim index_tablicy As Integer Dim index_wykresu As Integer Function wykres(ByVal colValue As Integer, ByVal colIndex As Integer) As Integer Chart1.ChartAreas("ChartArea1").AxisX.Mi... = 0 Chart1.ChartAreas("ChartArea1").AxisX.Ma... = 100 If colIndex > 95...
Można we właściwościach elementu odznaczyć pole "Visible" przy "Label-Value". Rezystancję możesz wpisać w polu "Description" i ustawić na "Visible". Ciut się spóźniłem ;) dodam jeszcze, że potencjometr w Circuit Makerze jest opisany takim podobwodem: *XVARRESISTOR:Potentiometer Subcircuit Parameters *XVARRESISTOR:VALUE:|Total resistance...
Zjadłeś chyba znaczniki zamykające <select> i: "id" oraz "name" to dwie róźne sprawy. Najlepiej żeby miały tą samą lub zbliżoną nazwę. Spróbuj z tym poprawionym fragmentem kodu i skryptem który Ci "nie działa". I na przyszłość używaj opcji Listing kodu: przy pisaniu postów, będzie bardziej czytelnie. [syntax=html4strict] <select id="s1" name="s1"...
Ale kombinujesz... przeglądnij to to może sam dojdziesz dlaczego CI nie działa (parę zbędnych rzeczy jak dla Ciebie ale może się połapiesz.) [syntax=csharp]using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms;...
Problem rozwiązany, zamiast filtrować formularze aby drukować tylko ten wybrany, utworzyłem nowe okna tekstowe pobierające wartość z okienek prezentujących dane z wybranych rekordów. Nieco skomplikowane - poniżej kod VBA dla przycisku drukowania: Private Sub Polecenie24_Click() Dim Tekst As String Tekst = Tekst1787.Value Tekst1787.Visible = False Tekst1792.Value...
Pomijając literówkę w przypisaniu, zamienione argumenty w Cells(row, column), zakręcony wybór kontrolki w pętli, to zdaje się coś za dużo tych pętli. Po modyfikacji http://obrazki.elektroda.pl/3585684200_1...
Witam Panów Czytałem całe zagadnienie, mam chyba podobny problem. Napisałem program w VB komunikacja odbywa sie po RS232 do uC Atmega8 Tu natomiast program jest napisany w bascomie. I co sie okazuje Program VB prawidłowo wysyła komunikaty jednak zle one są odbierane przez bascoma?? Co jest nie wiem. Wszystko jest ustawione tak jak powinno przesle do...
1. Nie definiuj F_CPU w kodzie programu z tych powodów: http://mikrokontrolery.blogspot.com/2011... 2. The OCnA value will not be visible on the port pin unless the data direction for the pin is set to output (DDR_OCnA = 1). o czym pisał już kol. BlueDraco.
Cześć wszystkim Programowo wstawiam przycisk BT111 na stronie Dane.aspx [syntax=vbnet]Dim BT111 As New Button BT111.ForeColor = System.Drawing.Color.Black BT111.Font.Size = 12 BT111.Text = "Powitanie" BT111.Visible = True AddHandler BT111.Click, AddressOf BT111_Click Panel1.Controls.Add(BT111) End Sub[/syntax] i to działa (przycisk pojawia się na stronie)....
Witam, nie jestem w stanie znaleźć przyczyny nieoczekiwanego działania makra. Plik w załączeniu. W zakładce Summary sa 4 tabele przestawne ciągnące dane z dwóch zakładek i prezentujące dwa pivot itemsy dla każdej z zakładek: Bad goods i alert. Generalnie każda z tabel ma pokazać wszystkie wartości za wyjątkiem kilku, oraz pokazać je po odpowiednim posortowaniu....
Możesz dopasować to: [syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Select Case Range("A1").Value Case 1 Worksheets("Arkusz2").Visible = False Worksheets("Arkusz3").Visible = True Case 2 Worksheets("Arkusz3").Visible = False Worksheets("Arkusz2").Visible = True End Select End If...
U mnie działa coś takiego: [syntax=vbscript]Option Explicit Sub zupa_jarzynowa() 'Word Const wdFormatXMLDocument = 12 Const pnt = "$numer" Const tmplt = "szablon.docx" 'Excel Const dtxtadr = "B3" Const txtadr = "H2" Const sht = "Arkusz2" 'General Const rslt = "wyniki" Const sffx = "_Pismo" Const dfrmt = "YYYY.MM.DD" Dim txt As String, flenme As String,...
Hmmm, to można rozwiązać przynajmniej na dwa sposoby: 1.) Bardziej skomplikowany, ale i bardziej profesjonalny: tworzysz własną kontrolkę na podstawie TabControl, w DrawMode wybierasz OwnerDrawFixed i podpinasz swoje własne metody rysujące kontrolkę w zdarzeniu OnPaint. Po szczegóły musiałbyś pogooglać jak tworzyć własne kontrolki w języku w którym...
Może źle podchodzę do tego. Chodzi mi o to, że mam jakieś menu z buttonami. Klikając na button ma pokazywać się panel (kontrolka Panel). Stworzyłem klasę i w niej chciałem stworzyć metody, takiej jak pokaż, ukryj, dodaj panel. [syntax=csharp] public class klasa { public static void dodaj1() { Panel dodajpanel1 = new Panel(); dodajpanel1.visible = true;...
E4 oznacza brak konfiguracji dla tego pola lub co bardziej prawdopodobne, uszkodzoną elektronikę. In case of error E4 (unconfigured induction modul) or error EC (configuration failure) it is necessary to try to fix the problem with making the configuration anew. Configuration is possible to make in service menu but first old configuration must be erased....
A spróbuj tak, co się będzie działo ? (Może nie przywracasz pierwotnego działania wszystkim, zmienionym uprzednio, klawiszom ?) [syntax=vba]Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim nrPlikuWyj1 As Integer: nrPlikuWyj1 = FreeFile Dim op1 As String: op1 = ThisWorkbook.Name Dim op2 As String: op2 = Application.UserName & "/" & Environ("Username")...
Witam. Jestem początkującym programistą w WinApi i mam takie pytanie. Piszę kalkulator oprogramowałem przyciski, ale mam taki problem, że nie wiem jak pobrać tekst z pola tekstowego(cyfry/liczby) i zamienić je na jakiś INT , aby wykonywać działania.. Jeśli ktoś byłby tak miły i mi pomógł będę bardzo wdzięczny!:) zamieszczam kod: #include <windows.h>...
Moim zdaniem sympatyczniejsze są formanty z przybornika. Można je łatwo kodować wpisując w obsłudze zdarzenia CheckBox1_Click() ukrywanie i pokazywanie pozostałych CheckBox-ów sprawdzając ich właściwość Value. Ukrywa się przez zmianę właściwości Visible.
Dzień dobry W pliku z makrem logowania chciałbym dodać funkcję ukrywania oraz pokazywania arkuszy pliku na podstawie danych z komórek w danym arkuszu (Arkusz "Ustawienia"). Wyświetlanie wybranych arkuszu miałoby nastąpić po prawidłowym zalogowaniu się. Obecnie wygląda to tak: [syntax=text]Private Sub Loguj_Click() Dim sUser As String, sPassword As String...
Co do paska to TIMER załatwił sprawę :P. Możecie (jak wiecie jak) poprawić ten kod kalkulatora aby wreszcie działał :( #include <windows.h> #include<string> #define mnoz 1000 #define dzie 1001 #define odej 1002 #define dodaj 1003 using namespace std; LRESULT CALLBACK WindowProcedure (HWND, UINT, WPARAM, LPARAM); HWND klik1,klik2,klik3,klik4,klik5,klik6,klik...
[syntax=css]ul.art-hmenu a, ul.art-hmenu a:link, ul.art-hmenu a:visited, ul.art-hmenu a:hover { outline: none; position: relative; z-index: 11; margin:0; } ul.art-hmenu, ul.art-hmenu ul { display: block; margin: 0; padding: 0; border: 0; left:10px; list-style-type: none; } ul.art-hmenu li { margin: 0; padding: 0; border: 0; display: block; float: left;...
Dodanie obsługi wyjątku pomogło, także zmiana insert_status na on z poziomu C#. Mam teraz jeszcze jedno pytanie, za każdym razem jak dodaję nowego usera to dodany on zostaje z UserId równym 0, a chciałbym, by ta wartość była dodawana do bazy na podstawie tego, co wpiszę z poziomu textboxa. Tu jest kod Formsowy [syntax=csharp]using System; using System.Collections.Generic;...
A tak patrzyłeś? [syntax=vbscript]Sub scrape() Dim i2 As Integer Dim ie As Object Dim x As Long Set ie = CreateObject("InternetExplorer.Applicati... For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row With ie .Visible = True .navigate Worksheets("Sheet1").Range("A" & x) Application.Wait (Now + TimeValue("0:00:02")) Do DoEvents Loop Until ie.readyState...
Na karcie mam najnowszą mapę iGo Jaka wersja programu (nie nazwa, ale numerki, np 9.6.13) i jaki skin? Na początek dodaj do sys.txt sekcję Nie każda wersja programu obsługuje transmiter, częściowo za sprawą wpisów w data.zip, więc ( z innego forum na nawigacjach): szukasz wpisu w data.zip/ui_igo9/common/ui/variable_def.... i edytujesz notatnikiem nastepnie...
Cześć, Po pierwsze, dziękuję za Twoją pracę. Bazując na wszystkich przydatnych informacjach, które znalazłem w tym temacie https://www.elektroda.com/rtvforum/topic... + dokumentacja github, zrobiłem skrypty adaptujące urządzenie Etersky WF-CS01. Nie mam dobrych zdjęć, ale jest to to samo urządzenie, o którym mowa tutaj: https://www.elektroda.com/rtvforum/topic...
Witaj wlasnie coś testuje może taki program Ci pomoże tylko go musisz zmodyfikiwać do swoich potrzeb program wysyła kody i jest ok Ja coś testuje dla tego troche jest dziwny : o to on Dim varHex As Variant Dim licznik As Single Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "38400,O,8,1" MSComm1.RThreshold = 1 MSComm1.InputLen = 0 MSComm1.PortOpen...
I asume I just need to DD this RAW dump to SD? Yes Since I did that and I was not able to boot Workbench. What exactly happened? Can you make a video (with led's visible)? Start from power on. Is there any way we can DD already existing pre-installed Amiga HardDisk image? 2 amiga partitions present in SD image. ================ update ================...
Nie wiem, czy to będzie właściwie działać - jedynie poprawiłem błędy... [syntax=vb]Sub przeliczAZ() Application.ScreenUpdating = False Sheets("wplaty A-Z").Select Range("A2:H6002").Select Selection.Clear Sheets("wpłatyH").Visible = True Sheets("wpłatyH").Select Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Sheets("wpłatyH").Range("A3").CurrentReg...
[syntax=vbscript] Sub Zapisz_oferte_do_pdf() Sheets("Oferta").Visible = True zmienna = Range("A7") nazwa = Range("A5") adres = Range("F25") Worksheets("Oferta").Range(zmienna).Rows... = False Sheets("Oferta").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ adres & nazwa & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False,...
Sprawdź [syntax=vbscript]Sub elka() s = "http://www.google.com" p = "c:\test.txt" With CreateObject("InternetExplorer.Applicati... .navigate s .Visible = False Do While .readyState <> 4: DoEvents: Loop Open p For Output As #1 Print #1, .document.body.innerText Close #1 .Quit End With MsgBox p End Sub[/syntax]
Mamy tu kilka ukrytych arkuszy, które trzeba pominąć. Można próbować zautomatyzować listę arkuszy (pole opcji, lista nazw), ale czy warto? Zawsze można dopisać kolejne And . Chyba, że liczba wykluczonych arkuszy urośnie do >10... Wklej w kod arkusza "Kalendarz" i przetestuj [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...
Witaj ponownie. Niestety nie radze sobie z tym, okazuje się ze jestem zielony. Otwieranie i zamykanie portu nie ma z tym problemu ale dalej stoję w kropce z odbieraniem znaków. Wysyłam około co 1 sekundę po kilka znaków liczby i słowa. Na terminalu nie ma problemu. To kod który zmąciłem ale dalej dobrze nie rozumiem [syntax=vbnet]Public Class Form1...
Zasada jest prosta: - jeżeli nie jesteś pewien, a nie chce Ci się sprawdzać datasheet, ustawiasz pin jako wyjście i po kłopocie, - porawne rozwiązanie - sprawdzamy datasheet: The general I/O port function is overridden by the Output Compare (OC0) from the Waveform Generator if either of the COM01:0 bits are set. However, the OC0 pin direction (input...
Witam, potrzebuję pomocy, jak mógłbym napisać w VBA, żeby pojawiały się obiekty (1, 2, 3, ..., 11) w etykiecie1. Ma to działać w taki sposób, że po kliknięciu w checkbox1, który znajduje się na UserForm1 pojawia się obraz1 w etykiecie1 wyśrodkowane. Tak samo z następnymi aż do 11. Chodzi mi też o to, że jak zazanaczę checkbox1 i checkbox8, to wtedy...
Witam Szanowne Grono, potrzebowałbym pomocy fachowców C# :) a mianowicie napisałem program pracujący na bazie danych SQL. Wszystko działa OK. Przystąpiłem teraz do kosmetyki i pojawiły się problemy. Chcę, aby program działał w taskbar windowsa (forma1 - program główny), ale jeżeli pojawi się konieczność wyświetlenia np. formy 2, to żeby pojawiła się...
Ani jeden , ani drugi sposób nie pomoógł. article, aside, details, figcaption, figure, footer, header, hgroup, nav, section { display: block; } audio, canvas, video { display: inline-block; *display: inline; *zoom: 1; } audio:not([controls]) { display: none; } html { font-size: 100%; -webkit-text-size-adjust: 100%; -ms-text-size-adjust: 100%; } a:focus...
[syntax=vbscript]Sub elka() With CreateObject("InternetExplorer.Applicati... .Visible = True .Navigate "twoja_strona.html" While .busy Or .readyState <> 4: DoEvents: Wend With .document .getelementbyid("packageNr").Value = paczka_nr .getelementbyid("weight").Value = waga_kg .getElementsByClassName("btn btn-primary mt-2 mr-sm-2")(0).Click End...
Witam, Proszę o pomoc w napisaniu makra, które będzie usuwało całe wiersze, w których data będzie starsza niż 2016-05-02 (kolumna z datą to kolumna B) we wszystkich arkuszach. Znalazłam na jakiejś stronie kod z pętlą, która przechodzi przez wszystkie arkusze, ale nie potrafię napisać kodu odpowiadającego za usuwanie wierszy. Proszę o pomoc :) Dodano...
Nie doczytałem na końcu konfiguratora: Extra Equipment Fitted luggage, special leather and colour requests, full visible carbon body, heated seats, ski box roof, skis, winter wheel package . Dostępne w wyposażeniu opcjonalnym :D Złożyłem już wstępne zamówienie.
Witam Przepraszam, że tak długo. Np taki program: //--------------------------------------... #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------... #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------...
Poniższy przykład pokazuje jak można to zrobić bez hooków i subclass'u. Tutaj cała logika siedzi w w głównej pętli komunikatów, gdzie przechwytuję komunikaty myszki przeznaczone dla buttona, włączając odpowiedni timer. Wciskając przycisk, pojawia sie dźwięk (Beep). Po 500ms dźwięk zaczyna się powtarzać co 100ms. #include <windows.h> #include <commctrl.h>...
Z góry uprzedzam że jestem kompletnym laikiem w VBA – brakuje mi podstaw. W pracy miałam do czynienie z arkuszem obliczeniowym napisanym x lat temu w VBA w excelu który musiałam przystosować do zmieniających się przepisów i norm. Sprawiło mi to wiele frajdy, ale było to – najpierw delikatne grzebanie w cudzym kodzie, później pisanie na tej...
Witam! Potrzebny do szkoły jest mi program który będzie krótkim testem jednokrotnego wyboru, program mam zrobiony do momentu w którym powinien wypisać wynik, i tu pojawia się mój problem jaki powinien być kod, aby program odczytał poprawne odpowiedzi i przypisał +1 punkt za odpowiedź a na koniec wyświetlił liczbę zdobytych punktów ? :) [syntax=delphi]unit...
Witam, Otwórz plik config.txt (z linuxa: /boot/config.txt otwórz w edytorze z uprawnieniami root'a, w shellu: "sudo nano /boot/config.txt". Albo włóż kartę w czytnik kart i Notepad'em w windowsie - to chyba będzie ci prościej :) ). Poszukaj linijek: # uncomment for composite PAL #sdtv_mode=2 Odkomentuj (usuń " # " z początku linii) sdtv_mode=2 Potem...
Palący problem rozwiązałem za pomocą kodu który zamienił na liczbowe wartości. If TextBox1 <> "" Then W1 = CDbl(Replace(TextBox1.Value, ".", ",")) ' * 1 End If Natomiast zamiast okienka informacyjnego użyłem Label1. With Label7 .Visible = True .BackColor = &HFFF00 End With Dziękuję za pomoc i Pozdrawiam
Otóż zrobiłem sobie program wzorując się na innych podobnych test w delphi i mam taki drobny problem bo nie za bardzo wiem jak dodać do niego podliczanie punktów. Mam taki pomysł żeby za dobra odpowiedź przyjmowało wartość 1 a za złą 0 i na koniec sumowało i pokazywało wynik o to kod programu: unit Unit1; interface uses Windows, Messages, SysUtils,...
Z tym piratem to było na logikę a nie że to chce zrobić po prostu było to logiczne. Bo skoro korzystam z visty, a był bym piratem dawno miał bym 7 lub 8 a nie viste... Po prostu zostaje przy visicie i tyle... (at)dodano Zapominałem podać link o który mi chodziło z tą logiką: http://www.chip.pl/news/oprogramowanie/s...
witam napisalem sobie program w Visual Basiku, który miedzy innymi wysyła po rs kody np. R1 do uP Atmegi8. Wlasnie on zle mi odbiera instrukcje. Jesli kod ma dwa znaki np. 12 to jest ok. jesli natomiast bedzie to 1235 to juz jest zle.To jest jeden problem, drugi to : Jesli z komputera wysyła więcej komend np.: ...Private Sub Command10_Click() If (Form1.Picture11.Visible...
on nie ma tyle mocy. i z tego co czytalem na stronie producenta jest bezpieczny dla oczu. Ktoś nawet mierzył pobieraną moc - wyszło mu około 10mW. 532mn Laser Pointer Pen + GIFT BOX 100% Brand New Professional green laser pointer pen Significantly brighter than red laser pointers Utilizing the latest technology in green laser Wavelength: 532nm - more...
Witam. Chcę zrobić aplikację, która będzie bazowała na elementach Image (zamiast Button). Planuję pozbyć się "windowsoskich" klawiszy X, minimalizuj i wstawić własne. Przygotowałem 2 grafiki : 1. obraz "X.bmp" 2. obraz "Xhover.bmp" - X po najechaniu na niego myszką Dodatkowo mam 3 elementy Image : 1. image_X - załadowany obraz "X.bmp" 2. image_Xhover...
Hello my friend you can test NVM file . Copy the file “NVM.BIN” to the root directory of a freshly formatted (FAT) USB stick . Power off the TV set by disconnecting the set from mains . Insert the USB stick into any USB2.0 port (explicitly do not use the USB3.0 ports!) . Power on the TV set . An OSD message “Software upgrade in progress…” will be visible...
dobra, obiecany gotowiec i przy okazji manual pt "jak korzystać z manuala". W naszej przeglądarce wpisujemy adres www.google.pl Wpisujemy tam Atmega8, po załadowaniu się strony z rezultatami klikamy w link posiadający w tytule "datasheet" i sprawdzamy czy jest on z atmela. Po pomyślnym otwarciu się datasheetu z indeksu po lewej stronie wybieramy 16-bit...
Dzięki, jak zwykle jesteś niezawodny. Wykorzystam pierwsze rozwiązanie. Co do indeksów to fakt, jest to trochę denerwujące, że trzeba pamiętać o kolejności umieszczania na formie jeśli się chcę mieć je jakoś uporządkowane. Kiedyś próbowałem znaleźć odpowiedz czy da się zmieniać ideksy po umieszczeniu ich na formie i wyszło mi że nie. A co do odwoływania...
Ale kręcimy się w kółko. Jak się logujesz w programie? Jaka jest relacyjna struktura bazy? oto cały kod formy logowania; [syntax=vb]Imports MySql.Data.MySqlClient Public Class Form3 'create a public function and set your MySQL Connection . Public Function mysqlconnection() As MySqlConnection 'return new connection. Return New MySqlConnection("Server=xxx;User...
Sprawa jest bardzo prosta, ponieważ gdy naciśniesz button 1 czyli stworzenie i wyświatlenie przycisku nr 2 , spowoduje ustawienie flagi hButton2_pokaz=1; i każda następna reakcja naciśnięcia przycisków (oprócz przycisku nr 3 do usuwania przycisku nr 2) powoduje że flaga hButton2_pokaz dalej ma wartość 1 czyli na poprzedni przycisk nr 2 zostanie stworzony...
Arkuszowi nadam wartość xlSheetVeryHidden i po kłopocie Dołóż jeszcze ochronę arkusza (z innego pliku będzie można odczytać, ale zmienić już nie). Warto też chronić projekt VBA hasłem, żeby nikt nie mógł zmienić atrybutu Visible arkusza w edytorze i powinno być OK. Teraz dopiero masz wybór :)
Można tak: [syntax=vb]Sub AddItem(ByVal sItem As String, ByRef cmbBox As ComboBox) ' adds item retaining alphabetic order Dim l As Long For l = 0 To cmbBox.ListCount - 1 Select Case StrComp(cmbBox.list(l), sItem, vbTextCompare) Case 0: Exit Sub ' already in the combobox Case 1 cmbBox.AddItem sItem, l Exit Sub End Select Next l cmbBox.AddItem sItem End...
Harfa z ramą to już lipa nie na miarę prawdziwego Jarre ;-) Myślę, że te kilka punktów : Using an infrared or ultrasonic rangefinder attached to the instrument, such that the position of the hand "plucking the string" is determined. Using a laser-based rangefinder to determine the distance from the hand to the laser's starting or ending point (and possibly...
No to gdyby jeszcze raz Ci umknęła strona 11 w instrukcji i parowanie słuchawki z telefonem - zastosuje magiczną kombinację ctrl+C/ctrl+V: Turn on the Bluetooth function in your phone. Make sure Bluetooth visibility is on in your phone. This makes your phone visible to other Bluetooth devices. Make sure the headset is turned off. Press and hold the...
Witam Podepnij do tabeli kontroke DBGrid i zrob visible:=false a z niej pobieraj kolejno dane z poszczegulnych kolumn do memo czy czego tam juz sobie chcesz. Mysle ze tak bedzie najwygodniej. Pozdrawiam
Hello, i have same problem with my Acer ED276U - keeps restarting on Acer logo. How can i use this backup.bin file ? how to upload it to monitor ? When it keeps restarting i was able to get the screen working by pressing power button and found out that if in Menu / System / Quick start mode is turned Off the monitor keeps restarting. When it's ON it's...
Rozgryzając kod udało mi się coś takiego zrobić jak na dole. Całość wygląda dość dobrze, tzn. wywołuje te dane co chce na stronie, ale nie wiem jak pobrać wartość Kupon - w tym przykładzie dokładnie "3,250" (zostawiłem znak "?" w kodzie). Czy to pole ma jakąś nazwę, jak się do niej dobrać? Zależy mi na tym aby pobrać także jedną z dat. Proszę o pomoc....
witam! Problem: Tag browser does not appear to be opening. RSView Enterprise v 4.0 is not showing the Tag Browser window, but all indications are that it is open. What actually happened is the user has moved the window to the edge of the viewable screen area, closed RSView Enterprise and then changed the screen resolution to something smaller (such...
[syntax=vbscript] ''2020-03-25 Sub Import_danych_do_zaświadczeń_M() Dim i As Long ChDir ThisWorkbook.Path localization = Dir("") 'REFRESH OFF Application.ScreenUpdating = False ' Sheets("TEMP").Visible = True Sheets("TEMP").Select Cells.Select Selection.NumberFormat = "(at)" Range("A5").Select i = 1 Do Until localization = "" If Right(localization,...
Witam serdecznie. Na formularzu umieściłem kilka ComboBoxów które zostały podzielone na grupy. Piony określają rodzaje linii i dodatkowe reaktory, poziomo określane są grupy stanowiące linię produkcyjną. Podczas aktywacji nowej linii aktywowane jest jednocześnie kilka ComboBoxów. Dopóki stosowałem proste wczytywanie .RowSource osobno dla każdego z formantów...
Która wersja Excela się wyłącza? Mógłbyś może podesłać kod tego makra? Wersja Excela 365, Kod makra : Private Sub CommandButton1_Click() Me.CommandButton2.Visible = True Me.CommandButton1.Visible = False Me.Height = 350 End Sub Private Sub CommandButton2_Click() Me.CommandButton1.Visible = True Me.CommandButton2.Visible = False Me.Height = 285 End...
Moze sprobuj ustawic pierwszy bir rejestru SCS (edit - sorry, ten bit dotyczy portu 0 i 1). poza tym str 210: The enhanced features of the fast GPIO ports available on this microcontroller make GPIO pins more responsive to the code that has task of controlling them. In particular, software access to a GPIO pin is 3.5 times faster via the fast GPIO registers...
No tak masz rację. Ale powiem Ci, że wartości 99900 Hz w ten sposób w ogóle nie da się tutaj osiągnąć przy zegarze 16 MHz i z użyciem jednego timera ;) Na pewno? (!) Popatrz więc na fragment Datasheet (dolna częśc str.72) "For generating a waveform output in CTC mode, the OC0 output can be set to toggle its logical level on each compare match by setting...
Witam! Oto prosty programik pod WINDOWS: [syntax=c]#include <windows.h> char *NAZWAKLASY = "LICZNIK";/* Tutaj nazwa klasy (najczęściej przyjmuje się nazwę programu) */ HINSTANCE HINST;/* Tutaj umieszczony będzie uchwyt aplikacji który nada WINDOWS w chwili wywołania */ HWND OKG = NULL;/* A tutaj uchwyt okna głównego. Bedzie potrzebny dla innych...
Witajcie, Natknęłam na mały problem podczas łączenia dwóch makr. Chciałabym, żeby po zamknęciu listy rozwijanej uruchamiało się makro kopiujące wyniki i dzielące je w kolumny - makro 'Dzielenie'. Próbowałam kilkoma różnymi sposobami, lecz bez rezultatu. [syntax=vb]Private Sub ListBox1_Change() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If...
W zasadzie problem rozwiązałem pewnym "mykiem" mianowicie wyłączyłem widoczność elementu na starcie, a po naciśnięciu przycisku widoczność się włącza. To jest mój kod: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2:...
Witam Problem rozwiązany:) Poniżej kod aplikacji, która "przerabia" plik hex na postać bin i zapisuje plik wynikowy w katalogu pliku hex. using System; using System.IO; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Globalization; namespace...
Cześć Chciałbym stworzyć makro, które wysyłało by emaile z listy z excel’a i dołączało spersonalizowane załącznik. W Arkuszu „lista” są komórki z spersonalizowanym numerem odbiorcy od „b6” do „b5006” np. D001425 a w komórkach od „c6” do „c5006” adresy email. Chciałbym aby pętla do każdego...
Ja bym po prostu zrobił zwykłego StringGrida i wział jeden Edit jeden ComboBox i schował je następnie po prostu od jakieś zmiennej która by definiowała typ parametru ustawiał bym x,y tych komponentów na odpowiedni wiersz i robił visible na true. No ale to jest moje skromne zdanie Ty możesz to zrobić za pomocą tego komponentu ja bym wolał zrobić to ręcznie....
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Image1: TImage; Image2: TImage; Image3: TImage; Timer1: TTimer; kursor: TImage; Image4: TImage; procedure FormCreate(Sender: TObject);...
Witam! Mam pewien problem. Dostałem napisaną klasę dzięki której mogę rysować proste wykresy funkcji. [syntax=cpp] class Wykres : protected TPaintBox{ private: int xCenter; int yCenter; public: Wykres(TComponent *AOwner,int parm) : TPaintBox(AOwner){ Top = 0; Left = 0; setSize(673,673); }; void setSize(int width,int height){ Width = width; Height =...
adzę używać parametrów w zapytaniu, a nie tworzyć w ten sposób stringa z dla cmd... De gustibus no disputandum est.... 1. Przede wszystkim moja rada - jeśli konstruujesz kwerendy w kodzie (składasz "string'i") wyświetlaj sobie je - i sprawdzaj wprost na bazie danych - czy są poprawne, czy błędne. Szukanie "zagubionego apostrofu/przecinka" - to jak...
Spotkałem się z dość dziwnym problemem. Podpiąłem pod DataGrid tabelę z bazy danych sql (nie bawiąc się w pisanie kodu - zrobiłem to w designerze poprzez "add project data source"). Ponieważ z całej tabeli w DataGrid potrzebuję wyświetlać tylko jedną kolumnę (ale pozostałe też są mi potrzebne, więc zaciągnięcie tylko jednej kolumny odpada), to pozostałe...
access visible visible false button przypisać
philips plazma opinie klimatyzacja czujnik ciśnienia peugeot słaby odbierać stacja
aritech fp1216 rower elektryczny gazelle
Błąd F3E0 w piekarniku Electrolux - czujnik NTC Aplikacje układu OB2263 w zasilaczach impulsowych