Skip to main content

CALCULATOR USING CONTROL ARRAY


Public curval As Double
Public preval As Double
Public choice As String
Public result As Double

Private Sub cmd_Click(Index As Integer)
Text1.Text = Text1.Text &cmd(Index).Caption
curval = Val(Text1.Text)
End Sub

Private Sub cmdac_Click()
curval = preval = 0
Text1.Text = ""
End Sub

Private Sub cmddiv_Click()
Text1.Text = ""
preval = curval
curval = 0
choice = "/"
End Sub

Private Sub cmdequal_Click()
Select Case choice
Case "+"
result = preval + curval
Text1.Text = Str(result)
Case "-"
result = preval - curval
Text1.Text = Str(result)
Case "*"
result = preval * curval
Text1.Text = Str(result)
Case "/"
result = preval / curval
Text1.Text = Str(result)
End Select
curval = result
End Sub

Private Sub CMDEXIT_Click()
End
End Sub

Private Sub cmdminus_Click()
Text1.Text = ""
preval = curval
curval = 0
choice = "-"
End Sub

Private Sub cmdmul_Click()
Text1.Text = ""
preval = curval
curval = 0
choice = "*"
End Sub

Private Sub cmdnegative_Click()
curval = -curval
Text1.Text = Str(curval)
End Sub

Private Sub cmdplus_Click()
Text1.Text = ""
preval = curval
curval = 0
choice = "+"
End Sub

Form:





Labels:

Comments

  1. DSM10 October 2020 at 01:07

    Awesome post. I visit first time on your web site and appreciate you to maintain the nice site. I’ll be a frequent visitor for a long time. We are the top provider of Digital Signature Certificate in Delhi and all over India.

    ReplyDelete
  2. Make My Digital Signature10 October 2020 at 05:12

    Nice blog. I really loved reading through this blog. We are the finest provider of Digital signature certificate in Delhi and all over India.

    ReplyDelete

Post a Comment

Popular posts from this blog

UDP SOCKETS CHAT APPLICATION (SERVER & CLIENT) USING C

SERVER #include<stdio.h> #include<netinet/in.h> #include<sys/types.h> #include<sys/socket.h> #include<netdb.h> #include<string.h> #include<stdlib.h> #define MAX 80 #define PORT 43454 #define SA struct sockaddr void func(int sockfd) { char buff[MAX]; int n,clen; struct sockaddr_in cli; clen=sizeof(cli); for(;;) { bzero(buff,MAX); recvfrom(sockfd,buff,sizeof(buff),0,(SA *)&cli,&clen); printf("From client %s To client",buff); bzero(buff,MAX); n=0; while((buff[n++]=getchar())!='\n'); sendto(sockfd,buff,sizeof(buff),0,(SA *)&cli,clen); if(strncmp("exit",buff,4)==0) { printf("Server Exit...\n"); break; } } } int main() { int sockfd; struct sockaddr_in servaddr; sockfd=socket(AF_INET,SOCK_DGRAM,0); if(sockfd==-1) { printf("socket creation failed...\n"); exit(0); } else printf("Socket successfully created..\n"); bzero(&servaddr,sizeof(s
5 comments
Read more

TCP SOCKET DATE AND TIME USING C

SERVER #include<stdio.h> #include<sys/types.h> #include<sys/socket.h> #include<netinet/in.h> #include<time.h> #include<string.h> #include<stdlib.h> #define max 30 #define PORT 2100 int main() { int sersoc,clisoc,conn,len,wri; char str[max]; pid_t pid; time_t ticks; socklen_t clilen; struct sockaddr_in servaddr,cliaddr; servaddr.sin_family=AF_INET; servaddr.sin_port=htons(PORT); servaddr.sin_addr.s_addr=htonl(INADDR_ANY); if((sersoc=socket(AF_INET,SOCK_STREAM,0))<0) { perror("Socket Error"); exit(0); } if(bind(sersoc,(struct sockaddr *)&servaddr,sizeof(servaddr))<0) { perror("Bind Error"); exit(0); } listen(sersoc,10); for(;;) { len=sizeof(cliaddr); conn=(accept(sersoc,(struct sockaddr *)&clisoc,&len)); if((pid=fork())==0) { close(sersoc); ticks=time(NULL); strcpy(str,ctime(&ticks)); if(wri==(write(conn,str,sizeof(str),0))<0) { printf("Write Error");
3 comments
Read more