• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Đổi rads sang độ

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

LilyMeow
Bài viết: 1
Ngày tham gia: CN 03/04/2016 11:56 am

Đổi rads sang độ

Gửi bàigửi bởi LilyMeow » CN 03/04/2016 12:11 pm

Xin mọi người giúp mình khoảng này với ví dụ : cos(90)
mình viết
Private Function Rads(ByVal Degree As Single) As Single
Const PI = 22 / 7
Degree = Rads * 180 / PI
End Function
mà kết quả khong ra được độ, mình cũng đã thử hàm Math.Cos(90) *180/PI kết quả vẫn không đổi. Xin cao nhân chỉ bảo ạ !



Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Đổi rads sang độ

Gửi bàigửi bởi truongphu » CN 03/04/2016 4:56 pm

  1. Private Sub Command1_Click()
  2.     MsgBox Degree(1.5707963267949) & vbCrLf & "hay " & CInt(Degree(1.5707963267949))
  3.     MsgBox Rads(90)
  4.     MsgBox Cos(Rads(90)) & vbCrLf & "hay " & Format(Cos(Rads(90)), "0.0")
  5.     MsgBox Sin(Rads(90)) & vbCrLf & "hay " & CInt(Sin(Rads(90)))
  6. End Sub
  7. Private Function Degree(ByVal Rads As Single) As Single
  8.     Const PI = 22 / 7
  9.     Degree = Rads * 180 / PI
  10. End Function
  11. Private Function Rads(ByVal Degree As Single) As Single
  12.     Const PI = 22 / 7
  13.     Rads = Degree * PI / 180
  14. End Function
  15.  
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

NTK.vb6
Bài viết: 9
Ngày tham gia: T.Bảy 17/09/2016 10:04 am
Been thanked: 1 time

Re: Đổi rads sang độ

Gửi bàigửi bởi NTK.vb6 » T.Bảy 17/09/2016 11:47 am

  1. Function DoiDPG(Afa As Double) As Double
  2.     Dim pi As Double
  3.     Dim D As Double
  4.     Dim P As Double
  5.     Dim giay As Double
  6.     pi = Atn(1) * 4
  7.     Afa = Afa * 180 / pi
  8.     D = Fix(Afa)
  9.     P = Fix((Afa - D) * 60)
  10.     giay = ((Afa - D) * 60 - P) * 60
  11.     DoiDPG = D & "." & Format(P, "00") & Format(giay, "00")
  12. End Function
  13.  


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.2 khách