Thread: Telematics.net

thought you already had some other carpc software that some people bashed?

Not sure how poeple could bash it, because it was never released to the public ?? It's only been sent to carpc venders.








You've never seen this peice of software or used it, jackass

Looks cool, I like the way it looks. I would be interested in playing with it.

Originally Posted by IntellaWorks

Not sure how poeple could bash it, because it was never released to the public ?? It's only been sent to carpc venders.

You've never seen this peice of software or used it, jackass

lol i was talking about another piece, and I was just being sarcastic . But i do like the looks of this one. I didn't have much to say about it before because all i saw was a OSX looking bar and a black screen, sorry.

No offense taken, I guess I can see where your comming from in the .NET software although it is in devlopment stages and I'll change the looks 1000 times. Thanks for the response back I feel better

Cool looking interface! No source code = no inspiration.

Here's the Gui class, its gunna control the form actions, opening and closing..
I'd like to have the software remember where it was when ignition shuts the computer off, which is why its writing info to a database. "launch" & "hide" just controls opening and closing of forms right now.

Code:

Public Class GUI_Class

    Public Enum gui_state
        GUI_mp3
        GUI_dvd
        GUI_email
        GUI_gps
        GUI_settings
        GUI_radio
        GUI_tv
        GUI_main
    End Enum
    Public globalGUI As gui_state

    Public audio As New frm_audio







    Public Sub Start()
        Dim r_count As Integer
        Dim i As Integer
        Dim apps(1) As String







        '*
        'Set recordset up with all the fields
        '*
        InitDataBase("sql", "SELECT * FROM GUI")


        r_count = main_recordset.Fields.Count
        '*
        'get total fields
        '*




        '*
        'Set each action into the app(?) array
        '*
        ReDim apps(r_count)
        For i = 0 To r_count - 1
            apps(i) = System.Convert.ToString(main_recordset(i).Value)
        Next

        main_connection.Close()

        '*
        'Lets go ahead and look for a launch for each application or multiple apps
        '*

        If apps(1) = "launch" Then
            '*
            'Launch Audio by calling the audio class
            '*

            audio.Show()



            ShowFiles("c:\")



            'Temporary


        End If

        If apps(2) = "launch" Then
            '*
            'Launch Video
            '*
        End If

        If apps(3) = "launch" Then
            '*
            'Launch email
            '*

        End If

        If apps(4) = "launch" Then
            '*
            'launch gps
            '*

        End If

        If apps(5) = "launch" Then
            '*
            'launch weather
            '*

        End If

        If apps(6) = "launch" Then
            '*
            'Settings
            '*

        End If

     







    End Sub

    Public Sub Evnt(ByVal application As Integer)
        Dim holder As String
        Dim Bfrm_audio As New frm_audio


        Select Case (application)


            Case 1 '::audio::

                '*
                'lets go out and get the value in the audio field
                'and place it into: holder(string)
                '*
                InitDataBase("sql", "SELECT GUI.[audio] FROM GUI")
                holder = System.Convert.ToString(main_recordset(0).Value)
                main_connection.Close()

                '*
                'Check what holder has to say and do the opposite
                'if hide then launch
                'if launch then hide
                '*
                If holder = "hide" Then
                    InitDataBase("sql", "UPDATE GUI SET GUI.[audio]='launch' WHERE GUI.[ID]=1")
                    main_connection.Close()
                    audio = Bfrm_audio
                    audio.Show()
                End If
                If holder = "launch" Then
                    InitDataBase("sql", "UPDATE GUI SET GUI.[audio]='hide' WHERE GUI.[ID]=1")
                    main_connection.Close()
                    audio.Hide()
                End If

                'End of event






            Case 2 '::video::

            Case 3 '::email::

            Case 4 '::gps::

            Case 5 '::weather::

            Case 6 '::settings::

        End Select

    End Sub




 






End Class

Keep in mind its not finished code, its more or less a representation of my psuedocode. I'm still playing with ideas and your seeing multiple ideas.

This code here in a nutshell, gets ADODB (w Jet4) database connections ready. Ahh and you can also run sql statements using Initdatabase(arg1,arg2)

Code:

Module main


    Private Db_directory As String

    Public main_connection As New ADODB.Connection
    Public main_recordset As New ADODB.Recordset

    Public gui As New GUI_Class
    Public global_frmMAIN As New frm_main


    Public Sub setfrm_main(ByRef frm As Form)
        global_frmMAIN = frm
    End Sub

    Public Sub ShowFiles(ByVal dir As String)
        'this shows all the files in a directory
        Dim d() As String
        Dim str As String
        Dim en As System.Collections.IEnumerator

        d = System.IO.Directory.GetFiles(dir)
        en = d.GetEnumerator

        While en.MoveNext
            str = (CStr(en.Current))
        End While

    End Sub
    Public Sub InitDataBase(ByRef whattodo As String, ByRef str As String)
        Dim db_dir As String
        Dim fil1 As System.IO.File

        db_dir = Application.StartupPath & "\telematicsDB.mdb"

        If fil1.Exists(db_dir) Then
            Set_DBDIR(db_dir)


            main_connection.Open(System.Convert.ToString(DataBase_Connection("Admin", "")))



            If whattodo = "sql" Then
                'sql statement inputted
                With main_recordset
                    .ActiveConnection = main_connection
                    .Open(str, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockPessimistic)
                End With

            End If

            If whattodo = "table" Then
                'select a table
                With main_recordset
                    .ActiveConnection = main_connection
                    .Open(str, , ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
                End With
            End If



        End If

        'main_connection.Close()

    End Sub

    Function DataBase_Connection(ByVal DB_login As String, ByVal DB_PW As String) As String
        Dim YesNo As Boolean
        Dim FinalStr As String
        Dim Db_Jet As String

        Db_Jet = "Provider = Microsoft.Jet.OLEDB.4.0;"
        FinalStr = Db_Jet & "Data Source=" & Get_DBDIR() & ";" & DB_login & "," & DB_PW
        DataBase_Connection = FinalStr
    End Function


    Function Get_DBDIR() As String
        Get_DBDIR = Db_directory


    End Function


    Sub Set_DBDIR(ByVal db_dir As String)
        Db_directory = db_dir
    End Sub
End Module

OK, that's at least marginally more inspirational. Have you considered using the .Net preferred method for saving application settings/state (i.e. app.config file)? Granted, you're probably going to have a DB around anyhow to track the media library, but I'm just thinking out loud -- that's part of the benefit you get by posting some code.