Reserve and Free Upgrade to Windows 10 -Windows 7 and 8 Users

Microsoft Alert for Windows 7 and 8 Users ‘Reserve’ Free Windows 10 Upgrade



Microsoft Official News: Windows 10 is coming on 29 July 2015.Windows 7 or Windows 8 and above

Users can download and Install the final version of Windows 10 on July 29 onwards.



All you have to do, Just "Reserve free Windows 10 Upgrade".



*Click on the small Windows icon (Get Windows 10 App)found at the right end of the taskbar.

Get Windows 10 App--checks to make sure your device is compatible, and it reserves your free upgrade

*Click “Reserve your free upgrade” in the app window.



*Enter your email if you want a confirmation of this reservation.



*Done. you can also cancel your reservation at any time.





PC Requirements

Operating System:Windows7 Sp1 or Windows 8.1 Update



Processor : 1GHz or faster

RAM : 1GB (32-bit) or 2GB (64-bit)



Hard disk space : 16GB for 32 bit,20 GB for 64 bit



Graphics card : Microsoft DirectX 9 graphics device with WDDM driver



Display:1024*600



----------------------------------------------------------------------------




for more information



http://www.microsoft.com/en-us/windows/windows-10-faq

Please comments and Like :-)

Learn Visual Basic 6.0 (VB6)- Road Traffic lights Demonstration App Usin...

Learn Visual Basic 6.0(VB6)- Road Traffic lights Demonstration App Using Timer and Shape Control

as we know that how traffic lights works..

But in this video demonstration, following  issues i.e

*How will you design the Traffic light using Shape control.

*How will you make the traffic lights functional using timer control.

for more Visual Basic tutorials,please visit http://selfcomputerlearning.blogspot.in/

Please like and comments:-)



Source Code:

Private Sub Timer1_Timer()

Static state As Integer

Select Case state

Case 0

shpred.BackColor = vbRed

shpyellow.BackColor = vbWhite

shpgreen.BackColor = vbWhite

lblmsg.Caption = "Stop"

lblmsg.forecolor=vbred

Timer1.Interval = 7000

state = 1

Case 1

shpred.BackColor = vbWhite

shpyellow.BackColor = vbYellow

shpgreen.BackColor = vbWhite

lblmsg.Caption = "Wait"

lblmsg.forecolor=vbyellow

Timer1.Interval = 2000 state = 2

Case 2 shpred.BackColor = vbWhite

shpyellow.BackColor = vbWhite

shpgreen.BackColor = vbGreen

lblmsg.Caption = "Go"

lblmsg.forecolor=vbgreen

Timer1.Interval = 5000

state = 0 End Select End Sub



Please Comments and Share

Learn Visual Basic 6.0- ListBox Control- Advanced- Hospital Wards - Pat...

Hospital Wards - Patients Health Status Application
In App, Two List Boxes List1 "Ward" and List2 "Patients" are used .
When we click on the any ward i.e ICU,GENERAL,TROMA...in ward list,Name of patients of the particular will be appeared in the Patients List.
Secondly,When you click on the name of the patient in the Patient List,It will show the Health Status of that Patient.
This demonstration is only illustrating the working of listbox control in depth.
Just watch first 5 seconds of the video to know more about this app
 Source code
http://www.mediafire.com/view/15c9qh0ptkfrayf/List_Box_-Hospital_App.txt

Please do the comments and Like:-) 



Source Code for Hospital Wards - Patients Health Status Application:
Private Sub List1_Click()
Dim ward As String
ward = List1.Text
Select Case ward
Case "ICU"
List2.Clear
List2.AddItem "Ramesh"
List2.AddItem "Kamal"
List2.AddItem "Raman"
Case "TROMA CENTRE"
List2.Clear
List2.AddItem "Sanjeev"
List2.AddItem "Kamal"
List2.AddItem "Palvinder"
Case "MATERNITY"
List2.Clear
List2.AddItem "Priya"
List2.AddItem "Naina"
List2.AddItem "Reena"
Case "GENERAL"
List2.Clear
List2.AddItem "Jonny"
List2.AddItem "Kewal"
List2.AddItem "Raman"
Case "PRIVATE"
List2.Clear
List2.AddItem "Rajinder"
List2.AddItem "Kishore"
List2.AddItem "Rajan"
Case "CHILDREN"
List2.Clear
List2.AddItem "Rocky"
List2.AddItem "Mohit"
List2.AddItem "Aman"
End Select
End Sub

Private Sub List2_Click()
If List2.Text = "Ramesh" Then
Text1.Text = "Patient is Under Medical Supervision"
ElseIf List2.Text = "Sanjeev" Then
Text1.Text = "Patient is Critical"
ElseIf List2.Text = "Jonny" Then
Text1.Text = "Patient is  under rehablitation"
Else
End If
End Sub