MPGHThe Dark Arts
RegisterLog in

AtomikDesktop- OpenSource?

Posts 1–15 of 32 · Page 1 of 3
AtomikDesktop- OpenSource?
Okay quick thing my recent project of AtomikDesktop - a organizer for your desktop,With a built in media center. This is all done in visual basics.
I have recently been working on adding in DirectX support to create some really neat effects and SlideShow effects for pictures.
I have grown into really liking DirectX and have decided to make my AtomikDesktop Application Completely with DirectX.Being that this will probably take some time to accomplish I am willing to open the Source for my AtomikDesktop Application previsouly Written in VB...

So what I want to know is if i should Release the whole Project or just some of the source Including a Tutorial on how to setup the app to work.
I Have no problem releasing the whole VB project including all files,images,etc Under 1 Condition . Every person who utilizes this please be kind enough to give me credit for the work that has been done.


Please let me know guys..

just in case you havent read up on this yet
Original Post::Atomik-Desktop Organizer

Updated Video::
#1 · edited ·
I'm interested on how this will go
#2 ·
Quote Originally Posted by DawgiiStylz View Post
I'm interested on how this will go
it actually was pretty easy to develop but once i started learning directx i decided to use that entirely and i thought since no one has made anything like this before i would release the VB one as open source.this way people can edit the things they want and do whatever with it.
the main part of the source is below just to show you im serious about releasing this.
I will release the entire project including the Dll references for Geckobrowser and DotNetBar
 
Click here to view Code

Code:
Imports System.Net
Imports System****
Imports System.Net.NetworkInformation
Imports Gecko


