.NET (Core and Framework)

i have just in time debugging problem

30-Mar-15 2:34

Please read http://www.codeproject.com/Messages/3122367/How-to-get-an-answer-to-your-question.aspx[^].

Re: Re-Full Text Search

Eddy Vluggen30-Mar-15 3:10

Eddy Vluggen

30-Mar-15 3:10

MSDN has a topic on those subjects. They've invested some time in it. I suggest you do the same Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Re: Re-Full Text Search

ZurdoDev30-Mar-15 4:45

ZurdoDev

30-Mar-15 4:45

As already mentioned, this is not the right group. However, please refer to https://msdn.microsoft.com/en-us/library/ms142571.aspx[^].

And you are asking questions that can be easily answered by a simple search in google.

There are only 10 types of people in the world, those who understand binary and those who don't.

Re-Index

Member 1116162530-Mar-15 1:50

Member 11161625

30-Mar-15 1:50

HI,

Every Body

I want to ask, that when to create clustered index and
non clustered index on tables in sql server.

Re: Re-Index

ZurdoDev30-Mar-15 4:44

ZurdoDev

30-Mar-15 4:44

This is the wrong discussion group, it should be asked in the Database one. However, you can only have 1 clustered index per table because the clustered index determines how the records are physically stored on the drive.

There are only 10 types of people in the world, those who understand binary and those who don't.

rafizan4629-Mar-15 23:01

29-Mar-15 23:01

and this is the error .. somebody please help me Frown | :(

The device is not ready

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.IO.IOException: The device is not ready.

at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
at System.IO.__Error.WinIODriveError(String driveName, Int32 errorCode)
at System.IO.DriveInfo.get_TotalSize()
at SYSINFO.Form1.TextBox11_TextChanged(Object sender, EventArgs e)
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

************** Loaded Assemblies **************
mscorlib
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
SYSINFO
Assembly Version: 4.0.0.0
Win32 Version: 4.0.0.0
CodeBase: file:///H:/SYSINFO.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 10.0.0.0
Win32 Version: 12.0.53323.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Configuration
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.

Richard MacCutchan29-Mar-15 23:10

29-Mar-15 23:10

Member 11558919 wrote:
The device is not ready

Which device, and what is your code trying to do?

rafizan4629-Mar-15 23:19

29-Mar-15 23:19

this is my code..

Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Imports System.Diagnostics
Imports System.Management
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic.Devices
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Text
Imports System.ComponentModel

Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

<System.Diagnostics.DebuggerNonUserCode()> _
Private Sub me_load(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Value = PerformanceCounter1.NextValue
ProgressBar2.Value = PerformanceCounter2.NextValue
Label3.Text = ProgressBar1.Value.ToString + "%"
Label4.Text = ProgressBar2.Value.ToString + "%"
End Sub

Private WithEvents MyProcess As Process
Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = System.Environment.MachineName
End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox2.Text = System.Environment.UserName
End Sub

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox3.Text = My.Computer.Info.OSFullName
End Sub

Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox4.Text = My.Computer.Info.OSPlatform
End Sub

Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox5.Text = My.Computer.Info.OSVersion
End Sub

Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox6.Text = My.Computer.Info.InstalledUICulture.ToString
End Sub

Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox7.Text = System.Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)).ToString
End Sub

Private Sub Label15_Click(sender As Object, e As EventArgs) Handles MyBase.Load
Timer2.Start()
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Label15.Text = TimeOfDay
End Sub

Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles Timer1.Tick
TextBox13.Text = (" " & getBatteryStatus() + vbOKOnly)

End Sub

