I.T. Discussion Community!
-Collapse +Expand
VB.Net
Search VB.Net Group:

Advanced
-Collapse +Expand VB.Net To/From
To/FromCODEGuides
-Collapse +Expand VB.Net Store
PRESTWOODSTORE

Prestwood eMagazine

December Edition
Subscribe now! It's Free!
Enter your email:

   ► MB LobbyVB.Net Language BoardVB.Net Coding Topic   Print This    All Groups  

Microsoft Cert Test 70-306, VB.NET Apps

Microsoft Cert Test 70-306, VB.NET Apps in VB.Net Coding topic (part of our VB.Net Language group).

Quick Search: Microsoft   Microsoft Cert   Microsoft Cert Test   70 306   VB NET  
Ron Byrd
 (Inactive)
Sacramento, CA
I just passed one of 3 tests leading towards MCAD certification. That test was 70-306, "VB.NET Windows Applications". I'm working on the next one, XML Web Services.
The point of this message is 2-fold:
(1) I'd be more then happy to give you my take on how to prepare and what to expect.
(2) If you have taken the other 2 tests, XML Services and VB.NET Web Services, I'd love to have a discussion with you.
 Posted 17 years ago (Thread Starter)
Comment Quote
About Ron Byrd -Collapse +Expand
Visit Profile
Inactive member.
Member does not subscribe to this thread.
Email Not Verified!
Once email is verified, we will review and approve the account.
Web Presence Hidden.
Once above is taken care of, full Profile content will display including back links, about me, my message, custom Profile html, social networking links, message board signature, company profile, etc.

Post ID #8769, 2 replies
Thread Started 12/27/2002 5:20:00 PM
View Counter=7497
Last Reply Posted 11/2/2008 9:02:35 AM)
Location=Sacramento, CA  
Joined=17 years ago   MB Posts=1  
Most Recent Post
Daniel Fought
Prestwood IT
Home office in Fresno, CA.

I'm not sure how you got your posting attached to this thread, but you should have posted to a new thread. 

Based on a quick look at the code there are two issues

First, as you thought there should be only one Sub Main() and you cannot have two subs or functions with the same name and signatures. 

Second the first Sub Main() does not seem to have an end sub.

Dan Fought
Senior Programmer Analyst
Prestwood IT Solutions
http://www.prestwood.com

 Posted 11 years ago
Comment Quote
About Daniel Fought -Collapse +Expand
Visit Profile
Approved member.
Member subscribes to this thread with a verified email.
About Daniel Fought
Danial Fought is a senior programmer analyst with Prestwood IT where he develops custom Windows software and custom websites. When Dan is not coding for clients, he participates in this online community. Coding specialties include Paradox/ObjectPAL, MS Access, Visual Basic, and VS.Net/VB.Net.

Post ID #13102 (Level 1.1)  Reply to 8769
Thread Started 11/2/2008 9:02:35 AM
Location=Home office in Fresno, CA. 
Joined=17 years ago   MB Posts=401   KB Posts=12   KB Comments=4  
shah
-- UNK
Dear friend
My name is shah.i have some problem with my vb 6 coding,
when i compile my progreme it gives me an error message.
 
the message is,
 
Ambiguous name detected: main
 
I know that it is happening because of same procedure name
but when i change procedure name,it gives me another message
here is the message,
 
User-defined type not defined
 
if you correct my code i'll extermely be grateful to you,
here is code
 
 
Public Sub main()

'visual basic geme programming

'create reference to game window
Dim window As Form
'create reference to display surface
Dim surface As PictureBox
'define the standard screen resolution
Public Enum RESOLUTION
     Res320x240 = 1
     Res640x480 = 2
     Res800x600 = 3
     Res1024x768 = 4
     End Enum
    
     'function createwindow
     'create a reference to an existing form and initialize
     'the form to one of the standard screeb resolution
    
     Public Function CreateWindow(ByRef frm As Form, _
     ByVal res As RESOLUTION) As Form
    
     'create the reference
     Set CreateWindow = frm
    
     'set up the form
    
     frm.AutoRedraw = False
     frm.BorderStyle = 1
     frm.ClipControls = False
     frm.KeyPreview = True
     frm.ScaleMode = 3
    
     'rsize the form to a standard resolution
     Select Case res
     Case Res320x240
     frm.Width = 320 * Screen.TwipsPerPixelX
     frm.Width = 240 * Screen.TwipsPerPixelY
    
    Case Res640x480
     frm.Width = 640 * Screen.TwipsPerPixelX
     frm.Width = 480 * Screen.TwipsPerPixelY
     
     Case Res800x600
      frm.Width = 800 * Screen.TwipsPerPixelX
       frm.Width = 600 * Screen.TwipsPerPixelY
     
      Case Res1024x768
       frm.Width = 1024 * Screen.TwipsPerPixelX
       frm.Width = 768 * Screen.TwipsPerPixelY
      
      End Select
     
      End Function
     
     
      'function createsurface
      'create a reference to an existing picturebox ans
      'resize the control to the parent form.
     
      Public Function CreateSurface(ByRef window As Object) As PictureBox
      'create the reference
      Set CreateSurface = window.surface
     
      'set up the surface
      CreateSurface.AutoRedraw = False
      CreateSurface.BorderStyle = 0
      CreateSurface.ClipControls = False
      CreateSurface.ScaleMode = 3
      CreateSurface.BackColor = RGB(0, 0, 0)
     
      'resize the surface to the parent window
      CreateSurface.Left = 2
      CreateSurface.Top = 2
      CreateSurface.Width = window.ScaleWidth - 4
      CreateSurface.Height = window.ScaleHeight - 4
     
      End Function
     
     
      'sub main
      'starting point for the program
     
     
      Public Sub main()
      Dim X As Long
      Dim Y As Long
      Dim Count As Long
      Dim Color As Long
     
      'initialize the game window
      Set window = CreateWindow(Form1.Res800x600)
      window.Caption = "Chunky Pixel"
     
      'initialize the display surface
      Set surface = CreateSurface(window)
     
      'display the game window
      window.Show
      DoEvents
     
      'draw 100.100 chunky pixels
      Randomize
      surface.DrawWidth = 5
      For Count = 1 To 100000
      X = surface.ScaleWidth * Rnd
      Y = surface.ScaleHeight * Rnd
      Color = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
      surface.PSet (X, Y), Color
      Next Count
     
      'delete the object reference
      Set surface = Nothing
      Set window = Nothing
     
End Sub
 Posted 11 years ago
Comment Quote
About shah -Collapse +Expand
Visit Profile
Approved member.
Member subscribes to this thread with a verified email.

Post ID #13101 (Level 1.2)  Reply to 8769
Reply Posted 11/1/2008 12:11:09 PM
Last Updated 11/3/2008 4:59:13 PM
Location=-- UNK 
Joined=11 years ago   MB Posts=1  

Revive Thread!

Add a comment to revive this old thread and make this archived thread more useful.

Write a Comment...
Full Editor
...
Sign in...

If you are a member, Sign In. Or, you can Create a Free account now.


Anonymous Post (text-only, no HTML):

Enter your name and security key.

Your Name:
Security key = P1151A1
Enter key:
Icon: A Post    Thread    Idea    Important!    Cool    Sad    No    Yes    Includes a Link...   
Thread #8769 Counter
7497
Since 4/2/2008

Follow PrestwoodBoards on: 


©1995-2019 PrestwoodBoards  [Security & Privacy]
Professional IT Services: Coding | Websites | Computer Tech