Public Class Form1

    Dim scutSet As Boolean = False
    Dim EditMode As Boolean = False
    Dim VidLocation As String
    Dim Vidsrc As String
    Dim atom As String = "Config.xml"
    Dim WebAct As Boolean = False
    Dim PicLocation As String = "Picture_Location"
    Dim ADTheme As String = "Atomik_Desktop_Theme"
    Dim Counter As Integer
    Private Sub ButtonItem6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem6.Click
        Me.Close()
        Splash.Close()
    End Sub

    Private Sub ButtonItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem1.Click
        TabControl1.SelectedPanel = TabControlPanel1
        ButtonItem1.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem5.Enabled = True

    End Sub

    Private Sub ButtonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem2.Click
        TabControl1.SelectedPanel = TabControlPanel2
        ButtonItem2.Enabled = False
        ButtonItem1.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem5.Enabled = True
    End Sub

    Private Sub ButtonItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem3.Click
        TabControl1.SelectedPanel = TabControlPanel3
        ButtonItem3.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem1.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem5.Enabled = True
    End Sub

    Private Sub ButtonItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem4.Click
        TabControl1.SelectedPanel = TabControlPanel4
        ButtonItem4.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem1.Enabled = True
        ButtonItem5.Enabled = True
    End Sub

    Private Sub ButtonItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem5.Click
        TabControl1.SelectedPanel = TabControlPanel11
        ButtonItem5.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem1.Enabled = True
    End Sub

    Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX4.Click
        Dim launch4 As String
        Dim xdoc As New Xml.XmlDocument
        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim HomeNode As Xml.XmlNode = menuNode.Item("Home")
        Try
            If EditMode = True Then
                Dim ofd As New OpenFileDialog
                If ofd.ShowDialog() = DialogResult.OK Then
                    launch4 = ofd.SafeFileName
                    ButtonX4.Text = "This works Great Now::Launch:: " + launch4

                    NewElement = xdoc.CreateElement("Item")
                    NewElement.SetAttribute("SCLink", ofd.FileName)
                    NewElement.SetAttribute("SCImg", "imageHere")
                    HomeNode.AppendChild(NewElement)
                    NewElement.InnerText = launch4
                    xdoc.Save(atom)
                End If


            Else
                launch4 = HomeNode.ChildNodes(0).InnerText
                ButtonX4.Text = "Launch ::" + " " + launch4 + " NOW"
                Process.Start(launch4)
            End If
        Catch ex As Exception
            MessageBox.Show("Unable to Launch You Must Enter a App to Launch Please go to Edit Mode")
        End Try

    End Sub

    Private Sub ButtonX15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX15.Click
        If EditMode = False Then
            EditMode = True
            ButtonX15.Text = "Edit Mode -ON-"
        Else
            EditMode = False
            ButtonX15.Text = "Edit Mode -OFF-"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        loadHome()
        Timer1.Start()
    End Sub

    Public Sub loadHome()
        Dim xdoc As New Xml.XmlDocument
        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim HomeNode As Xml.XmlNode = menuNode.Item("Home")
        Try
            ButtonX1.Text = HomeNode.ChildNodes(0).InnerText
            ButtonX2.Text = HomeNode.ChildNodes(1).InnerText
            ButtonX3.Text = HomeNode.ChildNodes(2).InnerText
            ButtonX4.Text = HomeNode.ChildNodes(3).InnerText
            ButtonX5.Text = HomeNode.ChildNodes(4).InnerText
            ButtonX6.Text = HomeNode.ChildNodes(5).InnerText
            ButtonX7.Text = HomeNode.ChildNodes(6).InnerText
            ButtonX8.Text = HomeNode.ChildNodes(7).InnerText
            ButtonX9.Text = HomeNode.ChildNodes(8).InnerText
            ButtonX10.Text = HomeNode.ChildNodes(9).InnerText
            ButtonX11.Text = HomeNode.ChildNodes(10).InnerText
            ButtonX12.Text = HomeNode.ChildNodes(11).InnerText
            ButtonX13.Text = HomeNode.ChildNodes(12).InnerText
            ButtonX14.Text = HomeNode.ChildNodes(13).InnerText
        Catch ex As Exception
            MessageBox.Show("You must First go into Edit Mode to Enter all Your Home Shortcuts No Shortcuts will show up until all of them are Finished" + vbCrLf + "Click the Edit Mode button on top Menu", "Error Cannot start Desktop")
        End Try


    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LabelX5.Text = PerformanceCounter1.NextValue.ToString + "%"
    End Sub

    Private Sub ButtonX16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX16.Click
        loadVidSrc()
    End Sub

    Private Sub ButtonX54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX54.Click
        TabControl1.SelectedPanel = TabControlPanel7
    End Sub

    Private Sub ButtonX56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX56.Click
        FolderBrowserDialog1.ShowDialog()
        vidFold.Text = FolderBrowserDialog1.SelectedPath
    End Sub
    Private Sub ButtonX55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX55.Click
        Dim xdoc As New Xml.XmlDocument
        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Media")
        Dim VideoNode As Xml.XmlNode = MediaNode.Item("Videos")
        NewElement = xdoc.CreateElement("Item")
        NewElement.SetAttribute("VLink", vidFold.Text)
        VideoNode.AppendChild(NewElement)
        NewElement.InnerText = vidName.Text


        xdoc.Save(atom)
        loadVidSrc()
    End Sub
    Public Sub loadVidSrc()

        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        vidLoc.Items.Clear()

        Dim xdoc As New Xml.XmlDocument
        Dim Video As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Media")
        Dim VideoNode As Xml.XmlNode = MediaNode.Item("Videos")
        For Each Video In VideoNode
            ListBox1.Items.Add(Video.InnerText)
            Dim vidF As String = Video.GetAttribute("VLink").ToString
            vidLoc.Items.Add(vidF)
        Next
        TabControl1.SelectedPanel = TabControlPanel6
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        vidLoc.SelectedIndex = ListBox1.SelectedIndex

        Dim VidFolder As String = vidLoc.SelectedItem
        Dim avi As String()
        Dim wmv As String()
        avi = Directory.GetFiles(VidFolder, "*.avi")
        wmv = Directory.GetFiles(VidFolder, "*.wmv")
        For Each video In avi
            ListBox2.Items.Clear()
            Dim filename As String
            filename = Path.GetFileName(video)
            ListBox2.Items.Add(filename)
            ListBox3.Items.Add(video)


        Next
        For Each video In wmv
            ListBox3.Items.Clear()
            Dim filename As String
            filename = Path.GetFileName(video)
            ListBox2.Items.Add(filename)
            ListBox3.Items.Add(video)
        Next

    End Sub

    Private Sub ButtonX57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX57.Click
        PanelEx5.Visible = False
        VPlayer.Visible = True
        AxWindowsMediaPlayer1.URL = ListBox3.SelectedItem
    End Sub

    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
        ListBox3.SelectedIndex = ListBox2.SelectedIndex
        MTitle.Text = ListBox2.SelectedItem
        PanelEx5.Visible = True
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        VPlayer.Visible = False


    End Sub

    Private Sub ButtonX60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX60.Click
        TabControl1.SelectedPanel = TabControlPanel9
    End Sub
    Public Sub webVideo()
        webVids.Items.Clear()
        webPath.Items.Clear()
        Dim xdoc As New Xml.XmlDocument
        Dim Video As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Media")
        Dim WebNode As Xml.XmlNode = MediaNode.Item("Web")
        For Each Video In WebNode
            webVids.Items.Add(Video.InnerText)
            Dim vidF As String = Video.GetAttribute("VLink").ToString
            webPath.Items.Add(vidF)
        Next

    End Sub

    Private Sub webVids_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles webVids.SelectedIndexChanged
        webPath.SelectedIndex = webVids.SelectedIndex
        AxWindowsMediaPlayer2.URL = webPath.SelectedItem
    End Sub

    Private Sub ButtonX58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX58.Click
        TabControl1.SelectedPanel = TabControlPanel8
        webVideo()
    End Sub

    Private Sub ButtonX59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX59.Click
        Dim xdoc As New Xml.XmlDocument

        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Media")
        Dim WebNode As Xml.XmlNode = MediaNode.Item("Web")
        NewElement = xdoc.CreateElement("Item")
        NewElement.SetAttribute("VLink", webLink.Text)
        WebNode.AppendChild(NewElement)
        NewElement.InnerText = WebName.Text


        xdoc.Save(atom)
        TabControl1.SelectedPanel = TabControlPanel8
        webVideo()
    End Sub

    Private Sub ButtonX64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX64.Click
        FolderBrowserDialog1.ShowDialog()
        picFolder.Text = FolderBrowserDialog1.SelectedPath

    End Sub

    Private Sub ButtonX63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX63.Click
        Dim xdoc As New Xml.XmlDocument

        Dim NewElement As Xml.XmlElement
        xdoc.Load(atom)
        Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
        Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
        Dim MediaNode As Xml.XmlNode = menuNode.Item("Settings")
        Dim imageNode As Xml.XmlNode = MediaNode.Item("Pictures")
        NewElement = xdoc.CreateElement(PicLocation)
        imageNode.AppendChild(NewElement)
        NewElement.InnerText = picFolder.Text

        xdoc.Save(atom)
        MessageBox.Show("Settings Saved", "Successfull")
    End Sub

    Private Sub ButtonX17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX17.Click
        loadPicsSrc()

    End Sub
    Public Sub loadPicsSrc()
        PicList.Items.Clear()
        Try
            Dim xdoc As New Xml.XmlDocument

            Dim image As Xml.XmlElement
            xdoc.Load(atom)
            Dim MainNode As Xml.XmlNode = xdoc.Item("Main")
            Dim menuNode As Xml.XmlNode = MainNode.Item("Menus")
            Dim MediaNode As Xml.XmlNode = menuNode.Item("Settings")
            Dim imageNode As Xml.XmlNode = MediaNode.Item("Pictures")
            For Each image In imageNode
                Dim AtomikPic As String()
                AtomikPic = Directory.GetFiles(image.InnerText)
                For Each ImG In AtomikPic

                    PicList.Items.Add(ImG)
                Next
            Next
            Counter = PicList.Items.Count - 1
            PicList.SelectedIndex = PicList.SelectedIndex + 1
            TabControl1.SelectedPanel = TabControlPanel10
            PictureBox1.Load(PicList.SelectedItem)
        Catch ex As Exception
            MessageBox.Show("You must Set your Picture Location First" + vbCrLf + "Use the Settings Tab and Set your Location Then you will be able to use the Pictures ", "ERROR")
        End Try

    End Sub

    Private Sub PicList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PicList.SelectedIndexChanged
        PictureBox1.Load(PicList.SelectedItem)
    End Sub

    Private Sub ButtonX62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX62.Click
        If PicList.SelectedIndex = Counter Then
            PicList.SelectedIndex = 0
        Else
            PicList.SelectedIndex = PicList.SelectedIndex + 1
        End If
    End Sub

    Private Sub ButtonX61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX61.Click
        If PicList.SelectedIndex = 0 Then
            PicList.SelectedIndex = Counter
        Else
            PicList.SelectedIndex = PicList.SelectedIndex - 1
        End If
    End Sub

    Private Sub PlayName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayName.SelectedIndexChanged
        Playlist.SelectedIndex = PlayName.SelectedIndex
        Timer2.Start()

        AxWindowsMediaPlayer3.URL = Playlist.SelectedItem
        Label3.Text = PlayName.SelectedItem
    End Sub

    Private Sub ButtonX18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX18.Click
        TabControl1.SelectedPanel = TabControlPanel5
        AxWindowsMediaPlayer3.uiMode = "none"
    End Sub

    Private Sub ButtonItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem7.Click
        OpenFileDialog2.ShowDialog()
        For I As Integer = 0 To OpenFileDialog2.FileNames.Count - 1
            PlayName.Items.Add(OpenFileDialog2.SafeFileNames(I))
            Playlist.Items.Add(OpenFileDialog2.FileNames(I))
        Next
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label3.Text = "Now Playing:: " + PlayName.SelectedItem
        Label3.Left -= 2
        If Label3.Left <= -Width Then
            Label3.Left = Width
        End If
    End Sub

    Private Sub ButtonX52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX52.Click
        TabControl1.SelectedPanel = TabControlPanel12
        GeckoWebBrowser1.Navigate("http://youtube.com")
    End Sub
