Jak zrobić w basicu, żeby np liczbe 23.6443 zamienić na 23? Jak opuścić liczby po przecinku? I później chcialbym osobno 2 i 3 wpisać do dwóch zmiennych. Jak to zrobić?
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tamDim A As Double
Dim B As String * 2, B1 As String * 2, B2 As String * 2
Dim C As Integer, D As Integer
A = 23.6443
C = INT(A) ' funkcja INT pobiera część całkowitą z liczby czyli w tym przypadku 23B = Str(C) ' funkcja STR zamienia liczbę C na stringB1 = Left(B, 1) ' funkcja LEFT pobiera tu 1 znak z lewej strony stringu czyli u nas będzie to "2"
B2 = Right(B, 1) ' funkcja RIGHT robi analogicznie to co LEFT tylko że od prawej strony stringuC = Val(B1) ' funkcja VAL zamienia nasz string na liczbę
D = Val(b2) ' funkcja VAL zamienia nasz string na liczbę
Dim A As Integer
Dim B As Byte
Dim C1 As Byte 'cyfra 1
Dim C2 As Byte 'cyfra 2
Dim D As Single
D = 23.6443
A = Int(d)
D = D * 10
B = D - A
If B >= 5 Then
Incr A
End If
C1 = D / 10
C2 = C1 * 10
C2 = D - C2
