Search:

Type: Posts; User: VB Client/Server

Page 1 of 8 1 2 3 4

Search: Search took 0.02 seconds.

  1. Replies
    13
    Views
    964

    Re: Search and extract from txt file?

    Dim iFile As Integer
    Dim sLine As String, sNewText As String
    iFile = FreeFile



    Open App.Path & "\brojac.txt" For Input As #iFile
    Do While Not EOF(iFile)
    Line Input #iFile, sLine
    ...
  2. Replies
    13
    Views
    964

    Re: Search and extract from txt file?

    No,

    text4.text is string which I search in text file

    example text4.text = E2004107730602110750D004

    when I search text file, I want to extract 002 to text5.text

    The whole line in text...
  3. Replies
    13
    Views
    964

    Search and extract from txt file?

    Hello,
    I have a txt file counter.txt look's like this


    E20041077307006919304D6D,001
    E2004107730602110750D004,002
    E2004107730602170750D013,003
    E20041077307004319304D30,004...
  4. RFID without mscomm component, using api?

    Hello, can someone help to modify this source and remove mscomm component, make it only work with mscomm api ?
    It work's with regular com port but it's not working with PL2302 USB to RS232 using...
  5. Replies
    10
    Views
    1,059

    Re: [RESOLVED] MySQL delete subitem's

    For i = 1 To ListView1.ListItems.Count

    strsql = "update " & cmbTabla.Text & " set poredak=''," _
    & "strbroj=''," _
    & "vrijeme=''," _
    & "razlika=''," _
    & "pbrzina=''" _
    & "where ime<>1"
    Set...
  6. Replies
    10
    Views
    1,059

    Re: MySQL delete subitem's

    Object variable or With block variable not set
    run-time error 91
  7. Replies
    10
    Views
    1,059

    Re: MySQL delete subitem's

    Dim strsql As String
    Dim rs As ADODB.Recordset
    Do While Not rs.EOF
    strsql = "update " & cmbTabla.Text & " set poredak='', vrijeme='', pbrzina=''"
    rs.MoveNext
    Loop
    Set rs = Nothing

    i get...
  8. Replies
    10
    Views
    1,059

    Re: MySQL delete subitem's

    Dim rs As ADODB.Recordset
    Dim strsql As String
    strsql = "insert into " & cmbTabla.Text & " (poredak, strbroj, ime, klub, grodjenja, kategorija, vrijeme, razlika, pbrzina, napomena) values (" _
    &...
  9. Replies
    10
    Views
    1,059

    [RESOLVED] MySQL delete subitem's

    OK, how to delete all items subitems in mysql table and save it

    in my table I have 1st item and 9 subitems

    I want to delete 1st item and 3-4-6 subitem's and then save all to database?

    to...
  10. [RESOLVED] Listview call listview_itemclick ?

    Hello,

    I have a listview and search option, when I enter search string, there will be only 1 record in listview, so how to emulate pressing left mouse button on that item?


    Private Sub...
  11. Replies
    12
    Views
    33,967

    Re: VB - ListView; LabelEdit for SubItems

    hello,

    If I edit 1st column, how can I directly change subitem colum 3 and 4 from database ( for example )

    If I add number 50 to frist coulumn I want to change subitem 3 and 4 in that column...
  12. Replies
    14
    Views
    2,526

    Re: [RESOLVED] Average speed formula ?

    Function TimeToDecimalSeconds(time As Variant) As Single
    Dim timeParts() As String
    Dim Seconds As Integer
    timeParts = Split(time, ":")
    Seconds = CInt(timeParts(0)) * 3600 'hours
    ...
  13. Replies
    14
    Views
    2,526

    Re: [RESOLVED] Average speed formula ?

    00:58:14:458 - 00:56:23:125 = 00:-01:-51:-333
  14. Replies
    14
    Views
    2,526

    Re: [RESOLVED] Average speed formula ?

    and how to calculate difference from

    01:23:18:356
    01:23:19:654 ( + in seconds )

    or

    01:23:18:356
    01:32:19:654
  15. Re: Stopwatch with miliseconds

    excellent, thank you Bonnie West
  16. Re: Stopwatch with miliseconds

    Label1.Caption = Format(s \ 3600, "00") & ":" & Format(s \ 60, "00") & ":" & Format(s Mod 60, "00") & _
    Format(CountDown - s, "##.00")

    afther 1hour i get time like this
    ...
  17. Replies
    14
    Views
    2,526

    Re: Average speed formula ?

    35600 / ((01 * 60 * 60) + (12 * 60) + 26) * 3600 / 1000
  18. Replies
    14
    Views
    2,526

    Re: Average speed formula ?

    time is 01:12:26
    distance is 35600 m
    average speed is 29.49 Kilometers per hour (km/h)

    how to get that with vb
    I know that formula is

    x=d/t
    x speed
    d distance
  19. Replies
    14
    Views
    2,526

    [RESOLVED] Average speed formula ?

    How to calculate average speed ?

    time is 01:12:26
    distance is 35600 m
  20. Re: Stopwatch with miliseconds

    Afther 11 min of running I get

    01:11:23,45

    why I did get 1 hour after 11 min ?
  21. Re: Stopwatch with miliseconds

    I have some progress, but I dont know if this will work for hours correctly?
    Also I didnt get miliseconds in the end and last separator is "," insted ":"

    can someone check this code please

    ...
  22. Re: [RESOLVED] Countdown Timer with minutes seconds and milliseconds

    How to make normal stopwatch timer from this example, not running backwards?
    HH:mm:ss:sss
  23. Re: Stopwatch with miliseconds

    duplicate post, sry
  24. Re: Stopwatch with miliseconds

    I have found this code posted by Ellis Dee


    Option Explicit

    Private Const FormatString = "#,##0.000"

    Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As...
  25. Re: Stopwatch with miliseconds

    I cant get this working
    what should be timer interval in this case?
  26. Re: Stopwatch with miliseconds

    Now I realize that my first question wasnt clear enough, what I need is stopwatch timer with miliseconds in it, not current time with miliseconds

    HH:mm:ss:sss - > 00:00:00:000
  27. Re: Stopwatch with miliseconds

    Thank you for your attention
    yes, but how to measure time, I need stopwatch.

    in format HH:mm:ss:sss
  28. [RESOLVED] Stopwatch with miliseconds

    Hello,


    Private Sub Timer1_Timer()
    Label1.Caption = Format(DateDiff("s", StartTime, Now) / 86400, "hh:mm:ss")
    End Sub

    I need to see also miliseconds HH:mm:ss:sss ?
    How to have that also and...
  29. Re: How to find closest match beteen 2 numbers

    lol :)
    I'm almoust 40 year's old, it's been a while when I was last time in school ;)
  30. Re: How to find closest match beteen 2 numbers

    d = (arrLine(1) - txt1)^2 + (arrLine(2) - txt2)^2

    but I dont know how to code that...
  31. How to find closest match beteen 2 numbers

    I have a txt file gps.txt
    inside that file ist


    45:27.22445;18:84.7421239;023546;31052015;12;3
    43:34.2171;17:45.648532;123546;12051995;12;24
    49:34.6571;16:12.648532;123546;12051995;12;24
    and...
  32. Re: How to extract from info from textbox ?

    my bad, working :)
    thx
  33. [RESOLVED] How to extract from info from textbox ?

    Hello,

    I have a textbox and I want to extract only last 90 characters from it

    example


    Client-002:...
  34. Replies
    14
    Views
    1,448

    Re: [RESOLVED] Do Until process close ?

    yes,


    Private Const PROCESS_QUERY_INFORMATION = &H400
    Private Const PROCESS_VM_READ = &H10

    this part was missing in my code


    Public Sub WaitForExe(ByVal p_ExeName As String)
  35. Replies
    14
    Views
    1,448

    Re: Do Until process close ?

    No, this not help...

    I just want to know when other app is finished.
  36. Replies
    14
    Views
    1,448

    Re: Do Until process close ?

    I want to start some exe ( not cmd.exe it was just example ), that exe will
    do something in about 20-50 seconds, what I wish is to be sure when it close
    so I can continue with my code, I need...
  37. Replies
    14
    Views
    1,448

    [RESOLVED] Do Until process close ?

    How to loop without CPU usage and detect if exe is closed ?
    Maximum time for loop 30 seconds without using timer !


    Private Declare Function OpenProcess Lib "Kernel32" ( _
    ByVal...
  38. Re: Took time for function

    yes, you are right, thank you both.
  39. Re: Took time for function

    not working, get time for 1.2 sec 1200,000 mS
  40. [RESOLVED] Took time for function

    Option Explicit
    Dim dblStartTime As Double
    Dim dblEndTime As Double
    Dim dblDiff As Double
    Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

    Private Sub Command1_Click()
    ...
Results 1 to 40 of 283
Page 1 of 8 1 2 3 4



Click Here to Expand Forum to Full Width