Cần sự giúp đỡ thực hiện các phép tính cơ bản như (+ - * :)

Nơi trao đổi về các vấn đề trong lập trình Windows Forms, Console dùng cú pháp ngôn ngữ Visual Basic .NET và C#

Moderators: tungblt, vuathongtin

Post Reply
HaDuyNguyen
Thành viên chính thức
Thành viên chính thức
Posts: 20
Joined: Mon 10/02/2014 5:02 pm
Has thanked: 1 time
Been thanked: 1 time

Cần sự giúp đỡ thực hiện các phép tính cơ bản như (+ - * :)

Post by HaDuyNguyen »

Tôi có một chương trình với những dòng Code như sau :
  1. Imports System.Console
  2. Module Module1
  3.  
  4.     Sub Main(Argumente() As String)
  5.      
  6.  
  7.       WriteLine()
  8.         WriteLine(" Number der Argumente {0}", Argumente.Length)
  9.         WriteLine()
  10.         If Argumente.Length > 2 Then
  11.             WriteLine(" Zuviele Argumente")
  12.             Exit Sub
  13.         ElseIf Argumente.Length < 2 Then
  14.             WriteLine(" Zuwenig Argumente")
  15.             WriteLine()
  16.             Exit Sub
  17.         End If
  18.         WriteLine(" {0} + {1} = {2}", _
  19.                     Argumente(0), Argumente(1), _
  20.                     CInt(Argumente(0)) + Argumente(1))
  21.         WriteLine()
  22.     End Sub
  23.  
  24. End Module

Yêu cầu là sửa đổi Code của chương trình để khi chạy, chương trình sẽ thực hiện các phép tính cơ bản như (+ - * :) và hiển thị ra màn hình, ví dụ như hình bên dưới:
Tôi đã chụp ảnh màn hình, nhưng không thể dán vào viết này được, mong mọi người thông cảm cho.

vì mới học nên tôi thực sự chưa hiểu hết nên không thể làm được, rất mong nhận được sự giúp đỡ giải quyết hoặc sự hướng dẫn của các bạn.Xin cám ơn nhiều.
User avatar
NoBi
Quản trị
Quản trị
Posts: 970
Joined: Tue 18/03/2008 1:22 pm
Location: Sài Gòn
Has thanked: 58 times
Been thanked: 68 times
Contact:

