Skip to content

Commit

Permalink
v0.8 of Cpmag
Browse files Browse the repository at this point in the history
  • Loading branch information
anshbansal committed Aug 29, 2013
1 parent 952b24b commit 376c4c5
Show file tree
Hide file tree
Showing 7 changed files with 79 additions and 32 deletions.
6 changes: 3 additions & 3 deletions Code generator v0.1/Code generator v0.1/Code generator v0.1.vbproj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -29,10 +29,10 @@
<PublisherName>Aseem Bansal</PublisherName>
<OpenBrowserOnPublish>false</OpenBrowserOnPublish>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>0.8.0.%2a</ApplicationVersion>
<ApplicationVersion>0.9.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
<BootstrapperEnabled>false</BootstrapperEnabled>
<BootstrapperComponentsLocation>Relative</BootstrapperComponentsLocation>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
Expand All @@ -51,7 +51,7 @@
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>C Programming Made A Game.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
Expand Down
54 changes: 40 additions & 14 deletions Code generator v0.1/Code generator v0.1/Content_Control.vb
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,7 @@
End Sub

Public Sub Button1_Clicked()
'This is used to add Steps to the List of Steps After Selecting Lesson Number
'This is used to ADD STEPS TO THE LIST OF STEPS After Selecting Lesson Number
Form1.Label3.Text = "The Goal Of this lesson is to"
Select Case Form1.Lessons.SelectedItem
Case "Lesson 01"
Expand All @@ -19,13 +19,13 @@
Form1.Steps.Items.Add("Step 01")
Form1.Steps.Items.Add("Step 02")
Form1.Steps.Items.Add("Step 03")
Form1.Steps.Items.Add("Step 04")
Case "Lesson 02"
Form1.Current_Display.Clear()
Form1.Current_Display.Text = String_Lesson02_Goal
Form1.Display.Clear()
Form1.Steps.Items.Clear()
Form1.Steps.Items.Add("Step 01")
Form1.Steps.Items.Add("Step 02")
End Select
End Sub

Expand All @@ -41,13 +41,15 @@
Form1.Display.Text = String_Lesson01_Step02_Goal
Case "Step 03"
Form1.Display.Text = String_Lesson01_Step03_Goal
Case "Step 04"
Form1.Display.Text = String_Lesson01_Step04_Goal
End Select
Case "Lesson 02"
Select Case Form1.Steps.SelectedItem
Case "Step 01"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step01_Goal
Case "Step 02"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step02_Goal
End Select
End Select
End Sub
Expand All @@ -64,13 +66,19 @@
Form1.Display.Text = String_Lesson01_Step02_Instructions
Case "Step 03"
Form1.Display.Text = String_Lesson01_Step03_Instructions
Case "Step 04"
Form1.Display.Text = String_Lesson01_Step04_Instructions
End Select
Case "Lesson 02"
Select Case Form1.Steps.SelectedItem
Case "Step 01"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step01_Instructions
Case "Step 02"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step02_Instructions
Case "Step 03"
Form1.Display.Text = String_Lesson02_Step03_Instructions
Case "Step 04"
Form1.Display.Text = String_Lesson02_Step04_Instructions
End Select
End Select
End Sub
Expand All @@ -87,19 +95,25 @@
Form1.Display.Text = String_Lesson01_Step02_Code_To_Be_Copied
Case "Step 03"
Form1.Display.Text = String_Lesson01_Step03_Code_To_Be_Copied
Case "Step 04"
Form1.Display.Text = String_Lesson01_Step04_Code_To_Be_Copied
End Select
Case "Lesson 02"
Select Case Form1.Steps.SelectedItem
Case "Step 01"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step01_Code_To_Be_Copied
Case "Step 02"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step02_Code_To_Be_Copied
Case "Step 03"
Form1.Display.Text = String_Lesson02_Step03_Code_To_Be_Copied
Case "Step 04"
Form1.Display.Text = String_Lesson02_Step04_Code_To_Be_Copied
End Select
End Select
End Sub

