tag:blogger.com,1999:blog-43572342657162632322024-02-07T19:21:11.432-08:00Prasad.R the coolest vb programmer...... JSS COLLEGE (DHARWAD)HI BUDDIES I'M PRASAD.R FROM DHARWAD. I'M STUDYING COMPUTERS.
STAY TUNED WITH ME ON MY BLOG FOR LATEST UPDATES ON VB PROGRAMMING...
NOTE: To execute the codes given below, requires throw knowledge of VB6.prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.comBlogger10125tag:blogger.com,1999:blog-4357234265716263232.post-58101018016707694752011-02-23T10:08:00.001-08:002011-02-23T10:10:22.812-08:00Core java Programing for 5th Semester- passing parameter from HTML//By Prasad.R...<br />
<br />
import java.awt.*;<br />
import java.applet.*;<br />
public class HTML extends Applet<br />
{<br />
int a,b,c;<br />
String d;<br />
public void init()<br />
{<br />
a=Integer.parseInt(getParameter("A"));<br />
b=Integer.parseInt(getParameter("B"));<br />
c=a+b;<br />
d=getParameter("name");<br />
}<br />
public void paint(Graphics g)<br />
{<br />
setBackground(Color.cyan);<br />
g.drawString("A="+a,25,250);<br />
g.drawString("B="+b,25,270);<br />
g.drawString("SUM="+c,25,290);<br />
g.drawString("name="+d,25,310);<br />
}<br />
}<br />
//<applet code=HTML width=500 height=500><br />
//<param name="A" value="500">//<param name="name" value="PRASAD">//<param name="B" value="500">//</applet>prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0tag:blogger.com,1999:blog-4357234265716263232.post-8628880665305362022011-02-23T10:07:00.000-08:002011-02-23T10:07:07.030-08:00Core java Programing for 5th Semester- mousedemo.java//By Prasad.R...<br />
<br />
import java.awt.*;<br />
import java.applet.*;<br />
import java.awt.event.*;<br />
public class mousedemo extends Applet implements MouseListener,MouseMotionListener<br />
{<br />
String str=" ";<br />
int x=0,y=0;<br />
public void init()<br />
{<br />
addMouseListener(this);<br />
addMouseMotionListener(this);<br />
setBackground(Color.cyan);<br />
}<br />
public void mouseEntered(MouseEvent m)<br />
{<br />
showStatus("mouse entered.....");<br />
x=m.getX();<br />
y=m.getY();<br />
str="mouse entered";<br />
repaint();<br />
}<br />
public void mouseClicked(MouseEvent m)<br />
{<br />
showStatus("mouse clicked..");<br />
x=m.getX();<br />
y=m.getY();<br />
str="mouse clicked";<br />
repaint();<br />
}<br />
public void mouseExited(MouseEvent m)<br />
{<br />
showStatus("mouse exited....");<br />
x=m.getX();<br />
y=m.getY();<br />
str="mouse exited";<br />
repaint();<br />
}<br />
public void mousePressed(MouseEvent m)<br />
{<br />
showStatus("mouse pressed....");<br />
x=m.getX();<br />
y=m.getY();<br />
str="mouse pressed";<br />
repaint();<br />
}<br />
public void mouseReleased(MouseEvent m)<br />
{<br />
showStatus("mouse released....");<br />
x=m.getX();<br />
y=m.getY();<br />
str="mouse released";<br />
repaint();<br />
}<br />
public void mouseDragged(MouseEvent m){<br />
showStatus("mouse dragged....");<br />
x=m.getX();<br />
y=m.getY();<br />
str="mouse dragged";<br />
repaint();<br />
}<br />
public void mouseMoved(MouseEvent m)<br />
{<br />
showStatus("mouse moved....");<br />
x=m.getX();<br />
y=m.getY();<br />
str="mouse moved";<br />
repaint();<br />
}<br />
public void paint(Graphics g)<br />
{<br />
g.drawString("testing........",10,10);<br />
g.drawString(str,x,y);<br />
}<br />
}<br />
<br />
/*<applet code="mousedemo.class" width=800 height=800><br />
</applet>*/prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0tag:blogger.com,1999:blog-4357234265716263232.post-54904409654571524192011-02-23T10:05:00.000-08:002011-02-23T10:05:49.483-08:00By Prasad.R...<br />
<br />
<span class="Apple-style-span" style="color: blue;"><b>Factorial.java</b></span><br />
<span class="Apple-style-span" style="color: blue;"><b><br />
</b></span><br />
<br />
class factorial<br />
{<br />
public static void main(String arg[])<br />
{<br />
int i,j,f,a,n;<br />
n=arg.length;<br />
for(i=0;i<n;i++)< p=""></n;i++)<><br />
{<br />
f=1;<br />
a=Integer.parseInt(arg[i]);<br />
for(j=1;j<=a;j++)<br />
{<br />
f=f*j;<br />
}<br />
System.out.println("factorial of " +a +"\tis\t" +f);<br />
}<br />
}<br />
<br />
}prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0tag:blogger.com,1999:blog-4357234265716263232.post-59985763708919741222011-02-23T10:00:00.001-08:002011-02-23T10:04:09.035-08:00Core java Programing for 5th SemesterBy Prasad.R...<br />
<br />
<u><span class="Apple-style-span" style="color: blue;"><b>constructor Overloading</b></span></u><br />
<br />
<br />
import java.io.*;<br />
class overload<br />
{<br />
int a1,a2;<br />
float f1,f2;<br />
double d1,d2;<br />
String s1,s2;<br />
overload()<br />
{<br />
System.out.println("Constructor default values");<br />
System.out.println("a1="+a1);<br />
System.out.println("a2="+a2);<br />
System.out.println("f1="+f1);<br />
System.out.println("f2="+f2);<br />
System.out.println("s1="+s1);<br />
System.out.println("s1="+s2);<br />
System.out.println("d1="+d1);<br />
System.out.println("d2="+d2);<br />
}<br />
overload(int x1,int x2)<br />
{<br />
a1=x1;<br />
a2=x2;<br />
System.out.println("Constructor with 2 integer values");<br />
System.out.println("a1="+a1);<br />
System.out.println("a2="+a2);<br />
}<br />
<br />
overload(float b1,float b2)<br />
{<br />
f1=b1;<br />
f2=b2;<br />
System.out.println("Constructor with 2 float values");<br />
System.out.println("f1="+f1);<br />
System.out.println("f2="+f2);<br />
}<br />
<br />
overload(double c1,double c2)<br />
{<br />
d1=c1;<br />
d2=c2;<br />
System.out.println("Constructor with 2 double values");<br />
System.out.println("d1="+d1);<br />
System.out.println("d2="+d2);<br />
}<br />
<br />
overload(String st1,String st2)<br />
{<br />
s1=st1;<br />
s2=st2;<br />
System.out.println("Constructor with 2 String values");<br />
System.out.println("s1="+s1);<br />
System.out.println("s2="+s2);<br />
}<br />
}<br />
class constructor<br />
{<br />
public static void main(String arg[]) throws Exception<br />
{<br />
int p1,p2;<br />
float p3,p4;<br />
double p5,p6;<br />
String p7,p8;<br />
DataInputStream dis=new DataInputStream(System.in);<br />
{<br />
overload n1=new overload();<br />
System.out.println("enter 2 integer values");<br />
p1=Integer.parseInt(dis.readLine());<br />
p2=Integer.parseInt(dis.readLine());<br />
overload n2=new overload(p1,p2);<br />
<br />
System.out.println("enter 2 float values");<br />
p3=Float.parseFloat(dis.readLine());<br />
p4=Float.parseFloat(dis.readLine());<br />
overload n3=new overload(p3,p4);<br />
<br />
System.out.println("enter 2 double values");<br />
p5=Double.parseDouble(dis.readLine());<br />
p6=Double.parseDouble(dis.readLine());<br />
overload n4=new overload(p5,p6);<br />
<br />
System.out.println("enter 2 String values");<br />
p7=dis.readLine();<br />
p8=dis.readLine();<br />
overload n5=new overload(p7,p8);<br />
}<br />
}<br />
}prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0tag:blogger.com,1999:blog-4357234265716263232.post-89337907240339000972010-04-13T23:07:00.000-07:002010-04-13T23:07:05.462-07:00<a href="http://www.prasadzzz.wapka.mobi/">PRASAD.NET</a>prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0tag:blogger.com,1999:blog-4357234265716263232.post-35481839601880205412010-04-13T09:26:00.000-07:002010-04-13T09:26:34.115-07:00INVITATION CARD..<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhTrmza1M1NqZDf0WiilBD2xPganXi7xwKwLVUP6PaDgnFQzReD3Rt1sezMbBl8XiQdRvSrysGpp80uvzpN0JWsGd7jmkHpDke5kdBbdglvgYaAYSciqQWdfZPYxHfWk4BCMTU1rQH6JdU/s1600/FESTREADY3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="547" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhTrmza1M1NqZDf0WiilBD2xPganXi7xwKwLVUP6PaDgnFQzReD3Rt1sezMbBl8XiQdRvSrysGpp80uvzpN0JWsGd7jmkHpDke5kdBbdglvgYaAYSciqQWdfZPYxHfWk4BCMTU1rQH6JdU/s640/FESTREADY3.jpg" width="640" wt="true" /></a></div>By Prasad.R...prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0tag:blogger.com,1999:blog-4357234265716263232.post-5918533793253488302010-04-11T12:39:00.000-07:002010-04-11T12:39:14.815-07:00<span style="font-family: Georgia, "Times New Roman", serif; font-size: x-large;"><span style="color: blue;"> <blockquote><span style="font-family: Georgia, "Times New Roman", serif; font-size: x-large;"><span style="color: #f1c232;">send off for seniors</span> </span></blockquote></span></span><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUgtYGdkE2Hc9g5KOag2A8IsUFKiSz1jSprVUCuNt5GYpkhJFhHqKCfN7knT3kBEkUDdxvVzRzdydYn83iPr44DzGYz4RkgBQyr6UTXLayQczsEj6FBhILZWHyckOBzlcLet83x_S70Qs/s1600/F12355lr.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUgtYGdkE2Hc9g5KOag2A8IsUFKiSz1jSprVUCuNt5GYpkhJFhHqKCfN7knT3kBEkUDdxvVzRzdydYn83iPr44DzGYz4RkgBQyr6UTXLayQczsEj6FBhILZWHyckOBzlcLet83x_S70Qs/s320/F12355lr.jpg" width="320" wt="true" /></a></div><span style="font-size: large;">By Prasad.R...</span>prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com1tag:blogger.com,1999:blog-4357234265716263232.post-72337270240521966082010-04-11T09:13:00.000-07:002010-04-11T09:21:04.904-07:00visual basic programs for BCA 3 and BSC(C.S) and ENGG students.<span style="font-size:180%;"><strong>animation control.</strong></span><br /><span style="font-size:180%;"></span><br /><span style="font-size:180%;"></span><br />Dim flag As IntegerPrivate Sub Command1_Click()Animation1.Open "c:\search.avi"flag = 1End Sub<br />Private Sub Command2_Click()If flag = 1 ThenAnimation1.AutoPlay = TrueElseMsgBox "please press open button"End IfEnd Sub<br />Private Sub Command3_Click()<br />Animation1.CloseEnd Sub<br />Private Sub Command4_Click()<br />EndEnd Sub<br /><br /><br /><br /><strong><span style="font-size:180%;">simple example for ms excess DATABASE.</span></strong><br /><strong><span style="font-size:180%;"></span></strong><br />Private Sub Command1_Click()Data1.Recordset.MoveNextIf (Data1.Recordset.EOF) ThenMsgBox " end of file"Data1.Recordset.MoveFirst<br />End IfEnd Sub<br />Private Sub Command2_Click()Data1.Recordset.Delete<br />End Sub<br />Private Sub Command3_Click()Data1.Recordset.AddNew'Data1.Recordset.MovePrevious<br />End Sub<br /><br /><br /><strong><span style="font-size:180%;">CHANGING FONT STYLE....</span></strong><br /><strong><span style="font-size:180%;"></span></strong><br />Private Sub Combo1_Click()Text1.FontSize = Combo1.TextEnd Sub<br />Private Sub Combo2_Click()Text1.FontName = Combo2.Text<br />End Sub<br />Private Sub Combo3_Click()If (Combo3.Text = "bold") ThenText1.FontBold = TrueText1.FontItalic = FalseText1.FontStrikethru = FalseText1.FontUnderline = FalseEnd If<br />If (Combo3.Text = "italic") ThenText1.FontBold = FalseText1.FontItalic = TrueText1.FontStrikethru = FalseText1.FontUnderline = FalseEnd If<br />If (Combo3.Text = "strikethru") ThenText1.FontBold = FalseText1.FontItalic = FalseText1.FontStrikethru = TrueText1.FontUnderline = FalseEnd IfIf (Combo3.Text = "underlined") ThenText1.FontBold = FalseText1.FontItalic = FalseText1.FontStrikethru = FalseText1.FontUnderline = TrueEnd IfEnd Sub<br />Private Sub Form_Load()Combo1.AddItem "8"Combo1.AddItem "16"Combo1.AddItem "20"Combo1.AddItem "26"Combo2.AddItem "ms sans serif"Combo2.AddItem "arial"Combo2.AddItem "modern"Combo2.AddItem "impact"Combo3.AddItem "bold"Combo3.AddItem "italic"Combo3.AddItem "strikethru"Combo3.AddItem "underlined"<br /><br /><br /><strong><span style="font-size:180%;">NUMBER TO TEXT PROGRAM....</span></strong><br /><strong><span style="font-size:180%;"></span></strong><br />Private Sub Command1_Click()Dim x As IntegerDim t As IntegerDim h As IntegerDim tn As IntegerDim w(19) As StringDim m(10) As StringDim s As Stringx = Val(Text1.Text)'ch = n - tn * 10w(1) = "one"w(2) = "two"w(3) = "three"w(4) = "four"w(5) = "five"w(6) = "six"w(7) = "seven"w(8) = "eight"w(9) = "nine"w(10) = "ten"w(11) = "eleven"w(12) = "twelve"w(13) = "thirteen"w(14) = "forteen"w(15) = "fifteen"w(16) = "sixteen"w(17) = "seventeen"w(18) = "eighteen"w(19) = "ninteen"m(1) = "ten"m(2) = "twenty"m(3) = "thirty"m(4) = "forty"m(5) = "fifty"m(6) = "sixty"m(7) = "seventy"m(8) = "eighty"m(9) = "ninety"t = Int(x / 1000)x = x - (t * 1000)h = Int(x / 100)x = x - (h * 100)tn = Int(x / 10)x = x - (tn * 10)If (t >= 1) And (t <= 19) Thens = s + w(t) + "thousand"End IfIf (t >= 20) Thens = s + m(t) + "thounsand"End IfIf (h >= 1) Thens = s + w(h) + "hundred"End IfIf (tn > 1) Thens = s + m(tn)ElseIf (tn = 1) Thens = s + w(x + 10)GoTo display<br />End IfIf (x >= 1) Thens = s + w(x) + "only"End Ifdisplay:Text2.Text = sEnd Sub<br />Private Sub Form_Load()Text1.Text = ""Text2.Text = ""<br />End Subprasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0tag:blogger.com,1999:blog-4357234265716263232.post-22904394568047688082010-04-11T08:55:00.001-07:002010-04-11T08:58:51.177-07:00how to make a simple coollll vb game<span style="font-size:85%;"></span><br /><span style="font-size:85%;"><span style="font-family:georgia;font-size:130%;">>>>>>just copy paste the below code>>>></span> </span><br /><span style="font-size:85%;"></span><br /><span style="font-size:85%;"></span><br /><span style="font-size:85%;"></span><br /><span style="font-size:85%;">Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Command1.Top = Int(Rnd * 10000)Command1.Left = Int(Rnd * 10000)Command1.Width = Int(Rnd * 2500)Command1.Height = Int(Rnd * 5700)Command1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)End Sub<br />Private Sub Form_DblClick()MsgBox "YOU WON GAME OVER"EndEnd Sub<br />Private Sub Form_Load()Option1.Value = TrueMe.WindowState = 2End SubPrivate Sub Label3_Click()EndEnd SubPrivate Sub Option1_Click()</span><br /><span style="font-size:85%;">On Error Resume NextResult = Module1.sndPlaySound("C:\WINDOWS\INSTALL.WAV", 1)</span><br /><span style="font-size:85%;">End Sub<br />Private Sub Option2_Click()On Error Resume NextResult = Module1.sndPlaySound("C:\WINDOWS\", 1)End Sub</span>prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0tag:blogger.com,1999:blog-4357234265716263232.post-20266559964724574022010-04-11T08:51:00.000-07:002010-04-11T08:53:50.883-07:00how to make transparent form in vb6??<span style="font-size:78%;">Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long<br />Private Declare Function SetLayeredWindowAttributes Lib "USER32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long<br />Private Sub Form_Load() SetWindowLong Me.hWnd, (-20), &H80111 SetLayeredWindowAttributes Me.hWnd, 0, 200, &H2End Sub</span>prasad.rhttp://www.blogger.com/profile/08002187443585972492noreply@blogger.com0