Public Function getBatteryStatus() As Integer
Dim obj As Object, obj2 As Object, stat As Integer
' Get Battery Status
' Return Value Meaning
'0 No battery
'1 The battery is discharging.
'2 The system has access to AC so no battery is being discharged. However, the battery is not necessarily charging.
'3 Fully Charged
'4 Low
'5 Critical
'6 Charging
'7 Charging and High
'8 Charging and Low
'9 Charging and Critical
'10 Undefined
'11 Partially Charged
stat = 0
obj = GetObject("winmgmts:").InstancesOf("Win32_Battery")
For Each obj2 In obj 'loop in objects
stat = obj2.BatteryStatus
Next
getBatteryStatus = stat
End Function

Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox9.Text = My.Computer.FileSystem.GetDriveInfo("C:\").TotalSize \ 1000000000 & " GB"
End Sub

Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox10.Text = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub

Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox11.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize \ 1000000000 & " GB"
End Sub

Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox12.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub

Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox14.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start("https://www.facebook.com/Land.RoverF")
End Sub

Private Sub CheckForUpdates()

Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/s/02c0p66bqihq79z/version.txt.txt?dl=0")
Dim response As System.Net.HttpWebResponse = request.GetResponse()

Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

Dim newestversion As String = sr.ReadToEnd()
Dim currentversion As String = Application.ProductVersion
If newestversion > currentversion Then
MsgBox("There is a new update..")
System.Diagnostics.Process.Start("https://www.dropbox.com/s/mbshbyd582zrcuc/SYSINFO%20V.2.0.exe?dl=0")
Else
MsgBox("Update is the latest..")
End If
End Sub
Private Sub button3_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim proc = Process.GetProcessesByName("explorer")
For i As Integer = 0 To proc.Count - 1
proc(i).Kill()
Next i
End Sub

Private Sub outputtextbox_text(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AcceptButton = ExecuteButton
MyProcess = New Process
With MyProcess.StartInfo
.FileName = "CMD.EXE"
.UseShellExecute = False
.CreateNoWindow = True
.RedirectStandardInput = True
.RedirectStandardOutput = True
.RedirectStandardError = True
End With
MyProcess.Start()

MyProcess.BeginErrorReadLine()
MyProcess.BeginOutputReadLine()
AppendOutputText("Process Started at: " & MyProcess.StartTime.ToString)
End Sub

Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.ErrorDataReceived
AppendOutputText(vbCrLf & "Error: " & e.Data)
End Sub

Private Sub MyProcess_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.OutputDataReceived
AppendOutputText(vbCrLf & e.Data)
End Sub

Private Sub ExecuteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExecuteButton.Click
MyProcess.StandardInput.WriteLine(InputTextbox.Text)
MyProcess.StandardInput.Flush()
InputTextbox.Text = ""
End Sub

Private Sub AppendOutputText(ByVal text As String)
If OutputTextbox.InvokeRequired Then
Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
Me.Invoke(myDelegate, text)
Else
OutputTextbox.AppendText(text)
End If
End Sub

Private Sub ExecuteButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExecuteButton.MouseHover

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
MyProcess.StandardInput.WriteLine("systeminfo", "/k systeminfo ")
MyProcess.StandardInput.Flush()

End Sub

Private Sub ABOUTToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ABOUTToolStripMenuItem1.Click
MsgBox("This software still in BETA Version. All Right Reserved. rafizan46 Corporation. 2015.")
End Sub

Private Sub CHECKUPDATESToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CHECKUPDATESToolStripMenuItem1.Click
CheckForUpdates()
End Sub

Private Sub SLEEPToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SLEEPToolStripMenuItem.Click
Shell("shutdown -l")
End Sub

Private Sub RESTARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RESTARTToolStripMenuItem.Click
Shell("shutdown -r")
End Sub

Private Sub SHUTDOWNToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SHUTDOWNToolStripMenuItem.Click
Shell("shutdown -s")
End Sub

Private Sub AlertStringDownloaded(ByVal sender As Object, ByVal e As DownloadStringCompletedEventArgs)
' Did the request go as planned (no cancellation or error)?
If e.Cancelled = False AndAlso e.Error Is Nothing Then
' Do something with the result here
'e.Result
End If
End Sub

Dim WithEvents client As New WebClient

Private Sub DirectX9ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirectX9ToolStripMenuItem.Click
Try
client.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/s/cn3q0u70ds57x4r/Direct%20X%2011%20Update.rar?dl=0"), "C:\Documents and Settings\All Users\Documents\Direct X 11 Update.RAR")
Catch ex As Exception
MsgBox("File already exists or is corrupted!")
End Try
End Sub

Private Sub client_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles client.DownloadFileCompleted
MsgBox("Download Complete!", MsgBoxStyle.Information)
Label48.Visible = False
Label49.Visible = False
ProgressBar3.Visible = False
Label48.Text = "0 &"
Label49.Text = "0 / 0"
ProgressBar3.Value = 0
End Sub

Private Sub client_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles client.DownloadProgressChanged
Label48.Visible = True
Label49.Visible = True
ProgressBar3.Visible = True
Label48.Text = ProgressBar3.Value & "%"
Label49.Text = e.BytesReceived & " / " & e.TotalBytesToReceive
ProgressBar3.Value = e.ProgressPercentage

End Sub
Private Sub GeForceExperienceV2000ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GeForceExperienceV2000ToolStripMenuItem.Click

Try
client.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/s/apd4kq76v1xqpwi/GeForce_Experience_v2.2.2.0.exe?dl=0"), "C:\Documents and Settings\All Users\Documents\GeForce_Experience_v2.2.2.0.exe")
Catch ex As Exception
MsgBox("File already exists or is corrupted!")
End Try
End Sub

Private Sub ABOUTTHISPARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ABOUTTHISPARTToolStripMenuItem.Click
MsgBox("This 'Software' section require internet connection to work.")
MsgBox("This part still in BETA.")
MsgBox("All downloaded file will be placed on directory C:\All Users\Documents\")
MsgBox("For every completed download, a message box will appear that tell you download has completed.")
End Sub
End Class

Richard MacCutchan29-Mar-15 23:25

29-Mar-15 23:25

And you expect us to guess where the error occurs?

rafizan4629-Mar-15 23:28

29-Mar-15 23:28

actually my code trying to get information like OS name, processor name, user name and computer name.. Poke tongue | ;-P

Richard Deeming30-Mar-15 2:13

Richard Deeming

30-Mar-15 2:13

Since you haven't bothered to tell us the line where the error occurs, I'll have to guess:

VB.NET

Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox11.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize \ 1000000000 & " GB"
End Sub

Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox12.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub

On computers with a single hard-drive, drive D: (if it exists) is typically the DVD drive. If there is no DVD in the drive, then you won't be able to read the drive's information, and you'll get a "device not ready" error. You need to check the IsReady property before trying to access the other properties:

VB.NET

Dim drive As DriveInfo = My.Computer.FileSystem.GetDriveInfo("D:\")
If drive.IsReady Then
    TextBox12.Text = drive.TotalFreeSpace \ 1000000000 & " GB"
End If

You should also give your controls meaningful names - without reading the code, it's not possible to know what TextBox11 should contain.

Also, give your methods less confusing names. At first glance, it looks like TextBox11_TextChanged will handle the TextChanged event of the TextBox11 control, which would send your code into an infinite loop.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

rafizan4630-Mar-15 9:17

how to adjust the size of drawn rectangle at runtime

30-Mar-15 9:17

oh.. wow.. thanks a lot... i appreciate it!! Wink | ;)

-- modified 30-Mar-15 15:45pm.

Member 1144146829-Mar-15 20:12

Member 11441468

29-Mar-15 20:12

<pre lang="vb.net">hi,,

it is possible to adjust the size of a rectangle which is drawn in a picturebox with drawrectangle function.. During run time i want to adjust my rectangle width using numericupdown control..

thank u</pre>

Re: how to adjust the size of drawn rectangle at runtime

Richard MacCutchan29-Mar-15 21:12

Looking for a thorough Iron Python tutorial.

29-Mar-15 21:12

Yes, collect the coordinate values from your up/down control and then redraw the rectangle with the new values. You probably need to override the OnPaint method in order to do it properly.

Brady Kelly24-Mar-15 23:14

Brady Kelly

24-Mar-15 23:14

My understanding of basic Python is pretty good, but my memory fails me on all available modules and so forth, but when I last used Python, we had no luxuries like the DLR. I'm now looking for some advanced, in-depth Python tutorials, and I thought it best to look for ones that concentrate on integration with .NET. All suggestions are most welcome.

No object is so beautiful that, under certain conditions, it will not look ugly. - Oscar Wilde

Re: Looking for a thorough Iron Python tutorial.

Richard MacCutchan25-Mar-15 1:59

Re: Looking for a thorough Iron Python tutorial.

25-Mar-15 1:59

The obvious: http://ironpython.net/[^].

Brady Kelly25-Mar-15 2:05

Brady Kelly

25-Mar-15 2:05

Hehe, oops. Blush | :O

I somehow missed the "IronPython .NET Integration documentation" when I downloaded IronPython. It is more reference format though, but I should be quite fine walking myself through building something small.

No object is so beautiful that, under certain conditions, it will not look ugly. - Oscar Wilde

OOPS Concepts

ravitejapuladas24-Mar-15 21:35

ravitejapuladas

24-Mar-15 21:35

How can i learn OOPS concepts in a easy way to get the grip over the subject and use it in my daily coding life.

Richard MacCutchan24-Mar-15 21:57

24-Mar-15 21:57

Assuming that you mean OOP concepts (Oops is an exclamation), then you could start with https://www.google.co/search?q=OOP[^].

ravitejapuladas24-Mar-15 22:01

ravitejapuladas

24-Mar-15 22:01

That was Object Oriented Programming concepts.

Richard MacCutchan24-Mar-15 22:48

24-Mar-15 22:48

I know, hence my comment: it's OOP not OOPS. And did you follow the link I gave you?

ravitejapuladas24-Mar-15 23:45

ravitejapuladas

24-Mar-15 23:45

Thanks Richard. I am getting an error while trying to opening the link it is showing error message as I am trying to open it from Google. Could you please suggest me another link so that it'd be grateful for me to learn.

Richard MacCutchan25-Mar-15 1:54

25-Mar-15 1:54

Sorry, my mistake, try: https://www.google.com/search?q=OOP[^].