Public Sub RadioButton4_Checked()
'This is used to set content of DETIALS OF THE CODE section
'This is used to set content of DETAILS OF THE CODE section
Form1.Label3.Text = "The Goal Of this lesson is to"
Select Case Form1.Lessons.SelectedItem
Case "Lesson 01"
Expand All @@ -110,19 +124,25 @@
Form1.Display.Text = String_Lesson01_Step02_Details_Of_The_Code
Case "Step 03"
Form1.Display.Text = String_Lesson01_Step03_Details_Of_The_Code
Case "Step 04"
Form1.Display.Text = String_Lesson01_Step04_Details_Of_The_Code
End Select
Case "Lesson 02"
Select Case Form1.Steps.SelectedItem
Case "Step 01"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step01_Details_Of_The_Code
Case "Step 02"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step02_Details_Of_The_Code
Case "Step 03"
Form1.Display.Text = String_Lesson02_Step03_Details_Of_The_Code
Case "Step 04"
Form1.Display.Text = String_Lesson02_Step04_Details_Of_The_Code
End Select
End Select
End Sub

Public Sub RadioButton5_Checked()
'This is used to set content of FURTHER TECHNICAL DETAILS section
'This is used to set content of FURTHER DETAILS section
Form1.Label3.Text = "The Goal Of this lesson is to"
Select Case Form1.Lessons.SelectedItem
Case "Lesson 01"
Expand All @@ -133,13 +153,19 @@
Form1.Display.Text = String_Lesson01_Step02_Further_Technical_Details
Case "Step 03"
Form1.Display.Text = String_Lesson01_Step03_Further_Technical_Details
Case "Step 04"
Form1.Display.Text = String_Lesson01_Step04_Further_Technical_Details
End Select
Case "Lesson 02"
Select Case Form1.Steps.SelectedItem
Case "Step 01"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step01_Further_Technical_Details
Case "Step 02"
Form1.Display.Text = ""
Form1.Display.Text = String_Lesson02_Step02_Further_Technical_Details
Case "Step 03"
Form1.Display.Text = String_Lesson02_Step03_Further_Technical_Details
Case "Step 04"
Form1.Display.Text = String_Lesson02_Step04_Further_Technical_Details
End Select
End Select
End Sub
Expand Down
8 changes: 4 additions & 4 deletions Code generator v0.1/Code generator v0.1/Form1.Designer.vb
View file

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

15 changes: 9 additions & 6 deletions Code generator v0.1/Code generator v0.1/Form1.vb
View file
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
Public Class Form1

Public Const String_Version As String = "v 0.7"
Public Const String_Version As String = "v 0.9"
Public Const String_Project_Start As String = "24th August 2012"
Public Const String_Version_Release As String = "4th September 2012"
Public Const String_Version_Release As String = "Not Yet"

Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'This subroutine is used when GLOSSARY IS ENDED
Expand All @@ -24,15 +24,18 @@
AddLessons()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Handles The Form1 starting
Me.Text = "C Programming Made A Game " & String_Version
Current_Display.Text = "How to use this software"
Current_Display.Text = "Learn how to use this software"
Display.Text = String_Start
Label1.Text = "List of Lessons"
Label2.Text = "List of Steps"
Label3.Text = "What is being Displayed"
Label1.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
Label2.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
Label3.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
Label1.Font = New Font("Microsoft Sans Serif", 9.5, FontStyle.Regular)
Label2.Font = New Font("Microsoft Sans Serif", 9.5, FontStyle.Regular)
Label3.Font = New Font("Microsoft Sans Serif", 9.5, FontStyle.Regular)
Display.Font = New Font("Microsoft Sans Serif", 10, FontStyle.Regular)
Current_Display.Font = New Font("Microsoft Sans Serif", 9.4, FontStyle.Regular)
Button3.Hide()
Button4.Hide()
AddLessons()
Expand Down
Loading

0 comments on commit 376c4c5

Please sign in to comment.