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

SIMULATION OF SLIDING WINDOW PROTOCOLS USING C

SENDER #include<sys/socket.h> #include<sys/types.h> #include<netinet/in.h> #include<netdb.h> #include<stdio.h> #include<string.h> #include<stdlib.h> #include<unistd.h> #include<errno.h> int main() { int sock,bytes_received,connected,true=1,i=1,s,f=0,sin_size; char send_data[1024],data[1024],c,fr[30]=" "; struct sockaddr_in server_addr,client_addr; if((sock=socket(AF_INET,SOCK_STREAM,0))==-1) { perror("Socket not created"); exit(1); } if(setsockopt(sock,SOL_SOCKET,SO_REUSEADDR,&true,sizeof(int))==-1) { perror("Setsockopt"); exit(1); } server_addr.sin_family=AF_INET; server_addr.sin_port=htons(17000); server_addr.sin_addr.s_addr=INADDR_ANY; if(bind(sock,(struct sockaddr *)&server_addr,sizeof(struct sockaddr))==-1) { perror("Unable to bind"); exit(1); } if(listen(sock,5)==-1) { perror("Listen"); exit(1); } fflush(stdout); sin_size=sizeof(st
5 comments
Read more