End Class
#3 · edited ·
Should focus on the theme first
#4 ·
*facepalm* Controls are not even labelled.
#5 ·
Code:
TabControl1.SelectedPanel = TabControlPanel1
        ButtonItem1.Enabled = False
        ButtonItem2.Enabled = True
        ButtonItem3.Enabled = True
        ButtonItem4.Enabled = True
        ButtonItem5.Enabled = True
Stopped reading as soon as I saw this -.-
#6 ·
Ya too professional
#7 ·
Quote Originally Posted by DawgiiStylz View Post
Ya too professional
No, it's not "professional" to adequately name your controls, it's standard. I can understand if you're running up a 20 second form and just need functionality for yourself, but if you're planning on releasing it as "open source", you should be making even this tiny effort to make your code readable and maintainable.

By looking at the code, I have absolutely no idea what it's doing, what buttons are being enabled/disabled, how is the form changing? That's not the kind of response you want to get when you're releasing public source.
#8 · edited ·
Quote Originally Posted by Jason View Post


No, it's not "professional" to adequately name your controls, it's standard. I can understand if you're running up a 20 second form and just need functionality for yourself, but if you're planning on releasing it as "open source", you should be making even this tiny effort to make your code readable and maintainable.

By looking at the code, I have absolutely no idea what it's doing, what buttons are being enabled/disabled, how is the form changing? That's not the kind of response you want to get when you're releasing public source.
Thats completely true. I forgot about that
#9 ·
This thing has over 184 buttons between 3 forms do you really think i would rename every button lol you are crazy. Stop complaining.
The media Center is the first one every done in Visual basics and i also stopped finishing it. Its no wheres near perfected. I said that at the beginning i went to directX b.c its more stable for a media center and it will support 1080P quality video streaming without Major Buffering. And i can support Ftp streaming not just websites.
Just in under 2 weeks i got a better design and functionality then this one could do.
but on a serious note its pretty easy to understand if you had the whole project thats why i was asking if people would like to have it if not no biggy not my loss. no sweat

and i should have added comments into it sorry

the buttons 1-5 are the tab control at the top.
#10 · edited ·
Make it more like Win8 where you an move buttons, add buttons, ect
#11 ·
Quote Originally Posted by XiAtomikiX View Post
This thing has over 184 buttons between 3 forms do you really think i would rename every button lol you are crazy.
It's people like you that make my job fucking miserable.
#12 ·
Quote Originally Posted by Jason View Post


It's people like you that make my job fucking miserable.
get another job fucktard <3
#13 ·
Quote Originally Posted by 'Bruno View Post


get another job fucktard <3
Why should I let them win :3 They're a minority, but when the time comes around and I get asked to fix something broken that a down syndrome spastic donkey coded, it's not pleasant.
#14 ·
Quote Originally Posted by Jason View Post


It's people like you that make my job fucking miserable.
lol again u assume i made this to be professional my copy is coded alot better but why edit the open source project for people to just Copy and Paste hello its called using ur damn head instead of being spoon fed.

Btw apparantly u have a really bad job if you think this is hard to figure out. Trying learning the code that me and a team of 4 people have coded using c++ as a backend and Python for the UI on a web based app for our LMS at work.

now that was hard to be added to a team and have to learn their ways.
but hey being a Software Engineer i dont complain b.c i make a good salary
#15 ·
Posts 1–15 of 32 · Page 1 of 3

Post a Reply

Similar Threads

Visual Basic Programming[Release]OpenSource CAaccount PhishNextGen1NextGen1 21 Visual Basic Programming[OpenSource][Release]Working AutotyperLollandLolland 3 Visual Basic Programming[OpenSource] Proper DownloaderBlubb1337Blubb1337 16 Visual Basic Programming[Release][Opensource] Login System by -WØW''Lyoto Machida 26 Visual Basic Programming[Release][OpenSource] Advanced Virtual OSkunal1212kunal1212 22

Tags for this Thread

None

Need help?