Re: Cần sự giúp đỡ thực hiện các phép tính cơ bản như (+ - *

Post by NoBi »

Bạn sửa lại dòng 18 -> 20 cho mỗi phép tính. Ví dụ:
Phép tính trừ: WriteLine(" {0} - {1} = {2}", Argumente(0), Argumente(1), CInt(Argumente(0)) - Argumente(1))
Phép tính nhân: WriteLine(" {0} * {1} = {2}", Argumente(0), Argumente(1), CInt(Argumente(0)) * Argumente(1))
:>
HaDuyNguyen
Thành viên chính thức
Thành viên chính thức
Posts: 20
Joined: Mon 10/02/2014 5:02 pm
Has thanked: 1 time
Been thanked: 1 time

Xin hỏi lai vấn đề đã được trả lời và mong nhận đượcgiups đỡ

Post by HaDuyNguyen »

IMG_0002.rar
(607.94 KiB) Downloaded 230 times
Cám ơn sự quan tâm và trả lời của các bạn, nhưng bạn chưa hiểu đúng vấn đề mà tôi cần sự giúp đỡ, dưới đây tôi xin viết lại cụ thể như sau:

Tôi có một chương trình với những dòng Code như sau :
  1. Imports System.Console
  2. Module Module1
  3.  
  4.     Sub Main(Argumente() As String)
  5.      
  6.  
  7.       WriteLine()
  8.         WriteLine(" Number der Argumente {0}", Argumente.Length)
  9.         WriteLine()
  10.         If Argumente.Length > 2 Then
  11.             WriteLine(" Zuviele Argumente")
  12.             Exit Sub
  13.         ElseIf Argumente.Length < 2 Then
  14.             WriteLine(" Zuwenig Argumente")
  15.             WriteLine()
  16.             Exit Sub
  17.         End If
  18.         WriteLine(" {0} + {1} = {2}", _
  19.                     Argumente(0), Argumente(1), _
  20.                     CInt(Argumente(0)) + Argumente(1))
  21.         WriteLine()
  22.     End Sub
  23.  
  24. End Module
Yêu cầu là sửa đổi Code của chương trình để khi chạy, chương trình sẽ thực hiện các phép tính cơ bản như (+ - * :) và hiển thị ra màn hình, ví dụ như hình bên dưới:
Đây là hình ảnh của chương trình khi chạy, khi viết Code thì viết trong Console, nhưng khi chạy thì lại dùng chương trình này, vì vậy mà tôi đã có bài hỏi về cách sử dụng nó.
Yêu cầu của đề bài là sửa Code mà tôi đã gửi để thực hiện các phép tính cơ bản, nếu đưa thông số sai thì chương trình sẽ báo, ngược lại thì thực hiện như bình thường.
Thí dụ : Hàng thứ 5 thì báo là đưa quá nhiều số, hàng thứ 6 thì báo đưa quá ít số và hàng thứ 7 thì báo đưa không đúng ký tự.
Attachments
IMG_0002.rar
(607.94 KiB) Downloaded 238 times
User avatar
1045007
Thành viên danh dự
Thành viên danh dự
Posts: 551
Joined: Mon 09/06/2008 3:35 pm
Location: TP Cần Thơ
Has thanked: 2 times
Been thanked: 61 times
Contact:

Re: Xin hỏi lai vấn đề đã được trả lời và mong nhận đượcgiup

Post by 1045007 »

Code này trên cơ bản đã chạy đúng rồi chỉ cần thêm các phép toán và truyền các tham số hợp lý
  1. Imports System.Console
  2. Module Module1
  3.     Sub Main(ByVal Argumente() As String)
  4.         WriteLine()
  5.         WriteLine(" Number der Argumente {0}", Argumente.Length)
  6.         WriteLine()
  7.         If Argumente.Length > 3 Then
  8.             WriteLine(" Zuviele Argumente")
  9.             Exit Sub
  10.         ElseIf Argumente.Length < 2 Then
  11.             WriteLine(" Zuwenig Argumente")
  12.             WriteLine()
  13.             Exit Sub
  14.         End If
  15.         Select Case Argumente(1)
  16.             Case "+"
  17.                 WriteLine(" {0} + {1} = {2}", Argumente(0), Argumente(2), CInt(Argumente(0)) + Argumente(2))
  18.                 WriteLine()
  19.                 Return
  20.             Case "-"
  21.                 WriteLine(" {0} - {1} = {2}", Argumente(0), Argumente(2), CInt(Argumente(0)) - Argumente(2))
  22.                 WriteLine()
  23.                 Return
  24.             Case "*"
  25.                 WriteLine(" {0} * {1} = {2}", Argumente(0), Argumente(2), CInt(Argumente(0)) * Argumente(2))
  26.                 WriteLine()
  27.                 Return
  28.             Case "/"
  29.                 WriteLine(" {0} / {1} = {2}", Argumente(0), Argumente(2), CInt(Argumente(0)) / Argumente(2))
  30.                 WriteLine()
  31.                 Return
  32.             Case Else              
  33.                 WriteLine(" Invalid operation")
  34.                 Return
  35.         End Select
  36.  
  37.     End Sub
  38. End Module
Attachments
Console.jpg
Xếp hình cổ điển for Android-https://play.google.com
♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀
HaDuyNguyen
Thành viên chính thức
Thành viên chính thức
Posts: 20
Joined: Mon 10/02/2014 5:02 pm
Has thanked: 1 time
Been thanked: 1 time

Re: Xin được hỏi tiếp bạn 1045007

Post by HaDuyNguyen »

Rất cám ơn ban đã dành thời gian giúp tôi giải đáp những thắc mắc, chắc chắn bạn là người có nhiều hiểu biết trong lĩnh vực này, nên tôi muốn hỏi bạn thêm một số vấn đề như sau:
1- chương trình bạn viết luôn thông báo số lượng Argumente, nhưng trong yêu cầu thì chỉ báo sai nếu như đưa không đúng dữ liệu và được chạy trên Developer, không phải trong Command Prompt, bạn xem lại cụ thể hình ảnh.
2-Tôi không biết sử dụng những chương trình này để mở những Code mà bạn đã viết, khi tôi đánh đường dẫn vào chương trình để mở Code thì không nhận được kết quả, bạn có thể chỉ dẫn tôi cụ thể làm thế nào sử dụng các chương trình này được không?
Tôi mới học và tập viết Code, do thiếu hiểu biết nên những vấn đề mà tôi thắc mắc đối với bạn chắc là quá đơn giản, nhưng với tôi thì hoàn toàn ngược lại, vì vậy rất mong bạn thông cảm dành chút thời gianvà nhận được sự nhiệt tình giúp đỡ của bạn. Xin cám ơn bạn nhiều.
User avatar
1045007
Thành viên danh dự
Thành viên danh dự
Posts: 551
Joined: Mon 09/06/2008 3:35 pm
Location: TP Cần Thơ
Has thanked: 2 times
Been thanked: 61 times
Contact:

Re: Cần sự giúp đỡ thực hiện các phép tính cơ bản như (+ - *

Post by 1045007 »

Bạn bỏ dòng này đi thể không thông báo các Argumentes
  1.         WriteLine()
  2.         WriteLine(" Number der Argumente {0}", Argumente.Length)


- Bạn tham khảo link này để star "Developer Command Prompt": http://msdn.microsoft.com/en-us/library ... 10%29.aspx
- Dùng lệnh chuyển thư mục chứa Console Project :
Console.jpg
lệnh:

G:\ConsoleApplication1\ConsoleApplication1\bin\Debug\ConsoleApplication1 1 + 2
Xếp hình cổ điển for Android-https://play.google.com
♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀
HaDuyNguyen
Thành viên chính thức
Thành viên chính thức
Posts: 20
Joined: Mon 10/02/2014 5:02 pm
Has thanked: 1 time
Been thanked: 1 time

Re: Xin hỏi tiếp bạn 1045007

Post by HaDuyNguyen »

Chào bạn 1045007 và các bạn khác!
1-Tôi rất cám ơn về sự nhiệt tình của bạn, tuy nhiên tôi vẫn còn một số thắc mắc , mong bạn giúp cách giải quyết. Tôi đã làm theo sự chỉ dẫn của bạn, nhưng vẫn không thể mở các chương trình giống như của bạn, tôi đã chụp màn hình như bên dưới để bạn xem và giúp cách giải quyết, tôi nghĩ có thể tôi dùng lệnh chuyển thư mục không đúng, nhưng tôi không biết là sai ở chỗ nào, do vậy chương trình đã trả lời la không tìm thấy thư mục đó.Mong bạn xem hình và giúp cho cách giải quyết.


2-Còn một vấn đề nhỏ nữa là: Code tìm số lớn nhất mà bạn viết, tôi đã chuyển cho bạn tôi( tôi học thông qua một người bạn), bạn tôi đã nộp bài cho thầy giáo, thầy xem và nhận xét, chương trinh viết đúng không sai, nhưng vì chưa học đến phần Hàm số, nên thầy không chấp nhận, phải áp dụng các phương thức khác như vòng lặp, thủ tục, biến...để giải bài tập đó, bạn có thể xem lại vấn đề đó được không?
HaDuyNguyen
Thành viên chính thức
Thành viên chính thức
Posts: 20
Joined: Mon 10/02/2014 5:02 pm
Has thanked: 1 time
Been thanked: 1 time

Re: Cần sự giúp đỡ thực hiện các phép tính cơ bản như (+ - * :)

Post by HaDuyNguyen »

Viết chương trình thực hiện các phép tính đơn giản với dữ kiện như sau:
Imports System.Console
Module Module1

Sub Main(Argumente() As String)


WriteLine()
WriteLine(" Number der Argumente: {0}", Argumente.Length)
WriteLine()
If Argumente.Length > 2 Then
WriteLine(" Zuviele Argumente")
Exit Sub
ElseIf Argumente.Length < 2 Then
WriteLine(" Zuwenig Argumente")
WriteLine()
Exit Sub
End If
WriteLine(" {0} + {1} = {2}", _
Argumente(0), Argumente(1), _
CInt(Argumente(0)) + Argumente(1))
WriteLine()
End Sub

End Module
Bài này trước đây tôi đã hỏi và nhận được sự trả lời, nhưng bây giờ có thêm một số dữ kiện như sau:
1- sử dung Operation(các dấu của các phép tính phải khai là String) trước khi gán và thực hiện các phép tính.
2- sử dụng các Variablen Số 1, số 2 và kết quả được khai báo là Single, phần này đã học về Hàm số và có thể áp dụng để giải bài tập này.
3- Gữa các dữ kiện phải được ngăn một khoảng cách.
HaDuyNguyen
Thành viên chính thức
Thành viên chính thức
Posts: 20
Joined: Mon 10/02/2014 5:02 pm
Has thanked: 1 time
Been thanked: 1 time

Re: Cần sự giúp đỡ thực hiện các phép tính cơ bản như (+ - * :)

Post by HaDuyNguyen »

Xin chào các bạn !
Tôi có gửi bài tập nhờ các bạn giúp đỡ cách giải quyết, nhưng cho đến nay vẫn chưa nhận được kết quả, hôm nay tôi nhận được bài giải của thầy , với kinh nghiệm gần 30 năm chuyên viết sách và trực tiếp giảng day của thầy trong lĩnh vực này, tôi nghĩ là bài giải của thầy cũng có thể là một tài liệu tốt, tôi xin đăng lên diễn đàn để nếu có bạn nào quan tâm đến và cũng muốn học thì có thể có thêm tài liệu tham khảo, giúp cho việc học tập được tốt hơn, hy vọng là giúp nhau cùng tiến bộ.
Attachments
Imports System.rar
(9.29 KiB) Downloaded 210 times
Post Reply

Return to “Visual Basic .NET và C# (VB.NET & C#)”