Facebook
From Chujek, 1 Year ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 110
  1. Public Class Form1
  2.     Private Sub BTzapiszTXT_Click(sender As Object, e As EventArgs) Handles BTzapiszTXT.Click
  3.         Dim Srednica, Dlugosc, Rozmiar, Liczba As Single
  4.         Dim plik As String
  5.  
  6.         Try
  7.             Srednica = CSng(TXTSrednica.Text)
  8.             Dlugosc = CSng(TXTdlugosc.Text)
  9.             Rozmiar = CSng(TXTrozmiar.Text)
  10.             Liczba = CSng(TXTliczba.Text)
  11.  
  12.         Catch ex As Exception
  13.             MsgBox(ex.Message)
  14.         End Try
  15.  
  16.         Try
  17.             plik = "c:\Bosh\swieca1.txt"
  18.  
  19.             FileOpen(1, plik, OpenMode.Output)
  20.             PrintLine(1, """Srednica gwintu""=" + TXTSrednica.Text)
  21.             PrintLine(1, """Dlugosc gwintu""=" + TXTdlugosc.Text)
  22.             PrintLine(1, """Rozmiar szesciokata""=" + TXTrozmiar.Text)
  23.             PrintLine(1, """Liczba""=" + TXTliczba.Text)
  24.  
  25.  
  26.         Catch ex As Exception
  27.             MsgBox(ex.Message)
  28.  
  29.         End Try
  30.  
  31.     End Sub
  32. End Class