Witam. Funkcja LEFT jest w Visual Basic .NET tylko trzeba troszke poszukać :). Po prostu Microsoft z niej zrezygnował w standardowym języku Visual Basic NET, ale można w NET korzystać również z dialektu Visual Basic 6. Trzeba tylko wiedzieć z jakiej klasy korzystać :). Poniżej przykład z książki Visual Basic Net Encyklopenia : Dim Lancuch As String...
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...
To ma być powiązane z Office (VBA) czy czysty VBscript? [syntax=vbscript] Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject... Dim Fileout As Object Set Fileout = fso.CreateTextFile("C:\sciezka\nazwa_pli... True, True) Dim eve_str As string eve_str = "qwertyuiuiiop" Fileout.Write "jakis tekst" Fileout.Write eve_str Fileout.Close[/syntax]
[syntax=vbnet] Dim filePath As String filePath = Environment.GetFolderPath(Environment.Sp... & "\nazwa_pliku" If My.Computer.FileSystem.FileExists(filePa... Then MsgBox("File found.") Else MsgBox("File not found.") End If[/syntax]
[syntax=vb]Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim l As String FileOpen(1, "C:\Wersja.txt", OpenMode.Input) While Not EOF(1) l = LineInput(1) Me.ComboBox1.Items.Add(l) End While FileClose(1) End Sub[/syntax]
Jesli dobrze zrozumialem to masz w jednym polu tekstowym w trzech wierszach podaną temperturę poprzedzoną słowem temperatura i chcesz to przepisac do trzech pól tekstowych? podaj jaki to visual basic jest - kompilator - Microsoft VB6, czy moze kompilator SharpDevelop i visual basic .NET. Dodano po 1 podaje prosty kod ktory po wcisnieciu przycisku button1...
Zapomnialem ominac cyfry po przecinku (poprawka podswietlona na czerwono). Function ZmienCzas(Czas As Long) As String Dim hh, mm, ss As String hh = Fix(Czas / 3600) mm = Fix((Czas - (hh * 3600)) / 60) ss = Czas Mod 60 'Zeby byly zera przed cyframi pojedynczymi If Len(hh) = 1 Then hh = "0" & hh If Len(mm) = 1 Then mm = "0" & mm If Len(ss) = 1 Then ss...
Ty to robisz w .NET-cie ? tam powinny być jakieś funkcje sieciowe do obsługi protokołu HTTP O, jest, i to całe mnóstwo, autor się za to od tyłu strony zabrał... Widzę że te komendy wysyłasz po GET, wystarczy spreparować adres (w C#): [syntax=csharp]using System.IO; using System.Net; //.... string url = "http://www.google.pl"; HttpWebRequest request...
Ten kod z C# się tu nie nadaje. Do prostego kopiuj -wklej na pewno nie. Ale masz już to przecież zrobione w VB, w swoim pierwszym poście podałeś: [syntax=vb]Dim Ln As Integer = RichTextBox1.GetLineFromCharIndex(RichTe... zwraca numer aktualnej linii, prawda? Więc wykorzystaj go do pobrania całej linii z tablicy RichTextBox1.Lines,...
utwórz nową formę na niej 1 * ComboBox1, 1 * DateTimePicer1, 1 * Label2 po czym wrzuć z tyłu to [syntax=vbnet] Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load fill_combo() ' to chyba nie wymaga rozpisywania się ComboBox1.SelectedIndex = 0 ' następnie ustawiamy 0 żeby po włączeniu programu widzieć w combo "wybierz...
To skopiuj sobie całą procedurę np. do jakiejś komórki albo do pliku tekstowego w formie: [syntax=vb]Private Sub Worksheet_Activate() MsgBox "To jest test" Cells(1, 1).Value = "OK" Cells(1, 1).Interior.Color = vbGreen End Sub[/syntax]a z kodu zrób: [syntax=vb]'Dodać referancję: Tools->References->Microsoft Visual Basic for Applications Extensibility...
drobny opis programu: [syntax=vb] Public Class Form1 Dim operat As String ‘deklaracja zmiennej operatora artemtycznego Dim Cyfra_Pierwsza As Boolean = True ‘deklaracja zmiennej Dim walor1, walor2 As Double ‘deklaracja zmiennych dzialan artmetycznych Private Sub operat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)...
https://obrazki.elektroda.pl/4024708700_... Witajcie moi drodzy. Przedstawię tu pierwszy na świecie tutorial programowania modułu WiFi WB2S, czyli BK7231. Moduł ten występuje w wielu urządzeniach smart home, a w internecie panuje opinia, że nie można stworzyć dla niego własnego firmware. Nic bardziej mylnego - pokażę tu krok po kroku...
https://obrazki.elektroda.pl/4269875400_... Oryginalny DeepSeek jest raczej za duży, by uruchomić go na domowym sprzęcie, ale repozytorium Ollama oferuje ciekawą alternatywę bazującą na dostrajanych (tj. trenowanych w oparciu o rezultaty większego modelu) modelach LLama i Qwen. Występują one pod nazwami deepseek-r1:1.5b/7b/14b/32b...
Masz rację, zgadza się, jestem amatorem/hobbystą. Część rzeczy robiłem od drugiej strony, na przykład w PHP powielałem kod dziesięć razy, bo pętle nie chciały słuchać. Z biegiem czasu udało mi się zamienić 300 linii kodu na 20 linijek :) Zacząłem się bawić w automatykę domową. Dorwałem jeszcze starszego PLC niż 14-letni VB. Sterownik komunikuje się...
Zwykłymi disasemblerami x86 nie ma sensu nawet próbować bo program VB nie jest kodem binarnym ale kodem maszyny wirtualnej. Próba deasemblacji jest próbą deasemblacji maszyny wirtualnej pod którą jest uruchamiany program. Ew można do tego celu wykorzystać narzędzia: VBREF 1.0 (Visual Basic Disassembled String Reference Analyzer extension for W32Dasm...
010203 to string danych
Nie wiem czy ci pomogę bo VB6 używałem ostatnio 18 lat temu, ale szybko patrząc do internetu - używasz mscomm.ocx który ma zdefiniowane api: void SetOutput(const VARIANT& newValue); VARIANT GetOutput(); void SetInput(const VARIANT& newValue); VARIANT GetInput(); https://github.com/lining0806/SCommTest/... Czyli input i output dostaje...
My.Computer.FileSystem.WriteAllText("c:\... Me.RichTextBox1.Text, False) w visual basic " False " - powinien wyczyścić plik i zapisać na nowo a tak nie robi ?! jestem otwarty na inne rozwiązanie, docelowo chcę uzyskać, aby program w VB robił plik (np dane.php) w którym będzie zawsze najnowszy wpis w stylu: <?php $cisnienie = 983.50;...
Dam mały przykład pokazujący jakiego stringa tak na prawdę szukasz stawiając tego like-a w argumencie funkcji, który jest stringiem. [syntax=vb]Sub test3() Dim porow As Boolean Dim tekst As String Dim tekst2 As String Dim twoj_arg_fun As String tekst = "903444" tekst2 = "903*" porow = tekst Like tekst2 twoj_arg_fun = porow & "*" MsgBox twoj_arg_fun...
Problem rozwiązany. Cała sprawa w deklaracji zniennych. Jeśli chcemy z pliku binarnego wyciąć łańcuch określonej długości to musimy zdeklarować zmienną typu string użytą w FileGet o odpowiedniej długości , a nie tak jak w TB podać długość łańcucha w funkcji GET.
Witam! Mam stworzyc prosty kalkulator, ktory po trzykrotnym wprowadzeniu zlego hasla wylaczy sie. Wszystko smiga jak trzeba tylko nie wiem gdzie tego "loopa" wstawic bo textbox to przeciez string wiec jak mam policzyc ilosc blednie wpisanego hasla? Ktos wie jak to zrobic?
[syntax=vb]Dim sqlStr As String = "SELECT COUNT(*) FROM `users` WHERE `IP` = ip" [/syntax] Coś w tym stylu. Domyślam się, że kod który zamieściłeś polegał na zasadzie kopij/wklej.
Z odczytem już sobie chyba poradziłem, teraz jest pytanie jak to podzielic i zrobić to żeby był w formie czytelnej edit: Odczyt zrobiłem za pomocą SerialPort tak: Tekst = COMM.ReadExisting RSData.Text = RSData.Text + Tekst W=RSData.Text Pod zmienną W mam więc cały string o długości 2048 znaków. Jak go teraz podzielić na taki format: [numer][Data] [numer][numer][Data].........[numer][Dat...
W Visual Basic to będzie tak wyglądało: Dim tekst As String * 10 Dim tablica(9) As String For i = 0 To 9 tablica(i) = Mid(tekst, i, 1) Next i W zmiennej tekst dajesz tekst wejściowy, a w tablicy masz rozbity tekst na znaki.
Kompiluje się i usuwa wiersz, nic więcej nowego nie odkryjemy: [syntax=vbnet] 'i = 2 'Do Until String.IsNullOrEmpty(oSheet.Cells(i, 2).Value) ' If String.IsNullOrEmpty(oSheet.Cells(i, 2).Value) Then ' objRange = oSheet.Cells(i, 2).EntireRow ' objRange.Delete ' i = i - 1 ' End If ' i = i + 1 'Loop try Dim arkusz = oExcel.Application.Sheets("Korpusy")...
Dzięki. Function Dec2Bin(ByVal n As Long) As String Do Until n = 0 If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin n = n \ 2 Loop End Function
Dzięki za szybką odpowiedź Programuję to w MS Visual Basic 2010 Express (programuję to za dużo powiedziane bardziej przerabiam gotowca…). Chciałem zgodnie z Twoją radą zapisać wartości od razu w pliku i prawie by się udało gdyby nie " cudzysłowy" VB wywala mi błąd :/ gdyby plik wyglądał tak było by dobrze : <?xml version="1.0" encoding="utf-8"?>...
A można i tak jak wspominał kol. adamas_nt użyć tablicy: Dim dane() As String dane = Split(SerialPort1.ReadLine,";") i przypisujesz to do zmiennych. Aby otrzymać wartość z pierwszej kolumny użyjemy dane(0), z drugiej dane(1), itd Pozdrawiam ;)
W Visual Basic .Net przykładowa funkcja wygląda tak: Function ReveiveSerialData() As String Dim returnStr As String = "" Using com1 As IO.Ports.SerialPort = _ My.Computer.Ports.OpenSerialPort(&qu... Do Dim Incoming As String = com1.ReadLine() If Incoming Is Nothing Then Exit Do Else returnStr &= Incoming...
Musiałem sprawdzić :) Podłączyłem sobie stary dysk z Vistą i zainstalowanym Visual Basic 2010 i: https://obrazki.elektroda.pl/9362077400_... ale widzę, że to nie koniec problemów: https://obrazki.elektroda.pl/5911960300_... Po mojemu wszystkie dzielenia trzeba "uciąć". dodano po chwili Tak to teraz wygląda: https://obrazki.elektroda.pl/2827893800_...
Działa w 100% Musisz użyć kontrolkę SerialPort (component) Dane transmisji możesz ustawić również we właściwościach SerialPort1 Public Class Form1 Dim wartosc As Byte Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SerialPort1.DataBits = 8 SerialPort1.StopBits = IO.Ports.StopBits.One SerialPort1.Parity...
jaki błąd? co ci kompilator mówi? otwierałeś port? wygląda, że się zagalopowałem ;)) (no body's perfect) Property Output As Variant Member of MSCommLib.MSComm Writes a string of characters to the transmit buffer. czyli wysyła ciąg znaków.. Dim a As String a = 1 MSComm1.PortOpen = True MSComm1.Output = a '1 jako znak, a nie liczba MSComm1.PortOpen =...
[syntax=vb] Module Module1 Sub Main() Dim imie(4) As String Dim wzrost(4) As Double Dim i As Byte Dim średnia As Double Do While i < 5 Console.Write("podaj imię osoby: ") imie(i) = Console.ReadLine() Console.Write("podaj wzrost osoby: ") wzrost(i) = Console.ReadLine() i = i + 1 Loop średnia = wzrost(0 + 1 + 2 + 3 + 4) / 5 Console.WriteLine("średnia...
Dim Text as string s = MSComm1.Input For q = 1 To Len(s) Text = Text & Asc(Mid(s, q, 1)) & ", " Next q Text1.text = Text Wstaw powyższy fragment do zdarzenia "MSComm1_OnComm()" i dodaj na formatkę jeden textbox.
Doszedłem do takiego stanu: lecz nie mogę ogarnąć pętli w pętli [syntax=vbscript]Imports System.IO Public Class Form1 Public lista(99999) As String, nazwy() As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim y As Integer, x As Integer, Z As Integer, linia As String, linia2 As String,...
Kod do aktualizacji-[syntax=vb]Dim client As New Net.WebClient Dim Wersja As String = My.Computer.FileSystem.ReadAllText("Wers... Dim nowawersja As String = client.DownloadString("https://dl.dropbo... If nowawersja > Wersja Then If MsgBox("Chcesz...
Witam Potrzebuje w Visual Basicu wysyłac dane na port rs, niebyło by to takie trudne gdybym... miał troche więcej wiedzy. Potrzebuje te dane wysłać nie w formie string tylko w binarce Dana to np: 10101010 pomiędzy jedynką a zerem musi być 10 ms odstepu, cos jak generator przebiegu raz 1 raz 0. Jeżeli ktos jest mi w stanie pomóc i jeżeli jest to mozliwe...
Ja sobie zdaję sprawę z tego, że gdy program się rozbuduje to może dać znać o sobie takie traktowanie zmiennych. Dlatego we właściwym programie zadeklarowałem zmienną tekstową o właściwej długości i kontroluję czy tekst wpisywany czy to z EEPROM czy też z RS232 ma właściwą długość. Nie mam zamiaru wykorzystywać tego dziwnego zachowania w finalnym programie...
Witam Od dwóch dni męczę się nad połączeniem dwóch plików excela, konkretnie chodzi o pobieranie danych do komórki (A1) w pliku 'wynik.xls' z: (A1) w pliku 'dane.xls' Przeszukałem wszystko i nigdzie nie znalazłem szczegółowej instrukcji jak to zrobić. Wiem jedynie że trzeba użyć do tego celu Visual Basic i prawdopodobnie użyć poniższy kod, ale że nie...
Idąc tym tropem w zasadzie każdy formularz można tak wypełnić? Można wypełnić - i co z tego? Dalej formularz leży po stronie twojej przeglądarki. Serwer dalej o nim nic nie wie. I jaki ma być efekt takiego działania? Przecież chyba już wiesz - że musisz wypełniony formularz wysłać (HttpWebRequest) w sieć i następnie odebrać (HttpWebResponse) odpowiedź...
Witam. Mój problem polega na tym, że muszę utworzyć plik txt o określonej organizacji aby z niego później za pomocą funkcji pchart narysować wykres na stronie www. Mój plik musi wyglądać tak: 0,22 1,23.5 2,21.5 3,15.5 . . . 23,23 Pierwsza kolumna to godzina, a druga to wartość temperatury odczytanej w tej godzinie. Plik w Visual Basic tworzę tak: [syntax=vb]...
Witam! próbuję poradzić sobie z problemem usuwania linii z pliku za pomocą listboxa [syntax=vb] Private Sub delbuton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delbuton.Click Dim plik As String = "Data_base\" & DateTimePicker2.Value.Date & ".txt" naglowek.Items.Remove(plik) End Sub[/syntax] ale nie dość że nie usuwa z...
Witam. Dopiero zaczynam pisanie w Visual Basicu. Posklejałem kod który odświeża ListView co 4 sekundy i wyświetla rekordy z bazy danych MySql. Chciałbym, aby program powiadamiał o dodaniu nowego rekordu do bazy danych ale nie wiem jak to zrobić. [syntax=vbnet] Public Sub LoadPeople() Dim sqlQuery As String = "SELECT * FROM test ORDER BY ID DESC" Dim...
Witam Mam taki problem... chcę wysłać chara przez kontrolke serial port w visual basic na port com. W delphi przez przez comporta nie było problemu bo posiada ten komponent funkcję: Przykładowy kod delphi : procedure TFormComPort.TD(a: Byte; b: Byte; c: Byte; d: Byte); begin ComPort.WriteByte(a); ComPort.WriteByte(b);...
Witam. Po przeszukaniu neta skusiłem się na napisanie tego postu. Problem mój polega na tym, że pisząc program w Visual Basic Express 2008 napotkałem potrzebę komunikacji z urządzeniem zewnętrznym. Zainstalowałem więc kontrolkę mscomm32.ocx. Kontrolka bez problemu się zarejestrowała w systemie. Mogę także bez problemu wysyłać dane przez port, które...
Cześć Pomógł by ktoś ze składnią kodu ? Kod: [syntax=vb]Imports Microsoft.VisualBasic Imports System.CodeDom.Compiler Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Module Module1 Sub Main() Dim kod As String = "Imports System" & vbNewLine & "Module Module1" & vbNewLine...
Cześć Od niedawna programuję w VB i znalazłem taki, potrzebny mi kod: [syntax=vb]Imports Microsoft.VisualBasic Imports System.CodeDom.Compiler Module Module1 Sub Main() Dim kod As String = "Imports System" & vbNewLine & "Module Module1" & vbNewLine & "Sub Main()" & vbNewLine & "Console.WriteLine(" & Chr(34) & "abc" & Chr(34) & ")" & vbNewLine & "Console.ReadKey()"...
Wielkie dzięki adamas_nt za naprowadzenie (leci plus). Wcześniej w kodzie sprawdzałem już liczbę wybranych checkboxów (żeby zareagować msgbox'em, jeśli będzie ich za mało), stąd mogę zadeklarować rozmiar tablicy. Trochę problemu sprawiło mi podwójne zapętlenie. Poniżej część kodu tycząca tematu, może się jeszcze komuś przyda. [syntax=vb] ReDim tablica(1...
Gdzie popełniam błąd http://obrazki.elektroda.pl/8416040800_1...
visual string visual basic string visual studio
atmega 40khz czajnik grzałka termostatem zabezpieczenie przeładowaniem ogniw
Kod P1447 w Peugeot 508 - układ EVAP Audi A8 D2 3.7 V8 lift – błąd 17549 (P1141) Load Calculation, nieszczelność dolotu, MAF
