Форум программистов, компьютерный форум CyberForum.ru

Basic для платформы Android - Basic4Android - Basic4Android

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Basic Найти с заданной точностью корни уравнения http://www.cyberforum.ru/basic4android/thread1146225.html
Вчера пол дня провела в интернете изучая бессик,ни кто не поверит ,но ничего не поняла ,особенно господа программисты)я восхищаюсь их способностями и очень огорчена ,что мне этого не дано,помогите пожалуйста .Из 4 заданных заданий смогла кое как сделать первое и то преподаватель помог .печатаю одно из заданий -Найти с заданной точностью корни уравнения соs2/X-sin1/X=1/X=0 в интервале изменения...
Basic Ищу информацию по MobileBASIC Есть что-нибудь по mobilebasic? http://www.cyberforum.ru/basic4android/thread1144060.html
Basic Найти ошибку в программе
подскажите где ошибка: друг попросил написать прогу на бейсике в универ, хз как там с синтаксисом READ STUDENTS TOTAL=0 FOR I=1 TO STUDENTS STEP 1 READ STEPENDIYA TOTAL=TOTAL+STEPENDIYA NEXT І MID=TOTAL/STUDENTS
Программирование вычислений по простейшим формулам Basic
Определить длину вектора и угол между ним и координатными осями при заданных координатных концах вектора. Помогите написать программу пожалуйста!
Basic Выбор бесплатного компилятора Basic http://www.cyberforum.ru/basic4android/thread1131601.html
Всем добрый день! В институте я изучал старенькие VB и QBasic, и сегодня хотел бы применить знание бейсика в деле, получая за это денежку. Подскажите, пожалуйста, бесплатный компилятор языка, идущий в ногу с современностью. Именно компилятор, так как моя работа ближе к разработке отдельных мини-программ, нежели к написанию макросов или .net-приложений. С уважением, Сергей aka Shull
Basic Программа для определения количества цифр для нумерации квартир Программа спрашивает у пользователя, сколько квартир нужно пронумеровать. Результат работы : вывод на экран информации о том, сколько потребуется цифр 0,1,2...9 Нужна консолька :) подробнее

Показать сообщение отдельно
Pro_grammer
Модератор
5875 / 2035 / 387
Регистрация: 24.04.2011
Сообщений: 3,449
Записей в блоге: 9
26.04.2014, 07:12  [ТС]     Basic для платформы Android - Basic4Android
Цитата Сообщение от Runkin Посмотреть сообщение
но на телефоне, вместо отсчёта на час, отчёт на 5 часов .. бред
Не бред. Сам сначала не врубился, а потом дошло.
Выполни просто этот код
Visual Basic
1
Msgbox("DateTime 0 =" & DateTime.Time(0),"Test")
По идее олжен быть 0, но у меня получается 4.0.0
Это связано с часовыми зонами. В реальном устройстве идет поправка даты на UTC (GMT)
В каждом устройстве можно найти и потом корректировать так
Visual Basic
1
2
Dim timezone As Long 
timezone = -DateTime.DateParse("01/01/1970")
Код с корректировкой будет выглядеть так
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub Process_Globals
        Dim Timer1 As Timer 
End Sub
 
Sub Globals
    
Dim CalcTime As Long = 0
Private timelabel1 As Label
Private Button1 As Button
Dim timezone As Long 
timezone = -DateTime.DateParse("01/01/1970")
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
 
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub
 
Sub Timer1_Tick
    CalcTime = CalcTime + 60000
    timelabel1.Text = DateTime.Time( CalcTime - timezone)
End Sub
Sub Button1_Click
        Timer1.Initialize("Timer1",1000)
        Timer1.Enabled = True
    CalcTime = 0
End Sub
 
Текущее время: 20:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru