v0.3 of Cpmag

Code generator v0.1/Code generator v0.1/ApplicationEvents.vb

@@ -0,0 +1 @@
+

Code generator v0.1/Code generator v0.1/Code generator v0.1.vbproj

@@ -28,8 +28,8 @@
     <MapFileExtensions>true</MapFileExtensions>
     <PublisherName>Aseem Bansal</PublisherName>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
-    <ApplicationRevision>1</ApplicationRevision>
-    <ApplicationVersion>0.2.0.%2a</ApplicationVersion>
+    <ApplicationRevision>7</ApplicationRevision>
+    <ApplicationVersion>0.3.0.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
     <BootstrapperEnabled>true</BootstrapperEnabled>
@@ -68,7 +68,7 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <SignManifests>true</SignManifests>
+    <SignManifests>false</SignManifests>
   </PropertyGroup>
   <PropertyGroup>
     <ManifestCertificateThumbprint>4A4982384BFC92AF8FE154719EDC723B5656B4C7</ManifestCertificateThumbprint>
@@ -79,6 +79,9 @@
   <PropertyGroup>
     <GenerateManifests>true</GenerateManifests>
   </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="System" />
     <Reference Include="System.Data" />
@@ -103,6 +106,7 @@
     <Import Include="System.Xml.Linq" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="ApplicationEvents.vb" />
     <Compile Include="Form1.vb">
       <SubType>Form</SubType>
     </Compile>
@@ -140,6 +144,7 @@
   <ItemGroup>
     <None Include="App.config" />
     <None Include="Code generator v0.1_TemporaryKey.pfx" />
+    <None Include="My Project\app.manifest" />
     <None Include="My Project\Application.myapp">
       <Generator>MyApplicationCodeGenerator</Generator>
       <LastGenOutput>Application.Designer.vb</LastGenOutput>

Code generator v0.1/Code generator v0.1/Form1.vb

@@ -1,73 +1,286 @@
 Public Class Form1
 
-    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
-        Display.Text = "How can this app help YOU??" &
-               Chr(13) & Chr(13) &
-               "            It can teach you C language without Books" &
-               Chr(13) & Chr(13) &
-               "                In 15 MINUTES AT A TIME" &
-                Chr(13) & Chr(13) &
-               "Developer           =>   Aseem Bansal" &
-               Chr(13) & Chr(13) &
-               "Project Started on  =>   24th August 2012" &
-               Chr(13) & Chr(13) &
-               "Current Version     =>   0.2"
+    Const String_Version As String =
+        "v 0.3"
+    Const String_Project_Start As String =
+        "24th August 2012"
+    Const String_Version_Release As String =
+        "28th August 2012"
 
+    Const String_Start As String =
+        "           Lesson 00" &
+        Chr(13) & Chr(13) &
+        "How to start using this Software?" &
+        Chr(13) & Chr(13) &
+        "1. Click on Lesson 01 in the list of Lessons. " &
+        Chr(13) &
+        "2. Click on the button =>Lesson Selected<= " &
+        Chr(13) & Chr(13) &
+        "    Some Steps are displayed in the List of Steps" &
+        Chr(13) & Chr(13) &
+        "3. Click on Step 01 in the List of Steps" &
+        Chr(13) & Chr(13) &
+        "   After following the instruction in 4th point the text displayed on this screen will change" &
+        Chr(13) &
+        "   Just read the instructions given there and follow them" &
+        Chr(13) & Chr(13) &
+        "4. Click on the button =>Step Selected<="
+    Const String_About As String =
+        "Developer           ==>   Aseem Bansal" &
+        Chr(13) & Chr(13) &
+        "Project Started on  ==> " & String_Project_Start &
+        Chr(13) & Chr(13) &
+        String_Version & " released  on  ==> " & String_Version_Release
+    Const String_Contact_Me As String =
+        "This is still a work in progress so if you want more features JUST send an me an" &
+        "e-mail about what you want and I will add them as soon as I can" &
+        Chr(13) & Chr(13) &
+        "CONTACT:-" &
+        Chr(13) &
+        "aseembansal@ymail.com" &
+        Chr(13) & Chr(13) &
+        "Please write [C Programming Made A Game] in the title of the e-mail"
+    Const String_Technical As String =
+        "Tool on which the Codes have been tested" &
+        Chr(13) &
+        "1. Code:Blocks (An Open Source C/C++ IDE)  http://www.codeblocks.org/"
+    Const String_Update =
+        "https://programmingmadeagame.wordpress.com/download-links/" &
+        Chr(13) & Chr(13) &
+        "The above link is the one at which the latest version will always be posted"
+    Const String_Lesson01_Goal As String =
+                "->Use a software to make a simple software"
+    Const String_Lesson01_Step01_Goal As String =
+        "These are the Goals of this Step:-" &
+        Chr(13) & Chr(13) &
+        "->Getting a software for making software" &
+        Chr(13) &
+        "->Installing the software" &
+        Chr(13) &
+        "->Starting the software" &
+        Chr(13) &
+        "->Copying something into the software" &
+        Chr(13) &
+        "->Making a simple software" &
+        Chr(13) & Chr(13) &
+        "What is NOT the goal" &
+        Chr(13) &
+        "->To know what is happening when we are doing the instructions given next" &
+        Chr(13) &
+        "Just follow the step-by-step instructions. Things will be explained later." &
+        Chr(13) & Chr(13) &
+        "The instructions given next may be many in number but they are EASY TO USE step-by-step instructions and easy to use. So now click on instructions button"
+    Const String_Lesson01_Step01_Instructions As String =
+        "1. If you have Code:Blocks 10.05 mingw already installed on your computer then you can go to point 5." &
+        Chr(13) & Chr(13) &
+        "   If you do not understand what is written in the above line go to the next point" &
+        Chr(13) & Chr(13) &
+        "2. Open this website http://www.codeblocks.org/downloads/26#windows in your web browser(e.g. Internet Explorer, Google Chrome etc.)" &
+        Chr(13) & Chr(13) &
+        "3. Now Click on either of the 2 download links of codeblocks-10.05mingw-setup.exe" &
+        Chr(13) & Chr(13) &
+        " -> When the software is downloaded we completed the first goal" &
+        Chr(13) & Chr(13) &
+        "4. Now install it. For installing it double click and keep on clicking all the 'yes' and 'next' that come in installation" &
+        Chr(13) & Chr(13) &
+        "5. An option appears for starting the software. You need to start the software and end the installation" &
+        Chr(13) & Chr(13) &
+        " -> We completed the 2nd goal now" &
+        Chr(13) & Chr(13) &
+        "6. When the software starts there is a thing called tooltip. Close it." &
+        Chr(13) & Chr(13) &
+        " -> We completed the 3rd goal now" &
+        Chr(13) & Chr(13) &
+        "7. Now you will have a white space with 'Start Here' Written near the top left" &
+        Chr(13) & Chr(13) &
+        "8. Press Ctrl+Shift+N. That means that you to press all three of these together. If that is tough then go to File Menu => New => Click on Empty File" &
+        Chr(13) & Chr(13) &
+        "9. A new tab would appear with the name *Untitled1 near the 'Start Here' at the top of white space" &
+        Chr(13) & Chr(13) &
+        "10. Now Copy the words given in 'Code to be Copied' section in the white space" &
+        Chr(13) & Chr(13) &
+        " -> We completed the second last goal" &
+        Chr(13) & Chr(13) &
+        "11. Press Ctrl+S to Save the file. Name it 1.1 which stands for Lesson01 Step01" &
+        Chr(13) & Chr(13) &
+        "12. Now Press F9. Wait a moment and a screen will appear. There is 'I just made a software' written on it and some other things also written in the next lines." &
+        Chr(13) & Chr(13) & Chr(13) &
+        "So that is the simple software running. So we completed our last goal also. " &
+        Chr(13) & Chr(13) &
+        "That was not difficult. Was it? Remember that you will not have to download the software again. It will be installed in your computer so you just need to copy some words into it, press F9 and your software will be made"
+    Const String_Lesson01_Step01_Code_To_Be_Copied As String =
+        "#include<stdio.h>" &
+        Chr(13) & Chr(13) &
+        "void main()" &
+        Chr(13) &
+        "{" &
+        Chr(13) &
+        "	printf(""\n\n\nI just made a software\n\n\n\n"");""" &
+        Chr(13) &
+        "}"
+    Const String_Lesson01_Step01_Details_Of_The_Code As String =
+        ""
+    Const String_Lesson01_Step01_Further_Technical_Details As String =
+        ""
+    Const String_Lesson02_Goal As String =
+        ""
+    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Me.Text = "C Programming Made A Game " & String_Version
+        Current_Display.Text = "->Use this software"
+        Display.Text = String_Start
     End Sub
 
-    Private Sub VersionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VersionToolStripMenuItem.Click
-        Display.Text = "This is still a work in progress so" &
-               Chr(13) &
-               "If you want more features JUST send an me an e-mail about what you want " &
-               Chr(13) &
-               "and I will add them as soon as I can" &
-               Chr(13) & Chr(13) &
-               "NOTE:-" &
-               Chr(13) &
-               "Please write" &
-               Chr(13) &
-               "[C Programming Made A Game]" &
-               Chr(13) &
-               "in the title of the e-mail" &
-               Chr(13) & Chr(13) &
-               "CONTACT:-" &
-               Chr(13) &
-               "aseembansal@ymail.com"
+    Private Sub StartToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartToolStripMenuItem.Click
+        Current_Display.Text = "->Use this software"
+        Display.Text = String_Start
     End Sub
 
-    Private Sub TechnicalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TechnicalToolStripMenuItem.Click
-        Display.Text = "Tool on which the Codes have been tested" &
-               Chr(13) &
-               "1. Code:Blocks (An Open Source C/C++ IDE)  http://www.codeblocks.org/"
+    Private Sub AboutToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem1.Click
+        Current_Display.Clear()
+        Display.Text = String_About
+    End Sub
+
+    Private Sub TechnicalToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TechnicalToolStripMenuItem1.Click
+        Current_Display.Clear()
+        Display.Text = String_Technical
+    End Sub
+
+    Private Sub ContactMeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContactMeToolStripMenuItem.Click
+        Current_Display.Clear()
+        Display.Text = String_Contact_Me
+    End Sub
+
+    Private Sub HelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelToolStripMenuItem.Click
+        Current_Display.Clear()
+        Display.Text = String_Update
     End Sub
 
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Select Lessons.SelectedItem
             Case "Lesson 01"
+                Current_Display.Clear()
+                Current_Display.Text = String_Lesson01_Goal
+
                 Me.Steps.Items.Clear()
                 Me.Steps.Items.Add("Step 01")
+                Me.Steps.Items.Add("Step 02")
             Case "Lesson 02"
+                Current_Display.Clear()
+                Current_Display.Text = String_Lesson02_Goal
+                Display.Clear()
                 Me.Steps.Items.Clear()
-                Me.Steps.Items.Add("No Steps Added Here")
-            Case "Lesson 03"
-                Me.Steps.Items.Clear()
-                Me.Steps.Items.Add("No Steps Added Here")
-            Case "Lesson 04"
-                Me.Steps.Items.Clear()
-                Me.Steps.Items.Add("No Steps Added Here")
+                Me.Steps.Items.Add("Step 01")
+                Me.Steps.Items.Add("Step 02")
         End Select
     End Sub
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
+        RadioButton6.Select()
+        RadioButton1.Select()
+    End Sub
+
+    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
+        Select Case Lessons.SelectedItem
+            Case "Lesson 01"
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = String_Lesson01_Step01_Goal
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
+            Case "Lesson 02"
+                Current_Display.Text = ""
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = ""
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
+        End Select
+    End Sub
+
+    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
+        Select Case Lessons.SelectedItem
+            Case "Lesson 01"
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = String_Lesson01_Step01_Instructions
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
+            Case "Lesson 02"
+                Current_Display.Text = ""
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = ""
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
+        End Select
+    End Sub
+
+    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
+        Select Case Lessons.SelectedItem
+            Case "Lesson 01"
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = String_Lesson01_Step01_Code_To_Be_Copied
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
+            Case "Lesson 02"
+                Current_Display.Text = ""
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = ""
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
+        End Select
+    End Sub
+
+    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
         Select Case Lessons.SelectedItem
             Case "Lesson 01"
                 Select Case Steps.SelectedItem
                     Case "Step 01"
+                        Display.Text = String_Lesson01_Step01_Details_Of_The_Code
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
+            Case "Lesson 02"
+                Current_Display.Text = ""
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = ""
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
+        End Select
+    End Sub
 
-                        Display.Text = "Aseem Bansal"
+    Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
+        Select Case Lessons.SelectedItem
+            Case "Lesson 01"
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = String_Lesson01_Step01_Further_Technical_Details
+                    Case "Step 02"
+                        Display.Text = ""
                 End Select
             Case "Lesson 02"
+                Current_Display.Text = ""
+                Select Case Steps.SelectedItem
+                    Case "Step 01"
+                        Display.Text = ""
+                    Case "Step 02"
+                        Display.Text = ""
+                End Select
         End Select
     End Sub
 
+    Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
+        Display.Clear()
+    End Sub
+
 End Class