|
Well, if you can't use the system time, then you haven't a hope in hell, sorry.
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
WEll, he could try and get it off the internet if he manages to find a way to get the date from a site like www.whattimeisit.com (looking in the source code maybe?)
|
|
|
|
|
Hi,
This is a logical process:
Get Year ->
First time or Same Year ->
YES: Get Last ID
NO: Start Over (ID 0)
Generate ID:
Incoming/Outging & Year & ID+1
Incoming: i07-0001
Outgoing: o07-0001
to control the date and time you can build a webservice or a .NET remoting component on the server that directly generate the ID and send it to the client. You must also think about the cancellation and correction
Hope this helps
|
|
|
|
|
Hi,
I am on a project of creating handful VS 2005 addins and one of them is an in-built Font Previewer. Now i have done the basic jobs required to fill the list in an enhanced User Drawn Listbox and on SelectedIndexChange_Event i have updated the preview text.
The problem comes in when a Font doesnot support FontStyle.Regular
In this case i get an exception stating:
"Font 'Whatever be its name' doesnot support the FontStyle Regular."
So what can you guys suggest. Awaiting responses from all interested.
The project is a VB .NET one, but any CLR compliant version would do.
Regards,
Vaibhav Sharma
|
|
|
|
|
I have this situation :
I have created a dataset with wizard.The dataset has 2 tables :
Table 1 Table2
Col11 (Primary key) Col21 (Primary key)
Col12 Col22
Col13 Col23
The tables are related (Col11---Col22).
Now i want to display only those records in table 1 that have one (ore more) rows in Table 2 with col22 <=0)
How can i do this using only dataset ( not using SQL query in tableadapter)
|
|
|
|
|
You should be able to use the Select property to filter by col22<=0...
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Thank you
But i want to filter rows in Table 1 and the col22 columns is in table2
How to use select property in this case :
Me.dataset.Table1.select ( "Col22>=0" ) - This cause an error
???
|
|
|
|
|
mysybet123 wrote: Me.dataset.Table1.select ( "Col22>=0" )
Is it
Me.dataset.Table(1).Select("Col22>=0")
what is the error? Make sure 'Col22' is there in your dataset's table 1.
Mubashir
Software Architect
Storan Technologies Inc, USA
Every job is a self portrait of the person who did it.
|
|
|
|
|
The col22 is in dataset table2 not in table1.Table2 and table1 have a relationship.
|
|
|
|
|
|
Hi, I have problems with classes and arrays actually.
my code would be to long to post here so I set up a another project just to test my theory, and of course it doesn't work. the test code is:
form1 Class:
Public Class Form1
Dim test As New test1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
test.testArray()
Dim i As Integer
For i = 0 To test.array.GetUpperBound(0)
list1.Items.Add(test.array(i))
Next
End Sub
End Class
test1 class:
Public Class test1
Public array() As Integer
Public Sub testArray()
Dim i As Integer
For i = 0 To 15
array(i) = i
Next
End Sub
End Class
this code doesn't work; when i run the app a error pops out:
NullReference exception was unhandled
Object reference not set to an instance of an object.
I have tried using the new keyword : dim i as new test1.array
it immediatelly underlines the code saying array is not declared.
In my real project array is declared as a structure, and i fill this structure with SQL data reader results and i save the whole strcuture in a array.
but the problem is I cant access the array from another class!
Please help. Thanks in advance!
-- modified at 13:29 Sunday 26th August, 2007
|
|
|
|
|
Your structure is inside the class
I'd imagine that:
Dim i As mainFunctions.fieldStructure = class.navArray(loopindex)
would work.
-- Always write code as if the maintenance programmer were an axe murderer who knows where you live.
Upcoming FREE developer events:
* Glasgow: Agile in the Enterprise Vs. ISVs, Mock Objects, SQL Server CLR Integration, Reporting Services, db4o ...
* Reading: SQL Bits
My website
|
|
|
|
|
hi
how can i get MAC address of client machine which is unique number not of server ?
Thanks
bye
|
|
|
|
|
How you do that depends on the networking environment the machines are in.
If you're talking about any "client" machine on the Internet, you can't. You'll get the MAC address of the last hop that put the packet on your network.
If you're talking about a local area network, there are other issues that must be accounted for.
|
|
|
|
|
Hi,
I am not sure if I fully understand your question, but you can try this snippet.
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_NetworkAdapterConfiguration")
Dim mcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each o As Management.ManagementObject In mcol
If o.Item("IPEnabled") = True Then
MsgBox(o.Item("MacAddress").ToString())
End If
Next
for more info please go to http://msdn2.microsoft.com/en-us/library/aa394217.aspx[^]
Note: Add a reference to System.Management.dll
Hope this helps
|
|
|
|
|
I didn't give him this answer because I don't know if he's looking for the MAC address of machine in his local segment, if he needs the MAC on machines other than Windows, if this has to work on the Internet, ...
I firmly believe that if you ask a question in less than 150 words, you've left out important details that are required to give an accurate answer...
|
|
|
|
|
Hi,
I am new to .net framework. I know that while the compilation, .net source code get converted to IL.
My doubt is where I can see this IL code?
Ahamed Azeem
\
|
|
|
|
|
Why do you want to ?
Christian Graus - Microsoft MVP - C++
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Use Lutz Roeder's Reflector.
-- Always write code as if the maintenance programmer were an axe murderer who knows where you live.
Upcoming FREE developer events:
* Glasgow: Agile in the Enterprise Vs. ISVs, Mock Objects, SQL Server CLR Integration, Reporting Services, db4o ...
* Reading: SQL Bits
My website
|
|
|
|
|
You have to open a Visual Studio command prompt, then type ILDASM to launch the IL Disassembler. Open the compiled .EXE or .DLL in that and you can see all the IL code.
|
|
|
|
|
Thanks a lot
Ahamed Azeem
software Programmer
|
|
|
|
|
Like the others said, use Reflector or ILDASM. This link to opcodes/instructions [^] can be helpful for you, as well.
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
hello every one
i am working on my assignment and i have done about 75% work but i am strugling to collid ball with padle i mean bat so can any one help me with this issue code is like this
some time it works but some time it's behaive very funny
Option Explicit On <br />
Option Strict On<br />
Public Class frmPong<br />
Inherits System.Windows.Forms.Form<br />
<br />
#Region " Windows Form Designer generated code "<br />
<br />
Public Sub New()<br />
MyBase.New()<br />
<br />
'This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
<br />
'Add any initialization after the InitializeComponent() call<br />
<br />
End Sub<br />
<br />
'Form overrides dispose to clean up the component list.<br />
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
If disposing Then<br />
If Not (components Is Nothing) Then<br />
components.Dispose()<br />
End If<br />
End If<br />
MyBase.Dispose(disposing)<br />
End Sub<br />
<br />
'Required by the Windows Form Designer<br />
Private components As System.ComponentModel.IContainer<br />
<br />
'NOTE: The following procedure is required by the Windows Form Designer<br />
'It can be modified using the Windows Form Designer. <br />
'Do not modify it using the code editor.<br />
Friend WithEvents timPong As System.Windows.Forms.Timer<br />
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
Me.components = New System.ComponentModel.Container<br />
Me.timPong = New System.Windows.Forms.Timer(Me.components)<br />
'<br />
'timPong<br />
'<br />
'<br />
'frmPong<br />
'<br />
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
Me.BackColor = System.Drawing.Color.GreenYellow<br />
Me.ClientSize = New System.Drawing.Size(728, 461)<br />
Me.Name = "frmPong"<br />
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen<br />
Me.Text = "PingPong"<br />
<br />
End Sub<br />
<br />
#End Region<br />
Const BALL_WID As Integer = 50<br />
Const BALL_HGT As Integer = 50<br />
Const MyBall As Integer = 1<br />
Dim BallDirX(MyBall), BallXSpd(MyBall) As Integer<br />
Dim BallDirY(MyBall), BallYSpd(MyBall) As Integer<br />
Dim BallX(MyBall) As Integer<br />
Dim BallY(MyBall) As Integer<br />
Dim MyBrush As Drawing.Brush<br />
Dim BallImage(MyBall) As Drawing.Image<br />
Dim MyDrawing As Drawing.Graphics<br />
Dim Colors(10) As Drawing.Brush<br />
Dim MyBat1, MyBat2, BallRct(MyBall) As Drawing.Rectangle<br />
Dim MyPen As Drawing.Pen<br />
Dim L, T As Integer<br />
<br />
Private Sub frmPong_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
'choose color<br />
Colors(1) = Brushes.BlueViolet<br />
Colors(2) = Brushes.Blue<br />
Colors(3) = Brushes.Green<br />
Colors(4) = Brushes.Red<br />
Colors(5) = Brushes.Yellow<br />
Colors(6) = Brushes.Aqua<br />
Colors(7) = Brushes.Black<br />
Colors(8) = Brushes.Brown<br />
Colors(9) = Brushes.DarkOrange<br />
Colors(10) = Brushes.Navy<br />
<br />
'choose random color<br />
MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
Randomize()<br />
'bat1 and bat2 dimention<br />
L = 30 : T = 100<br />
'draw bat1<br />
MyBat1 = New Drawing.Rectangle(CInt(L / 2), CInt(Me.ClientRectangle.Height / 2) - CInt(T / 2), L, T)<br />
'draw bat2<br />
MyBat2 = New Drawing.Rectangle(Me.ClientRectangle.Width - L - CInt(L / 2), CInt(Me.ClientRectangle.Height / 2) _<br />
- CInt(T / 2), L, T)<br />
'randomize ball direction<br />
For I As Integer = 1 To MyBall<br />
BallDirX(I) = CInt(Rnd() * 3 - 0.5)<br />
BallDirY(I) = CInt(Rnd() * 3 - 0.5)<br />
BallX(I) = CInt(Rnd() * (Me.ClientSize.Width - BALL_WID))<br />
BallY(I) = CInt(Rnd() * (Me.ClientSize.Height - BALL_HGT))<br />
'randomize speed<br />
BallXSpd(I) = 3 + CInt(Rnd() * 8 - 0.5)<br />
BallYSpd(I) = 3 + CInt(Rnd() * 8 - 0.5)<br />
Next I<br />
Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _<br />
ControlStyles.DoubleBuffer, True)<br />
Me.UpdateStyles()<br />
timPong.Enabled = True<br />
End Sub<br />
<br />
Private Sub timPong_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timPong.Tick<br />
<br />
For I As Integer = 1 To MyBall<br />
BallX(I) = BallX(I) + BallDirX(I) * BallXSpd(I)<br />
BallY(I) = BallY(I) + BallDirY(I) * BallYSpd(I)<br />
BallRct(I) = New Rectangle(BallX(I), BallY(I), BALL_WID, BALL_HGT)<br />
If BallX(I) < 0 Then<br />
BallDirX(I) = -BallDirX(I)<br />
Beep()<br />
'choose random color<br />
MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
CheckCollision()<br />
ElseIf BallX(I) + BALL_WID > Me.ClientSize.Width Then<br />
BallDirX(I) = -BallDirX(I)<br />
Beep()<br />
'choose random color<br />
MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
CheckCollision()<br />
End If<br />
If BallY(I) < 0 Then<br />
BallDirY(I) = -BallDirY(I)<br />
Beep()<br />
'choose random color<br />
MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
CheckCollision()<br />
ElseIf BallY(I) + BALL_HGT > Me.ClientSize.Height Then<br />
BallDirY(I) = -BallDirY(I)<br />
Beep()<br />
'choose random color<br />
MyBrush = Colors(CInt(Rnd() * 10 - 0.5 + 1))<br />
CheckCollision()<br />
End If<br />
If BallX(I) < MyBat1.X Then<br />
BallDirX(I) = -BallDirX(I)<br />
End If<br />
Next I<br />
Me.Invalidate()<br />
<br />
End Sub<br />
<br />
Private Sub frmPong_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint<br />
e.Graphics.Clear(Me.BackColor)<br />
<br />
e.Graphics.FillEllipse(MyBrush, BallX(MyBall), BallY(MyBall), BALL_WID, BALL_HGT)<br />
<br />
e.Graphics.FillRectangle(MyBrush, MyBat1)<br />
e.Graphics.FillRectangle(MyBrush, MyBat2)<br />
End Sub<br />
Public Sub CheckCollision()<br />
Dim Collid As Rectangle, Collided As Boolean<br />
Collid = Collid.Intersect(BallRct(MyBall), MyBat1)<br />
If Not (Collid.IsEmpty) Then<br />
BallX(MyBall) = 1<br />
<br />
End If<br />
<br />
End Sub<br />
<br />
Private Sub frmPong_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown<br />
CheckCollision()<br />
Select Case e.KeyCode<br />
Case Keys.Up<br />
MyBat1.Y -= 10<br />
Case Keys.Down<br />
MyBat1.Y += 10<br />
Case Keys.Right<br />
MyBat1.X += 10<br />
Case Keys.Left<br />
MyBat1.X -= 10<br />
<br />
End Select<br />
End Sub<br />
End Class
you can just copy and past this code and please have look
i have tried lot but i dont know how to deal with this problem
so please please please help me with this
thanks in advance
waiting for your kind rep.
|
|
|
|
|
bapu2889 wrote: Public Sub CheckCollision()
Dim Collid As Rectangle, Collided As Boolean
Collid = Collid.Intersect(BallRct(MyBall), MyBat1)
If Not (Collid.IsEmpty) Then
BallX(MyBall) = 1
End If
End Sub
Have you checked your CheckCollision method?? What is BallX(MyBall) = 1 supposed to do??
|
|
|
|
|
first of all thank you very much sir
sir i am new and i am doing my assignment and i am haveing problem with this since last 4 days i have debug program somany times but i could not find any thing so can you please kindly help me with this
i put ballx(myball)=1 because there is only one ball that's why but i am not sure can you please tell me what do i need to do
waiting for your kind rep.
have a nice time
|
|
|
|