Mabcin

Już to zrobiłem, tak jak chciałem. Jeśli ktoś będzie chciał rozwiązanie to mogę je podać.

Cześć wszystkim. Siedzę i myślę jak to rozwiązać może ktoś z Was wpadnie na pomysł. Jak dodać odpowiednie wyniki z textboxa do odpowiednich linijek w istniejącym już pliku .txt Wizualizując wygląda to tak Mam np. textbox1 z wynikiem 6 i chciałbym tą 6 dodać do pierwszej linijki w pliku .txt Mój kod wygląda następująco: Public Class Form1 Private x As Long 'kalkulator i tworzenie zapisu cen i wag Private Sub FlatButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton2.Click Dim a, b, c, d, g, f As Object Dim dzien As String = My.Computer.FileSystem.FileExists("D:\kalkulator\" + DateTimePicker1.Text + ".txt") a = FlatTextBox1.Text b = FlatTextBox2.Text c = FlatTextBox3.Text d = FlatTextBox4.Text g = ILabel4.Text f = ILabel6.Text ILabel6.Text = Val(a * ILabel8.Text = Val(c * d) ILabel9.Text = CSng(ILabel6.Text) + CSng(ILabel8.Text) If dzien = False Then My.Computer.FileSystem.WriteAllText("D:\kalkulator\" + DateTimePicker1.Text + ".txt", FlatButton1.Text + "=" + FlatTextBox2.Text, False) ' Tworzy plik o nazwie (data dnia) jeśli go nie ma Else TUTAJ BRAKUJE kodu który by sumował i nadpisywał wyniki. End If End Sub 'wczytywanie pliku z cenami Private Sub FlatButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton6.Click Dim fd As OpenFileDialog = New OpenFileDialog() Dim strFileName As String fd.Title = "Wybierz plik txt" fd.InitialDirectory = ""D:\kalkulator\" fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*" fd.FilterIndex = 2 fd.RestoreDirectory = True If fd.ShowDialog() = DialogResult.OK Then strFileName = fd.FileName End If Dim lines = IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF8) ' fd.FileName to wybrany plik TXT 'pobieranie poszczególnych wartośćci z wybranych wierszy Dim pierwsza = lines(0).Split("="c)(1) Dim druga = lines(1).Split("="c)(1) FlatTextBox1.Text = pierwsza FlatTextBox3.Text = druga End SubEnd Class W miejscu gdzie jest " TUTAJ BRAKUJE kodu który by sumował i nadpisywał wyniki." Wymyśliłem takie coś: Dim fd As OpenFileDialog = New OpenFileDialog() Dim strFileName As String fd.Title = "Wybierz plik txt" fd.InitialDirectory = "D:\kalkulator\" fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*" fd.FilterIndex = 2 fd.RestoreDirectory = True If fd.ShowDialog() = DialogResult.OK Then strFileName = fd.FileName End If Dim lines = IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF8) ' fd.FileName to wybrany plik TXT Dim zapisane1, kg As Single zapisane1 = lines(0).Split("="c)(1) kg = CSng(FlatTextBox2.Text) ILabel3.Text = CSng(zapisane1) + CSng(kg) My.Computer.FileSystem.WriteAllText("D:\kalkulator\" + DateTimePicker1.Text + ".txt", FlatButton1.Text + "=" + CSng(zapisane1) + CSng(kg), False) Ale niestety wywala błąd "Konwersja z ciągu "Ilość=" na typ 'Double' nie jest prawidłowa." Ma ktoś jakiś może inny pomysł jak to rozwiązać?

Ceha jak zwykle w dobrej formie i dzieli się swoją wiedzą

Jambos, przyjadę do domu w nocy i Ci podrzuce jak ja mam zrobione by wczytywało do text boxa dokładnie tak jak jest zapisane w pliku .txt. Chyba, że ktoś wcześniej Ci odpowie.

Witam. Czy jest ktoś w stanie powiedzieć mi jak ustawić kolejność wyskakujących okienek (Form2 i Form3) Program wygląda tak. Mamy 2 Combobox Gdy w 1 nie wybierzemy nic wyskakuje error 1. Gdy w drugim combobox nic nie wybierzemy wyskakuje error 2. Jeśli oba combobox są puste wyskakuje na raz error 1 i error 2 tylko chciałbym by error 1 był wyświetlany nad error 2 by jego najpierw trzeba było wyłączyć. Kod wygląda następująco: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Double If ComboBox1.Text = "" Then Form2.Show() Else a = (a + 1) End If If ComboBox2.Text = "" Then Form3.Show() Else a = (a + 1) End If If a = (2) Then ProgressBar1.Value = 0 Button1.Visible = False ProgressBar1.Visible = True Label1.Visible = True Timer1.Start() End If End Sub Można zamknąć już sobie z tym poradziłem: Zmieniłem kolejność obliczania które okno jest poprawnie. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Double If ComboBox2.Text = "" Then Form3.Show() Else a = (a + 1) End If If ComboBox1.Text = "" Then Form2.Show() Else a = (a + 1) End If If a = (2) Then ProgressBar1.Value = 0 Button1.Visible = False ProgressBar1.Visible = True Label1.Visible = True Timer1.Start() End If End Sub

Jumper, Słuchaj ściągnąłem Twój theme (effectual), generalnie wszystko działa. jeśli chcesz by progressbar się ładował lecz gdy wciśniesz button jeszcze raz to zresetuje progressbar to musisz ustawić tak: Public Class Form1 Private Sub EffectualButtonBlue1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EffectualButtonBlue1.Click Timer1.Start() EffectualProgressBarOrange1.Value = 0 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick EffectualProgressBarOrange1.Value += 1 If EffectualProgressBarOrange1.Value = EffectualProgressBarOrange1.Maximum Then Timer1.Stop() End If End SubEnd Class

frycek1987 powiem Ci tak. Ja zawsze robię to w ten sposób gdy skończę program biorę Save -> Ctrl + S nie mylić z Save All czyli Ctrl + Shift + S Następnie biorę ten folder główny programu zaznaczam wszystkie pliki i foldery takie jak tutaj http://prntscr.com/22624p i kopiuję gdzieś indziej. Potem jak edytuje z któryś programów zawsze robię Ctrl+S nie Ctrl + Shift + S i nigdy mi się nie nadpisuje.

A wrzuć jakiś theme bo ja np. mam tak gdy używam standardowego progressbar, jeśli wybiorę progressbar z theme nie mam tego problemu

Dokładnie tak jak pisze adrn1337 trzeba na początku ustawić progressbar równo z buttonem i wybrać Visible=False. Natomiast jeśli chcesz by przycisk znów był widoczny po tym jak progressbar się załaduje do końca w timerze wpisz If ProgressBar1.Value = ProgressBar1.Maximum Then Timer1.Stop() Button1.Visible = True End If

Trawka, Dzięki wielkie parę razy przeglądałem ten plik i nie widziałem tego nie wiem jakim cudem. Zmieniłem tak jak mówiłeś i wszystko działa. Bardzo dobra sprawa w połączeniu z cronem świetnie się będzie spisywało.

Czy mieliście już taki problem, że wrzucacie na server te skrypty i przechodzicie do skrypt.php i wyświetla za każdym razem "Brak postow do ktorych mozna dodac komenatarze"

Tutaj masz wszystko dobrze pokaż dalszą część. Progressbar włączą się dopiero po kliknięciu w button, i wyświetla bleble w textbox. Po ponownym kliknięciu w button resetuje progressbar i ładuje od nowa. Błąd musisz mieć gdzieś indziej Jak widzisz u mnie nawet progress bar nie drgnie gdy buttona nie wcisnę. http://prntscr.com/20navq

Można skasować ponieważ moje pytanie było głupie gdyż nie wczytał mi się na telefonie do końca post poprzednika. Co do Msgboxa miałem ale wolę form2 i form3 gdyż okienka komunikatu wyglądają ładniej bo są takie same jak program.

Witam. Jest taki problem, że po kliknięciu raz i wygenerowaniu kodu to przycisk za 2 razem już nie działa. Problem się pojawił po dodaniu If ComboBox1.Text = "" Then Form2.Show() Else a = (a + 1) End If If ComboBox2.Text = "" Then Form3.Show() Else a = (a + 1) End If If a = (2) Then Timer1.Start() If ProgressBar1.Value = ProgressBar1.Maximum Then ProgressBar1.Value = 0 End If End If Gdy było samo Timer1.Start() If PerplexProgressBar1.Value = PerplexProgressBar1.Maximum Then PerplexProgressBar1.Value = 0 Program działał jak należy.Denerwowało mnie tylko to, że nawet jak pola combobox zostana puste to włącza się progressbar. Teraz progressbar się nie włącza bez wybranej opcji z comboboxa ale za to nie można wygenerować nic drugi raz. Proszę o podsunięcie jakiegoś rozwiązania. Gdzie popełniłem błąd?

Zapomniałem napisać, że rozwiązałem problem If RedemptionComboBox1.SelectedItem = "Opcja1" Then If RedemptionComboBox2.SelectedItem = "tekst1" Then MultiTxtBox1.Text = plik.ReadToEnd End If